equal
deleted
inserted
replaced
1763 comps := Filename components:'c:\'. |
1763 comps := Filename components:'c:\'. |
1764 Filename nameFromComponents:comps |
1764 Filename nameFromComponents:comps |
1765 " |
1765 " |
1766 |
1766 |
1767 "Modified: 8.9.1997 / 00:23:16 / cg" |
1767 "Modified: 8.9.1997 / 00:23:16 / cg" |
|
1768 ! |
|
1769 |
|
1770 possiblyQuotedPath:aPath |
|
1771 "if aPath requires any quoting, do so" |
|
1772 |
|
1773 (aPath includes:Character space) ifTrue:[ |
|
1774 (aPath startsWith:$") ifFalse:[ |
|
1775 ^ '"',aPath,'"' |
|
1776 ] |
|
1777 ]. |
|
1778 ^ aPath |
|
1779 |
|
1780 "Created: / 28-03-2019 / 16:11:50 / Claus Gittinger" |
1768 ! |
1781 ! |
1769 |
1782 |
1770 readingFile:aPathName do:aBlock |
1783 readingFile:aPathName do:aBlock |
1771 "Create a read stream on a file, evaluate aBlock, passing that stream, |
1784 "Create a read stream on a file, evaluate aBlock, passing that stream, |
1772 and return the block's value. |
1785 and return the block's value. |