hg/stx-goodies-xmlsuite: xquery/XQuery__AstTriggerNameAndTargetExpr.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:#AstTriggerNameAndTargetExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	6	instanceVariableNames:'name targetExpr beforeAfterExpr'
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	!AstTriggerNameAndTargetExpr methodsFor:'accessing'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	14
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	15	beforeAfterExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	16	^ beforeAfterExpr
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	beforeAfterExpr:something
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	20	beforeAfterExpr := 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	name
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	24	^ name
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	name:something
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	28	name := something.
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	29	!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	30
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	31	targetExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	32	^ targetExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	33	!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	34
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	35	targetExpr:something
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	36	targetExpr := something.
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	37	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	38
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	39	!AstTriggerNameAndTargetExpr methodsFor:'testing'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	40
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	41	isAstTriggerNameAndTargetExpr
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	42	^ true
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	43	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	44
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	45	!AstTriggerNameAndTargetExpr methodsFor:'visiting'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	46
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	47	acceptVisitor:aVisitor
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	48	"Double dispatch back to the visitor, passing my type encoded in
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	49	the selector (visitor pattern)"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	50
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	51	"stub code automatically generated - please change if required"
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	52
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	53	^ aVisitor visitAstTriggerNameAndTargetExpr:self
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	54	! !
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	55
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	56	!AstTriggerNameAndTargetExpr class methodsFor:'documentation'!
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	57
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	58	version_SVN
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	59	^ '$Id$'
d85293798c5b New AST Trigger nodes senkadam parents: diff changeset	60	! !

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