equal
deleted
inserted
replaced
15 classVariableNames:'KeepSource SourceMode' |
15 classVariableNames:'KeepSource SourceMode' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Kernel-Support' |
17 category:'Kernel-Support' |
18 ! |
18 ! |
19 |
19 |
20 !ClassCategoryReader class methodsFor:'documentation'! |
20 !ClassCategoryReader class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
23 " |
23 " |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
68 [see also:] |
68 [see also:] |
69 Class PositionableStream |
69 Class PositionableStream |
70 " |
70 " |
71 ! ! |
71 ! ! |
72 |
72 |
73 !ClassCategoryReader class methodsFor:'initialization'! |
73 !ClassCategoryReader class methodsFor:'initialization'! |
74 |
74 |
75 initialize |
75 initialize |
76 KeepSource := true. |
76 KeepSource := true. |
77 SourceMode := #keep. |
77 SourceMode := #keep. |
78 |
78 |
81 " |
81 " |
82 |
82 |
83 "Modified: 9.2.1996 / 17:22:57 / cg" |
83 "Modified: 9.2.1996 / 17:22:57 / cg" |
84 ! ! |
84 ! ! |
85 |
85 |
86 !ClassCategoryReader class methodsFor:'instance creation'! |
86 !ClassCategoryReader class methodsFor:'instance creation'! |
87 |
87 |
88 class:aClass category:aCategory |
88 class:aClass category:aCategory |
89 "return a new ClassCategoryReader to read methods for aClass with |
89 "return a new ClassCategoryReader to read methods for aClass with |
90 methodCategory aCategory" |
90 methodCategory aCategory" |
91 |
91 |
96 "return a ClassCategoryReader to read a primitiveSpec chunk" |
96 "return a ClassCategoryReader to read a primitiveSpec chunk" |
97 |
97 |
98 ^ self new class:aClass primitiveSpec:which |
98 ^ self new class:aClass primitiveSpec:which |
99 ! ! |
99 ! ! |
100 |
100 |
101 !ClassCategoryReader class methodsFor:'defaults'! |
101 !ClassCategoryReader class methodsFor:'defaults'! |
102 |
102 |
103 keepSource |
103 keepSource |
104 ^ KeepSource |
104 ^ KeepSource |
105 |
105 |
106 "Created: 9.9.1995 / 15:22:27 / claus" |
106 "Created: 9.9.1995 / 15:22:27 / claus" |
146 and add the methods to the class defined by the class-instance var; |
146 and add the methods to the class defined by the class-instance var; |
147 errors and notifications are passed to requestor" |
147 errors and notifications are passed to requestor" |
148 |
148 |
149 |aString done method compiler canMakeSourceRef sourceFile pos nm src s| |
149 |aString done method compiler canMakeSourceRef sourceFile pos nm src s| |
150 |
150 |
151 Smalltalk silentLoading ifFalse:[ |
151 Smalltalk silentLoading == true ifFalse:[ |
152 myClass isNil ifTrue:[ |
152 myClass isNil ifTrue:[ |
153 nm := '** UndefinedClass **' |
153 nm := '** UndefinedClass **' |
154 ] ifFalse:[ |
154 ] ifFalse:[ |
155 nm := myClass name |
155 nm := myClass name |
156 ]. |
156 ]. |
283 ] |
283 ] |
284 ] |
284 ] |
285 ] |
285 ] |
286 |
286 |
287 "Modified: 9.9.1995 / 15:29:08 / claus" |
287 "Modified: 9.9.1995 / 15:29:08 / claus" |
288 "Modified: 10.2.1996 / 13:24:04 / cg" |
288 "Modified: 18.7.1996 / 17:42:09 / cg" |
289 ! ! |
289 ! ! |
290 |
290 |
291 !ClassCategoryReader methodsFor:'private'! |
291 !ClassCategoryReader methodsFor:'private'! |
292 |
292 |
293 class:aClass category:aCategory |
293 class:aClass category:aCategory |
320 |
320 |
321 protectedProtocol |
321 protectedProtocol |
322 privacy := #protected |
322 privacy := #protected |
323 ! ! |
323 ! ! |
324 |
324 |
325 !ClassCategoryReader class methodsFor:'documentation'! |
325 !ClassCategoryReader class methodsFor:'documentation'! |
326 |
326 |
327 version |
327 version |
328 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.30 1996-04-25 16:57:06 cg Exp $' |
328 ^ '$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.31 1996-07-18 15:42:31 cg Exp $' |
329 ! ! |
329 ! ! |
330 ClassCategoryReader initialize! |
330 ClassCategoryReader initialize! |