equal
deleted
inserted
replaced
625 |
625 |
626 atEnd |
626 atEnd |
627 "return true, if position is at end" |
627 "return true, if position is at end" |
628 |
628 |
629 ^ readAheadEntry == nil |
629 ^ readAheadEntry == nil |
|
630 ! |
|
631 |
|
632 isEmpty |
|
633 "test for if the unread portion of the directory stream is empty. |
|
634 This query changes the readPointer of the DirectoryStream" |
|
635 |
|
636 |pos entry| |
|
637 |
|
638 [self atEnd] whileFalse:[ |
|
639 entry := self nextLine. |
|
640 entry asFilename isImplicit ifFalse:[ |
|
641 ^ false. |
|
642 ] |
|
643 ]. |
|
644 ^ true |
|
645 |
|
646 |
|
647 " |
|
648 (DirectoryStream directoryNamed:'/') isEmpty |
|
649 (DirectoryStream directoryNamed:'/var/tmp') isEmpty |
|
650 " |
|
651 |
|
652 "Modified: 18.9.1997 / 18:05:31 / stefan" |
630 ! ! |
653 ! ! |
631 |
654 |
632 !DirectoryStream class methodsFor:'documentation'! |
655 !DirectoryStream class methodsFor:'documentation'! |
633 |
656 |
634 version |
657 version |
635 ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.37 1997-09-04 21:01:44 cg Exp $' |
658 ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.38 1997-09-18 17:29:19 stefan Exp $' |
636 ! ! |
659 ! ! |