equal
deleted
inserted
replaced
2306 |
2306 |
2307 (nextChar == $#) ifTrue:[ |
2307 (nextChar == $#) ifTrue:[ |
2308 nextChar := source nextPeek. |
2308 nextChar := source nextPeek. |
2309 nextChar == $( ifTrue:[ |
2309 nextChar == $( ifTrue:[ |
2310 parserFlags allowDolphinExtensions == true ifTrue:[ |
2310 parserFlags allowDolphinExtensions == true ifTrue:[ |
2311 "dolphin does computed literals as ##( ... )" |
2311 "dolphin does computed literals as ##( ... )" |
2312 source next. |
2312 source next. |
2313 token := '##('. |
2313 token := '##('. |
2314 tokenType := #HashHashLeftParen. |
2314 tokenType := #HashHashLeftParen. |
2315 ^ tokenType |
2315 ^ tokenType |
2316 ]. |
2316 ]. |
2366 tokenName := token := '#'. |
2366 tokenName := token := '#'. |
2367 tokenType := #BinaryOperator. |
2367 tokenType := #BinaryOperator. |
2368 ^ tokenType |
2368 ^ tokenType |
2369 |
2369 |
2370 "Modified: / 01-08-2006 / 14:57:19 / cg" |
2370 "Modified: / 01-08-2006 / 14:57:19 / cg" |
|
2371 "Modified (format): / 30-09-2011 / 12:23:04 / cg" |
2371 ! |
2372 ! |
2372 |
2373 |
2373 nextId |
2374 nextId |
2374 "no longer used here - remains for backwardCompatibility for |
2375 "no longer used here - remains for backwardCompatibility for |
2375 subclass users ... (sigh)" |
2376 subclass users ... (sigh)" |
3350 ! ! |
3351 ! ! |
3351 |
3352 |
3352 !Scanner class methodsFor:'documentation'! |
3353 !Scanner class methodsFor:'documentation'! |
3353 |
3354 |
3354 version_CVS |
3355 version_CVS |
3355 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.266 2011-08-25 13:39:09 vrany Exp $' |
3356 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.267 2011-09-30 10:28:22 cg Exp $' |
3356 ! ! |
3357 ! ! |
3357 |
3358 |
3358 Scanner initialize! |
3359 Scanner initialize! |