hg/stx-goodies-xmlsuite: xquery/XQuery__AstDisconnectTriggerExpr.st@bad21c4f64bf (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:#AstDisconnectTriggerExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	6	instanceVariableNames:'targetExpr'
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	!AstDisconnectTriggerExpr methodsFor:'accessing'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	14
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	15	targetExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	16	^ targetExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	17
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	18	"Created: / 10-04-2012 / 19:28:08 / Adam Senk <senkadam@gmail.com>"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	19	!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	20
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	21	targetExpr:something
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	22	targetExpr := something.
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	23
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	24	"Created: / 10-04-2012 / 19:27:51 / Adam Senk <senkadam@gmail.com>"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	25	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	26
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	27	!AstDisconnectTriggerExpr methodsFor:'testing'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	28
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	29	isAstDisconnectTriggerExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	30	^ true
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	31	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	32
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	33	!AstDisconnectTriggerExpr methodsFor:'visiting'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	34
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	35	acceptVisitor:aVisitor
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	36	"Double dispatch back to the visitor, passing my type encoded in
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	37	the selector (visitor pattern)"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	38
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	39	"stub code automatically generated - please change if required"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	40
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	41	^ aVisitor visitAstDisconnectTriggerExpr:self
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	42	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	43
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	44	!AstDisconnectTriggerExpr class methodsFor:'documentation'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	45
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	46	version_SVN
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	47	^ '$Id$'
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	48	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 02 Jul 2018 08:46:01 +0200
changeset 305	bad21c4f64bf
parent 296	ea3dbc023c80
permissions	-rw-r--r--