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

280 d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	1	"{ Package: 'stx:goodies/xmlsuite/xquery' }"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	2
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	3	"{ NameSpace: XQuery }"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	4
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	5	AstNode subclass:#AstTriggerBodyExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	6	instanceVariableNames:'triggerBodyString'
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	7	classVariableNames:''
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	8	poolDictionaries:''
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	9	category:'XQuery-AST'
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	10	!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	11
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	12
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	13	!AstTriggerBodyExpr methodsFor:'accessing'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	14
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	15	triggerBodyString
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	16	^ triggerBodyString
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	17	!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	18
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	19	triggerBodyString:something
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	20	triggerBodyString := something.
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	21	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	22
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	23	!AstTriggerBodyExpr methodsFor:'testing'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	24
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	25	isAstTriggerBodyExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	26	^ true
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	27	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	28
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	29	!AstTriggerBodyExpr methodsFor:'visiting'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	30
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	31	acceptVisitor:aVisitor
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	32	"Double dispatch back to the visitor, passing my type encoded in
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	33	the selector (visitor pattern)"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	34
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	35	"stub code automatically generated - please change if required"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	36
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	37	^ aVisitor visitAstTriggerBodyExpr:self
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	38	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	39
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	40	!AstTriggerBodyExpr class methodsFor:'documentation'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	41
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	42	version_SVN
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	43	^ '$Id$'
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	44	! !

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