--- a/compiler/PEGFsaGenerator.st Tue Aug 18 22:46:10 2015 +0100
+++ b/compiler/PEGFsaGenerator.st Mon Aug 24 15:56:20 2015 +0100
@@ -270,6 +270,18 @@
^ self visitPredicateNode: node
!
+visitNilNode: node
+ "not much to do here..."
+ | startState |
+ startState := PEGFsaState new.
+
+ ^ PEGFsa new
+ addState: startState;
+ startState: startState;
+ finalState: startState;
+ yourself
+!
+
visitNode: node
self error: 'node not supported'
!
@@ -381,6 +393,10 @@
^ self visit: node child
!
+visitTokenWhitespaceNode: node
+ ^ self visit: node child
+!
+
visitTrimmingTokenCharacterNode: node
"I do not care about trimming (so far), it should be handled by TokenCodeGenerator"
^ self visit: node child
@@ -389,5 +405,23 @@
visitTrimmingTokenNode: node
"I do not care about trimming (so far), it should be handled by TokenCodeGenerator"
^ self visit: node child
+!
+
+visitUnknownNode: node
+ | state fsa |
+
+ state := PEGFsaParserState new.
+ state name: 'Unknown Parser'.
+ state parser: node parser.
+
+ fsa := PEGFsa new
+ addState: state;
+
+ startState: state;
+ finalState: state;
+
+ yourself.
+
+ ^ fsa
! !