hg/stx-goodies-xmlsuite: xquery/trunk/XQuery__AstIfExpr.st@5057afe1ec87 (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:#AstIfExpr
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'expr trueExprSingle falseExprSingle'
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	!AstIfExpr 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	expr
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	^ expr
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: / 17-03-2006 / 16:23:00 / 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	expr:something
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	expr := something.
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	"Created: / 17-03-2006 / 16:23:00 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	!
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	falseExprSingle
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	^ falseExprSingle
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	"Created: / 17-03-2006 / 16:23:00 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	falseExprSingle:something
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	falseExprSingle := something.
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	"Created: / 17-03-2006 / 16:23:00 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	trueExprSingle
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	^ trueExprSingle
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	"Created: / 17-03-2006 / 16:23:00 / ked"
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
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	trueExprSingle:something
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	trueExprSingle := something.
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	"Created: / 17-03-2006 / 16:23:00 / ked"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	!AstIfExpr methodsFor:'testing'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	isAstIfExpr
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	^ true
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	"Modified: / 12-10-2006 / 21:57:48 / ked"
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	isUpdatingExpression
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	self children do:
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	[:childNode\|childNode isUpdatingExpression ifTrue:[^true]].
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	^ false.
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	"Created: / 21-11-2007 / 15:02:04 / janfrog"
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	!AstIfExpr 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 visitAstIfExpr: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:11 / 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	!AstIfExpr class methodsFor:'documentation'!
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	version
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__AstIfExpr.st,v 1.2 2007-11-22 21:58:06 vranyj1 Exp $'
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 08 Apr 2008 19:47:42 +0000
changeset 0	5057afe1ec87
child 232	9d8fd28b99b0
permissions	-rw-r--r--