author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Tue, 16 Jun 2015 06:45:26 +0100 | |
changeset 489 | 0ca7a70db0f5 |
parent 454 | a9cd5ea7cc36 |
permissions | -rw-r--r-- |
435 | 1 |
"{ Package: 'stx:goodies/petitparser/parsers/java' }"! |
2 |
||
3 |
!Integer class methodsFor:'*PetitJava-AST'! |
|
4 |
||
5 |
readFromJavaString: aString |
|
6 |
^ Number readFromString: ( |
|
7 |
(aString asLowercase beginsWith: '0x') |
|
8 |
ifTrue: [ '16r', (aString allButFirst: 2) ] |
|
9 |
ifFalse: [ aString size > 1 & aString first = $0 |
|
10 |
ifTrue: [ '8r', aString ] |
|
11 |
ifFalse: [ aString ]]) |
|
12 |
! ! |
|
13 |
||
454
a9cd5ea7cc36
Portability: fixes for Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
435
diff
changeset
|
14 |
!PPParser methodsFor:'*petitcompiler'! |
435 | 15 |
|
16 |
javaToken |
|
454
a9cd5ea7cc36
Portability: fixes for Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
435
diff
changeset
|
17 |
| ws | |
a9cd5ea7cc36
Portability: fixes for Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
435
diff
changeset
|
18 |
ws := PPJavaWhitespaceParser new. |
a9cd5ea7cc36
Portability: fixes for Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
435
diff
changeset
|
19 |
^ ((ws, ((PPTokenParser on: self) tokenClass: PPJavaToken; yourself), ws) ==> #second) |
a9cd5ea7cc36
Portability: fixes for Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
435
diff
changeset
|
20 |
propertyAt: #'trimmingToken' put: true; |
a9cd5ea7cc36
Portability: fixes for Smalltalk/X
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
435
diff
changeset
|
21 |
yourself |
435 | 22 |
! ! |
23 |
||
24 |
!stx_goodies_petitparser_parsers_java class methodsFor:'documentation'! |
|
25 |
||
26 |
extensionsVersion_HG |
|
27 |
||
28 |
^ '$Changeset: <not expanded> $' |
|
29 |
! ! |