"{ Package: 'stx:goodies/xmlsuite/xquery' }"

"{ NameSpace: XQuery }"

Object subclass:#XQueryFuncTable
	instanceVariableNames:'table'
	classVariableNames:''
	poolDictionaries:''
	category:'XQuery-Runtime'
!


!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
        ifAbsent:[ FunctionError raiseErrorString:'function not found' ].

    "Created: / 28-12-2006 / 12:30:55 / janfrog"
    "Modified: / 30-12-2009 / 13:42:35 / Jan Kurs <kursj1@fel.cvut.cz>"
!

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_SVN
    ^ '$Id$'
! !