equal
deleted
inserted
replaced
286 or:[directive = 'NameSpace']) ifTrue:[ |
286 or:[directive = 'NameSpace']) ifTrue:[ |
287 namespace := self parseDirectiveStringArg. |
287 namespace := self parseDirectiveStringArg. |
288 namespace notNil ifTrue:[ |
288 namespace notNil ifTrue:[ |
289 (requestor respondsTo:#setNameSpace:) ifTrue:[ |
289 (requestor respondsTo:#setNameSpace:) ifTrue:[ |
290 requestor setNameSpace:namespace |
290 requestor setNameSpace:namespace |
|
291 ] ifFalse:[ |
|
292 self setNameSpace:namespace |
291 ]. |
293 ]. |
292 ]. |
294 ]. |
293 ]. |
295 ]. |
294 |
296 |
295 " |
297 " |
297 " |
299 " |
298 directive = 'Uses' ifTrue:[ |
300 directive = 'Uses' ifTrue:[ |
299 list := self parseDirectiveStringListArg. |
301 list := self parseDirectiveStringListArg. |
300 (requestor respondsTo:#useNameSpaces:) ifTrue:[ |
302 (requestor respondsTo:#useNameSpaces:) ifTrue:[ |
301 requestor useNameSpaces:list |
303 requestor useNameSpaces:list |
302 ]. |
304 ] |
303 ]. |
305 ]. |
304 |
306 |
305 " |
307 " |
306 Prerequisites: 'name-of-package', ... , 'name-of-package' |
308 Prerequisites: 'name-of-package', ... , 'name-of-package' |
307 " |
309 " |
313 ]. |
315 ]. |
314 ] |
316 ] |
315 ]. |
317 ]. |
316 hereChar := source peek. |
318 hereChar := source peek. |
317 |
319 |
318 "Modified: 5.11.1996 / 22:03:30 / cg" |
320 "Modified: 8.11.1996 / 13:33:18 / cg" |
319 ! |
321 ! |
320 |
322 |
321 parseDirectiveStringArg |
323 parseDirectiveStringArg |
322 hereChar == $' ifTrue:[ |
324 hereChar == $' ifTrue:[ |
323 self nextString. |
325 self nextString. |
598 |
600 |
599 notifying:anObject |
601 notifying:anObject |
600 "set the requestor to be notified" |
602 "set the requestor to be notified" |
601 |
603 |
602 requestor := anObject |
604 requestor := anObject |
|
605 ! |
|
606 |
|
607 setNameSpace:aNameSpace |
|
608 "/ ignored here |
|
609 |
|
610 "Created: 8.11.1996 / 13:33:10 / cg" |
603 ! ! |
611 ! ! |
604 |
612 |
605 !Scanner methodsFor:'reading next token'! |
613 !Scanner methodsFor:'reading next token'! |
606 |
614 |
607 nextCharacter |
615 nextCharacter |
1212 ! ! |
1220 ! ! |
1213 |
1221 |
1214 !Scanner class methodsFor:'documentation'! |
1222 !Scanner class methodsFor:'documentation'! |
1215 |
1223 |
1216 version |
1224 version |
1217 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.52 1996-11-05 22:21:12 cg Exp $' |
1225 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.53 1996-11-08 13:15:29 cg Exp $' |
1218 ! ! |
1226 ! ! |
1219 Scanner initialize! |
1227 Scanner initialize! |