hg/stx-goodies-petitparser: compiler/tests/PPCPrototype1OptimizingTest.st@4751c407bb40 (annotated)

452 9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/compiler/tests' }"
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#PPCPrototype1OptimizingTest
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'configuration'
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitCompiler-Tests-Core'
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!PPCPrototype1OptimizingTest methodsFor:'test support'!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	assert: object type: class
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	self assert: (object isKindOf: class)
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	optimize: aPPParser
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	^ aPPParser compileWithConfiguration: configuration.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	setUp
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	super setUp.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	configuration := PPCUniversalConfiguration new.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	configuration arguments generate: false.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	" ^ configuration := PPCPluggableConfiguration on:
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	[ :_self \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	_self toPPCIr.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	_self createTokens.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	_self specialize.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	_self createRecognizingComponents.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	_self inline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	_self merge.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	]"
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	! !
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	!PPCPrototype1OptimizingTest methodsFor:'tests'!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	testAnyPredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	tree := self optimize: #any asParser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	self assert: tree type: PPCAnyNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	testCharSetPredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	tree := self optimize: (PPPredicateObjectParser on: [:each \| each = $b or: [each = $c] ] message: #foo).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	self assert: tree type: PPCCharSetPredicateNode
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	testChoiceInlining
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	tree := self optimize: $a asParser / $b asParser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	self assert: tree type: PPCChoiceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	self assert: tree children first type: PPCCharacterNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	self assert: tree children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	self assert: tree children second type: PPCCharacterNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	self assert: tree children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	testForwarding
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	\| tree p1 p2 \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	p2 := $a asParser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	p1 := p2 wrapped.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	p1 name: 'p1'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	tree := self optimize: p1.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	self assert: tree type: PPCAbstractCharacterNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	self assert: tree name = 'p1'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	p2 name: 'p2'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	tree := self optimize: p1.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	self assert: tree type: PPCForwardNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	self assert: tree name = 'p1'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	self assert: tree child name = 'p2'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	testInlineCharacter
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	tree := self optimize: $a asParser plus.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	self assert: tree type: PPCPlusNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	self assert: tree child type: PPCCharacterNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	self assert: tree child isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	self assert: tree child character = $a.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	testInlineCharacter2
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	tree := self optimize: $a asParser star.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	self assert: tree type: PPCStarNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	self assert: tree child type: PPCCharacterNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	self assert: tree child isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	self assert: tree child character = $a.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	testInlineCharacter3
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	tree := self optimize: $a asParser, $b asParser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	self assert: tree type: PPCSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	self assert: tree children first type: PPCCharacterNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	self assert: tree children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	self assert: tree children first character = $a.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	self assert: tree children second type: PPCCharacterNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	self assert: tree children second isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	self assert: tree children second character = $b.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	testInlineNil
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	tree := self optimize: nil asParser star.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	self assert: tree type: PPCStarNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	self assert: tree child type: PPCNilNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	self assert: tree child isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	testInlineNotLiteral
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	tree := self optimize: 'foo' asParser not star.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	self assert: tree type: PPCStarNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	self assert: tree child type: PPCNotLiteralNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	self assert: tree child literal = 'foo'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	self assert: tree child isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	testInlineNotPredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	tree := self optimize: (#letter asParser not, (PPPredicateObjectParser on: [ :e \| e = $a or: [ e = $b ]] message: #foo) not).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	self assert: tree type: PPCSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	self assert: tree children first type: PPCNotMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	self assert: tree children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	self assert: tree children second type: PPCNotCharSetPredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	self assert: tree children second isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	testInlinePluggable
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	tree := self optimize: [:ctx \| nil] asParser star.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ])
459 4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 452 diff changeset	153	ifTrue:[ self skipIf: true description: 'not supported in St/X' ].
452 9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	self assert: tree type: PPCStarNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	self assert: tree child type: PPCPluggableNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	self assert: tree child isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158
459 4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 452 diff changeset	159	"Modified: / 10-05-2015 / 07:30:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
452 9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	testInlinePredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	tree := self optimize: (#letter asParser, (PPPredicateObjectParser on: [ :e \| e = $a or: [ e = $b ]] message: #foo)).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	self assert: tree type: PPCSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	self assert: tree children first type: PPCMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	self assert: tree children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	self assert: tree children second type: PPCCharSetPredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	self assert: tree children second isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	testLetterPredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	tree := self optimize: #letter asParser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	self assert: tree type: PPCMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	self assert: tree message = #isLetter.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	testNotAction
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	tree := self optimize: (($f asParser, $o asParser) ==> #second) not.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	self assert: tree type: PPCNotNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	self assert: tree child type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	testNotCharSetPredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	tree := self optimize: (PPPredicateObjectParser on: [:each \| each = $b or: [each = $c] ] message: #foo) asParser not.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	self assert: tree type: PPCNotCharSetPredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	testNotLiteral
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	tree := self optimize: 'foo' asParser not.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	self assert: tree type: PPCNotLiteralNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	self assert: tree literal = 'foo'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	testNotMessagePredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	tree := self optimize: #letter asParser not.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	self assert: tree type: PPCNotMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	testNotSequence
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	tree := self optimize: ($f asParser, $o asParser) not.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	self assert: tree type: PPCNotNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	self assert: tree child type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	testRecognizingSequence2
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	tree := self optimize: ($a asParser, $b asParser) token.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	self assert: tree type: PPCTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	self assert: tree child type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	tree := self optimize: ($a asParser, $b asParser) trimmingToken.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	self assert: tree type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	self assert: tree child type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	testStarAny
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	tree := self optimize: #any asParser star.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	self assert: tree type: PPCStarAnyNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	testStarCharSetPredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	tree := self optimize: (PPPredicateObjectParser on: [:each \| each = $b or: [each = $c] ] message: #foo) star.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	self assert: tree type: PPCStarCharSetPredicateNode
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	testStarMessagePredicate
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	tree := self optimize: #letter asParser star.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	self assert: tree type: PPCStarMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	testStarSeparator
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	tree := self optimize: #space asParser star trimmingToken.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	self assert: tree type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	self assert: tree child type: PPCTokenStarSeparatorNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	testStarSeparator2
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	tree := self optimize: (#space asParser star, 'whatever' asParser) trimmingToken.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	self assert: tree type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	self assert: tree child type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	self assert: tree child children first type: PPCTokenStarSeparatorNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	self assert: tree child children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	testSymbolAction
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	tree := self optimize: (#letter asParser) ==> #second.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	self assert: tree type: PPCSymbolActionNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	tree := self optimize: (#letter asParser) ==> [:e \| e second ].
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	self assert: tree type: PPCActionNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	testToken
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	tree := self optimize: ((#letter asParser, #word asParser star) token).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286	self assert: tree type: PPCTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	self assert: tree child type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	self assert: tree child children size = 2.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	self assert: tree child children first type: PPCMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	self assert: tree child children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	self assert: tree child children second type: PPCTokenStarMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	self assert: tree child children second isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296	testTrimmingToken
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	\| tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	tree := self optimize: ((#letter asParser, #word asParser star) trimmingToken).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	self assert: tree type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301	self assert: tree whitespace type: PPCTokenStarSeparatorNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	self assert: tree whitespace isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	self assert: tree child type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	self assert: tree child children size = 2.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	self assert: tree child children first type: PPCMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	self assert: tree child children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	self assert: tree child children second type: PPCTokenStarMessagePredicateNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	self assert: tree child children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	testTrimmingToken2
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	\| parser tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	parser := 'foo' asParser trimmingToken.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	tree := self optimize: parser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	self assert: tree type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	self assert: tree child type: PPCLiteralNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	self assert: tree child isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	self assert: (tree whitespace allNodes allSatisfy: [ :n \| n isKindOf: PPCNode ]).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	parser := ('foo' asParser, $b asParser) trimmingToken.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	tree := self optimize: parser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	self assert: tree type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	self assert: tree child type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	self assert: tree whitespace type: PPCTokenStarSeparatorNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328	self assert: tree whitespace isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	parser := $d asParser trimmingToken star.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331	tree := self optimize: parser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	self assert: tree type: PPCStarNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	self assert: tree child type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	self assert: tree child child type: PPCCharacterNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	self assert: tree child child isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	testTrimmingToken3
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	\| parser tree \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	parser := ('foo' asParser trimmingToken name: 'foo'), ('bar' asParser trimmingToken name: 'bar').
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	tree := self optimize: parser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	self assert: tree type: PPCSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	self assert: tree children first type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	self assert: tree children second type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	testTrimmingTokenNested
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	\| parser tree foo\|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	foo := 'foo' asParser trimmingToken name: 'foo'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	parser := (foo not, 'bar' asParser) trimmingToken name: 'token'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	tree := self optimize: parser.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	self assert: tree type: PPCTrimmingTokenNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	self assert: tree children second type: PPCRecognizingSequenceNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	self assert: tree children second children first type: PPCNotLiteralNode.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	self assert: tree children second children first isMarkedForInline.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	! !
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 12 May 2015 01:24:03 +0100
changeset 459	4751c407bb40
parent 452	9f4558b3be66
permissions	-rw-r--r--