1061 edit

  1397 directoryContents

  1062     "start an editView on the file represented by the receiver"

  1398     "return the contents of the directory as a collection of strings"

  1063 

  1399 

  1064     EditTextView openOn:self asString

  1400     ^ (FileDirectory directoryNamed:self asString) contents

  1065 

  1401 

  1066     "

  1402     "

  1067      'smalltalk.rc' asFilename edit

  1403      '.' asFilename directoryContents

  1068     "

  1404     "

  1069 !

  1405 !

  1070 

  1406 

  1071 fileIn

  1407 filesMatching:aPattern

  1072     "load smalltalk code from the file"

  1408     "given the receiver, representing a directory;

  1073 

  1409      return a collection of files matching a pattern."

  1074     ^ self readStream fileIn

  1410 

  1411     ^ self directoryContents select:[:name | aPattern match:name]

  1412 

  1413     "

  1414      Filename currentDirectory filesMatching:'M*' 

  1415      '/etc' asFilename filesMatching:'[a-z]*' 

  1416      '../../libbasic' asFilename filesMatching:'[A-D]*.st'  

  1417     "

  1418 

  1419     "Modified: 29.2.1996 / 20:30:31 / cg"

  1077 !Filename methodsFor:'instance creation'!

  1422 !Filename methodsFor:'queries-path & name'!

  1078 

  1079 construct:subname

  1080     "taking the receiver as a directory name, construct a new

  1081      filename for an entry within this directory (i.e. for a file

  1082      or a subdirectory in that directory)."

  1083 

  1084     ^ (self constructString:subname) asFilename

  1085 

  1086     "

  1087      '/tmp' asFilename construct:'foo'    

  1088      '/' asFilename construct:'foo'         

  1089      '/usr/tmp' asFilename construct:'foo'

  1090      '/foo/bar' asFilename construct:'baz' 

  1091     "

  1092 !

  1093 

  1094 constructString:subname

  1095     "taking the receiver as a directory name, construct a new

  1096      filenames string for an entry within this directory (i.e. for a file

  1097      or a subdirectory in that directory)."

  1098 

  1099     |sepString|

  1100 

  1101     sepString := self class separator asString.

  1102     nameString = sepString ifTrue:[

  1103 	"I am the root"

  1104 	^ sepString  , subname

  1105     ].

  1106     ^ nameString , sepString , subname asString

  1107 

  1108     "

  1109      '/tmp' asFilename constructString:'foo'   

  1110      '/' asFilename constructString:'foo'         

  1111      '/usr/tmp' asFilename constructString:'foo'

  1112      '/foo/bar' asFilename constructString:'baz' 

  1113     "

  1114 

  1115     "Modified: 7.9.1995 / 10:15:22 / claus"

  1116 ! !

  1117 

  1118 !Filename methodsFor:'misc'!

  1119 

  1120 , aString

  1121     "this allows filenames to understand how names are concatenated.

  1122      Returns a string consisting of the receivers name, concatenated

  1123      by aString. Notice this is NOT the same as construct:, which inserts

  1124      a directory delimiter and returns a new fileName instance."

  1125 

  1126     ^ (nameString , aString asString)

  1127 

  1128     "

  1129      'Makefile' asFilename , '.bak' 

  1130      'Makefile' asFilename construct:'.bak' 

  1131     "

  1132 ! !

  1133 

  1134 !Filename methodsFor:'printing & storing'!

  1135 

  1136 printOn:aStream

  1137     "append a printed representation of the receiver to aStream."

  1138 

  1139     aStream nextPutAll:'FileName('''.

  1140     nameString printOn:aStream.

  1141     aStream nextPutAll:''')'

  1142 !

  1143 

  1144 storeOn:aStream

  1145     "append a printed representation of the receiver to aStream,

  1146      which allows reconstructing it via readFrom:"

  1147 

  1148     aStream nextPut:$(.

  1149     nameString storeOn:aStream.

  1150     aStream nextPutAll:' asFilename)'

  1151 ! !

  1152 

  1153 !Filename methodsFor:'private accessing'!

  1154 

  1155 setName:aString

  1156     "set the filename"

  1157 

  1158     nameString := aString

  1159 ! !

  1160 

  1161 !Filename methodsFor:'queries'!

  1193     "return the directory name part of the file/directory as a filename.

  1442     "return the directory name part of the file/directory as a new filename.

  1195        the receiver is contained in."

  1444        the receiver is contained in.

  1445      (this is almost equivalent to #directoryName or #head, but returns

  1446       a Filename instance instead of a string )."

  1200      '/foo/bar' asFilename directory

  1451      '/foo/bar' asFilename directory      

  1452      '/foo/bar' asFilename directoryName  

  1453      '/foo/bar' asFilename head  

  1454 

  1205 !

  1459 

  1206 

  1460     "Modified: 29.2.1996 / 20:50:14 / cg"

  1207 directoryContents

  1208     "return the contents of the directory as a collection of strings"

  1209 

  1210     ^ (FileDirectory directoryNamed:self asString) contents

  1211 

  1212     "

  1213      '.' asFilename directoryContents

  1214     "

  1221      See also: #directoryPathName"

  1467      (this is almost equivalent to #directory, but returns

  1468       a string instead of a Filename instance).

  1469      See also: #directoryPathName.

  1470      Compatibility note: use #head for ST-80 compatibility."

  1243      See also: directoryName"

  1495      See also: #directoryName, #directory"

  1250      '.' asFilename directoryPathName        

  1502 

  1503      '.' asFilename directoryPathName      

  1504      '.' asFilename directoryName     

  1505      '.' asFilename directory          

  1506 

  1256 !

  1515     "Modified: 29.2.1996 / 20:24:44 / cg"

  1257 

  1258 exists

  1259     "return true, if such a file exists."

  1260 

  1261     ^ OperatingSystem isValidPath:nameString

  1262 

  1263     "

  1264      '/foo/bar' asFilename exists 

  1265      '/tmp' asFilename exists  

  1266      'Makefile' asFilename exists   

  1267     "

  1271     "try to complete the recevier filename.

  1519     "try to complete the receiver filename.

  1292     "try to complete the recevier filename.

  1542     "try to complete the receiver filename.

  1306 	^ #()

  1556         ^ #()

  1312 	prefix := self directoryName.

  1562         prefix := self directoryName.

  1316 	dir := self directory

  1566         dir := self directory

  1318 	aDirectory isNil ifTrue:[

  1568         aDirectory isNil ifTrue:[

  1319 	    dir := self directory

  1569             dir := self directory

  1320 	] ifFalse:[

  1570         ] ifFalse:[

  1321 	    dir := (aDirectory construct:nameString) directory

  1571             dir := (aDirectory construct:nameString) directory

  1322 	]

  1572         ]

  1327 	((fileName ~= '.') and:[fileName ~= parentString]) ifTrue:[

  1577         ((fileName ~= '.') and:[fileName ~= parentString]) ifTrue:[

  1328 	    (fileName startsWith:baseName) ifTrue:[

  1578             (fileName startsWith:baseName) ifTrue:[

  1329 		matching add:fileName

  1579                 matching add:fileName

  1330 	    ]

  1580             ]

  1331 	]

  1581         ]

  1334 	"

  1584         "

  1335 	 find the longest common prefix

  1585          find the longest common prefix

  1336 	"

  1586         "

  1337 	matchLen := baseName size.

  1587         matchLen := baseName size.

  1338 	matchLen > matching first size ifTrue:[

  1588         matchLen > matching first size ifTrue:[

  1339 	    try := baseName.

  1589             try := baseName.

  1340 	    allMatching := false

  1590             allMatching := false

  1341 	] ifFalse:[

  1591         ] ifFalse:[

  1342 	    try := matching first copyTo:matchLen.

  1592             try := matching first copyTo:matchLen.

  1343 	    allMatching := true.

  1593             allMatching := true.

  1344 	].

  1594         ].

  1345 

  1595 

  1346 	[allMatching] whileTrue:[

  1596         [allMatching] whileTrue:[

  1347 	    matching do:[:aName |

  1597             matching do:[:aName |

  1348 		(aName startsWith:try) ifFalse:[

  1598                 (aName startsWith:try) ifFalse:[

  1349 		    allMatching := false

  1599                     allMatching := false

  1350 		]

  1600                 ]

  1351 	    ].

  1601             ].

  1352 	    allMatching ifTrue:[

  1602             allMatching ifTrue:[

  1353 		matchLen <  matching first size ifTrue:[

  1603                 matchLen <  matching first size ifTrue:[

  1354 		    matchLen := matchLen + 1.

  1604                     matchLen := matchLen + 1.

  1355 		    try := matching first copyTo:matchLen.

  1605                     try := matching first copyTo:matchLen.

  1356 		] ifFalse:[

  1606                 ] ifFalse:[

  1357 		    allMatching := false

  1607                     allMatching := false

  1358 		]

  1608                 ]

  1359 	    ] ifFalse:[

  1609             ] ifFalse:[

  1360 		try := matching first copyTo:matchLen - 1.

  1610                 try := matching first copyTo:matchLen - 1.

  1361 	    ]

  1611             ]

  1362 	].

  1612         ].

  1363 	"

  1613         "

  1364 	 and set my name to the last full match

  1614          and set my name to the last full match

  1365 	"

  1615         "

  1366 	nameString := try

  1616         nameString := try

  1373 	prefix = '/' ifTrue:[

  1623         prefix = '/' ifTrue:[

  1374 	    "/ avoid introducing double slashes

  1624             "/ avoid introducing double slashes

  1375 	    prefix := ''

  1625             prefix := ''

  1376 	].

  1626         ].

  1377 	matching := matching collect:[:n | prefix , '/' , n].

  1627         matching := matching collect:[:n | prefix , '/' , n].

  1378 	nMatch == 1 ifTrue:[

  1628         nMatch == 1 ifTrue:[

  1379 	    nameString := matching first

  1629             nameString := matching first

  1380 	] ifFalse:[

  1630         ] ifFalse:[

  1381 	    nMatch > 1 ifTrue:[

  1631             nMatch > 1 ifTrue:[

  1382 		nameString := prefix , '/' , nameString

  1632                 nameString := prefix , '/' , nameString

  1383 	    ]

  1633             ]

  1384 	]

  1634         ]

  1386 	nMatch == 1 ifTrue:[

  1636         nMatch == 1 ifTrue:[

  1387 	    nameString := matching first

  1637             nameString := matching first

  1388 	]

  1638         ]

  1409 !

  1659 

  1410 

  1660     "Modified: 29.2.1996 / 20:28:45 / cg"

  1411 filesMatching:aPattern

  1661 !

  1412     ^ self directoryContents select:[:name | aPattern match:name]

  1662 

  1413 

  1663 head 

  1414     "

  1664     "return the directory name as a string. 

  1415      Filename currentDirectory filesMatching:'M*' 

  1665      An alias for directoryName, for ST-80 compatiblity.

  1416     "

  1666      (this is almost equivalent to #directory, but returns

  1417 !

  1667       a string instead of a Filename instance)"

  1418 

  1668 

  1419 isAbsolute

  1669     ^ self directoryName

  1420     "return true, if the receiver represents an absolute pathname

  1670 

  1421      (in contrast to one relative to the current directory)."

  1671     "

  1422 

  1672      Filename currentDirectory head  

  1423     ^ (nameString startsWith:self class separator)

  1673      'Makefile' asFilename head    

  1424 

  1674      '/foo/bar/baz.st' asFilename head  

  1425     "

  1675     "

  1426      '/foo/bar' asFilename isAbsolute   

  1676 

  1427      '..' asFilename isAbsolute         

  1677     "Modified: 29.2.1996 / 20:21:25 / cg"

  1428      '..' asAbsoluteFilename isAbsolute         

  1429      'source/SBrowser.st' asFilename isAbsolute  

  1430     "

  1431 !

  1432 

  1433 isDirectory

  1434     "return true, if the receiver represents an existing,

  1435      readable directories pathname."

  1436 

  1437     ^ OperatingSystem isDirectory:nameString

  1438 

  1439     "

  1440      '/foo/bar' asFilename isDirectory

  1441      '/tmp' asFilename isDirectory

  1442      'Makefile' asFilename isDirectory   

  1443     "

  1444 !

  1445 

  1446 isExecutable

  1447     "return true, if such a file exists and is executable (by Unix's definition).

  1448      For directories, true is returned if the directory can be entered.

  1449      See isExecutableProgram for a related check."

  1450 

  1451     ^ OperatingSystem isExecutable:nameString

  1452 

  1453     "

  1454      '/foo/bar' asFilename isExecutable 

  1455      '/tmp' asFilename isExecutable   

  1456      'Makefile' asFilename isExecutable   

  1457      '/bin/ls' asFilename isExecutable   

  1458     "

  1459 !

  1460 

  1461 isExecutableProgram

  1462     "return true, if such a file exists and is an executable program.

  1463      (i.e. for directories, false is returned.)"

  1464 

  1465     ^ (OperatingSystem isExecutable:nameString)

  1466       and:[(OperatingSystem isDirectory:nameString) not]

  1467 

  1468     "

  1469      '/tmp' asFilename isExecutable         

  1470      '/bin/ls' asFilename isExecutable       

  1471      '/tmp' asFilename isExecutableProgram   

  1472      '/bin/ls' asFilename isExecutableProgram    

  1473     "

  1474 !

  1475 

  1476 isReadable

  1477     "return true, if such a file exists and is readable."

  1478 

  1479     ^ OperatingSystem isReadable:nameString

  1480 

  1481     "

  1482      '/foo/bar' asFilename isReadable   

  1483      '/tmp' asFilename isReadable      

  1484      'Makefile' asFilename isReadable   

  1485     "

  1486 !

  1487 

  1488 isRelative

  1489     "return true, if this name is interpreted relative to some

  1490      directory (opposite of absolute)"

  1491 

  1492     ^ self isAbsolute not

  1493 !

  1494 

  1495 isSymbolicLink

  1496     "return true, if the file represented by the receiver is a symbolic

  1497      link. Notice that not all OS's support symbolic links; those that do

  1498      not will always return false."

  1499 

  1500     ^ OperatingSystem isSymbolicLink:nameString

  1501 

  1502     "

  1503      'Make.proto' asFilename isSymbolicLink  

  1504      'Makefile' asFilename isSymbolicLink   

  1505     "

  1506 !

  1507 

  1508 isWritable

  1509     "return true, if such a file exists and is writable."

  1510 

  1511     ^ OperatingSystem isWritable:nameString

  1512 

  1513     "

  1514      '/foo/bar' asFilename isWritable 

  1515      '/tmp' asFilename isWritable   

  1516      'Makefile' asFilename isWritable   

  1517     "

  1589 	^ Array with:nm with:''

  1782         ^ Array with:nm with:''

  1592 	with:(nm copyTo:idx-1)

  1785         with:(nm copyTo:idx-1)

  1593 	with:(nm copyFrom:idx+1)

  1786         with:(nm copyFrom:idx+1)

  1608 separator

  1801 withSuffix:aSuffix

  1609     "return the directory-separator character (or string)"

  1802     "return a new filename for the receivers name with a suffix.

  1610 

  1803      If the name already has a sufix, the new suffix replacaes it;

  1611     ^ self class separator

  1804      otherwise, the new suffix simply appended to the name."

  1612 !

  1805 

  1613 

  1806     ^ self class named:

  1614 suffix

  1807         (self withoutSuffix name 

  1615     "return my suffix.

  1808          , self class suffixSeparator asString 

  1616      The suffix is the namepart after the final period character,

  1809          , aSuffix asString)

  1617      or the empty string, if the name does not contain a period."

  1810 

  1618 

  1811     "

  1619     ^ self prefixAndSuffix at:2

  1812      'abc.st' asFilename withSuffix:'o'         

  1620 

  1813      'abc' asFilename withSuffix:'o'             

  1621     "

  1814      'a.b.c' asFilename withSuffix:'o'            

  1622      'abc.st' asFilename suffix   

  1815      '/foo/bar/baz.st' asFilename withSuffix:'c'   

  1623      'abc' asFilename suffix      

  1816      '/foo/bar/baz.c' asFilename withSuffix:'st'   

  1624      'a.b.c' asFilename suffix    

  1817     "

  1625     "

  1818 

  1626 

  1819     "Modified: 7.9.1995 / 11:15:42 / claus"

  1627     "Modified: 7.9.1995 / 11:09:03 / claus"

  1820     "Modified: 29.2.1996 / 20:50:03 / cg"

  1628 !

  1821 !

  1629 

  1822 

  1630 tail

  1823 withoutSuffix

  1631     "the files name without directory prefix as a string. 

  1824     "return a new filename for the receivers name without the suffix.

  1632      An alias for baseName, for ST-80 compatiblity."

  1825      If the name has no suffix, the receiver is returned."

  1633 

  1826 

  1634     ^ self baseName

  1827     |idx|

  1828 

  1829     idx := nameString lastIndexOf:(self class suffixSeparator).

  1830     idx == 0 ifTrue:[^ self].

  1831 

  1832     ^ self class named:(nameString copyTo:(idx - 1))

  1833 

  1834     "

  1835      'abc.st' asFilename withoutSuffix         

  1836      'abc' asFilename withoutSuffix            

  1837      'a.b.c' asFilename withoutSuffix           

  1838      '/foo/bar/baz.c' asFilename withoutSuffix   

  1839     "

  1840 

  1841     "Modified: 7.9.1995 / 11:15:42 / claus"

  1842     "Modified: 29.2.1996 / 20:49:59 / cg"

  1640     ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.50 1996-02-04 19:06:34 cg Exp $'

  1848     ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.51 1996-02-29 20:01:28 cg Exp $'