equal
deleted
inserted
replaced
1531 tokenType := #Symbol. |
1531 tokenType := #Symbol. |
1532 ^ tokenType |
1532 ^ tokenType |
1533 ]. |
1533 ]. |
1534 |
1534 |
1535 (nextChar == $#) ifTrue:[ |
1535 (nextChar == $#) ifTrue:[ |
1536 AllowDolphinExtensions ifTrue:[ |
1536 AllowDolphinExtensions == true ifTrue:[ |
1537 "dolphin does computed literals as ##( ... )" |
1537 "dolphin does computed literals as ##( ... )" |
1538 nextChar := source nextPeek. |
1538 nextChar := source nextPeek. |
1539 nextChar == $( ifTrue:[ |
1539 nextChar == $( ifTrue:[ |
1540 source next. |
1540 source next. |
1541 token := '##('. |
1541 token := '##('. |
1543 ^ tokenType |
1543 ^ tokenType |
1544 ]. |
1544 ]. |
1545 token := '##'. |
1545 token := '##'. |
1546 tokenType := #HashHash. |
1546 tokenType := #HashHash. |
1547 ^ tokenType |
1547 ^ tokenType |
1548 ] ifFalse:[ |
1548 ]. |
1549 nextChar := source nextPeek. |
1549 |
1550 nextChar == $[ ifTrue:[ |
1550 nextChar := source nextPeek. |
1551 source next. |
1551 nextChar == $[ ifTrue:[ |
1552 token := '##('. |
1552 source next. |
1553 tokenType := #HashHashLeftBrack. |
1553 token := '##('. |
1554 ^ tokenType |
1554 tokenType := #HashHashLeftBrack. |
1555 ]. |
|
1556 token := '##'. |
|
1557 tokenType := #HashHash. |
|
1558 ^ tokenType |
1555 ^ tokenType |
1559 ]. |
1556 ]. |
|
1557 token := '##'. |
|
1558 tokenType := #HashHash. |
|
1559 ^ tokenType |
1560 ]. |
1560 ]. |
1561 |
1561 |
1562 ((typeArray at:(nextChar asciiValue)) == #special) ifTrue:[ |
1562 ((typeArray at:(nextChar asciiValue)) == #special) ifTrue:[ |
1563 string := source next asString. |
1563 string := source next asString. |
1564 nextChar := source peek. |
1564 nextChar := source peek. |
2283 ! ! |
2283 ! ! |
2284 |
2284 |
2285 !Scanner class methodsFor:'documentation'! |
2285 !Scanner class methodsFor:'documentation'! |
2286 |
2286 |
2287 version |
2287 version |
2288 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.146 2002-07-25 14:03:20 cg Exp $' |
2288 ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.147 2002-07-25 14:08:35 cg Exp $' |
2289 ! ! |
2289 ! ! |
2290 Scanner initialize! |
2290 Scanner initialize! |