hg/stx-goodies-xmlsuite: xquery/XQuery__AstDirElemConstructor.st@9696f76605bd (annotated)

0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/xmlsuite/xquery' }"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: XQuery }"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	AstNode subclass:#AstDirElemConstructor
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	6	instanceVariableNames:'dirAttributeList dirElemContent qName'
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'XQuery-AST'
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!AstDirElemConstructor methodsFor:'accessing'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	dirAttributeList
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	16	dirAttributeList isNil ifTrue: [
9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	17	dirAttributeList := OrderedCollection new.
9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	18	].
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	^ dirAttributeList
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	"Created: / 30-06-2006 / 17:49:12 / ked"
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	22	"Modified: / 25-07-2009 / 23:40:39 / Jan Kurs <kursj1@fel.cvut.cz>"
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	dirAttributeList:something
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	dirAttributeList := something.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	"Created: / 30-06-2006 / 17:49:12 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	dirElemContent
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	32	dirElemContent isNil ifTrue: [
9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	33	dirElemContent := OrderedCollection new.
9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	34	].
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	^ dirElemContent
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	"Created: / 30-06-2006 / 17:49:12 / ked"
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	38	"Modified: / 25-07-2009 / 23:40:32 / Jan Kurs <kursj1@fel.cvut.cz>"
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	dirElemContent:something
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	dirElemContent := something.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	"Created: / 30-06-2006 / 17:49:12 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	47	qName
9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	48	^ qName
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	50	"Created: / 25-07-2009 / 23:37:04 / Jan Kurs <kursj1@fel.cvut.cz>"
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	53	qName:something
9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	54	qName := something.
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	56	"Created: / 25-07-2009 / 23:37:09 / Jan Kurs <kursj1@fel.cvut.cz>"
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	!AstDirElemConstructor methodsFor:'testing'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	isAstDirElemConstructor
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	^ true
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	"Modified: / 12-10-2006 / 21:57:45 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	!AstDirElemConstructor methodsFor:'visiting'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	acceptVisitor:aVisitor
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	"Double dispatch back to the visitor, passing my type encoded in
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	the selector (visitor pattern)"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	"stub code automatically generated - please change if required"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	^ aVisitor visitAstDirElemConstructor:self
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	"Created: / 06-07-2006 / 19:12:09 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	!AstDirElemConstructor class methodsFor:'documentation'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	82	version_SVN
9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	83	^ '$Id$'
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 25 Jan 2016 16:35:43 +0000
changeset 298	9696f76605bd
parent 296	ea3dbc023c80
permissions	-rw-r--r--