equal
deleted
inserted
replaced
151 " |
151 " |
152 ! ! |
152 ! ! |
153 |
153 |
154 !FileDirectory class methodsFor:'Compatibility-Squeak'! |
154 !FileDirectory class methodsFor:'Compatibility-Squeak'! |
155 |
155 |
|
156 default |
|
157 ^ (self basicNew) pathName:(Filename defaultDirectory name) |
|
158 ! |
|
159 |
156 localNameFor:aFileNameString |
160 localNameFor:aFileNameString |
157 ^ aFileNameString asFilename baseName |
161 ^ aFileNameString asFilename baseName |
158 ! |
162 ! |
159 |
163 |
160 pathNameDelimiter |
164 pathNameDelimiter |
187 |
191 |
188 "Modified: 28.4.1997 / 22:06:17 / cg" |
192 "Modified: 28.4.1997 / 22:06:17 / cg" |
189 "Modified: 28.4.1997 / 22:34:18 / dq" |
193 "Modified: 28.4.1997 / 22:34:18 / dq" |
190 ! ! |
194 ! ! |
191 |
195 |
|
196 !FileDirectory methodsFor:'Compatibility-Squeak'! |
|
197 |
|
198 deleteDirectory:dirName |
|
199 "ST80 compatibility" |
|
200 |
|
201 ^ self removeDirectory:dirName |
|
202 ! |
|
203 |
|
204 deleteFileNamed:fileName |
|
205 "ST80 compatibility" |
|
206 |
|
207 ^ self removeFile:fileName |
|
208 ! |
|
209 |
|
210 directoryNames |
|
211 "ST80 compatibility" |
|
212 |
|
213 ^ self directories |
|
214 ! |
|
215 |
|
216 fileNames |
|
217 "ST80 compatibility" |
|
218 |
|
219 ^ self files |
|
220 ! |
|
221 |
|
222 includesKey:name |
|
223 "ST80 compatibility" |
|
224 |
|
225 ^ self exists:name |
|
226 ! ! |
192 |
227 |
193 !FileDirectory methodsFor:'accessing'! |
228 !FileDirectory methodsFor:'accessing'! |
194 |
229 |
195 baseName |
230 baseName |
196 "return my baseName |
231 "return my baseName |
433 "evaluate the argument, aBlock for every object in the directory |
468 "evaluate the argument, aBlock for every object in the directory |
434 for which testBlock evaluates to true." |
469 for which testBlock evaluates to true." |
435 |
470 |
436 |aStream name| |
471 |aStream name| |
437 |
472 |
438 aStream := DirectoryStream directoryNamed:pathName. |
473 ExternalStream openErrorSignal catch:[ |
|
474 aStream := DirectoryStream directoryNamed:pathName. |
|
475 ]. |
439 aStream isNil ifTrue:[^ nil]. |
476 aStream isNil ifTrue:[^ nil]. |
440 [aStream atEnd] whileFalse:[ |
477 [aStream atEnd] whileFalse:[ |
441 name := aStream nextLine. |
478 name := aStream nextLine. |
442 name notNil ifTrue:[ |
479 name notNil ifTrue:[ |
443 (testBlock value:name) ifTrue:[ |
480 (testBlock value:name) ifTrue:[ |
444 aBlock value:name |
481 aBlock value:name |
445 ] |
482 ] |
446 ] |
483 ] |
447 ]. |
484 ]. |
448 aStream close |
485 aStream close |
449 ! ! |
486 ! ! |
450 |
487 |
451 !FileDirectory methodsFor:'more instance creation'! |
488 !FileDirectory methodsFor:'more instance creation'! |
632 ! ! |
669 ! ! |
633 |
670 |
634 !FileDirectory class methodsFor:'documentation'! |
671 !FileDirectory class methodsFor:'documentation'! |
635 |
672 |
636 version |
673 version |
637 ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.44 2003-05-19 13:35:45 cg Exp $' |
674 ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.45 2003-10-09 21:19:41 cg Exp $' |
638 ! ! |
675 ! ! |
639 |
676 |
640 FileDirectory initialize! |
677 FileDirectory initialize! |