equal
deleted
inserted
replaced
438 ifTrue: [ aStream print: self hash ] |
438 ifTrue: [ aStream print: self hash ] |
439 ifFalse: [ aStream nextPutAll: self name ] |
439 ifFalse: [ aStream nextPutAll: self name ] |
440 ! |
440 ! |
441 |
441 |
442 printOn: aStream |
442 printOn: aStream |
443 super printOn: aStream. |
443 PPPrinter notNil ifTrue:[ |
444 aStream nextPut: $(. |
444 PPPrinter new |
445 self printNameOn: aStream. |
445 stream: aStream ; |
446 aStream nextPut: $) |
446 visit: self |
|
447 ] ifFalse:[ |
|
448 super printOn: aStream. |
|
449 aStream nextPut: $(. |
|
450 self printNameOn: aStream. |
|
451 aStream nextPut: $) |
|
452 ]. |
|
453 |
|
454 "Modified: / 11-01-2013 / 09:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
447 ! ! |
455 ! ! |
448 |
456 |
449 !PPParser methodsFor:'testing'! |
457 !PPParser methodsFor:'testing'! |
450 |
458 |
451 isPetitParser |
459 isPetitParser |
454 |
462 |
455 isUnresolved |
463 isUnresolved |
456 ^ false |
464 ^ false |
457 ! ! |
465 ! ! |
458 |
466 |
|
467 |
459 !PPParser class methodsFor:'documentation'! |
468 !PPParser class methodsFor:'documentation'! |
460 |
469 |
461 version |
470 version |
462 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.4 2012-12-01 14:29:07 cg Exp $' |
471 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.5 2013-01-11 12:31:10 vrany Exp $' |
463 ! |
472 ! |
464 |
473 |
465 version_CVS |
474 version_CVS |
466 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.4 2012-12-01 14:29:07 cg Exp $' |
475 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.5 2013-01-11 12:31:10 vrany Exp $' |
467 ! |
476 ! |
468 |
477 |
469 version_SVN |
478 version_SVN |
470 ^ '§Id: PPParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
479 ^ '§Id: PPParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
471 ! ! |
480 ! ! |