hg/stx-goodies-xmlsuite: xquery/trunk/XQuery__LibraryFunction.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	XQueryFunction subclass:#LibraryFunction
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'localName functionLibrary'
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-Functions'
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	!LibraryFunction class methodsFor:'utilities'!
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	smalltalkize: localName
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	"transforms distinct-values into disticntValues"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	\| input output minusFound\|
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	input := localName readStream.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	output := (String new: localName size) writeStream.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	minusFound := false.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	[ input atEnd ] whileFalse: [
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	\| c \|
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	c := input next.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	c = $-
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	ifTrue:
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	[minusFound := true]
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	ifFalse:
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	[minusFound
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	ifTrue:
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	[output nextPut:c asUppercase.
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	minusFound := false]
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	ifFalse:
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	[output nextPut:c]]].
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	^output contents
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	self smalltalkize: 'doc'
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	self smalltalkize: 'distinct-values'
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
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	"Created: / 28-08-2007 / 23:35:25 / janfrog"
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
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	!LibraryFunction methodsFor:'accessing'!
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	functionLibrary
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	^ functionLibrary
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: / 28-08-2007 / 23:07:47 / janfrog"
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	smalltalkizedLocalName
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	^self class smalltalkize: localName
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	"Created: / 28-08-2007 / 23:35:44 / janfrog"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	!LibraryFunction methodsFor:'function API'!
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	evaluateInContext:context withParameters: parameters forInterpreter: interpreter
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	^functionLibrary
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	perform:(self smalltalkizedLocalName, 'InContext:withParameters:forInterpreter:') asSymbol
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	with: context
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	with: parameters
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	with: interpreter
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	"Created: / 28-08-2007 / 23:10:46 / janfrog"
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
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	localName
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	^ localName
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	"Created: / 28-08-2007 / 23:07:47 / janfrog"
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
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	namespaceURI
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	^ functionLibrary namespaceURI
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	"Created: / 28-08-2007 / 23:07:47 / janfrog"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	!LibraryFunction methodsFor:'initialization'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	setFunctionLibrary: aFunctionLibrary
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	functionLibrary := aFunctionLibrary
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	"Created: / 28-08-2007 / 22:44:00 / janfrog"
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
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	setLocalName: name
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	localName := name
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	"Created: / 28-08-2007 / 23:08:47 / janfrog"
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	! !
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	!LibraryFunction class methodsFor:'documentation'!
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	version
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__LibraryFunction.st,v 1.2 2007-09-21 11:21:48 vranyj1 Exp $'
5057afe1ec87 Initial import from CVS Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	! !

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