hg/stx-goodies-petitparser: compiler/PPCPlusNode.st@116d2b2af905 (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
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	compileWith: compiler effect: effect id: id
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	compiler startMethod: id.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	compiler addVariable: 'retval'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	compiler addVariable: 'element'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	compiler add: 'retval := OrderedCollection new.'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	compiler add: 'element := '.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	compiler callOnLine: (child compileWith: compiler).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	compiler add: 'error ifTrue: [ ^ self error: ''at least one occurence expected'' ].'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	compiler add: 'retval add: element.'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	compiler add: 'element := '.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	compiler callOnLine: (child compileWith: compiler).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	compiler add: '[ error ] whileFalse: ['.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	compiler indent.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	compiler add: 'retval add: element.'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	compiler add: 'element := '.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	compiler callOnLine: (child compileWith: compiler).
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	compiler dedent.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	compiler add: '].'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	compiler add: 'self clearError.'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	compiler add: '^ retval asArray'.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	^ compiler stopMethod.
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	!
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	41	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	42	\| first \|
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	43	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	44
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	45	first := aFirstDictionary at: self.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	46	(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	47	!
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 392 diff changeset	48
391 553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	prefix
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	^ #plus
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	! !
553a5456963b Ported PetitCompiler-(Tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
422 116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	53	!PPCPlusNode class methodsFor:'documentation'!
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	54
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	55	version_HG
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	56
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	57	^ '$Changeset: <not expanded> $'
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	58	! !
116d2b2af905 To fold Jan Vrany <jan.vrany@fit.cvut.cz> parents: 421 diff changeset	59

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 15 Apr 2015 11:28:09 +0100
changeset 422	116d2b2af905
parent 421	7e08b31e0dae
child 438	20598d7ce9fa
permissions	-rw-r--r--