equal
deleted
inserted
replaced
22 COPYRIGHT (c) 1989 by Claus Gittinger |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 a helper class for fileIn - keeps track of class and category to filein for. |
25 a helper class for fileIn - keeps track of class and category to filein for. |
26 |
26 |
27 $Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.5 1993-11-08 02:29:30 claus Exp $ |
27 $Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.6 1993-12-11 00:44:33 claus Exp $ |
28 written 89 by claus |
28 written 89 by claus |
29 '! |
29 '! |
30 |
30 |
31 !ClassCategoryReader class methodsFor:'instance creation'! |
31 !ClassCategoryReader class methodsFor:'instance creation'! |
32 |
32 |
49 !ClassCategoryReader methodsFor:'fileIn'! |
49 !ClassCategoryReader methodsFor:'fileIn'! |
50 |
50 |
51 fileInFrom:aStream notifying:requestor |
51 fileInFrom:aStream notifying:requestor |
52 "read method-chunks from the input stream, aStream; compile them |
52 "read method-chunks from the input stream, aStream; compile them |
53 and add the methods to the class defined by the class-instance var; |
53 and add the methods to the class defined by the class-instance var; |
54 errors notifications are passed to requestor" |
54 errors and notifications are passed to requestor" |
55 |
55 |
56 |aString done method| |
56 |aString done method| |
57 |
57 |
58 done := false. |
58 done := false. |
59 [done] whileFalse:[ |
59 [done] whileFalse:[ |