hg/stx-goodies-xmlsuite: xquery/XQuery__AstLetClause.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:#AstLetClause
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'varName exprSingle letClause'
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	!AstLetClause 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	exprSingle
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	^ exprSingle
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	"Created: / 10-03-2006 / 19:57:14 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	!
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	exprSingle:something
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	something ensureIsNotUpdatingExpression.
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	exprSingle := something.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	"Created: / 10-03-2006 / 19:57:14 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	"Modified: / 21-11-2007 / 15:49:28 / janfrog"
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	letClause
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	^ letClause
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	"Created: / 10-03-2006 / 19:57:14 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!
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	letClause:something
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	letClause := something.
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	"Created: / 10-03-2006 / 19:57:14 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	varName
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	^ varName
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	"Created: / 10-03-2006 / 19:57:14 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	varName:something
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	varName := something.
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	"Created: / 10-03-2006 / 19:57:14 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	!AstLetClause methodsFor:'private'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	forLetClausesOn: aStream
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	aStream nextPut:
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	(AstFLWORExpr_ForLet new
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	letClause: self)
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	"Created: / 28-03-2007 / 18:17:05 / janfrog"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	!
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	letClausesOn: aStream
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	aStream nextPut: self.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	letClause ifNotNil:[letClause letClausesOn: aStream]
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	"Created: / 28-03-2007 / 19:35:00 / janfrog"
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
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	!AstLetClause methodsFor:'testing'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	isAstLetClause
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	^ true
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	"Modified: / 12-10-2006 / 21:57:45 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	!AstLetClause methodsFor:'visiting'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	acceptVisitor:aVisitor
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	"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	86	the selector (visitor pattern)"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	"stub code automatically generated - please change if required"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	^ aVisitor visitAstLetClause:self
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	"Created: / 06-07-2006 / 19:12:11 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	!AstLetClause class methodsFor:'documentation'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
232 9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	97	version_SVN
9d8fd28b99b0 branch datatypes reintegrated Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	98	^ '$Id$'
0 5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	! !

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--