--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/Make.proto	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,195 @@
+# $Header$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: stx_goodies_petitparser_compiler.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
+# The Makefile as generated by this Make.proto supports the following targets:
+#    make         - compile all st-files to a classLib
+#    make clean   - clean all temp files
+#    make clobber - clean all
+#
+# This file contains definitions for Unix based platforms.
+# It shares common definitions with the win32-make in Make.spec.
+
+#
+# position (of this package) in directory hierarchy:
+# (must point to ST/X top directory, for tools and includes)
+TOP=../../..
+INCLUDE_TOP=$(TOP)/..
+
+# subdirectories where targets are to be made:
+SUBDIRS=
+
+
+# subdirectories where Makefiles are to be made:
+# (only define if different from SUBDIRS)
+# ALLSUBDIRS=
+
+REQUIRED_SUPPORT_DIRS=
+
+# if your embedded C code requires any system includes,
+# add the path(es) here:,
+# ********** OPTIONAL: MODIFY the next lines ***
+# LOCALINCLUDES=-Ifoo -Ibar
+LOCALINCLUDES= -I$(INCLUDE_TOP)/stx/goodies/petitparser -I$(INCLUDE_TOP)/stx/goodies/petitparser/parsers/smalltalk -I$(INCLUDE_TOP)/stx/libbasic -I$(INCLUDE_TOP)/stx/libbasic2
+
+
+# if you need any additional defines for embedded C code,
+# add them here:,
+# ********** OPTIONAL: MODIFY the next lines ***
+# LOCALDEFINES=-Dfoo -Dbar -DDEBUG
+LOCALDEFINES=
+
+LIBNAME=libstx_goodies_petitparser_compiler
+STCLOCALOPT='-package=$(PACKAGE)' -I. $(LOCALINCLUDES) $(STCLOCALOPTIMIZATIONS) $(STCWARNINGS) $(LOCALDEFINES) -headerDir=.  -varPrefix=$(LIBNAME)
+
+
+# ********** OPTIONAL: MODIFY the next line ***
+# additional C-libraries that should be pre-linked with the class-objects
+LD_OBJ_LIBS=
+LOCAL_SHARED_LIBS=
+
+
+# ********** OPTIONAL: MODIFY the next line ***
+# additional C targets or libraries should be added below
+LOCAL_EXTRA_TARGETS=
+
+OBJS= $(COMMON_OBJS) $(UNIX_OBJS)
+
+
+
+all:: preMake classLibRule postMake
+
+pre_objs::  
+
+
+
+
+
+
+# Enforce recompilation of package definition class if Mercurial working
+# copy state changes. Together with --guessVersion it ensures that package
+# definition class always contains correct binary revision string.
+ifneq (**NOHG**, $(shell hg root 2> /dev/null || echo -n '**NOHG**'))
+stx_goodies_petitparser_compiler.$(O): $(shell hg root)/.hg/dirstate
+endif
+
+
+
+
+# run default testsuite for this package
+test: $(TOP)/goodies/builder/reports
+	$(MAKE) -C $(TOP)/goodies/builder/reports -f Makefile.init
+	$(TOP)/goodies/builder/reports/report-runner.sh -D . -r Builder::TestReport -p $(PACKAGE)
+
+
+
+# add more install actions here
+install::
+
+# add more install actions for aux-files (resources) here
+installAux::
+
+# add more preMake actions here
+preMake::
+
+# add more postMake actions here
+postMake:: cleanjunk
+
+# build all mandatory prerequisite packages (containing superclasses) for this package
+prereq:
+	cd ../../../libbasic && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../../refactoryBrowser/parser && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../../../libbasic2 && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../ && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+	cd ../parsers/smalltalk && $(MAKE) "CFLAGS_LOCAL=$(GLOBALDEFINES)"
+
+
+
+# build all packages containing referenced classes for this package
+# they are nor needed to compile the package
+references:
+
+
+cleanjunk::
+	-rm -f *.s *.s2
+
+clean::
+	-rm -f *.o *.H
+
+clobber:: clean
+	-rm -f *.so *.dll
+
+
+# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
+$(OUTDIR)PPCBridge.$(O) PPCBridge.$(H): PPCBridge.st $(INCLUDE_TOP)/stx/goodies/petitparser/PPParser.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCCompiledMethod.$(O) PPCCompiledMethod.$(H): PPCCompiledMethod.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCCompiler.$(O) PPCCompiler.$(H): PPCCompiler.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCContext.$(O) PPCContext.$(H): PPCContext.st $(INCLUDE_TOP)/stx/goodies/petitparser/PPStream.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/PeekableStream.$(H) $(INCLUDE_TOP)/stx/libbasic/PositionableStream.$(H) $(INCLUDE_TOP)/stx/libbasic/ReadStream.$(H) $(INCLUDE_TOP)/stx/libbasic/Stream.$(H) $(STCHDR)
+$(OUTDIR)PPCContextMemento.$(O) PPCContextMemento.$(H): PPCContextMemento.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCGuard.$(O) PPCGuard.$(H): PPCGuard.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineStrategy.$(O) PPCInlineStrategy.$(H): PPCInlineStrategy.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCMethod.$(O) PPCMethod.$(H): PPCMethod.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCMethodStrategy.$(O) PPCMethodStrategy.$(H): PPCMethodStrategy.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCNode.$(O) PPCNode.$(H): PPCNode.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCOptimizationResult.$(O) PPCOptimizationResult.$(H): PPCOptimizationResult.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCompiledParser.$(O) PPCompiledParser.$(H): PPCompiledParser.st $(INCLUDE_TOP)/stx/goodies/petitparser/PPParser.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PetitBenchmark.$(O) PetitBenchmark.$(H): PetitBenchmark.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PetitBenchmarkSources.$(O) PetitBenchmarkSources.$(H): PetitBenchmarkSources.st $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)stx_goodies_petitparser_compiler.$(O) stx_goodies_petitparser_compiler.$(H): stx_goodies_petitparser_compiler.st $(INCLUDE_TOP)/stx/libbasic/LibraryDefinition.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/ProjectDefinition.$(H) $(STCHDR)
+$(OUTDIR)PPCAbstractCharacterNode.$(O) PPCAbstractCharacterNode.$(H): PPCAbstractCharacterNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCAbstractLiteralNode.$(O) PPCAbstractLiteralNode.$(H): PPCAbstractLiteralNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCAbstractPredicateNode.$(O) PPCAbstractPredicateNode.$(H): PPCAbstractPredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCAnyNode.$(O) PPCAnyNode.$(H): PPCAnyNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCDelegateNode.$(O) PPCDelegateNode.$(H): PPCDelegateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlinedMethod.$(O) PPCInlinedMethod.$(H): PPCInlinedMethod.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCMethod.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCListNode.$(O) PPCListNode.$(H): PPCListNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCNilNode.$(O) PPCNilNode.$(H): PPCNilNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCPluggableNode.$(O) PPCPluggableNode.$(H): PPCPluggableNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCProfilingContext.$(O) PPCProfilingContext.$(H): PPCProfilingContext.st $(INCLUDE_TOP)/stx/goodies/petitparser/PPStream.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCContext.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/PeekableStream.$(H) $(INCLUDE_TOP)/stx/libbasic/PositionableStream.$(H) $(INCLUDE_TOP)/stx/libbasic/ReadStream.$(H) $(INCLUDE_TOP)/stx/libbasic/Stream.$(H) $(STCHDR)
+$(OUTDIR)PPCStarAnyNode.$(O) PPCStarAnyNode.$(H): PPCStarAnyNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCStarCharSetPredicateNode.$(O) PPCStarCharSetPredicateNode.$(H): PPCStarCharSetPredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCStarMessagePredicateNode.$(O) PPCStarMessagePredicateNode.$(H): PPCStarMessagePredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCUnknownNode.$(O) PPCUnknownNode.$(H): PPCUnknownNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCAbstractActionNode.$(O) PPCAbstractActionNode.$(H): PPCAbstractActionNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCAndNode.$(O) PPCAndNode.$(H): PPCAndNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCCharSetPredicateNode.$(O) PPCCharSetPredicateNode.$(H): PPCCharSetPredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCCharacterNode.$(O) PPCCharacterNode.$(H): PPCCharacterNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractCharacterNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCChoiceNode.$(O) PPCChoiceNode.$(H): PPCChoiceNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCListNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCForwardNode.$(O) PPCForwardNode.$(H): PPCForwardNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineAnyNode.$(O) PPCInlineAnyNode.$(H): PPCInlineAnyNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAnyNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineCharacterNode.$(O) PPCInlineCharacterNode.$(H): PPCInlineCharacterNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractCharacterNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineLiteralNode.$(O) PPCInlineLiteralNode.$(H): PPCInlineLiteralNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractLiteralNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineNilNode.$(O) PPCInlineNilNode.$(H): PPCInlineNilNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNilNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineNotLiteralNode.$(O) PPCInlineNotLiteralNode.$(H): PPCInlineNotLiteralNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractLiteralNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlinePluggableNode.$(O) PPCInlinePluggableNode.$(H): PPCInlinePluggableNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCPluggableNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCLiteralNode.$(O) PPCLiteralNode.$(H): PPCLiteralNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractLiteralNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCMessagePredicateNode.$(O) PPCMessagePredicateNode.$(H): PPCMessagePredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCNegateNode.$(O) PPCNegateNode.$(H): PPCNegateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCNotCharSetPredicateNode.$(O) PPCNotCharSetPredicateNode.$(H): PPCNotCharSetPredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCNotLiteralNode.$(O) PPCNotLiteralNode.$(H): PPCNotLiteralNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractLiteralNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCNotMessagePredicateNode.$(O) PPCNotMessagePredicateNode.$(H): PPCNotMessagePredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCNotNode.$(O) PPCNotNode.$(H): PPCNotNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCOptionalNode.$(O) PPCOptionalNode.$(H): PPCOptionalNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCPlusNode.$(O) PPCPlusNode.$(H): PPCPlusNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCPredicateNode.$(O) PPCPredicateNode.$(H): PPCPredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCSequenceNode.$(O) PPCSequenceNode.$(H): PPCSequenceNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCListNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCStarNode.$(O) PPCStarNode.$(H): PPCStarNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCTokenNode.$(O) PPCTokenNode.$(H): PPCTokenNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCTokenStarMessagePredicateNode.$(O) PPCTokenStarMessagePredicateNode.$(H): PPCTokenStarMessagePredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCStarMessagePredicateNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCTrimNode.$(O) PPCTrimNode.$(H): PPCTrimNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCTrimmingTokenNode.$(O) PPCTrimmingTokenNode.$(H): PPCTrimmingTokenNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCListNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCActionNode.$(O) PPCActionNode.$(H): PPCActionNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractActionNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineCharSetPredicateNode.$(O) PPCInlineCharSetPredicateNode.$(H): PPCInlineCharSetPredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCCharSetPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineMessagePredicateNode.$(O) PPCInlineMessagePredicateNode.$(H): PPCInlineMessagePredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCMessagePredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineNotCharSetPredicateNode.$(O) PPCInlineNotCharSetPredicateNode.$(H): PPCInlineNotCharSetPredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNotCharSetPredicateNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCInlineNotMessagePredicateNode.$(O) PPCInlineNotMessagePredicateNode.$(H): PPCInlineNotMessagePredicateNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractPredicateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNotMessagePredicateNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCSymbolActionNode.$(O) PPCSymbolActionNode.$(H): PPCSymbolActionNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCAbstractActionNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCDelegateNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)PPCTokenSequenceNode.$(O) PPCTokenSequenceNode.$(H): PPCTokenSequenceNode.st $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCListNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCNode.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/compiler/PPCSequenceNode.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(STCHDR)
+$(OUTDIR)extensions.$(O): extensions.st $(INCLUDE_TOP)/stx/goodies/petitparser/PPActionParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPAndParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPCharSetPredicate.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPChoiceParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPCompositeParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPContext.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPDelegateParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPEpsilonParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPFailure.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPFlattenParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPListParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPLiteralObjectParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPLiteralParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPLiteralSequenceParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPNotParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPOptionalParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPPluggableParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPPossessiveRepeatingParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPPredicateObjectParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPPredicateParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPRepeatingParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPSequenceParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPStream.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPToken.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPTokenParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/PPTrimmingParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/parsers/smalltalk/PPSmalltalkGrammar.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/parsers/smalltalk/PPSmalltalkTokenParser.$(H) $(INCLUDE_TOP)/stx/goodies/petitparser/parsers/smalltalk/PPSmalltalkWhitespaceParser.$(H) $(INCLUDE_TOP)/stx/libbasic/Character.$(H) $(INCLUDE_TOP)/stx/libbasic/Magnitude.$(H) $(INCLUDE_TOP)/stx/libbasic/Object.$(H) $(INCLUDE_TOP)/stx/libbasic/PeekableStream.$(H) $(INCLUDE_TOP)/stx/libbasic/PositionableStream.$(H) $(INCLUDE_TOP)/stx/libbasic/ReadStream.$(H) $(INCLUDE_TOP)/stx/libbasic/Stream.$(H) $(INCLUDE_TOP)/stx/libbasic/UndefinedObject.$(H) $(STCHDR)
+
+# ENDMAKEDEPEND --- do not remove this line
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/Make.spec	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,189 @@
+# $Header$
+#
+# DO NOT EDIT
+# automagically generated from the projectDefinition: stx_goodies_petitparser_compiler.
+#
+# Warning: once you modify this file, do not rerun
+# stmkmp or projectDefinition-build again - otherwise, your changes are lost.
+#
+# This file contains specifications which are common to all platforms.
+#
+
+# Do NOT CHANGE THESE DEFINITIONS
+# (otherwise, ST/X will have a hard time to find out the packages location from its packageID,
+#  to find the source code of a class and to find the library for a package)
+MODULE=stx
+MODULE_DIR=goodies/petitparser/compiler
+PACKAGE=$(MODULE):$(MODULE_DIR)
+
+
+# Argument(s) to the stc compiler (stc --usage).
+#  -headerDir=. : create header files locally
+#                (if removed, they will be created as common
+#  -Pxxx       : defines the package
+#  -Zxxx       : a prefix for variables within the classLib
+#  -Dxxx       : defines passed to to CC for inline C-code
+#  -Ixxx       : include path passed to CC for inline C-code
+#  +optspace   : optimized for space
+#  +optspace2  : optimized more for space
+#  +optspace3  : optimized even more for space
+#  +optinline  : generate inline code for some ST constructs
+#  +inlineNew  : additionally inline new
+#  +inlineMath : additionally inline some floatPnt math stuff
+#
+# ********** OPTIONAL: MODIFY the next line(s) ***
+# STCLOCALOPTIMIZATIONS=+optinline +inlineNew
+# STCLOCALOPTIMIZATIONS=+optspace3
+STCLOCALOPTIMIZATIONS=+optspace3
+
+
+# Argument(s) to the stc compiler (stc --usage).
+#  -warn            : no warnings
+#  -warnNonStandard : no warnings about ST/X extensions
+#  -warnEOLComments : no warnings about EOL comment extension
+#  -warnPrivacy     : no warnings about privateClass extension
+#
+# ********** OPTIONAL: MODIFY the next line(s) ***
+# STCWARNINGS=-warn
+# STCWARNINGS=-warnNonStandard
+# STCWARNINGS=-warnEOLComments
+STCWARNINGS=-warnNonStandard
+
+COMMON_CLASSES= \
+	PPCBridge \
+	PPCCompiledMethod \
+	PPCCompiler \
+	PPCContext \
+	PPCContextMemento \
+	PPCGuard \
+	PPCInlineStrategy \
+	PPCMethod \
+	PPCMethodStrategy \
+	PPCNode \
+	PPCOptimizationResult \
+	PPCompiledParser \
+	PetitBenchmark \
+	PetitBenchmarkSources \
+	stx_goodies_petitparser_compiler \
+	PPCAbstractCharacterNode \
+	PPCAbstractLiteralNode \
+	PPCAbstractPredicateNode \
+	PPCAnyNode \
+	PPCDelegateNode \
+	PPCInlinedMethod \
+	PPCListNode \
+	PPCNilNode \
+	PPCPluggableNode \
+	PPCProfilingContext \
+	PPCStarAnyNode \
+	PPCStarCharSetPredicateNode \
+	PPCStarMessagePredicateNode \
+	PPCUnknownNode \
+	PPCAbstractActionNode \
+	PPCAndNode \
+	PPCCharSetPredicateNode \
+	PPCCharacterNode \
+	PPCChoiceNode \
+	PPCForwardNode \
+	PPCInlineAnyNode \
+	PPCInlineCharacterNode \
+	PPCInlineLiteralNode \
+	PPCInlineNilNode \
+	PPCInlineNotLiteralNode \
+	PPCInlinePluggableNode \
+	PPCLiteralNode \
+	PPCMessagePredicateNode \
+	PPCNegateNode \
+	PPCNotCharSetPredicateNode \
+	PPCNotLiteralNode \
+	PPCNotMessagePredicateNode \
+	PPCNotNode \
+	PPCOptionalNode \
+	PPCPlusNode \
+	PPCPredicateNode \
+	PPCSequenceNode \
+	PPCStarNode \
+	PPCTokenNode \
+	PPCTokenStarMessagePredicateNode \
+	PPCTrimNode \
+	PPCTrimmingTokenNode \
+	PPCActionNode \
+	PPCInlineCharSetPredicateNode \
+	PPCInlineMessagePredicateNode \
+	PPCInlineNotCharSetPredicateNode \
+	PPCInlineNotMessagePredicateNode \
+	PPCSymbolActionNode \
+	PPCTokenSequenceNode \
+
+
+
+
+COMMON_OBJS= \
+    $(OUTDIR_SLASH)PPCBridge.$(O) \
+    $(OUTDIR_SLASH)PPCCompiledMethod.$(O) \
+    $(OUTDIR_SLASH)PPCCompiler.$(O) \
+    $(OUTDIR_SLASH)PPCContext.$(O) \
+    $(OUTDIR_SLASH)PPCContextMemento.$(O) \
+    $(OUTDIR_SLASH)PPCGuard.$(O) \
+    $(OUTDIR_SLASH)PPCInlineStrategy.$(O) \
+    $(OUTDIR_SLASH)PPCMethod.$(O) \
+    $(OUTDIR_SLASH)PPCMethodStrategy.$(O) \
+    $(OUTDIR_SLASH)PPCNode.$(O) \
+    $(OUTDIR_SLASH)PPCOptimizationResult.$(O) \
+    $(OUTDIR_SLASH)PPCompiledParser.$(O) \
+    $(OUTDIR_SLASH)PetitBenchmark.$(O) \
+    $(OUTDIR_SLASH)PetitBenchmarkSources.$(O) \
+    $(OUTDIR_SLASH)stx_goodies_petitparser_compiler.$(O) \
+    $(OUTDIR_SLASH)PPCAbstractCharacterNode.$(O) \
+    $(OUTDIR_SLASH)PPCAbstractLiteralNode.$(O) \
+    $(OUTDIR_SLASH)PPCAbstractPredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCAnyNode.$(O) \
+    $(OUTDIR_SLASH)PPCDelegateNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlinedMethod.$(O) \
+    $(OUTDIR_SLASH)PPCListNode.$(O) \
+    $(OUTDIR_SLASH)PPCNilNode.$(O) \
+    $(OUTDIR_SLASH)PPCPluggableNode.$(O) \
+    $(OUTDIR_SLASH)PPCProfilingContext.$(O) \
+    $(OUTDIR_SLASH)PPCStarAnyNode.$(O) \
+    $(OUTDIR_SLASH)PPCStarCharSetPredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCStarMessagePredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCUnknownNode.$(O) \
+    $(OUTDIR_SLASH)PPCAbstractActionNode.$(O) \
+    $(OUTDIR_SLASH)PPCAndNode.$(O) \
+    $(OUTDIR_SLASH)PPCCharSetPredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCCharacterNode.$(O) \
+    $(OUTDIR_SLASH)PPCChoiceNode.$(O) \
+    $(OUTDIR_SLASH)PPCForwardNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineAnyNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineCharacterNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineLiteralNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineNilNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineNotLiteralNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlinePluggableNode.$(O) \
+    $(OUTDIR_SLASH)PPCLiteralNode.$(O) \
+    $(OUTDIR_SLASH)PPCMessagePredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCNegateNode.$(O) \
+    $(OUTDIR_SLASH)PPCNotCharSetPredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCNotLiteralNode.$(O) \
+    $(OUTDIR_SLASH)PPCNotMessagePredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCNotNode.$(O) \
+    $(OUTDIR_SLASH)PPCOptionalNode.$(O) \
+    $(OUTDIR_SLASH)PPCPlusNode.$(O) \
+    $(OUTDIR_SLASH)PPCPredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCSequenceNode.$(O) \
+    $(OUTDIR_SLASH)PPCStarNode.$(O) \
+    $(OUTDIR_SLASH)PPCTokenNode.$(O) \
+    $(OUTDIR_SLASH)PPCTokenStarMessagePredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCTrimNode.$(O) \
+    $(OUTDIR_SLASH)PPCTrimmingTokenNode.$(O) \
+    $(OUTDIR_SLASH)PPCActionNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineCharSetPredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineMessagePredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineNotCharSetPredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCInlineNotMessagePredicateNode.$(O) \
+    $(OUTDIR_SLASH)PPCSymbolActionNode.$(O) \
+    $(OUTDIR_SLASH)PPCTokenSequenceNode.$(O) \
+    $(OUTDIR_SLASH)extensions.$(O) \
+
+
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/Makefile.init	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,27 @@
+#
+# DO NOT EDIT
+#
+# make uses this file (Makefile) only, if there is no
+# file named "makefile" (lower-case m) in the same directory.
+# My only task is to generate the real makefile and call make again.
+# Thereafter, I am no longer used and needed.
+#
+# MACOSX caveat:
+#   as filenames are not case sensitive (in a default setup),
+#   we cannot use the above trick. Therefore, this file is now named
+#   "Makefile.init", and you have to execute "make -f Makefile.init" to
+#   get the initial makefile.  This is now also done by the toplevel CONFIG
+#   script.
+
+.PHONY: run
+
+run: makefile
+	$(MAKE) -f makefile
+
+#only needed for the definition of $(TOP)
+include Make.proto
+
+makefile: mf
+
+mf:
+	$(TOP)/rules/stmkmf

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCAbstractActionNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,30 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCDelegateNode subclass:#PPCAbstractActionNode
+	instanceVariableNames:'block'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCAbstractActionNode comment:''
+!
+
+!PPCAbstractActionNode methodsFor:'accessing'!
+
+block
+	
+	^ block
+!
+
+block: anObject
+	
+	block := anObject
+! !
+
+!PPCAbstractActionNode methodsFor:'as yet unclassified'!
+
+prefix
+	^ #action
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCAbstractCharacterNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,67 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNode subclass:#PPCAbstractCharacterNode
+	instanceVariableNames:'character'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCAbstractCharacterNode comment:''
+!
+
+!PPCAbstractCharacterNode methodsFor:'accessing'!
+
+acceptsEpsilon
+	^ false
+!
+
+character
+	^ character
+!
+
+character: char
+	character := char
+!
+
+prefix
+	^ #char
+! !
+
+!PPCAbstractCharacterNode methodsFor:'analysis'!
+
+firstCharParser
+	^ character asParser
+! !
+
+!PPCAbstractCharacterNode methodsFor:'compiling'!
+
+body: compiler
+	| id |
+
+	character ppcPrintable ifTrue: [
+		id := character printString
+	] ifFalse: [
+		id := compiler idFor: character prefixed: #char.
+		compiler addConstant: (Character value: character asInteger) as: id .
+	].
+
+	compiler add: '(context peek == ', id, ')'.
+	compiler indent.
+	compiler add: 'ifFalse: [ self error: ''', character asInteger asString, ' expected'' at: context position ] '.
+	compiler add: 'ifTrue: [ context next ].'.
+	compiler dedent.
+!
+
+compileWith: compiler effect: effect id: id
+	self start: compiler id: id.
+	self body: compiler.
+	^ self stop: compiler.
+!
+
+compileWith: compiler id: id
+	self start: compiler.
+	self body: compiler.
+ 	^ compiler stopMethod.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCAbstractLiteralNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,48 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNode subclass:#PPCAbstractLiteralNode
+	instanceVariableNames:'literal'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCAbstractLiteralNode comment:''
+!
+
+!PPCAbstractLiteralNode methodsFor:'accessing'!
+
+acceptsEpsilon
+	^ literal size = 0
+!
+
+firstCharParser
+	^ literal first asParser
+!
+
+literal
+	
+	^ literal
+!
+
+literal: anObject
+	
+	literal := anObject
+!
+
+prefix
+	^ #lit
+! !
+
+!PPCAbstractLiteralNode methodsFor:'compiling'!
+
+encodeQuotes: string
+	| x s |
+	s := WriteStream on: ''.
+	1 to: string size do: [ :i|
+		s nextPut: (x := string at: i).
+		x = $' ifTrue: [ s nextPut: x ].
+	].
+	^ s contents
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCAbstractPredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,102 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNode subclass:#PPCAbstractPredicateNode
+	instanceVariableNames:'predicate methodStrategy'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCAbstractPredicateNode comment:''
+!
+
+!PPCAbstractPredicateNode methodsFor:'accessing'!
+
+methodStrategy
+	
+	^ methodStrategy
+!
+
+methodStrategy: anObject
+	
+	methodStrategy := anObject
+!
+
+predicate
+	
+	^ predicate
+!
+
+predicate: anObject
+	
+	predicate := anObject
+!
+
+prefix
+	^ #predicate
+! !
+
+!PPCAbstractPredicateNode methodsFor:'analysis'!
+
+= anotherNode
+	(self == anotherNode) ifTrue: [ ^ true ].
+	(anotherNode class = self class) ifFalse: [ ^ false ].
+	
+	(anotherNode name = name) ifFalse: [ ^ false ].
+	(anotherNode methodStrategy = methodStrategy) ifFalse: [ ^ false ].
+	^ anotherNode children = self children.
+!
+
+acceptsEpsilon
+	^ false
+!
+
+firstCharParser
+	^ PPPredicateObjectParser on: predicate message: 'predicate expected'.
+! !
+
+!PPCAbstractPredicateNode methodsFor:'compiling'!
+
+bodyOfPredicate: compiler
+	self subclassResponsibility
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startMethod: id.
+	compiler add: '^'.
+	self bodyOfPredicate: compiler.
+ ^ compiler stopMethod.
+!
+
+extendClassification: classification
+	^ (classification asOrderedCollection addLast: false; yourself) asArray
+! !
+
+!PPCAbstractPredicateNode methodsFor:'initialization'!
+
+initialize
+	super initialize.
+	methodStrategy := PPCMethodStrategy new
+! !
+
+!PPCAbstractPredicateNode methodsFor:'optimizing'!
+
+asInlined
+	^ super asInlined
+"	(methodStrategy == (PPCInlineStrategy instance)) ifFalse: [ 
+		^ self copy 
+			methodStrategy: PPCInlineStrategy instance;
+			yourself
+	].
+	^ self"
+!
+
+optimize: params status: changeStatus
+	| retval |
+	retval := self.
+	retval := retval rewrite: params status: changeStatus.
+	retval := retval inline: params status: changeStatus.
+	
+	^ retval
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCActionNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,49 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractActionNode subclass:#PPCActionNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCActionNode comment:''
+!
+
+!PPCActionNode methodsFor:'as yet unclassified'!
+
+compileWith: compiler effect: effect id: id
+	compiler addConstant: block as: id.
+	
+	compiler startMethod: id.
+	compiler addVariable: 'element'.
+	compiler add: 'element := '.
+	compiler callOnLine: (child compileWith: compiler).
+	compiler add: 'error ifFalse: [ ^ ',  id, ' value: element ].'.
+	compiler add: '^ failure'.
+ ^ compiler stopMethod.
+!
+
+rewrite: changeStatus
+	"TODO JK: Find another way how to recognize the trimming token!!"
+	(name = 'trimmingToken') ifTrue: [ 
+		changeStatus change.
+		^ PPCTrimmingTokenNode new
+			"name: name"
+			"JK: I am sorry"
+			child: child children second child;
+			tokenClass: child children second tokenClass;
+			whitespace: child children first;
+			yourself
+	].
+	
+	block isSymbol ifTrue: [ 
+		changeStatus change.
+		^ PPCSymbolActionNode new
+			block: block;
+			name: name;
+			child: child;
+			yourself
+	]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCAndNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,33 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCDelegateNode subclass:#PPCAndNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCAndNode comment:''
+!
+
+!PPCAndNode methodsFor:'as yet unclassified'!
+
+compileWith: compiler effect: effect id: id
+
+	compiler startMethod: id.
+	compiler addVariable: 'memento'.
+	compiler addVariable: 'retval'.
+	compiler add: (compiler smartRemember: child).
+	
+	compiler add: 'retval :='.
+	compiler callOnLine: (child compileWith: compiler).
+	compiler add: (compiler smartRestore: child).
+
+	compiler add: '^ retval'.
+ ^ compiler stopMethod.
+!
+
+prefix
+	^ #and
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCAnyNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,39 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNode subclass:#PPCAnyNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCAnyNode comment:''
+!
+
+!PPCAnyNode methodsFor:'as yet unclassified'!
+
+acceptsEpsilon
+	^ false
+!
+
+asInlined
+	^ PPCInlineAnyNode new
+		name: name;
+		yourself
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startMethod: id.
+	compiler add: '^ context next ifNil: [ error := true. ].'.
+ ^ compiler stopMethod.	
+!
+
+firstCharParser
+	^ #any asParser
+	
+!
+
+prefix
+	^ #any
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCBridge.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,42 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPParser subclass:#PPCBridge
+	instanceVariableNames:'selector'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Core'
+!
+
+PPCBridge comment:''
+!
+
+!PPCBridge class methodsFor:'as yet unclassified'!
+
+on: aSymbol
+	^ self new
+		selector: aSymbol;
+		yourself
+! !
+
+!PPCBridge methodsFor:'as yet unclassified'!
+
+call
+	^ 'self callParser: ', self id, '.'.
+!
+
+selector: aSymbol
+	selector := aSymbol
+! !
+
+!PPCBridge methodsFor:'parsing'!
+
+parseOn: aPPContext
+	| retval |
+	retval := (aPPContext compiledParser) perform: selector.
+	(aPPContext compiledParser isError) ifTrue: [ 
+		aPPContext compiledParser clearError.		
+		^ PPFailure message: 'error' context: aPPContext 
+	].
+	^ retval
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCCharSetPredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,42 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractPredicateNode subclass:#PPCCharSetPredicateNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCCharSetPredicateNode comment:''
+!
+
+!PPCCharSetPredicateNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ PPCInlineCharSetPredicateNode new
+		predicate: predicate;
+		name: name;
+		yourself
+!
+
+bodyOfPredicate: compiler
+	| classification classificationId |
+	classification := self extendClassification: predicate classification.
+	classificationId := compiler idFor: classification prefixed: #classification.
+	compiler addConstant: classification as: classificationId.
+	
+	compiler addOnLine: '(', classificationId, ' at: context peek asInteger)'.
+	compiler indent.
+	compiler add: 'ifFalse: [ self error: ''predicate not found'' ]'.
+	compiler add: 'ifTrue: [ context next ].'.
+	compiler dedent.
+!
+
+start: compiler id: id
+	compiler startMethod: id
+!
+
+stop: compiler
+	^ compiler stopMethod
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCCharacterNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,32 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractCharacterNode subclass:#PPCCharacterNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCCharacterNode comment:''
+!
+
+!PPCCharacterNode methodsFor:'as yet unclassified'!
+
+start: compiler id: id
+	compiler startMethod: id.
+	compiler add: '^ '.
+!
+
+stop: compiler
+	^ compiler stopMethod
+! !
+
+!PPCCharacterNode methodsFor:'optimizing'!
+
+asInlined
+	^ PPCInlineCharacterNode new
+		character: character;
+		name: name;
+		yourself
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCChoiceNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,77 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCListNode subclass:#PPCChoiceNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCChoiceNode comment:''
+!
+
+!PPCChoiceNode methodsFor:'as yet unclassified'!
+
+acceptsEpsilon
+	^ self acceptsEpsilonOpenSet: IdentitySet new.
+!
+
+acceptsEpsilonOpenSet: set
+	set add: self.
+	^ self children anySatisfy: [:e | e acceptsEpsilonOpenSet: set ].
+!
+
+compileWith: compiler effect: effect id: id
+	| firsts guard  |
+	compiler addVariable: 'element'.
+
+	firsts := (self firstSetSuchThat: [ :e | (e isKindOf: PPCTrimmingTokenNode) or: [ e isTerminal ] ]).
+	
+	compiler startMethod: id.
+	compiler addVariable: 'element'.
+
+	"If we start with trimming token, we should invoke the whitespace parser"
+	(firsts allSatisfy: [ :e | e isKindOf: PPCTrimmingTokenNode ]) ifTrue: [  
+		firsts anyOne compileWhitespace: compiler.
+	].
+	
+	(1 to: children size) do: [ :idx  | |child|
+		child := children at: idx.
+		
+		(compiler guards and: [ (guard := PPCGuard on: child) makesSense ]) ifTrue: [ 	
+			guard id: (compiler idFor: guard prefixed: #guard).
+			guard compileGuard: compiler.
+			compiler add: ' ifTrue: [ '.
+			compiler indent.
+				compiler add: 'self clearError.'.
+				compiler add: 'element := '.
+				compiler callOnLine: (child compileWith: compiler).
+				compiler add: 'error ifFalse: [ ^ element ].'.
+			compiler dedent.
+			compiler add: ' ].'.
+		] ifFalse: [
+			compiler add: 'self clearError.'.
+			compiler add: 'element := '.
+			compiler callOnLine: (child compileWith: compiler).
+			compiler add: 'error ifFalse: [ ^ element ].'.
+		]
+	].
+	compiler add: '^ self error: ''no choice suitable'''.
+ ^ compiler stopMethod.
+!
+
+prefix
+	^ #ch
+! !
+
+!PPCChoiceNode methodsFor:'optimizing'!
+
+optimize: params status: changeStatus
+	| retval |
+	retval := self.
+	retval := retval rewrite: params status: changeStatus.
+	retval := retval inline: params status: changeStatus.
+	
+	^ retval
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCCompiledMethod.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,26 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+Object subclass:#PPCCompiledMethod
+	instanceVariableNames:'code id'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Core'
+!
+
+PPCCompiledMethod comment:''
+!
+
+!PPCCompiledMethod methodsFor:'as yet unclassified'!
+
+call
+	^ 'self ', self methodName, '.'.
+!
+
+id: value
+	id := value
+!
+
+methodName
+	^ id
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCCompiler.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,416 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+Object subclass:#PPCCompiler
+	instanceVariableNames:'compilerStack compiledParser cache inlining debug profile
+		currentMethod lastMethod guards ids updateContextMethod tokenMode'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Core'
+!
+
+PPCCompiler comment:''
+!
+
+!PPCCompiler methodsFor:'accessing'!
+
+fastMode
+	^ tokenMode
+!
+
+inlining
+	^ inlining
+!
+
+inlining: value
+	inlining := value
+!
+
+lastMethod
+	^ lastMethod 
+!
+
+parameters: associations
+	| key value |
+	associations do: [ :ass |
+		key := ass key.
+		value := ass value.
+		
+		(key = #profile) ifTrue: [ profile := value ].
+		(key = #inline) ifTrue: [ inlining := value ].
+		(key = #guards) ifTrue: [ guards := value ].
+	]
+!
+
+profile
+	^ profile
+!
+
+profile: aBoolean
+	profile := aBoolean 
+!
+
+startInline: id
+	self push.
+	
+	currentMethod := PPCInlinedMethod new.
+	currentMethod id: id.	
+	currentMethod profile: self profile.
+! !
+
+!PPCCompiler methodsFor:'cleaning'!
+
+clean: class
+"	Transcript crShow: 'Cleaning time: ',
+	[	
+"		self cleanGeneratedMethods: class.
+		self cleanInstVars: class.
+		self cleanParsers: class.
+		self cleanConstants: class.
+"	] timeToRun asMilliSeconds asString, 'ms'."
+!
+
+cleanConstants: class
+	class constants removeAll.
+!
+
+cleanGeneratedMethods: class
+	(class allSelectorsInProtocol: #generated) do: [ :selector | 
+		class removeSelectorSilently: selector ].
+!
+
+cleanInstVars: class
+	class class instanceVariableNames: ''.
+!
+
+cleanParsers: class
+	class parsers removeAll.
+! !
+
+!PPCCompiler methodsFor:'code generation'!
+
+add: string
+	currentMethod add: string.
+!
+
+addConstant: value as: name
+	compiledParser addConstant: value as: name.
+!
+
+addOnLine: string
+	currentMethod addOnLine: string.
+!
+
+addVariable: name
+	currentMethod addVariable: name.
+!
+
+allowInline
+	currentMethod allowInline
+!
+
+cache: id as: value
+	cache at: id put: value.
+!
+
+cachedValue: id
+	^ cache at: id ifAbsent: [ nil ]
+!
+
+call: anotherMethod
+	currentMethod add: anotherMethod call.
+!
+
+callOnLine: anotherMethod
+	currentMethod addOnLine: anotherMethod call.
+!
+
+checkCache: id
+	| method value |
+	"Check if method is already compiled/hand written"
+	method := compiledParser compiledMethodAt: id ifAbsent: [ nil ].
+	method ifNotNil: [ ^ lastMethod := PPCCompiledMethod new id: id; yourself ].
+	
+	^ (value := self cachedValue: id) ifNotNil: [ lastMethod := value ].
+!
+
+dedent
+	currentMethod dedent
+!
+
+indent
+	currentMethod indent
+!
+
+nl
+	currentMethod nl
+!
+
+pop
+	| array |
+	array := compilerStack pop.
+	currentMethod := array first	
+!
+
+push
+	| array |
+	array := { currentMethod }.
+	compilerStack push: array.
+	(compilerStack size > 500 )ifTrue: [ self error: 'unless it is very complex grammar, there is an error somewhere' ]
+!
+
+smartRemember: parser
+	^ self smartRemember: parser to: #memento 
+!
+
+smartRemember: parser to: variableName
+	parser isContextFree ifTrue: [ 
+		^ variableName, ' := context lwRemember.'.
+	].
+	^ variableName, ':= context remember.'
+!
+
+smartRestore: parser
+	^ self smartRestore: parser from: #memento 
+!
+
+smartRestore: parser from: mementoName
+	parser isContextFree ifTrue: [ 
+		^ 'context lwRestore: ', mementoName, '.'.
+	].
+	^ 'context restore: ', mementoName, '.'.
+!
+
+startMethod: id
+	|  sender |
+	(cache includesKey: id) ifTrue: [ self error: 'OOOUPS!!' ].
+	self push.
+	
+	
+	currentMethod := PPCMethod new.
+	currentMethod id: id.
+	currentMethod profile: self profile.	
+	self cache: id as: currentMethod.
+	
+	sender := thisContext sender receiver.
+	self add: '"Method generated from ', sender asString, '"'.
+!
+
+startTokenMode
+	tokenMode := true
+!
+
+stopInline
+	| sender |
+	sender := thisContext sender receiver.
+	self add: '"Inlined by ', sender asString, '"'.
+	lastMethod := currentMethod.
+	currentMethod := nil.
+	self pop.
+!
+
+stopMethod
+	self cache: currentMethod methodName as: currentMethod.
+	lastMethod := currentMethod.
+	currentMethod := nil.
+	self pop.
+!
+
+stopTokenMode
+	tokenMode := false
+! !
+
+!PPCCompiler methodsFor:'code generation - ids'!
+
+idFor: object prefixed: prefix
+	^ self idFor: object prefixed: prefix effect: #none
+!
+
+idFor: object prefixed: prefix effect: effect
+	| body suffix |
+	^ ids at: object ifAbsentPut: [ 
+		suffix := self fastMode ifTrue: [ '_fast' ] ifFalse: [ '' ].
+		((object isKindOf: PPCNode) and: [object name isNotNil]) ifTrue: [ 
+			 (object name, suffix) asSymbol
+		] ifFalse: [ 
+			body := ids size asString.
+			(prefix asString, '_', body, suffix) asSymbol
+		]
+	]
+!
+
+idFor: object prefixed: prefix suffixed: suffix effect: effect
+	| body |
+	^ ids at: object ifAbsentPut: [ 
+		((object isKindOf: PPCNode) and: [object name isNotNil]) ifTrue: [ 
+			 (object name, suffix) asSymbol
+		] ifFalse: [ 
+			body := ids size asString.
+			(prefix asString, '_', body, suffix) asSymbol
+		]
+	]
+! !
+
+!PPCCompiler methodsFor:'compiling'!
+
+compile: aPPParser as: name
+	^ self compile: aPPParser as: name params: #()
+!
+
+compile: aPPParser as: name params: params
+	| parser |
+	parser := self copy: aPPParser.
+	parser := self toCompilerTree: parser.
+	parser := self optimize: parser params: params.
+	parser := self compileTree: parser as: name parser: aPPParser params: params.
+	^ parser
+	
+!
+
+compileTree: compilerTree as: name parser: parser params: params
+	|  |
+	params do: [ :p | 
+		(p key = #guards) ifTrue: [ self guards: p value ].
+	].	
+
+	"
+		To create a new Package so that a new classes are not in PetitCompiler package.
+		TODO JK: This is HACK, needs some more interoperable approach
+	"
+	RPackageOrganizer default registerPackageNamed: 'PetitCompiler-Generated'.
+	compiledParser := (Smalltalk at: name ifAbsent: [ nil ]).
+	compiledParser ifNil: [ 
+							PPCompiledParser subclass: name.
+							compiledParser := Smalltalk at: name.
+							compiledParser category: 'PetitCompiler-Generated'							
+						] ifNotNil: [ 
+							self clean: compiledParser 
+						].	
+	compiledParser constants removeAll.
+	
+
+	
+	self startMethod: #start.
+	self add: '^ '.
+	self callOnLine: (compilerTree compileWith: self).
+	self stopMethod.
+
+	self installMethodsAndVariables: compiledParser.
+
+	compiledParser referringParser: parser.
+	^ compiledParser
+!
+
+copy: parser
+	^ parser transform: [ :p | p copy ].
+!
+
+installMethods: class
+	cache keysAndValuesDo: [ :key :method |
+		class compileSilently: method code classified: 'generated'.
+	]
+!
+
+installMethodsAndVariables: class
+	
+	self installVariables: class.
+	self installMethods: class.	
+	
+!
+
+installVariables: class
+	| string |
+	string := class constants keys inject: '' into: [:r :e | r, ' ', e  ].
+	PPCompiledParser subclass: class name instanceVariableNames: string classVariableNames: '' category: 'PetitCompiler-Generated'.
+!
+
+optimize: parser params: params
+	| retval |
+	retval := parser optimizeTree: params.
+	retval checkTree.
+	^ retval
+!
+
+toCompilerTree: parser
+	^ parser asCompilerTree
+! !
+
+!PPCCompiler methodsFor:'guard'!
+
+addSequenceGuard: parser
+
+	| firsts  guardSet guardSetId |
+	(self guards not or: [(guardSet := self guardCharSet: parser) isNil]) ifTrue: [ ^ self].
+
+	firsts := (parser firstSetSuchThat: [ :e | (e isKindOf: PPTokenParser) or: [ e isTerminal ] ]).
+	
+	"If we start with PPTokenParser, we should invoke the whitespace parser"
+	(firsts allSatisfy: [ :e | e isKindOf: PPTokenParser ]) ifTrue: [  
+		guardSetId := (self idFor: guardSet prefixed: #guard).
+		self addConstant: guardSet as: guardSetId.
+		self add: 'wsParser parseOn: context.'.
+		self add: 'context atEnd ifTrue: [ ^ self error ].'.
+		self add: '(', guardSetId, ' value: context peek) ifFalse: [ ^ self error ].'.
+	].
+
+	(firsts allSatisfy: [ :e | e isTerminal ]) ifTrue: [  
+		guardSetId := (self idFor: guardSet prefixed: #guard).
+		self addConstant: guardSet as: guardSetId.
+		self add: 'context atEnd ifTrue: [ ^ self error ].'.
+		self add: '(', guardSetId, ' value: context peek) ifFalse: [ ^ self error ].'.
+	].
+!
+
+guardCharSet: parser
+	| fs charSet   |
+	"No Guards fro trimming parser so far"
+	(parser firstSetSuchThat: [ :e | e isKindOf: PPCTrimNode ]) isEmpty ifFalse: [ ^ nil ].
+
+	"Makes no sense to do guard for epsilon parse"
+	(parser acceptsEpsilon) ifTrue: [ ^ nil ].
+
+	fs := parser firstSet.
+	fs do: [ :p |
+		"If we can accept epsilon guard does not make sense"
+		p isNullable ifTrue: [ ^ nil ].
+	].
+	
+	charSet := PPCharSetPredicate on: [:char | fs anySatisfy: [:e | (e firstCharParser parse: char asString) isPetitFailure not ]].
+	^ charSet
+!
+
+guards
+	^ guards
+!
+
+guards: aBoolean
+	guards := aBoolean
+! !
+
+!PPCCompiler methodsFor:'initialization'!
+
+initialize
+	super initialize.
+	compilerStack := Stack new.
+	cache := IdentityDictionary new.
+	ids := IdentityDictionary new.
+	
+	tokenMode := false.
+	inlining := true.
+	profile := false.
+	guards := true.
+! !
+
+!PPCCompiler methodsFor:'ppcmethod protocol'!
+
+bridge
+	^ PPCBridge on: lastMethod methodName.
+!
+
+call
+	^ lastMethod call
+!
+
+canInline
+	^ lastMethod canInline
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCContext.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,278 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPStream subclass:#PPCContext
+	instanceVariableNames:'root properties globals furthestFailure compiledParser rc ws'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Context'
+!
+
+PPCContext comment:''
+!
+
+!PPCContext class methodsFor:'as yet unclassified'!
+
+new
+	^ self basicNew initialize
+!
+
+on: aPPParser stream: aStream
+	^ self basicNew 
+		initialize;
+		root: aPPParser;
+		stream: aStream asPetitStream;
+		yourself
+! !
+
+!PPCContext methodsFor:'accessing-globals'!
+
+globalAt: aKey
+	"Answer the global property value associated with aKey."
+	
+	^ self globalAt: aKey ifAbsent: [ self error: 'Property not found' ]
+!
+
+globalAt: aKey ifAbsent: aBlock
+	"Answer the global property value associated with aKey or, if aKey isn't found, answer the result of evaluating aBlock."
+	
+	^ globals isNil
+		ifTrue: [ aBlock value ]
+		ifFalse: [ globals at: aKey ifAbsent: aBlock ]
+!
+
+globalAt: aKey ifAbsentPut: aBlock
+	"Answer the global property associated with aKey or, if aKey isn't found store the result of evaluating aBlock as new value."
+	
+	^ self globalAt: aKey ifAbsent: [ self globalAt: aKey put: aBlock value ]
+!
+
+globalAt: aKey put: anObject
+	"Set the global property at aKey to be anObject. If aKey is not found, create a new entry for aKey and set is value to anObject. Answer anObject."
+
+	^ (globals ifNil: [ globals := Dictionary new: 1 ])
+		at: aKey put: anObject
+!
+
+hasGlobal: aKey
+	"Test if the global property aKey is present."
+	
+	^ globals notNil and: [ globals includesKey: aKey ]
+!
+
+invoke: parser
+	^ parser parseOn: self
+!
+
+peek2
+	position = readLimit ifTrue: [ ^ nil ].
+	^ collection at: (position + 1)
+!
+
+removeGlobal: aKey
+	"Remove the property with aKey. Answer the property or raise an error if aKey isn't found."
+	
+	^ self removeGlobal: aKey ifAbsent: [ self error: 'Property not found' ]
+!
+
+removeGlobal: aKey ifAbsent: aBlock
+	"Remove the global property with aKey. Answer the value or, if aKey isn't found, answer the result of evaluating aBlock."
+	
+	| answer |
+	globals isNil ifTrue: [ ^ aBlock value ].
+	answer := globals removeKey: aKey ifAbsent: aBlock.
+	globals isEmpty ifTrue: [ globals := nil ].
+	^ answer
+! !
+
+!PPCContext methodsFor:'accessing-properties'!
+
+hasProperty: aKey
+	"Test if the property aKey is present."
+	
+	^ properties notNil and: [ properties includesKey: aKey ]
+!
+
+propertyAt: aKey
+	"Answer the property value associated with aKey."
+	
+	^ self propertyAt: aKey ifAbsent: [ self error: 'Property not found' ]
+!
+
+propertyAt: aKey ifAbsent: aBlock
+	"Answer the property value associated with aKey or, if aKey isn't found, answer the result of evaluating aBlock."
+	
+	^ properties isNil
+		ifTrue: [ aBlock value ]
+		ifFalse: [ properties at: aKey ifAbsent: aBlock ]
+!
+
+propertyAt: aKey ifAbsentPut: aBlock
+	"Answer the property associated with aKey or, if aKey isn't found store the result of evaluating aBlock as new value."
+	
+	^ self propertyAt: aKey ifAbsent: [ self propertyAt: aKey put: aBlock value ]
+!
+
+propertyAt: aKey put: anObject
+	"Set the property at aKey to be anObject. If aKey is not found, create a new entry for aKey and set is value to anObject. Answer anObject."
+
+	^ (properties ifNil: [ properties := Dictionary new: 1 ])
+		at: aKey put: anObject
+!
+
+removeProperty: aKey
+	"Remove the property with aKey. Answer the property or raise an error if aKey isn't found."
+	
+	^ self removeProperty: aKey ifAbsent: [ self error: 'Property not found' ]
+!
+
+removeProperty: aKey ifAbsent: aBlock
+	"Remove the property with aKey. Answer the value or, if aKey isn't found, answer the result of evaluating aBlock."
+	
+	| answer |
+	properties isNil ifTrue: [ ^ aBlock value ].
+	answer := properties removeKey: aKey ifAbsent: aBlock.
+	properties isEmpty ifTrue: [ properties := nil ].
+	^ answer
+! !
+
+!PPCContext methodsFor:'acessing'!
+
+hash
+	^ collection hash
+!
+
+initializeFor: parser
+	parser == root ifTrue: [ ^ self ].
+	
+	root := parser.
+	root allParsersDo: [ :p | 
+		p updateContext: self
+	]
+!
+
+root
+	^ root 
+!
+
+stream
+	^ self
+!
+
+stream: aStream
+	collection := aStream collection.
+	position := aStream position.
+	readLimit := collection size.
+! !
+
+!PPCContext methodsFor:'as yet unclassified'!
+
+atWs
+	^ position = ws
+!
+
+goUpTo: char
+	[ position < readLimit ] whileTrue: [ 
+		(collection at: position + 1) = char ifTrue: [ position := position + 1. ^ char ] .
+		position := position + 1.
+	]
+	
+!
+
+setWs
+	^ ws := position
+!
+
+ws
+	^ ws
+!
+
+ws: anInteger
+	ws := anInteger
+! !
+
+!PPCContext methodsFor:'converting'!
+
+asCompiledParserContext
+	^ self
+! !
+
+!PPCContext methodsFor:'failures'!
+
+furthestFailure
+	^ furthestFailure 
+!
+
+noteFailure: aPPFailure
+	(aPPFailure position > furthestFailure position)
+		ifTrue: [ furthestFailure := aPPFailure ].
+! !
+
+!PPCContext methodsFor:'initialization'!
+
+compiledParser
+	^ compiledParser
+!
+
+compiledParser: anObject
+	compiledParser := anObject
+!
+
+initialize
+	
+	rc := 0.
+	"Note a failure at -1"
+	furthestFailure  := PPFailure new position: -1; yourself.
+! !
+
+!PPCContext methodsFor:'memoization'!
+
+lwRemember
+
+	^ position
+!
+
+lwRestore: aPPContextMemento
+	
+	position := aPPContextMemento.
+!
+
+remember
+	| memento |
+"
+	^ position
+"
+	memento := PPCContextMemento new
+		position: position;
+		yourself.
+		
+	self rememberProperties: memento.
+	"JK: Just while developing"
+	rc := rc + 1.
+	(rc > ((self size + 1)* 1000*1000)) ifTrue: [ self error: 'Hey, this is not normal, is it?' ].
+	^ memento
+!
+
+rememberProperties: aPPContextMemento
+	properties ifNil: [ ^ self ].
+	
+	properties keysAndValuesDo: [ :key :value |
+		aPPContextMemento propertyAt: key put: value
+	].
+!
+
+restore: aPPContextMemento
+"	
+	position := aPPContextMemento.
+"	
+	position := aPPContextMemento position.
+	
+	self restoreProperties: aPPContextMemento.
+			
+!
+
+restoreProperties: aPPContextMemento
+	aPPContextMemento keysAndValuesDo: [ :key :value |
+		self propertyAt: key put: value
+	].
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCContextMemento.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,115 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+Object subclass:#PPCContextMemento
+	instanceVariableNames:'position properties'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Context'
+!
+
+PPCContextMemento comment:''
+!
+
+!PPCContextMemento methodsFor:'accessing'!
+
+position
+	^ position
+!
+
+position: anInteger
+	position := anInteger 
+! !
+
+!PPCContextMemento methodsFor:'accessing - properties'!
+
+hasProperty: aKey
+	"Test if the property aKey is present."
+	
+	^ properties notNil and: [ properties includesKey: aKey ]
+!
+
+keysAndValuesDo: aBlock
+	properties ifNil: [ ^ self ].
+	properties keysAndValuesDo: [ :key :value | aBlock value: key value: value copy ] 
+!
+
+propertiesSize
+	properties ifNil: [ ^ 0 ].
+	^ properties size.
+!
+
+propertyAt: aKey
+	"Answer the property value associated with aKey."
+	
+	^ self propertyAt: aKey ifAbsent: [ self error: 'Property not found' ]
+!
+
+propertyAt: aKey ifAbsent: aBlock
+        "Answer the property value associated with aKey or, if aKey isn't found, answer the result of evaluating aBlock."
+
+        properties isNil
+                ifTrue: [ ^ aBlock value ]
+                ifFalse: [ 
+                        (properties includesKey: aKey) ifTrue: [ 
+                                ^ (properties at: aKey) copy
+                        ].
+                        ^ aBlock value
+                ]
+
+    "Created: / 26-10-2014 / 01:23:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+propertyAt: aKey ifAbsentPut: aBlock
+	"Answer the property associated with aKey or, if aKey isn't found store the result of evaluating aBlock as new value."
+	
+	^ self propertyAt: aKey ifAbsent: [ self propertyAt: aKey put: aBlock value ]
+!
+
+propertyAt: aKey put: anObject
+	"Set the property at aKey to be anObject. If aKey is not found, create a new entry for aKey and set is value to anObject. Answer anObject."
+
+	^ (properties ifNil: [ properties := Dictionary new: 1 ])
+		at: aKey put: (anObject copy)
+!
+
+removeProperty: aKey
+	"Remove the property with aKey. Answer the property or raise an error if aKey isn't found."
+	
+	^ self removeProperty: aKey ifAbsent: [ self error: 'Property not found' ]
+!
+
+removeProperty: aKey ifAbsent: aBlock
+	"Remove the property with aKey. Answer the value or, if aKey isn't found, answer the result of evaluating aBlock."
+	
+	| answer |
+	properties isNil ifTrue: [ ^ aBlock value ].
+	answer := properties removeKey: aKey ifAbsent: aBlock.
+	properties isEmpty ifTrue: [ properties := nil ].
+	^ answer
+! !
+
+!PPCContextMemento methodsFor:'comparing'!
+
+= anObject
+	
+	(self == anObject) ifTrue: [ ^ true ].
+	(anObject class = PPCContextMemento) ifFalse: [ ^ false ].
+	
+	(anObject position = position) ifFalse: [ ^ false ].
+
+	(self propertiesSize = anObject propertiesSize) ifFalse: [ ^ false ].
+
+	self keysAndValuesDo: [ :key :value |
+		(anObject hasProperty: key) ifFalse: [ ^ false ].
+		((anObject propertyAt: key) = value) ifFalse: [ ^ false ]. 
+ 	].
+	
+	^ true.
+!
+
+hash
+        ^ position hash bitXor: properties hash.
+
+    "Modified: / 26-10-2014 / 01:46:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCDelegateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,75 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNode subclass:#PPCDelegateNode
+	instanceVariableNames:'child'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCDelegateNode comment:''
+!
+
+
+!PPCDelegateNode methodsFor:'accessing'!
+
+child
+	^ child
+!
+
+child: whatever
+	child := whatever 
+!
+
+children
+	^ { child }
+! !
+
+!PPCDelegateNode methodsFor:'analysis'!
+
+acceptsEpsilon
+	^ child acceptsEpsilonOpenSet: (IdentitySet with: self).
+!
+
+acceptsEpsilonOpenSet: set
+	(set includes: child) ifFalse: [ 
+		set add: child.
+		^ child acceptsEpsilonOpenSet: set 
+	].
+	^ false
+! !
+
+!PPCDelegateNode methodsFor:'optimizing'!
+
+inline: changeStatus	
+	| inlinedNode |
+	inlinedNode := child asInlined.
+	(inlinedNode ~= child) ifTrue: [ 
+		changeStatus change.
+		self replace: child with: inlinedNode.
+	]
+!
+
+optimize: params status: changeStatus
+	| retval |
+	retval := self.
+	
+	retval := retval rewrite: params status: changeStatus.
+	retval := retval inline: params status: changeStatus.
+	
+	^ retval
+! !
+
+!PPCDelegateNode methodsFor:'transformation'!
+
+replace: node with: anotherNode
+	child == node ifTrue: [ child := anotherNode ]
+! !
+
+!PPCDelegateNode class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCForwardNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,43 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCDelegateNode subclass:#PPCForwardNode
+	instanceVariableNames:'block'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCForwardNode comment:''
+!
+
+!PPCForwardNode methodsFor:'compiling'!
+
+check
+	^ (child name = self name and: [child suffix = self suffix]) ifTrue: [ 'referring to itself!!' ]
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startMethod: id.
+	compiler add: '^ '.
+	"child name = 'keyword' ifTrue: [ self halt ]."
+	compiler callOnLine: (child compileWith: compiler).
+ ^ compiler stopMethod.	
+!
+
+prefix
+	^ #fw
+!
+
+rewrite: changeStatus
+	child name ifNil: [  
+		changeStatus change.
+		child name: self name.
+		^ child
+	].
+
+	(child name = self name) ifTrue: [ 
+		changeStatus change.
+		^ child
+	]
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCGuard.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,150 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+Object subclass:#PPCGuard
+	instanceVariableNames:'node classification id message'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Core'
+!
+
+PPCGuard comment:''
+!
+
+!PPCGuard class methodsFor:'as yet unclassified'!
+
+on: aPPCNode
+	^ self new
+		initializeFor: aPPCNode;
+		yourself
+! !
+
+!PPCGuard methodsFor:'accessing'!
+
+id
+	
+	^ id
+!
+
+id: anObject
+	
+	id := anObject
+!
+
+message
+	(message == #unknown) ifTrue: [ 
+		(self testMessage: #isLetter) ifTrue: [ ^ message := #isLetter ].
+		(self testMessage: #isAlphaNumeric) ifTrue: [ ^ message := #isAlphaNumeric ].
+		(self testMessage: #isDigit) ifTrue: [ ^ message := #isDigit ].
+		
+		^ message := nil.
+	].
+	^ message
+! !
+
+!PPCGuard methodsFor:'as yet unclassified'!
+
+classificationOn: aBlock
+	classification := Array new: 255.
+	1 to: classification size do: [ :index |
+		classification at: index put: (aBlock
+			value: (Character value: index)) ].
+!
+
+compileAny: compiler
+	compiler add: '(context atEnd not)'.
+!
+
+compileCharacter: compiler
+	self assert: (classification select: [ :e | e ]) size = 1.
+	
+	classification keysAndValuesDo: [ :index :value | value ifTrue: [  
+		(index > 32 and: [ index < 127 ]) ifTrue: [ 
+			compiler add: '(context peek = ', (Character value: index) printString, ')'
+		] ifFalse: [ 
+			id := compiler idFor: (Character value: index) prefixed: #character.
+			compiler addConstant: (Character value: index) as: id.
+			compiler add: '(context peek = ', id, ')'.
+	 	] 
+	] ].
+
+!
+
+compileGuard: compiler id: symbol
+	self id: symbol.
+	^ self compileGuard: compiler
+!
+
+compileMessage: compiler
+	compiler add: '(context peek ', message, ')'
+!
+
+initializeFor: aPPCNode
+	node := aPPCNode.
+	message := #unknown.
+	id := nil.
+	
+	"No Guards for trimming parser so far"
+	((node firstSetSuchThat: [ :e | e isKindOf: PPCTrimNode ]) isEmpty not) ifTrue: [ 
+		^ self initializeForNoGuard 
+	].
+	(node acceptsEpsilon) ifTrue: [  
+		^ self initializeForEpsilon
+	].
+
+	self classificationOn: [:char | node firstSet anySatisfy: [:e | (e firstCharParser parse: char asString) isPetitFailure not ]]
+!
+
+initializeForEpsilon
+	classification := nil
+	
+!
+
+initializeForNoGuard
+	classification := nil
+	
+!
+
+testAny
+	^ classification allSatisfy: [ :e | e ].
+!
+
+testMessage: selector
+ 	classification keysAndValuesDo: [:index :element |
+		(element = ((Character value: index) perform: selector)) ifFalse: [ 
+			^ false 
+		]
+	].
+	^ true
+!
+
+testSingleCharacter
+	^ (classification select: [ :e | e ]) size = 1
+! !
+
+!PPCGuard methodsFor:'code generation'!
+
+compileArray: compiler
+	| array |
+	self assert: id isNotNil.
+
+	array := ((classification asOrderedCollection) addLast: false; yourself) asArray.
+	compiler addConstant: array as: id.
+	compiler add: '(', id, ' at: context peek asInteger)'.
+!
+
+compileGuard: compiler
+	self assert: self makesSense description: 'No Guard could be compiled'.
+	self assert: id notNil.
+	
+	
+	self message ifNotNil: [ ^ self compileMessage: compiler ].
+	self testAny ifTrue: [ ^ self compileAny: compiler ].
+	self testSingleCharacter ifTrue: [ ^ self compileCharacter: compiler ].
+	
+	^ self compileArray: compiler
+!
+
+makesSense
+	^ classification isNil not
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineAnyNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,29 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAnyNode subclass:#PPCInlineAnyNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineAnyNode comment:''
+!
+
+!PPCInlineAnyNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ self
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startInline: id.
+	compiler add: 'context next ifNil: [ error := true. ].'.
+ ^ compiler stopInline.
+!
+
+printOn: aStream
+	aStream nextPutAll: #inlined.
+	super printOn: aStream.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineCharSetPredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,25 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCCharSetPredicateNode subclass:#PPCInlineCharSetPredicateNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineCharSetPredicateNode comment:''
+!
+
+!PPCInlineCharSetPredicateNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ self
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startInline: id.
+	compiler add: ''.
+	self bodyOfPredicate: compiler.
+ ^ compiler stopInline.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineCharacterNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,27 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractCharacterNode subclass:#PPCInlineCharacterNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineCharacterNode comment:''
+!
+
+!PPCInlineCharacterNode methodsFor:'as yet unclassified'!
+
+printOn: aStream
+	aStream nextPutAll: #inlined.
+	super printOn: aStream.
+!
+
+start: compiler id: id
+	compiler startInline: id.
+!
+
+stop: compiler
+	^ compiler stopInline
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineLiteralNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,47 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractLiteralNode subclass:#PPCInlineLiteralNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineLiteralNode comment:''
+!
+
+!PPCInlineLiteralNode methodsFor:'compiling'!
+
+compileWith: compiler effect: effect id: id
+	| encodedLiteral |
+	
+	encodedLiteral := self encodeQuotes: literal.
+	compiler startInline: id.
+	compiler add: '((context peek: ', literal size asString, ') = #''', encodedLiteral, ''')'.
+	compiler indent.
+	compiler add: ' ifTrue: [ context skip: ', literal size asString, '. #''', encodedLiteral, ''']'.
+	compiler add: ' ifFalse: [ self error: ''', encodedLiteral,  ' expected'' ].'.
+	compiler dedent.
+ ^ compiler stopInline.
+!
+
+inlineWith: compiler id: id
+	| encodedLiteral |
+	
+	encodedLiteral := self encodeQuotes: literal.
+	compiler startInline: id.
+	compiler add: '((context peek: ', literal size asString, ') = #''', encodedLiteral, ''')'.
+	compiler indent.
+	compiler add: ' ifTrue: [ context skip: ', literal size asString, '. #''', encodedLiteral, ''']'.
+	compiler add: ' ifFalse: [ self error: ''', encodedLiteral,  ' expected'' ].'.
+	compiler dedent.
+ ^ compiler stopInline.
+! !
+
+!PPCInlineLiteralNode methodsFor:'printing'!
+
+printOn: aStream
+	aStream nextPutAll: '#inline'.
+	super printOn: aStream
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineMessagePredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,25 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCMessagePredicateNode subclass:#PPCInlineMessagePredicateNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineMessagePredicateNode comment:''
+!
+
+!PPCInlineMessagePredicateNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ self
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startInline: id.
+	compiler add: ''.
+	self bodyOfPredicate: compiler.
+ ^ compiler stopInline.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineNilNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,24 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNilNode subclass:#PPCInlineNilNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineNilNode comment:''
+!
+
+!PPCInlineNilNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ self
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startInline: id.
+	compiler add: 'nil.'.
+ ^ compiler stopInline.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineNotCharSetPredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,25 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNotCharSetPredicateNode subclass:#PPCInlineNotCharSetPredicateNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineNotCharSetPredicateNode comment:''
+!
+
+!PPCInlineNotCharSetPredicateNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ self
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startInline: id.
+	compiler add: ''.
+	self bodyOfPredicate: compiler.
+ ^ compiler stopInline.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineNotLiteralNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,55 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractLiteralNode subclass:#PPCInlineNotLiteralNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineNotLiteralNode comment:''
+!
+
+!PPCInlineNotLiteralNode methodsFor:'accessing'!
+
+literal
+	
+	^ literal
+!
+
+literal: anObject
+	
+	literal := anObject
+!
+
+prefix
+	^ #notLit
+! !
+
+!PPCInlineNotLiteralNode methodsFor:'as yet unclassified'!
+
+compileWith: compiler effect: effect id: id
+	| encodedLiteral size |
+	encodedLiteral := self encodeQuotes: literal.
+	size := literal size asString.
+	
+	compiler startInline: id.
+	compiler add: '((context peek: ', size, ') =#''', encodedLiteral, ''')'.
+	compiler indent.
+	compiler add: ' ifTrue: [ self error: ''', encodedLiteral, ' not expected'' ]'.
+	compiler add: ' ifFalse: [ nil ].'.
+	compiler dedent.
+ ^ compiler stopInline.
+! !
+
+!PPCInlineNotLiteralNode methodsFor:'printing'!
+
+firstCharParser
+	^ literal first asParser not
+!
+
+printOn: aStream
+	aStream nextPutAll: #inlined.
+	super printOn: aStream.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineNotMessagePredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,25 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNotMessagePredicateNode subclass:#PPCInlineNotMessagePredicateNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineNotMessagePredicateNode comment:''
+!
+
+!PPCInlineNotMessagePredicateNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ self
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startInline: id.
+	compiler add: ''.
+	self bodyOfPredicate: compiler.
+ ^ compiler stopInline.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlinePluggableNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,24 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCPluggableNode subclass:#PPCInlinePluggableNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlinePluggableNode comment:''
+!
+
+!PPCInlinePluggableNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ self
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startInline: id.
+	compiler add: block asString, ' value: context.'.
+ ^ compiler stopInline.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlineStrategy.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,45 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+Object subclass:#PPCInlineStrategy
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCInlineStrategy class instanceVariableNames:'Instance'
+
+"
+ No other class instance variables are inherited by this class.
+"
+!
+
+PPCInlineStrategy comment:''
+!
+
+!PPCInlineStrategy class methodsFor:'as yet unclassified'!
+
+instance
+	^ Instance ifNil: [ 
+		Instance := self basicNew initialize.
+	]
+!
+
+new
+	^ self instance
+! !
+
+!PPCInlineStrategy methodsFor:'as yet unclassified'!
+
+return: compiler
+	compiler add: ''.
+!
+
+start: compiler id: id
+	^ compiler startInline: id
+!
+
+stop: compiler
+ ^ compiler stopInline
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCInlinedMethod.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,22 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCMethod subclass:#PPCInlinedMethod
+	instanceVariableNames:'code'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Core'
+!
+
+PPCInlinedMethod comment:''
+!
+
+!PPCInlinedMethod methodsFor:'as yet unclassified'!
+
+call
+	^ self code
+!
+
+code
+	^ buffer contents trim
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCListNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,68 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNode subclass:#PPCListNode
+	instanceVariableNames:'children'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCListNode comment:''
+!
+
+!PPCListNode methodsFor:'accessing'!
+
+children
+	^ children
+!
+
+children: anObject
+	
+	children := anObject
+! !
+
+!PPCListNode methodsFor:'analysis'!
+
+acceptsEpsilon
+	self subclassResponsibility
+!
+
+acceptsEpsilonOpenSet: set
+	self subclassResponsibility
+!
+
+replace: node with: anotherNode
+	children keysAndValuesDo: [ :index :child |
+		child == node ifTrue: [ children at: index put: anotherNode ] 
+	]
+! !
+
+!PPCListNode methodsFor:'copying'!
+
+postCopy
+	super postCopy.
+	children := children copy
+! !
+
+!PPCListNode methodsFor:'optimizing'!
+
+inline: changeStatus
+	| inlinedNode |
+	self children do: [ :child |
+		inlinedNode := child asInlined.
+		(inlinedNode ~= child) ifTrue: [ 
+			changeStatus change.
+			^ self replace: child with: inlinedNode.
+		]
+	]
+!
+
+optimize: params status: changeStatus
+	| retval |
+	retval := self.
+	retval := retval rewrite: params status: changeStatus.
+	retval := retval inline: params status: changeStatus.
+	
+	^ retval
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCLiteralNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,39 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractLiteralNode subclass:#PPCLiteralNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCLiteralNode comment:''
+!
+
+!PPCLiteralNode methodsFor:'compiling'!
+
+compileWith: compiler effect: effect id: id
+	| encodedLiteral |
+	
+	encodedLiteral := self encodeQuotes: literal.
+	compiler startMethod: id.
+	compiler addVariable: 'retval'.
+	compiler addVariable: 'position'.
+	compiler add: 'position := context position.'.
+
+	compiler add: 'retval := context next: ', literal size asString, '.'.
+	compiler add: 'retval = #''', encodedLiteral, ''' ifTrue: [ ^ #''', encodedLiteral, '''].'.
+	compiler add: 'context position: position.'.
+	compiler add: '^ self error: ''', encodedLiteral,  ' expected'' at: position'.
+ ^	compiler stopMethod.	
+! !
+
+!PPCLiteralNode methodsFor:'optimizing'!
+
+asInlined
+	^ PPCInlineLiteralNode new
+		literal: literal;
+		name: name;
+		yourself
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCMessagePredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,42 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractPredicateNode subclass:#PPCMessagePredicateNode
+	instanceVariableNames:'message'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCMessagePredicateNode comment:''
+!
+
+!PPCMessagePredicateNode methodsFor:'accessing'!
+
+asInlined
+	^ PPCInlineMessagePredicateNode new
+		message: message;
+		predicate: predicate;
+		name: name;
+		yourself
+!
+
+message
+	
+	^ message
+!
+
+message: anObject
+	
+	message := anObject
+! !
+
+!PPCMessagePredicateNode methodsFor:'as yet unclassified'!
+
+bodyOfPredicate: compiler
+	compiler addOnLine: '(context peek ', self message, ')'.
+	compiler indent.
+	compiler add: 'ifFalse: [ self error: ''predicate not found'' ]'.
+	compiler add: 'ifTrue: [ context next ].'.
+	compiler dedent.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCMethod.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,111 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+Object subclass:#PPCMethod
+	instanceVariableNames:'buffer variables indentation id profile canInline'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Core'
+!
+
+PPCMethod comment:''
+!
+
+!PPCMethod methodsFor:'as yet unclassified'!
+
+add: string
+	self nl.
+	indentation timesRepeat: [ buffer nextPutAll: '  ' ].
+	self addOnLine: string.
+!
+
+addOnLine: string
+	buffer nextPutAll: string.
+!
+
+addVariable: name
+	variables add: name.
+!
+
+allowInline
+	canInline := true
+!
+
+body
+	^ buffer contents
+!
+
+bridge
+	^ PPCBridge on: self methodName.
+!
+
+call
+	^ 'self ', self methodName, '.'.
+!
+
+code
+	^ self methodName, String cr,  
+		self variables, String cr,
+		self profilingBegin, String cr,
+		self body, String cr
+"		self profilingEnd"
+!
+
+dedent
+	indentation := indentation - 1
+!
+
+id: value
+	id := value
+!
+
+indent 
+	indentation := indentation + 1
+!
+
+isMethod
+	^ true
+!
+
+methodName
+	^ id
+!
+
+nl
+	^ buffer nextPut: Character cr
+!
+
+profile
+	^ profile
+!
+
+profile: aBoolean
+	profile := aBoolean 
+!
+
+profilingBegin
+	self profile ifTrue: [ 
+ 		^ '  context methodInvoked: #', id, '.'	
+	].
+	^ ''
+!
+
+profilingEnd
+	self profile ifTrue: [ 
+ 		^ '  context methodFinished: #', id, '.'	
+	].
+	^ ''
+!
+
+variables
+	^ '  | ', (variables inject: '' into: [ :s :e | s, ' ', e]), ' |'
+! !
+
+!PPCMethod methodsFor:'initialization'!
+
+initialize
+	buffer := WriteStream on: ''.
+	indentation := 1.
+	variables := OrderedCollection new.
+	canInline := false
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCMethodStrategy.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,46 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+Object subclass:#PPCMethodStrategy
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCMethodStrategy class instanceVariableNames:'Instance'
+
+"
+ No other class instance variables are inherited by this class.
+"
+!
+
+PPCMethodStrategy comment:''
+!
+
+!PPCMethodStrategy class methodsFor:'as yet unclassified'!
+
+instance
+	^ Instance ifNil: [ 
+		Instance := self basicNew initialize.
+	]
+!
+
+new
+	^ self instance
+! !
+
+!PPCMethodStrategy methodsFor:'as yet unclassified'!
+
+return: compiler
+	compiler add: '^'.
+!
+
+start: compiler id: id
+	self halt: 'deprecated?'.
+	^ compiler startMethod: id
+!
+
+stop: compiler
+ ^ compiler stopMethod
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCNegateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,22 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCDelegateNode subclass:#PPCNegateNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCNegateNode comment:''
+!
+
+!PPCNegateNode methodsFor:'as yet unclassified'!
+
+compileWith: compiler effect: effect id: id
+	"TODO"
+!
+
+prefix
+	^ #negate
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCNilNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,36 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCNode subclass:#PPCNilNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCNilNode comment:''
+!
+
+!PPCNilNode methodsFor:'as yet unclassified'!
+
+acceptsEpsilon
+	^ true
+!
+
+asInlined
+	^ PPCInlineNilNode new
+!
+
+compileWith: compiler effect: effect id: id
+	compiler startMethod: id.
+	compiler add: '^ nil.'.
+ ^ compiler stopMethod.
+!
+
+firstCharParser
+	^ PPFailingParser new
+!
+
+prefix
+	^ #nil
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,326 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+Object subclass:#PPCNode
+	instanceVariableNames:'contextFree name'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCNode comment:''
+!
+
+!PPCNode methodsFor:'accessing'!
+
+children
+	^ #()
+!
+
+name: anObject
+	
+	name := anObject
+!
+
+prefix
+	self subclassResponsibility 
+!
+
+suffix
+	^ ''
+! !
+
+!PPCNode methodsFor:'analysis'!
+
+acceptsEpsilon
+	"return true, if parser can accept epsilon without failure"
+	^ self subclassResponsibility
+!
+
+acceptsEpsilonOpenSet: set
+	"private helper for acceptsEmpsilon that makes sure to avoid cycles (using open set)"
+	self children isEmpty ifTrue: [ ^ self acceptsEpsilon ].
+	
+	self shouldBeImplemented .
+!
+
+allNodes
+	| result |
+	result := OrderedCollection new.
+	self allParsersDo: [ :parser | result add: parser ].
+	^ result
+!
+
+allNodesDo: aBlock
+	"Iterate over all the parse nodes of the receiver."
+
+	self allNodesDo: aBlock seen: IdentitySet new
+!
+
+allNodesDo: aBlock seen: aSet
+	"Iterate over all the parse nodes of the receiver, do not visit and follow the ones contained in aSet."
+
+	(aSet includes: self)
+		ifTrue: [ ^ self ].
+	aSet add: self.
+	aBlock value: self.
+	self children
+		do: [ :each | each allNodesDo: aBlock seen: aSet ]
+!
+
+check
+	"nothing to do"
+	^ nil
+!
+
+firstSetSuchThat: block
+	^ self firstSetSuchThat: block into: (OrderedCollection new) openSet: IdentitySet new.
+!
+
+firstSetSuchThat: block into: aCollection openSet: aSet
+	(aSet includes: self) ifTrue: [ ^ aCollection ].
+	aSet add: self.
+	
+	(block value: self) ifTrue: [aCollection add: self. ^ aCollection ].
+	self children do: [ :child | 
+		child firstSetSuchThat: block into: aCollection openSet: aSet 
+	].
+	^ aCollection
+!
+
+isContextFree
+	^ contextFree ifNil: [ contextFree := self allNodes allSatisfy: [ :n | n isContextFreePrim  ] ]
+!
+
+isContextFreePrim
+	^ true
+!
+
+isFirstSetTerminal
+	"Answer true if the receiver is a terminal or leaf parser, that means it does not delegate to any other parser."
+
+	^ self isTerminal
+!
+
+isNullable
+	"Answer true if the receiver is a nullable parser, e.g. it can successfully parse nothing."
+	
+	^ false
+!
+
+isTerminal
+	"Answer true if the receiver is a terminal or leaf parser, that means it does not delegate to any other parser."
+
+	^ self children isEmpty
+! !
+
+!PPCNode methodsFor:'as yet unclassified'!
+
+firstSet
+	^ self firstSetSuchThat: [ :e | e isFirstSetTerminal ]
+!
+
+name
+	^ name
+! !
+
+!PPCNode methodsFor:'comparison'!
+
+= anotherNode
+	(self == anotherNode) ifTrue: [ ^ true ].
+	(anotherNode class = self class) ifFalse: [ ^ false ].
+	
+	(anotherNode name = name) ifFalse: [ ^ false ].
+	^ anotherNode children = self children.
+! !
+
+!PPCNode methodsFor:'compiling'!
+
+compileWith: compiler
+	|  |
+	^ self compileWith: compiler effect: #none
+!
+
+compileWith: compiler effect: effect
+	| id |
+	id := (compiler idFor: self prefixed: (self prefix) suffixed: (self suffix) effect: effect).
+	(compiler checkCache: id) ifNotNil: [ ^ compiler ].
+
+	^ self compileWith: compiler effect: effect id: id.
+!
+
+compileWith: compiler effect: effect id: id
+	self subclassResponsibility 
+! !
+
+!PPCNode methodsFor:'gt'!
+
+gtTreeViewIn: composite
+	<gtInspectorPresentationOrder: 40>
+
+	composite tree
+			title: 'Tree';
+			children: [:n | n children ];
+			format: [:n| n name ifNil: [ n asString ] ifNotNil: [n name] ];
+			shouldExpandToLevel: 6
+! !
+
+!PPCNode methodsFor:'optimizing'!
+
+asFast
+	^ self
+!
+
+asInlined
+	^ self
+!
+
+checkTree
+	| message |
+	self allNodes do: [ :node | (message := node check) ifNotNil: [ self error: message ]  ].
+!
+
+defaultOptimizationParameters
+	| parameters |
+	parameters := IdentityDictionary new.
+	parameters at: #inline put: true.
+	parameters at: #rewrite put: true.
+
+	^ parameters
+!
+
+doOptimizationLoop: params status: changeStatus
+	| mapping optimized root |
+	mapping := IdentityDictionary new.
+	self allNodes do: [ :node |
+		optimized := (node optimize: params status: changeStatus).
+		(optimized ~= node) ifTrue: [  
+			mapping at: node put: optimized.
+		].
+	].
+	
+	root := mapping at: self ifAbsent: [ self ].
+	[  | changed |
+		changed := false.
+		root allNodes do: [ :node |
+			node children do: [ :child | 
+				mapping at: child ifPresent: [:newChild | 
+					node replace: child with: newChild.
+					changed := true ]
+		]].
+		changed 
+	] whileTrue.
+	^ root
+!
+
+inline: changeStatus
+	"nothing to do"
+!
+
+inline: params status: changeStatus
+	(params at: #inline) ifTrue: [ 
+		^ self inline: changeStatus
+	]
+!
+
+optimize: params status: changeStatus
+	" nothing to do "
+!
+
+optimizeTree
+	^ self optimizeTree: #()
+!
+
+optimizeTree: params
+	|  node newNode parameters status |
+	
+	parameters := self defaultOptimizationParameters.
+	
+	params do: [ :p | parameters at: p key put: p value ].
+	
+	node := self.
+	[ 
+		status := PPCOptimizationResult new.
+		newNode := node doOptimizationLoop: parameters status: status.
+		status isChange.
+	] whileTrue: [ node := newNode ].
+	^ node
+!
+
+rewrite: changeStatus
+	"nothing to do"
+!
+
+rewrite: params status: changeStatus
+	(params at: #rewrite) ifTrue: [  
+		^ self rewrite: changeStatus.
+	].
+! !
+
+!PPCNode methodsFor:'printing'!
+
+printNameOn: aStream
+	self name isNil
+		ifTrue: [ aStream print: self hash ]
+		ifFalse: [ aStream nextPutAll: self name. aStream nextPut: $-. aStream print: self hash. ]
+!
+
+printOn: aStream
+	super printOn: aStream.
+	aStream nextPut: $(.
+	self printNameOn: aStream.
+	aStream nextPut: $)
+! !
+
+!PPCNode methodsFor:'todel'!
+
+allParsersDo: aBlock
+	"Iterate over all the parse nodes of the receiver."
+
+	self allParsersDo: aBlock seen: IdentitySet new
+!
+
+allParsersDo: aBlock seen: aSet
+	"Iterate over all the parse nodes of the receiver, do not visit and follow the ones contained in aSet."
+
+	(aSet includes: self)
+		ifTrue: [ ^ self ].
+	aSet add: self.
+	aBlock value: self.
+	self children
+		do: [ :each | each allParsersDo: aBlock seen: aSet ]
+!
+
+firstSets: aFirstDictionary into: aSet
+	self children do: [ :child | aSet addAll: (aFirstDictionary at: child) ]
+! !
+
+!PPCNode methodsFor:'transformation'!
+
+asCompilerNode
+	^ self
+!
+
+replace: node with: anotherNode
+!
+
+transform: aBlock
+	"Answer a copy of all parsers reachable from the receiver transformed using aBlock."
+
+	| mapping root |
+	mapping := IdentityDictionary new.
+	self allParsersDo: [ :each |
+		mapping
+			at: each
+			put: (aBlock value: each copy) ].
+	root := mapping at: self.
+	[	| changed |
+		changed := false.
+		root allParsersDo: [ :each |
+			each children do: [ :old |
+				mapping at: old ifPresent: [ :new |
+					each replace: old with: new.
+					changed := true ] ] ].
+		changed ] whileTrue.
+	^ root
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCNotCharSetPredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,38 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractPredicateNode subclass:#PPCNotCharSetPredicateNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCNotCharSetPredicateNode comment:''
+!
+
+!PPCNotCharSetPredicateNode methodsFor:'as yet unclassified'!
+
+asInlined
+	^ PPCInlineNotCharSetPredicateNode new
+		predicate: predicate;
+		name: name;
+		yourself
+!
+
+bodyOfPredicate: compiler
+	| classificationId  classification |
+	classification := self extendClassification: predicate classification.
+	classificationId := (compiler idFor: classification prefixed: #classification).
+	compiler  addConstant: classification as: classificationId.
+	
+	compiler addOnLine: '(', classificationId, ' at: context peek asInteger)'.
+	compiler indent.
+	compiler add: ' ifTrue: [ self error: '' predicate not expected'' ]'.
+	compiler add: ' ifFalse: [ nil ].'.
+	compiler dedent.
+!
+
+firstCharParser
+	^ (PPPredicateObjectParser on: predicate message: 'predicate not expected') not.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCNotLiteralNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,55 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractLiteralNode subclass:#PPCNotLiteralNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCNotLiteralNode comment:''
+!
+
+!PPCNotLiteralNode methodsFor:'accessing'!
+
+asInlined
+	^ PPCInlineNotLiteralNode new
+		name: name;
+		literal: literal;
+		yourself
+!
+
+firstCharParser
+	^ literal first asParser
+!
+
+literal
+	
+	^ literal
+!
+
+literal: anObject
+	
+	literal := anObject
+!
+
+prefix
+	^ #notLit
+! !
+
+!PPCNotLiteralNode methodsFor:'as yet unclassified'!
+
+compileWith: compiler effect: effect id: id
+	| encodedLiteral size |
+	encodedLiteral := self encodeQuotes: literal.
+	size := literal size asString.
+	
+	compiler startMethod: id.
+	compiler add: '((context peek: ', size, ') =#''', encodedLiteral, ''')'.
+	compiler indent.
+	compiler add: ' ifTrue: [ self error: ''', encodedLiteral, ' not expected'' ]'.
+	compiler add: ' ifFalse: [ nil ].'.
+	compiler dedent.
+ ^ compiler stopMethod.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCNotMessagePredicateNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,46 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCAbstractPredicateNode subclass:#PPCNotMessagePredicateNode
+	instanceVariableNames:'message'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCNotMessagePredicateNode comment:''
+!
+
+!PPCNotMessagePredicateNode methodsFor:'accessing'!
+
+asInlined
+	^ PPCInlineNotMessagePredicateNode new
+		predicate: predicate;
+		message: message;
+		name: name;
+		yourself
+!
+
+firstCharParser
+	^ (PPPredicateObjectParser on: predicate message: 'predicate not expected') not.
+!
+
+message
+	
+	^ message
+!
+
+message: anObject
+	
+	message := anObject
+! !
+
+!PPCNotMessagePredicateNode methodsFor:'as yet unclassified'!
+
+bodyOfPredicate: compiler
+	compiler addOnLine: '(context peek ', message, ')'.
+	compiler indent.
+	compiler add: ' ifTrue: [ self error: '' predicate not expected'' ]'.
+	compiler add: ' ifFalse: [ nil ].'.
+	compiler dedent.
+! !
+

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCNotNode.st	Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,76 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPCDelegateNode subclass:#PPCNotNode
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitCompiler-Nodes'
+!
+
+PPCNotNode comment:''
+!
+
+!PPCNotNode methodsFor:'accessing'!
+
+prefix
+	^ #not
+! !
+
+!PPCNotNode methodsFor:'analysis'!
+
+isFirstSetTerminal
+	^ false
+! !
+
+!PPCNotNode methodsFor:'compiling'!
+
+compileWith: compiler effect: effect id: id
+
+	compiler startMethod: id.
+	compiler addVariable: 'memento'.
+	compiler add: (compiler smartRemember: child).
+	
+	compiler startTokenMode.
+	compiler call: (child compileWith: compiler).
+	compiler stopTokenMode.
+	compiler add: (compiler smartRestore: child).
+
+	compiler add: '^ error ifFalse: [ self error ] ifTrue: [ self clearError. nil ]'.
+ ^ compiler stopMethod.
+! !
+
+!PPCNotNode methodsFor:'optimizing'!
+
+optimize: params 
+	(self rewrite: params) ifTrue: [ 
+		^ true.
+	].
+	^ super optimize: params.
+!
+
+rewrite: changeStatus
+	(child isKindOf: PPCAbstractLiteralNode) ifTrue: [  
+		changeStatus change.
+		^ PPCNotLiteralNode new
+			name: self name;
+			literal: self child literal;
+			yourself
+	]. 
+
+	(child isKindOf: PPCMessagePredicateNode) ifTrue: [  
+		changeStatus change.
+		^ PPCNotMessagePredicateNode new
+			name: self name;
+			message: child message;
+			yourself
+	].
+
+	(child isKindOf: PPCCharSetPredicateNode) ifTrue: [  
+		changeStatus change.
+		^ PPCNotCharSetPredicateNode new
+			name: self name;
+			predicate: child predicate;
+			yourself
+	] 
+! !
+