compiler/extensions.st
changeset 414 0eaf09920532
parent 391 553a5456963b
child 421 7e08b31e0dae
equal deleted inserted replaced
413:5389e6fbb3bc 414:0eaf09920532
   548 
   548 
   549 !PPPredicateObjectParser methodsFor:'*petitcompiler'!
   549 !PPPredicateObjectParser methodsFor:'*petitcompiler'!
   550 
   550 
   551 firstCharParser
   551 firstCharParser
   552 	^ self
   552 	^ self
       
   553 ! !
       
   554 
       
   555 !PPPredicateObjectParser methodsFor:'*petitcompiler'!
       
   556 
       
   557 firstCharSet
       
   558 	^ predicate
       
   559 ! !
       
   560 
       
   561 !PPPredicateObjectParser methodsFor:'*petitcompiler'!
       
   562 
       
   563 firstCharSetCached
       
   564 	^ predicate
   553 ! !
   565 ! !
   554 
   566 
   555 !PPSequenceParser methodsFor:'*petitcompiler'!
   567 !PPSequenceParser methodsFor:'*petitcompiler'!
   556 
   568 
   557 asCompilerNode
   569 asCompilerNode
   690 
   702 
   691 firstCharParser
   703 firstCharParser
   692 	^ PPFailingParser new
   704 	^ PPFailingParser new
   693 ! !
   705 ! !
   694 
   706 
       
   707 !PPSmalltalkWhitespaceParser methodsFor:'*petitcompiler'!
       
   708 
       
   709 firstCharSet
       
   710 	^ PPCharSetPredicate on: [:e | false ] 
       
   711 ! !
       
   712 
   695 !PPStream methodsFor:'*petitcompiler'!
   713 !PPStream methodsFor:'*petitcompiler'!
   696 
   714 
   697 peek: anInteger
   715 peek: anInteger
   698 	| endPosition |
   716 	| endPosition |
   699 	endPosition := position + anInteger  min:  readLimit.
   717 	endPosition := position + anInteger  min:  readLimit.
   848 
   866 
   849 isLetter
   867 isLetter
   850 	^ false
   868 	^ false
   851 ! !
   869 ! !
   852 
   870 
       
   871 !UndefinedObject methodsFor:'*petitcompiler'!
       
   872 
       
   873 isSeparator
       
   874 	^ false
       
   875 ! !
       
   876 
   853 !stx_goodies_petitparser_compiler class methodsFor:'documentation'!
   877 !stx_goodies_petitparser_compiler class methodsFor:'documentation'!
   854 
   878 
   855 extensionsVersion_HG
   879 extensionsVersion_HG
   856 
   880 
   857     ^ '$Changeset: <not expanded> $'
   881     ^ '$Changeset: <not expanded> $'