--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/xquery/trunk/XQuery__XQueryFuncTable.st	Tue Apr 08 19:47:42 2008 +0000
@@ -0,0 +1,168 @@
+"{ Package: 'stx:goodies/xmlsuite/xquery' }"
+
+"{ NameSpace: XQuery }"
+
+Object subclass:#XQueryFuncTable
+	instanceVariableNames:'table'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'XQuery-Executor'
+!
+
+
+!XQueryFuncTable class methodsFor:'instance creation'!
+
+new
+    ^ self basicNew initialize.
+
+    "Created: / 28-12-2006 / 12:28:13 / janfrog"
+! !
+
+!XQueryFuncTable class methodsFor:'defaults'!
+
+defaultTable
+    "default value for the 'table' instance variable (automatically generated)"
+
+    ^Dictionary new
+        at: 'fn:count' put: XQueryFnCount;
+        at: 'count' put: XQueryFnCount;
+        at: 'fn:empty' put: XQueryFnEmpty;
+        at: 'empty' put: XQueryFnEmpty;
+        at: 'fn:exists' put: XQueryFnExists;
+        at: 'exists' put: XQueryFnExists;
+        at: 'fn:true' put: XQueryFnTrue;
+        at: 'true' put: XQueryFnTrue;
+        at: 'fn:false' put: XQueryFnFalse;
+        at: 'false' put: XQueryFnFalse;
+        at: 'fn:zero-or-one' put: XQueryFnZeroOrOne;
+        at: 'zero-or-one' put: XQueryFnZeroOrOne;
+        at: 'fn:one-or-more' put: XQueryFnOneOrMore;
+        at: 'one-or-more' put: XQueryFnOneOrMore;
+        at: 'fn:exactly-one' put: XQueryFnExactlyOne;
+        at: 'exactly-one' put: XQueryFnExactlyOne;
+        at: 'fn:boolean' put: XQueryFnBoolean;
+        at: 'boolean' put: XQueryFnBoolean;
+        at: 'fn:not' put: XQueryFnNot;
+        at: 'not' put: XQueryFnNot;
+        at: 'fn:position' put: XQueryFnPosition;
+        at: 'position' put: XQueryFnPosition;
+        at: 'fn:last' put: XQueryFnLast;
+        at: 'last' put: XQueryFnLast;
+        at: 'fn:doc' put: XQueryFnDoc;
+        at: 'doc' put: XQueryFnDoc;
+        at: 'fn:sum' put: XQueryFnSum;
+        at: 'sum' put: XQueryFnSum;
+        at: 'fn:avg' put: XQueryFnAvg;
+        at: 'avg' put: XQueryFnAvg;
+        at: 'fn:max' put: XQueryFnMax;
+        at: 'max' put: XQueryFnMax;
+        at: 'fn:min' put: XQueryFnMin;
+        at: 'min' put: XQueryFnMin;
+        at: 'fn:abs' put: XQueryFnAbs;
+        at: 'abs' put: XQueryFnAbs;
+        at: 'fn:ceiling' put: XQueryFnCeiling;
+        at: 'ceiling' put: XQueryFnCeiling;
+        at: 'fn:floor' put: XQueryFnFloor;
+        at: 'floor' put: XQueryFnFloor;
+        at: 'fn:round' put: XQueryFnRound;
+        at: 'round' put: XQueryFnRound;
+        at: 'fn:insert-before' put: XQueryFnInsertBefore;
+        at: 'insert-before' put: XQueryFnInsertBefore;
+        at: 'fn:remove' put: XQueryFnRemove;
+        at: 'remove' put: XQueryFnRemove;
+        at: 'fn:reverse' put: XQueryFnReverse;
+        at: 'reverse' put: XQueryFnReverse;
+        at: 'fn:subsequence' put: XQueryFnSubsequence;
+        at: 'subsequence' put: XQueryFnSubsequence;
+        at: 'fn:distinct-values' put: XQueryFnDistinctValues;
+        at: 'distinct-values' put: XQueryFnDistinctValues;
+        yourself.
+
+    "Created: / 10-11-2006 / 17:18:50 / ked"
+    "Modified: / 02-12-2006 / 13:59:20 / ked"
+! !
+
+!XQueryFuncTable methodsFor:'accessing'!
+
+defineFunction: anXQueryFunction
+
+    (self tableForNamespace: anXQueryFunction namespaceURI)
+        at: anXQueryFunction localName put: anXQueryFunction
+
+    "Created: / 28-12-2006 / 12:28:03 / janfrog"
+!
+
+functionWithNamespaceURI: nsURI localName: localName
+
+    ^(self tableForNamespace: nsURI) at: localName
+
+    "Created: / 28-12-2006 / 12:30:55 / janfrog"
+!
+
+table
+    table isNil ifTrue:[
+        table := self class defaultTable.
+    ].
+    ^ table
+
+    "Created: / 10-11-2006 / 17:18:50 / ked"
+!
+
+table:something
+    table := something.
+
+    "Created: / 10-11-2006 / 17:18:50 / ked"
+! !
+
+!XQueryFuncTable methodsFor:'evaluation'!
+
+evaluate:qName inContext:givenContext withParameters:parametersCollection forInterpreter:interpreter 
+    |function functionName|
+
+    functionName := XMLv2::NodeName 
+                fromString:qName
+                andPrefixToNamespaceURIMapping:interpreter prefixToNamespaceURIMapping
+                defaultNS:interpreter defaultFunctionNamespaceURI.
+    function := self functionWithNamespaceURI:functionName ns
+                localName:functionName localName.
+    function ifNil:[ self error:qName + ' - function not found'. ].
+    ^ function
+        evaluateInContext: givenContext 
+        withParameters:parametersCollection 
+        forInterpreter:interpreter
+
+    "Modified: / 02-12-2006 / 12:20:04 / ked"
+    "Created: / 28-08-2007 / 22:48:21 / janfrog"
+! !
+
+!XQueryFuncTable methodsFor:'initialization'!
+
+initialize
+    "Invoked when a new instance is created."
+
+    "/ please change as required (and remove this comment)
+    "/ table := nil.
+
+    "/ super initialize.   -- commented since inherited method does nothing
+    table := Dictionary new.
+
+    "Created: / 28-12-2006 / 12:28:13 / janfrog"
+! !
+
+!XQueryFuncTable methodsFor:'private'!
+
+tableForNamespace: namespaceURI
+
+
+    ^table 
+        at: namespaceURI
+        ifAbsentPut:[Dictionary new]
+
+    "Created: / 28-12-2006 / 12:29:36 / janfrog"
+! !
+
+!XQueryFuncTable class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__XQueryFuncTable.st,v 1.4 2007-09-21 11:16:45 vranyj1 Exp $'
+! !