equal
deleted
inserted
replaced
365 multiword |
365 multiword |
366 ^ keyword plus |
366 ^ keyword plus |
367 ! |
367 ! |
368 |
368 |
369 number |
369 number |
|
370 ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ |
|
371 ^ ($- asParser optional , #digit asParser) and , [ :context | |
|
372 [ Number readSmalltalkSyntaxFrom: context stream ] |
|
373 on: Error |
|
374 do: [ :err | PPFailure message: err messageText at: context position ] ] |
|
375 asParser |
|
376 |
|
377 ] ifFalse:[ |
370 ^ ($- asParser optional , #digit asParser) and , [ :context | |
378 ^ ($- asParser optional , #digit asParser) and , [ :context | |
371 [ (NumberParser on: context stream) nextNumber ] |
379 [ (NumberParser on: context stream) nextNumber ] |
372 on: Error |
380 on: Error |
373 do: [ :err | PPFailure message: err messageText at: context position ] ] |
381 do: [ :err | PPFailure message: err messageText at: context position ] ] |
374 asParser |
382 asParser |
375 |
383 ] |
376 "Modified: / 07-10-2014 / 09:10:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
384 |
|
385 "Modified: / 07-10-2014 / 21:50:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
377 ! |
386 ! |
378 |
387 |
379 period |
388 period |
380 ^ $. asParser |
389 ^ $. asParser |
381 ! |
390 ! |