hg/stx-goodies-petitparser: compiler/PPCCodeGenerator.st@9f4558b3be66 (annotated)

438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/compiler' }"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	PPCNodeVisitor subclass:#PPCCodeGenerator
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'compiler'
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitCompiler-Visitors'
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!PPCCodeGenerator class methodsFor:'as yet unclassified'!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	on: aPPCCompiler
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: 438 diff changeset	15	^ self 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: 438 diff changeset	16	compiler: aPPCCompiler;
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	17	yourself
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	! !
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	!PPCCodeGenerator methodsFor:'accessing'!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	compiler: aPPCCompiler
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: 438 diff changeset	23	compiler := aPPCCompiler
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	! !
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	!PPCCodeGenerator methodsFor:'hooks'!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	afterAccept: node retval: retval
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: 438 diff changeset	29	"return the method from compiler"
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	30	^ self stopMethodForNode: node.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	beforeAccept: node
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: 438 diff changeset	34	self startMethodForNode: node
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	closedDetected: node
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: 438 diff changeset	38	^ node isMarkedForInline ifFalse: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	39	self error: 'Should not happen!!'
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	40	]
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	openDetected: node
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: 438 diff changeset	44	^ compiler checkCache: (compiler idFor: node)
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	! !
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	!PPCCodeGenerator methodsFor:'support'!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	addGuard: node
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: 438 diff changeset	50	\| guard firsts id \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	51	(arguments guards not or: [(guard := PPCGuard on: node) makesSense not]) ifTrue: [ ^ self].
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
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: 438 diff changeset	53	id := compiler idFor: node.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	54	firsts := node firstSetWithTokens.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
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: 438 diff changeset	56
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	57	(firsts allSatisfy: [ :e \| e isKindOf: PPCTrimmingTokenNode ]) ifTrue: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	58	"If we start with trimming, we should invoke the whitespace 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: 438 diff changeset	59	self compileTokenWhitespace: firsts anyOne.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	60
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	61	compiler add: 'context atEnd ifTrue: [ ^ self error ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	62	guard id: id, '_guard'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	63	guard compileGuard: compiler.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	64	compiler addOnLine: 'ifFalse: [ ^ self error ].'
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	65	].
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
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: 438 diff changeset	67	(firsts allSatisfy: [ :e \| e isTerminal ]) ifTrue: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	68	compiler add: 'context atEnd ifTrue: [ ^ self error ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	69	guard id: id, '_guard'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	70	guard compileGuard: compiler.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	71	compiler addOnLine: 'ifFalse: [ ^ self error ].'
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	72	].
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	compileTokenWhitespace: node
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: 438 diff changeset	76	compiler add: 'context atWs ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	77	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	78	compiler call: (self visit: node whitespace).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	79	compiler add: 'context setWs.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	80	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	81	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	notCharSetPredicateBody: node
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: 438 diff changeset	85	\| classificationId classification \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	86	self error: 'deprecated.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	87	classification := node extendClassification: node predicate classification.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	88	classificationId := (compiler idFor: classification prefixed: #classification).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	89	compiler addConstant: classification as: classificationId.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	90
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	91	compiler addOnLine: '(', classificationId, ' at: context peek asInteger)'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	92	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	93	compiler add: ' ifTrue: [ self error: '' predicate not expected'' ]'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	94	compiler add: ' ifFalse: [ nil ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	95	compiler dedent.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	notMessagePredicateBody: node
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: 438 diff changeset	99	self error: 'deprecated'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	100	compiler addOnLine: '(context peek ', node message, ')'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	101	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	102	compiler add: ' ifTrue: [ self error: '' predicate not expected'' ]'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	103	compiler add: ' ifFalse: [ nil ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	104	compiler dedent.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	predicateBody: node
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: 438 diff changeset	108	\| tmpId \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	109	self error:'deprecated'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	110	tmpId := (compiler idFor: node predicate prefixed: #predicate).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	111	compiler addConstant: node predicate as: tmpId.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112
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: 438 diff changeset	113	compiler addOnLine: '(context atEnd not and: [ ', tmpId , ' value: context uncheckedPeek])'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	114	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	115	compiler add: 'ifFalse: [ self error: ''predicate not found'' ]'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	116	compiler add: 'ifTrue: [ context next ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	117	compiler dedent.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	retvalVar
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: 438 diff changeset	121	^ compiler currentReturnVariable
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	startMethodForNode:node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	node isMarkedForInline ifTrue:[
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	compiler startInline: (compiler idFor: node).
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	compiler addComment: 'BEGIN inlined code of ' , node printString.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	compiler indent.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	] ifFalse:[
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	compiler startMethod: (compiler idFor: node).
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	compiler addComment: 'GENERATED by ' , node printString.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	compiler allocateReturnVariable.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	].
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	"Created: / 23-04-2015 / 15:51:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	"Modified: / 23-04-2015 / 19:13:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	"Modified (comment): / 23-04-2015 / 21:31:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	stopMethodForNode:aPPCNode
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	^ aPPCNode isMarkedForInline ifTrue:[
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	compiler dedent.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	compiler add: '"END inlined code of ' , aPPCNode printString , '"'.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	compiler stopInline.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	] ifFalse:[
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	compiler stopMethod
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	].
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	"Created: / 23-04-2015 / 15:51:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	"Modified: / 23-04-2015 / 18:35:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	! !
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	!PPCCodeGenerator methodsFor:'traversing - caching'!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	cache: node value: retval
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: 438 diff changeset	156	"this is compiler thing, not mine"
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	cachedDetected: node
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: 438 diff changeset	160	^ compiler checkCache: (compiler idFor: node)
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	isCached: node
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: 438 diff changeset	164	^ (compiler checkCache: (compiler idFor: node)) isNil not
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	! !
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	!PPCCodeGenerator methodsFor:'visiting'!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	visitActionNode: node
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: 438 diff changeset	170	\| blockId \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 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: 438 diff changeset	172	blockId := 'block_', (compiler idFor: node).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	173	compiler addConstant: node block as: blockId.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174
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: 438 diff changeset	175	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	176	compiler add: 'error ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	177	compiler codeReturn: blockId, ' value: ', self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	178	compiler add: '] ifTrue: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	179	compiler codeReturn: 'failure'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	180	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	"Modified: / 23-04-2015 / 15:59:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	visitAndNode: node
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: 438 diff changeset	186	\| mementoVar \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	187
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	188	mementoVar := compiler allocateTemporaryVariableNamed: 'memento'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	189	compiler smartRemember: node child to: mementoVar.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
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: 438 diff changeset	191	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	192	compiler smartRestore: node child from: mementoVar.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193
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: 438 diff changeset	194	compiler codeReturn.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	"Modified: / 23-04-2015 / 15:59:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	visitAnyNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200
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: 438 diff changeset	201	compiler codeReturn: 'context next ifNil: [ error := true. ].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	"Modified: / 23-04-2015 / 20:52:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	visitCharSetPredicateNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207
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: 438 diff changeset	208	\| classification classificationId \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	209	classification := node extendClassification: node predicate classification.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	210	classificationId := compiler idFor: classification prefixed: #classification.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	211	compiler addConstant: classification as: classificationId.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	212
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	213	compiler add: '(', classificationId, ' at: context peek asInteger)'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	214	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	215	compiler add: 'ifFalse: [ self error: ''predicate not found'' ]'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	216	compiler add: 'ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	217	compiler codeReturn: 'context next'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	218	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	219	compiler dedent.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	visitCharacterNode: node
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: 438 diff changeset	223	\| chid \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	224	node character ppcPrintable ifTrue: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	225	chid := node character storeString
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	226	] ifFalse: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	227	chid := compiler idFor: node character prefixed: #char.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	228	compiler addConstant: (Character value: node character asInteger) as: chid .
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	229	].
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	230
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	231	compiler add: '(context peek == ', chid, ')'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	232	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	233	compiler add: 'ifFalse: [ self error: ''', node character asInteger asString, ' expected'' at: context position ] '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	234	compiler add: 'ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	235	compiler codeReturn: 'context next'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	236	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	237	compiler dedent.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	visitChild: child of: node
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: 438 diff changeset	241	\| \|
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242
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: 438 diff changeset	243	(self isOpen: child) ifTrue: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	244	"already processing..."
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	245	^ nil
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	246	].
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247
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: 438 diff changeset	248	"TODO JK: this is is wrong,.. to tired now to fix this :("
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	" (self isCached: child) ifTrue: [
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: 438 diff changeset	250	node replace: child with: (self cachedValue: child).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	251	^ nil
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	252	].
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	"
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: 438 diff changeset	254	^ self visit: child.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	visitChoiceNode: node
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: 438 diff changeset	258	\| firsts guard whitespaceConsumed elementVar \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	259	"The code is not ready for inlining"
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	260	self assert: node isMarkedForInline 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: 438 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: 438 diff changeset	262	whitespaceConsumed := 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: 438 diff changeset	263	firsts := node firstSetWithTokens.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265
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: 438 diff changeset	266	elementVar := compiler allocateTemporaryVariableNamed: 'element'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	267	"
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	268	If we want to compile in guard and the choice starts with trimming 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: 438 diff changeset	269	we should invoke the whitespace 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: 438 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: 438 diff changeset	271	(arguments guards and: [ firsts allSatisfy: [ :e \| e isTrimmingTokenNode ] ]) ifTrue: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	272	self compileTokenWhitespace: firsts anyOne.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	273	whitespaceConsumed := true.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	274	].
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275
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: 438 diff changeset	276	1 to: node children size do: [ :idx \| \|child allowGuard \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	277	child := node children at: idx.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	278	allowGuard := whitespaceConsumed.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279
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: 438 diff changeset	280	(allowGuard and: [arguments guards and: [ (guard := PPCGuard on: child) makesSense ]]) ifTrue: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	281	guard id: (compiler idFor: guard prefixed: #guard).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	282	guard compileGuard: compiler.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	283	compiler add: ' ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	284	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	285	compiler add: 'self clearError.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	286	compiler codeStoreValueOf: [self visit: child] intoVariable: elementVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	287	compiler add: 'error ifFalse: [ ^ element ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	288	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	289	compiler add: ' ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	290	] ifFalse: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	291	compiler add: 'self clearError.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	292	compiler codeStoreValueOf: [self visit: child] intoVariable: elementVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	293	compiler add: 'error ifFalse: [ ^ element ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 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: 438 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: 438 diff changeset	296	compiler add: '^ self error: ''no choice suitable'''.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	"Modified: / 23-04-2015 / 21:40:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301	visitEndOfFileNode: node
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: 438 diff changeset	302	compiler codeReturn: 'context atEnd ifTrue: [ #EOF ] ifFalse: [ self error: ''EOF expected!!'' ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 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: 438 diff changeset	304
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	305	visitEndOfInputNode: node
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	306
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	307	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	308	compiler add: 'context atEnd ifTrue: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	309	compiler codeReturn.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	310	compiler add: '] ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	311	compiler codeError: 'End of input expected'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	312	compiler add: ']'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	visitForwardNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316
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: 438 diff changeset	317	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	318	compiler codeReturn.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	visitLiteralNode: node
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: 438 diff changeset	322	\| positionVar encodedLiteral \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	323	encodedLiteral := node encodeQuotes: node literal.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	324	positionVar := compiler allocateTemporaryVariableNamed: 'position'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325
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: 438 diff changeset	326	compiler codeAssign: 'context position.' to: positionVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	327	compiler add: '((context next: ', node literal size asString, ') = #''', encodedLiteral, ''') ifTrue: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	328	compiler codeReturn: '#''', encodedLiteral, ''' '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	329	compiler add: '] ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	330	compiler add: ' context position: ', positionVar, '.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	331	compiler add: ' self error: ''', encodedLiteral, ' expected'' at: position'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	332	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	visitMessagePredicateNode: node
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: 438 diff changeset	336	compiler add: '(context peek ', node message, ') ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	337	compiler add: ' self error: ''predicate not found'''.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	338	compiler add: '] ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	339	compiler codeReturn: ' context next'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	340	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	"Modified: / 23-04-2015 / 18:39:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	visitNilNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346
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: 438 diff changeset	347	compiler codeReturn: 'nil.'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	visitNotCharSetPredicateNode: node
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: 438 diff changeset	351	\| classificationId classification \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	352	classification := node extendClassification: node predicate classification.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	353	classificationId := (compiler idFor: classification prefixed: #classification).
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	354	compiler addConstant: classification as: classificationId.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	355
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	356	compiler addOnLine: '(', classificationId, ' at: context peek asInteger)'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	357	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	358	compiler add: ' ifTrue: [ self error: '' predicate not expected'' ]'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	359	compiler add: ' ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	360	compiler codeReturn: 'nil'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	361	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	362	compiler dedent.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	visitNotLiteralNode: node
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: 438 diff changeset	366	\| encodedLiteral size \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	367	encodedLiteral := node encodeQuotes: node literal.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	368	size := node literal size asString.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	369
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	370	compiler add: '((context peek: ', size, ') =#''', encodedLiteral, ''')'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	371	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	372	compiler add: 'ifTrue: [ self error: ''', encodedLiteral, ' not expected'' ]'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	373	compiler add: 'ifFalse: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	374	compiler codeReturn: 'nil' .
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	375	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	376	compiler dedent.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	visitNotMessagePredicateNode: node
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: 438 diff changeset	380	compiler addOnLine: '(context peek ', node message, ')'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	381	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	382	compiler add: ' ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	383	compiler codeError: 'predicate not expected'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	384	compiler add: '] ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	385	compiler codeReturn: 'nil'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	386	compiler add: ' ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	387	compiler dedent.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	visitNotNode: node
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: 438 diff changeset	391	\| mementoVar \|
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392
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: 438 diff changeset	393	mementoVar := compiler allocateTemporaryVariableNamed: 'memento'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	394	compiler smartRemember: node child to: mementoVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	395
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	396	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: #whatever.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	397	compiler smartRestore: node child from: mementoVar.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398
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: 438 diff changeset	399	compiler add: '^ error ifFalse: [ self error ] ifTrue: [ self clearError. nil ]'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	visitOptionalNode: node
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: 438 diff changeset	403	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	404	compiler add: 'error ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	405	compiler add: ' self clearError. '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	406	compiler codeAssign: 'nil.' to: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	407	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	408	compiler codeReturn.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	visitPluggableNode: node
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: 438 diff changeset	412	\| blockId \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	413	blockId := compiler idFor: node block prefixed: #block.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	414
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	415	compiler addConstant: node block as: blockId.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	416	compiler codeReturn: blockId, ' value: context.'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	visitPlusNode: node
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: 438 diff changeset	420	\| elementVar \|
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421
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: 438 diff changeset	422	elementVar := compiler allocateTemporaryVariableNamed: 'element'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423
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: 438 diff changeset	424	compiler codeAssign: 'OrderedCollection new.' to: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	425	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: elementVar.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426
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: 438 diff changeset	427	compiler add: 'error ifTrue: [ self error: ''at least one occurence expected'' ] ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	428	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	429	compiler add: self retvalVar , ' add: ',elementVar , '.'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430
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: 438 diff changeset	431	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: elementVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	432	compiler add: '[ error ] whileFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	433	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	434	compiler add: self retvalVar , ' add: ',elementVar , '.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	435	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: elementVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	436	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	437	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	438	compiler add: 'self clearError.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	439	compiler codeReturn: self retvalVar , ' asArray.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	440	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	441	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	"Modified (comment): / 23-04-2015 / 21:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	visitPredicateNode: node
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: 438 diff changeset	447	\| pid \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	448	pid := (compiler idFor: node predicate prefixed: #predicate).
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449
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: 438 diff changeset	450	compiler addConstant: node predicate as: pid.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451
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: 438 diff changeset	452	compiler add: '(context atEnd not and: [ ', pid , ' value: context uncheckedPeek])'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	453	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	454	compiler add: 'ifFalse: [ self error: ''predicate not found'' ]'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	455	compiler add: 'ifTrue: [ ', self retvalVar ,' := context next ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	456	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	457	compiler codeReturn.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459	"Modified: / 23-04-2015 / 21:48:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461
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: 438 diff changeset	462	visitRecognizingSequenceNode: node
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	463	\| mementoVar \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	464
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	465	mementoVar := compiler allocateTemporaryVariableNamed: 'memento'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	466	compiler smartRemember: node to: mementoVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	467
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	468	" self addGuard: compiler."
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	469
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	470	compiler codeStoreValueOf: [ self visit: (node children at: 1) ] intoVariable: #whatever.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	471	compiler add: 'error ifTrue: [ ^ failure ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	472
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	473	2 to: (node children size) do: [ :idx \| \|child\|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	474	child := node children at: idx.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	475	compiler codeStoreValueOf: [ self visit: child ] intoVariable: #whatever.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	476	compiler add: 'error ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	477	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	478	compiler smartRestore: node from: mementoVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	479	compiler add: ' ^ failure .'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	480	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	481	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	482	].
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	483	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	484
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	visitSequenceNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486
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: 438 diff changeset	487	\| elementVar mementoVar \|
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488
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: 438 diff changeset	489	elementVar := compiler allocateTemporaryVariableNamed: 'element'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	490	mementoVar := compiler allocateTemporaryVariableNamed: 'memento'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491
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: 438 diff changeset	492	compiler smartRemember: node to: mementoVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	493	compiler codeAssign: 'Array new: ', node children size asString, '.' to: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	494	self addGuard: node.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495
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: 438 diff changeset	496	1 to: (node children size) do: [ :idx \| \|child\|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	497	child := node children at: idx.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	498	compiler codeStoreValueOf: [ self visit: child ] intoVariable: elementVar.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499
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: 438 diff changeset	500	compiler add: 'error ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	501	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	502	compiler smartRestore: node from: mementoVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	503	compiler add: '^ failure.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	504	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	505	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	506	compiler add: self retvalVar , ' at: ', idx asString, ' put: ',elementVar,'.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	507	].
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	508	compiler codeReturn
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	"Modified: / 23-04-2015 / 22:03:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	visitStarAnyNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514
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: 438 diff changeset	515	compiler addVariable: 'retval size'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	516	compiler add: 'size := context size - context position.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	517	compiler add: 'retval := Array new: size.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	518	compiler add: '(1 to: size) do: [ :e \| retval at: e put: context next ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	519	compiler add: '^ retval'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	520
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	visitStarCharSetPredicateNode: node
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: 438 diff changeset	524	\| classification classificationId \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	525
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526
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: 438 diff changeset	527	classification := node extendClassification: node predicate classification.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	528	classificationId := compiler idFor: classification prefixed: #classification.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	529	compiler addConstant: classification as: classificationId.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	530
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	531	compiler codeAssign: 'OrderedCollection new.' to: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	532	compiler add: '[ ', classificationId, ' at: context peek asInteger ] whileTrue: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	533	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	534	compiler add: self retvalVar, ' add: context next.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	535	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	536	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537	compiler codeReturn: 'retval asArray'.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	visitStarMessagePredicateNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541
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: 438 diff changeset	542	compiler codeAssign: 'OrderedCollection new.' to: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	543	compiler add: '[ context peek ', node message, ' ] whileTrue: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	544	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	545	compiler add: self retvalVar, ' add: context next.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	546	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	547	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	compiler codeReturn: 'retval asArray'.
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	visitStarNode: node
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: 438 diff changeset	552	\| elementVar \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	553
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	554	elementVar := compiler allocateTemporaryVariableNamed: 'element'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555
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: 438 diff changeset	556	compiler codeAssign: 'OrderedCollection new.' to: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	557	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: elementVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	558	compiler add: '[ error ] whileFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	559	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	560	compiler add: self retvalVar, ' add: ', elementVar, '.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	561	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: elementVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	562	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	563	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	564	compiler codeClearError.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	565	compiler codeReturn: self retvalVar, ' asArray.'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568	visitSymbolActionNode: node
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: 438 diff changeset	569	\| elementVar \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	570
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	571	elementVar := compiler allocateTemporaryVariableNamed: 'element'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	572	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: elementVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	573	compiler add: 'error ifFalse: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	574	compiler codeReturn: elementVar, ' ', node block asString, '.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	575	compiler add: '] ifTrue: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	576	compiler codeReturn: 'failure'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	577	compiler add: ']'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	visitTokenActionNode: node
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: 438 diff changeset	581	"
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	582	Actually, do nothing, we are in Token mode and the
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	583	child does not return any result and token takes only
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	584	the input value.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	585	"
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586
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: 438 diff changeset	587	compiler add: '^ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	588	compiler callOnLine: (node child compileWith: compiler).
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	visitTokenNode: node
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: 438 diff changeset	592	\| startVar endVar \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	593	startVar := compiler allocateTemporaryVariableNamed: 'start'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	594	endVar := compiler allocateTemporaryVariableNamed: 'end'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	595
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	596	compiler codeAssign: 'context position + 1.' to: startVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	597	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: #whatever.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	598	compiler add: 'error ifFalse: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	599	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	600	compiler codeAssign: 'context position.' to: endVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	601
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	602	compiler codeReturn: node tokenClass asString, ' on: (context collection)
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	603	start: ', startVar, '
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	604	stop: ', endVar, '
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	605	value: nil.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	606	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	607	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610	visitTokenStarMessagePredicateNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611
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: 438 diff changeset	612	compiler add: '[ context peek ', node message,' ] whileTrue: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	613	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	614	compiler add: 'context next'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	615	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	616	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	617	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620	visitTokenStarSeparatorNode: node
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621
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: 438 diff changeset	622	compiler add: 'context skipSeparators.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	623	!
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	624
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	625	visitTokenWhitespaceNode: node
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	626	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: #whatever.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	627	compiler codeReturn.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	visitTrimNode: node
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: 438 diff changeset	631	\| mementoVar \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	632	"TODO: This ignores the TrimmingParser trimmer object!!"
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633
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: 438 diff changeset	634	mementoVar := compiler allocateTemporaryVariableNamed: 'memento'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635
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: 438 diff changeset	636	compiler smartRemember: node child to: mementoVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	637	compiler add: 'context skipSeparators.'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638
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: 438 diff changeset	639	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: self retvalVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	640
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	641	compiler add: 'error ifTrue: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	642	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	643	compiler smartRestore: node child from: mementoVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	644	compiler codeReturn.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	645	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	646	compiler add: '] ifFalse: [' .
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	647	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	648	compiler add: 'context skipSeparators.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	649	compiler codeReturn.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	650	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	651	compiler add: '].'.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	652	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	653
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	654	visitTrimmingTokenNode: node
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: 438 diff changeset	655	\| id guard startVar endVar \|
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656
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: 438 diff changeset	657	startVar := compiler allocateTemporaryVariableNamed: 'start'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	658	endVar := compiler allocateTemporaryVariableNamed: 'end'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	659
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	660	id := compiler idFor: node.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661	" (id beginsWith: 'kw') ifTrue: [ self halt. ]."
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: 438 diff changeset	662	"self compileFirstWhitespace: compiler."
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	663	self compileTokenWhitespace: node.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	664
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	665	(arguments guards and: [(guard := PPCGuard on: node) makesSense]) ifTrue: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	666	guard id: id, '_guard'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	667	compiler add: 'context atEnd ifTrue: [ self error ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	668	guard compileGuard: compiler.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	669	compiler addOnLine: 'ifFalse: [ self error ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	670	compiler add: 'error ifFalse: ['.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	671	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	672	].
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673
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: 438 diff changeset	674	compiler codeAssign: 'context position + 1.' to: startVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	675	compiler codeStoreValueOf: [ self visit: node child ] intoVariable: #whatever.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	676
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	677	(arguments guards and: [(guard := PPCGuard on: node) makesSense]) ifTrue: [
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	678	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	679	compiler add: '].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	680	].
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681
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: 438 diff changeset	682	compiler add: 'error ifFalse: [ '.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	683	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	684	compiler codeAssign: 'context position.' to: endVar.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	685
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686	" self compileSecondWhitespace: compiler."
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: 438 diff changeset	687	self compileTokenWhitespace: node.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	688
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: 438 diff changeset	689	compiler codeReturn: node tokenClass asString, ' on: (context collection)
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	690	start: ', startVar, '
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	691	stop: ', endVar, '
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	692	value: nil'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	693	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	694	compiler add: '].'
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695	!
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	696
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	697	visitUnknownNode: node
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: 438 diff changeset	698	\| compiledChild compiledParser id \|
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	699
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: 438 diff changeset	700	id := compiler idFor: node.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	701
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	702	compiledParser := node parser copy.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	703	"Compile all the children and call compiled version of them instead of the original one"
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	704	compiledParser children do: [ :child \|
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	705	compiledChild := self visit: child.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	706	compiledParser replace: child with: compiledChild bridge.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	707	].
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	708
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	709	compiler addConstant: compiledParser as: id.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	710
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	711	compiler codeClearError.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	712	compiler add: '(', self retvalVar, ' := ', id, ' parseOn: context) isPetitFailure'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	713	compiler indent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	714	compiler add: ' ifTrue: [self error: retval message at: ', self retvalVar, ' position ].'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	715	compiler dedent.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	716	compiler add: 'error := ', self retvalVar, ' isPetitFailure.'.
9f4558b3be66 Updated to PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 438 diff changeset	717	compiler codeReturn.
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	718	! !
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 10 May 2015 06:28:36 +0100
changeset 452	9f4558b3be66
parent 438	20598d7ce9fa
child 453	bd5107faf4d6
child 459	4751c407bb40
permissions	-rw-r--r--