cgi2dom.tcl

Go to the documentation of this file.

/*  cgi2dom.tcl --*/
/* */
/*  Turns CGI parameters into a DOM document*/
/* */
/*  Copyright (c) 2000-2002 Zveno Pty Ltd*/
/* */
/*  See the file "LICENSE" in this distribution for information on usage and*/
/*  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.*/
/* */
/*  $Id: cgi2dom.tcl,v 1.4 2003/12/09 04:56:40 balls Exp $*/

package require dom 2.5
package require xpath

package provide cgi2dom 1.1

namespace cgi2dom {
    namespace export createdocument
}

/*  cgi2dom::createdocument --*/
/* */
/*  Construct a DOM document from XPath locations paths.*/
/* */
/*  Arguments:*/
/*  specs   List of XPath location path specifications*/
/*      given as location-path/cdata pairs*/
/* */
/*  Results:*/
/*  Returns token for new DOM document*/

ret  cgi2dom::createdocument specs (
    type set , type doc [, type dom::, type DOMImplementation , type create]

    , type foreach , optional path =value $, type specs , optional 
    if ={![string match =/* $path] , type continue

    , type set , type node [, type dom::, type DOMImplementation , type createNode $, type doc $, type path]
    , type if , optional [string =length $value] , optional 
        switch =[dom::node cget =$node -nodeType] ={
        element ={
            dom::document =createTextNode $node =$value
        
        , type textNode , optional 
            dom::node =configure $node =-nodeValue $value
        
        , type default , optional 
        )
    }
    }

    return $doc
}