equal
deleted
inserted
replaced
102 # endif |
102 # endif |
103 # ifdef __DEF_Context |
103 # ifdef __DEF_Context |
104 # define Context __DEF_Context |
104 # define Context __DEF_Context |
105 # endif |
105 # endif |
106 |
106 |
107 # define __HANDLEVal(o) (HANDLE)__MKCP(o) |
107 # define __HANDLEVal(o) (HANDLE)__externalAddressVal(o) |
108 |
108 |
109 #endif /* WIN32 */ |
109 #endif /* WIN32 */ |
110 |
110 |
111 %} |
111 %} |
112 ! ! |
112 ! ! |
578 __END_INTERRUPTABLE__ |
578 __END_INTERRUPTABLE__ |
579 |
579 |
580 if (d == NULL) { |
580 if (d == NULL) { |
581 __INST(lastErrorNumber) = __MKSMALLINT(errno); |
581 __INST(lastErrorNumber) = __MKSMALLINT(errno); |
582 } else { |
582 } else { |
583 __INST(dirPointer) = dp = __MKOBJ(d); __STORE(self, dp); |
583 __INST(dirPointer) = dp = __MKEXTERNALADDRESS(d); __STORE(self, dp); |
584 ok = true; |
584 ok = true; |
585 } |
585 } |
586 } |
586 } |
587 } |
587 } |
588 #else |
588 #else |
600 strcat(pattern, "\\*"); |
600 strcat(pattern, "\\*"); |
601 d = FindFirstFile(pattern, &data); |
601 d = FindFirstFile(pattern, &data); |
602 if (d == INVALID_HANDLE_VALUE) { |
602 if (d == INVALID_HANDLE_VALUE) { |
603 __INST(lastErrorNumber) = __MKSMALLINT(GetLastError()); |
603 __INST(lastErrorNumber) = __MKSMALLINT(GetLastError()); |
604 } else { |
604 } else { |
605 __INST(dirPointer) = dp = __MKOBJ(d); __STORE(self, dp); |
605 __INST(dirPointer) = dp = __MKEXTERNALADDRESS(d); __STORE(self, dp); |
606 entry = __MKSTRING( data.cFileName ); |
606 entry = __MKSTRING( data.cFileName ); |
607 ok = true; |
607 ok = true; |
608 } |
608 } |
609 } |
609 } |
610 } |
610 } |
671 ! ! |
671 ! ! |
672 |
672 |
673 !DirectoryStream class methodsFor:'documentation'! |
673 !DirectoryStream class methodsFor:'documentation'! |
674 |
674 |
675 version |
675 version |
676 ^ '$Header: /cvs/stx/stx/libbasic/Attic/DirStr.st,v 1.40 1997-09-24 03:45:25 cg Exp $' |
676 ^ '$Header: /cvs/stx/stx/libbasic/Attic/DirStr.st,v 1.41 1997-10-06 13:27:34 cg Exp $' |
677 ! ! |
677 ! ! |