hg/stx-goodies-petitparser: compiler/PPCPlusNode.st@20598d7ce9fa (annotated)

391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/compiler' }"
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
422 116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	3	"{ NameSpace: Smalltalk }"
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	4
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	PPCDelegateNode subclass:#PPCPlusNode
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitCompiler-Nodes'
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
422 116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	12
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!PPCPlusNode methodsFor:'as yet unclassified'!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	15	followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	16	\| first \|
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	17	super followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	18
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	19	first := aFirstDictionary at: self.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	20	(aFollowDictionary at: child) addAll: (first reject: [:each \| each isNullable])
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	21	!
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	22
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	prefix
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	^ #plus
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	! !
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
438 20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 422 diff changeset	27	!PPCPlusNode 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: 422 diff changeset	28
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 422 diff changeset	29	accept: visitor
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 422 diff changeset	30	^ visitor visitPlusNode: self
20598d7ce9fa Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 422 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: 422 diff changeset	32
422 116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	33	!PPCPlusNode class methodsFor:'documentation'!
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	34
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	35	version_HG
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	36
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	37	^ '$Changeset: <not expanded> $'
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	38	! !
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	39

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 30 Apr 2015 23:43:14 +0200
changeset 438	20598d7ce9fa
parent 422	116d2b2af905
child 452	9f4558b3be66
permissions	-rw-r--r--