Annotation of parser3/src/classes/xdoc.C, revision 1.64

1.1       parser      1: /** @file
1.2       parser      2:        Parser: @b xdoc parser class.
1.1       parser      3: 
                      4:        Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
1.43      paf         5:        Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
1.1       parser      6: 
1.64    ! paf         7:        $Id: xdoc.C,v 1.63 2002/01/15 16:02:42 paf Exp $
1.1       parser      8: */
1.30      parser      9: #include "pa_types.h"
1.1       parser     10: #ifdef XML
                     11: 
1.59      paf        12: #include "pa_stylesheet_connection.h"
                     13: #include "classes.h"
1.1       parser     14: #include "pa_request.h"
                     15: #include "pa_vxdoc.h"
1.53      paf        16: #include "pa_charset.h"
1.1       parser     17: #include "pa_vfile.h"
                     18: #include "xnode.h"
                     19: 
1.59      paf        20: extern "C" {
                     21: #include "gdomecore/gdome-xml-node.h"
                     22: #include "gdomecore/gdome-xml-document.h"
                     23: };
                     24: #include "libxslt/transform.h"
1.61      paf        25: #include "libxslt/xsltutils.h"
1.59      paf        26: 
1.1       parser     27: // defines
                     28: 
                     29: #define XDOC_CLASS_NAME "xdoc"
                     30: 
                     31: #define XDOC_OUTPUT_METHOD_OPTION_NAME "method"
                     32: #define XDOC_OUTPUT_METHOD_OPTION_VALUE_XML "xml"
                     33: #define XDOC_OUTPUT_METHOD_OPTION_VALUE_HTML "html"
                     34: #define XDOC_OUTPUT_METHOD_OPTION_VALUE_TEXT "text"
                     35: 
                     36: // class
                     37: 
                     38: class MXdoc : public MXnode {
                     39: public: // VStateless_class
1.54      paf        40:        Value *create_new_value(Pool& pool) { return new(pool) VXdoc(pool, 0); }
1.1       parser     41: 
                     42: public:
                     43:        MXdoc(Pool& pool);
                     44: 
                     45: public: // Methoded
                     46:        bool used_directly() { return true; }
1.5       parser     47:        void configure_admin(Request& r);
1.1       parser     48: };
                     49: 
1.61      paf        50: // helper classes
                     51: 
                     52: class xmlOutputBuffer_auto_ptr {
                     53: public:
                     54:        explicit xmlOutputBuffer_auto_ptr(xmlOutputBuffer *_P = 0) 
                     55:                : _Owns(_P != 0), _Ptr(_P) {}
                     56:        xmlOutputBuffer_auto_ptr(const xmlOutputBuffer_auto_ptr& _Y) 
                     57:                : _Owns(_Y._Owns), _Ptr(_Y.release()) {}
                     58:        xmlOutputBuffer_auto_ptr& operator=(const xmlOutputBuffer_auto_ptr& _Y) 
                     59:                {if (this != &_Y)
                     60:                        {if (_Ptr != _Y.get())
                     61:                                {if (_Owns && _Ptr)
                     62:                                        xmlOutputBufferClose(_Ptr);
                     63:                                _Owns = _Y._Owns; }
                     64:                        else if (_Y._Owns)
                     65:                                _Owns = true;
                     66:                        _Ptr = _Y.release(); }
                     67:                return (*this); }
                     68:        ~xmlOutputBuffer_auto_ptr()
                     69:                {if (_Owns && _Ptr)
                     70:                        xmlOutputBufferClose(_Ptr); }
                     71:        xmlOutputBuffer& operator*() const 
                     72:                {return (*get()); }
                     73:        xmlOutputBuffer *operator->() const 
                     74:                {return (get()); }
                     75:        xmlOutputBuffer *get() const 
                     76:                {return (_Ptr); }
                     77:        xmlOutputBuffer *release() const 
                     78:                {((xmlOutputBuffer_auto_ptr *)this)->_Owns = false;
                     79:                return (_Ptr); }
                     80: private:
                     81:        bool _Owns;
                     82:        xmlOutputBuffer *_Ptr;
                     83: };
                     84: 
                     85: 
                     86: 
1.1       parser     87: // methods
                     88: 
1.54      paf        89: static void writeNode(Request& r,  const String& method_name, GdomeNode *node, 
                     90:                                          GdomeException exc) {
                     91:        if(!node || exc)
                     92:                throw Exception(0, 0, 
                     93:                        &method_name, 
                     94:                        exc);
                     95: 
                     96:        Pool& pool=r.pool();
                     97: 
                     98:        // write out result
                     99:        VXnode& result=*new(pool) VXnode(pool, node);
                    100:        r.write_no_lang(result);
                    101: }
                    102: 
1.16      parser    103: // Element createElement(in DOMString tagName) raises(DOMException);
                    104: static void _createElement(Request& r, const String& method_name, MethodParams *params) {
                    105:        Pool& pool=r.pool();
                    106:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    107: 
1.39      paf       108:        const String& tagName=params->as_string(0, "tagName must be string");
1.16      parser    109: 
1.54      paf       110:        GdomeException exc;
                    111:        GdomeNode *node=
                    112:                (GdomeNode *)gdome_doc_createElement(vdoc.get_document(&method_name), 
1.57      paf       113:                pool.transcode(tagName).get(),
1.54      paf       114:                &exc);
                    115:        writeNode(r, method_name, node, exc);
1.16      parser    116: }
                    117: 
                    118: // DocumentFragment createDocumentFragment()
1.26      parser    119: static void _createDocumentFragment(Request& r, const String& method_name, MethodParams *) {
1.16      parser    120:        Pool& pool=r.pool();
                    121:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    122: 
1.54      paf       123:        GdomeException exc;
                    124:        GdomeNode *node=
                    125:                (GdomeNode *)gdome_doc_createDocumentFragment(
                    126:                vdoc.get_document(&method_name),
                    127:                &exc);
                    128:        writeNode(r, method_name, node, exc);
1.16      parser    129: }
                    130: 
                    131: // Text createTextNode(in DOMString data);
                    132: static void _createTextNode(Request& r, const String& method_name, MethodParams *params) {
                    133:        Pool& pool=r.pool();
                    134:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    135: 
1.40      paf       136:        const String& data=params->as_string(0, "data must be string");
1.16      parser    137: 
1.54      paf       138:        GdomeException exc;
                    139:        GdomeNode *node=(GdomeNode *)gdome_doc_createTextNode(
                    140:                vdoc.get_document(&method_name),
1.57      paf       141:                pool.transcode(data).get(),
1.54      paf       142:                &exc);
                    143:        writeNode(r, method_name, node, exc);
1.16      parser    144: }
                    145: 
                    146: // Comment createComment(in DOMString data)
                    147: static void _createComment(Request& r, const String& method_name, MethodParams *params) {
                    148:        Pool& pool=r.pool();
                    149:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    150: 
1.26      parser    151:        const String& data=params->as_string(0, "data must be string");
1.16      parser    152: 
1.54      paf       153:        GdomeException exc;
                    154:        GdomeNode *node=(GdomeNode *)gdome_doc_createComment(
                    155:                vdoc.get_document(&method_name),
1.57      paf       156:                pool.transcode(data).get(),
1.54      paf       157:                &exc);
                    158:        writeNode(r, method_name, node, exc);
1.16      parser    159: }
                    160: 
                    161: // CDATASection createCDATASection(in DOMString data) raises(DOMException);
                    162: static void _createCDATASection(Request& r, const String& method_name, MethodParams *params) {
                    163:        Pool& pool=r.pool();
                    164:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    165: 
1.26      parser    166:        const String& data=params->as_string(0, "data must be string");
1.16      parser    167: 
1.54      paf       168:        GdomeException exc;
                    169:        GdomeNode *node=(GdomeNode *)gdome_doc_createCDATASection(
                    170:                vdoc.get_document(&method_name),
1.57      paf       171:                pool.transcode(data).get(),
1.54      paf       172:                &exc);
                    173:        writeNode(r, method_name, node, exc);
1.16      parser    174: }
                    175: 
                    176: // ProcessingInstruction createProcessingInstruction(in DOMString target,in DOMString data) raises(DOMException);
                    177: static void _createProcessingInstruction(Request& r, const String& method_name, MethodParams *params) {
                    178:        Pool& pool=r.pool();
                    179:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    180: 
1.26      parser    181:        const String& target=params->as_string(0, "data must be string");
                    182:        const String& data=params->as_string(1, "data must be string");
1.16      parser    183: 
1.54      paf       184:        GdomeException exc;
                    185:        GdomeNode *node=(GdomeNode *)gdome_doc_createProcessingInstruction(
                    186:                vdoc.get_document(&method_name),
1.57      paf       187:                pool.transcode(target).get(), 
                    188:                pool.transcode(data).get(),
1.54      paf       189:                &exc);
                    190:        writeNode(r, method_name, node, exc);
1.16      parser    191: }
                    192: 
                    193: // Attr createAttribute(in DOMString name) raises(DOMException);
                    194: static void _createAttribute(Request& r, const String& method_name, MethodParams *params) {
                    195:        Pool& pool=r.pool();
                    196:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    197: 
1.26      parser    198:        const String& name=params->as_string(0, "name must be string");
1.16      parser    199: 
1.54      paf       200:        GdomeException exc;
                    201:        GdomeNode *node=(GdomeNode *)gdome_doc_createAttribute(
                    202:                vdoc.get_document(&method_name),
1.57      paf       203:                pool.transcode(name).get(),
1.54      paf       204:                &exc);
                    205:        writeNode(r, method_name, node, exc);
1.16      parser    206: }
                    207: // EntityReference createEntityReference(in DOMString name) raises(DOMException);
                    208: static void _createEntityReference(Request& r, const String& method_name, MethodParams *params) {
                    209:        Pool& pool=r.pool();
                    210:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    211: 
1.26      parser    212:        const String& name=params->as_string(0, "name must be string");
1.16      parser    213: 
1.54      paf       214:        GdomeException exc;
                    215:        GdomeNode *node=(GdomeNode *)gdome_doc_createEntityReference(
                    216:                vdoc.get_document(&method_name),
1.57      paf       217:                pool.transcode(name).get(),
1.54      paf       218:                &exc);
                    219:        writeNode(r, method_name, node, exc);
1.16      parser    220: }
                    221: 
                    222: static void _getElementsByTagName(Request& r, const String& method_name, MethodParams *params) {
                    223:        Pool& pool=r.pool();
                    224:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    225: 
1.54      paf       226:        const String& name=params->as_string(0, "name must be string");
1.16      parser    227: 
1.54      paf       228:        GdomeException exc;
1.16      parser    229:        VHash& result=*new(pool) VHash(pool);
1.54      paf       230:        if(GdomeNodeList *nodes=
                    231:                gdome_doc_getElementsByTagName(
                    232:                        vdoc.get_document(&method_name), 
1.57      paf       233:                        pool.transcode(name).get(),
1.54      paf       234:                        &exc)) {
                    235:                gulong length=gdome_nl_length(nodes, &exc);
                    236:                for(gulong i=0; i<length; i++) {
1.16      parser    237:                        String& skey=*new(pool) String(pool);
                    238:                        {
                    239:                                char *buf=(char *)pool.malloc(MAX_NUMBER);
                    240:                                snprintf(buf, MAX_NUMBER, "%d", i);
                    241:                                skey << buf;
                    242:                        }
                    243: 
1.54      paf       244:                        result.hash(0).put(skey, new(pool) VXnode(pool, gdome_nl_item(nodes, i, &exc)));
1.16      parser    245:                }
                    246:        }
                    247: 
                    248:        // write out result
                    249:        r.write_no_lang(result);
                    250: }
                    251: 
                    252: static void _getElementsByTagNameNS(Request& r, const String& method_name, MethodParams *params) {
                    253:        Pool& pool=r.pool();
                    254:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    255: 
                    256:        // namespaceURI;localName
1.54      paf       257:        const String& namespaceURI=params->as_string(0, "namespaceURI must be string");
                    258:        const String& localName=params->as_string(0, "localName must be string");
1.16      parser    259: 
1.54      paf       260:        GdomeException exc;
1.16      parser    261:        VHash& result=*new(pool) VHash(pool);
1.54      paf       262:        if(GdomeNodeList *nodes=
                    263:                gdome_doc_getElementsByTagNameNS(
                    264:                        vdoc.get_document(&method_name), 
1.57      paf       265:                        pool.transcode(namespaceURI).get(),
                    266:                        pool.transcode(localName).get(),
1.54      paf       267:                        &exc)) {
                    268:                gulong length=gdome_nl_length(nodes, &exc);
                    269:                for(gulong i=0; i<length; i++) {
1.16      parser    270:                        String& skey=*new(pool) String(pool);
                    271:                        {
                    272:                                char *buf=(char *)pool.malloc(MAX_NUMBER);
                    273:                                snprintf(buf, MAX_NUMBER, "%d", i);
                    274:                                skey << buf;
                    275:                        }
                    276: 
1.54      paf       277:                        result.hash(0).put(skey, new(pool) VXnode(pool, gdome_nl_item(nodes, i, &exc)));
1.16      parser    278:                }
                    279:        }
                    280: 
1.54      paf       281: 
1.16      parser    282:        // write out result
                    283:        r.write_no_lang(result);
                    284: }
                    285: 
1.54      paf       286: static void _getElementById(Request& r, const String& method_name, MethodParams *params) {
                    287:        Pool& pool=r.pool();
                    288:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
1.16      parser    289: 
1.54      paf       290:        // elementId
                    291:        const String& elementId=params->as_string(0, "elementID must be string");
1.1       parser    292: 
1.54      paf       293:        GdomeException exc;
                    294:        if(GdomeNode *node=(GdomeNode *)gdome_doc_getElementById(
                    295:                vdoc.get_document(&method_name),
1.57      paf       296:                pool.transcode(elementId).get(),
1.54      paf       297:                &exc)) {
                    298:                // write out result
                    299:                VXnode& result=*new(pool) VXnode(pool, node);
                    300:                r.write_no_lang(result);
                    301:        } else if(exc)
                    302:                throw Exception(0, 0, 
                    303:                        &method_name, 
                    304:                        exc);
                    305: }
                    306: /*
                    307: GdomeNode *gdome_doc_importNode (GdomeDocument *self, GdomeNode *importedNode, GdomeBoolean deep, GdomeException *exc);
                    308: GdomeElement *gdome_doc_createElementNS (GdomeDocument *self, GdomeDOMString *namespaceURI, GdomeDOMString *qualifiedName, GdomeException *exc);
                    309: GdomeAttr *gdome_doc_createAttributeNS (GdomeDocument *self, GdomeDOMString *namespaceURI, GdomeDOMString *qualifiedName, GdomeException *exc);
                    310: */
1.1       parser    311: 
                    312: 
1.54      paf       313: static void _create(Request& r, const String& method_name, MethodParams *params) {
                    314:        //_asm int 3;
                    315:        Pool& pool=r.pool();
                    316:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
1.1       parser    317: 
1.54      paf       318:        const String& qualifiedName=params->as_string(0, "qualifiedName must be string");
1.1       parser    319: 
1.54      paf       320:        GdomeException exc;
                    321:        /*
                    322:        GdomeDocumentType *documentType=gdome_di_createDocumentType (
                    323:                docimpl, 
                    324:                pool.transcode(qualifiedName), 
                    325:                0/*publicId* /, 
                    326:                0/*systemId* /, 
                    327:                &exc);
                    328:        if(!documentType || exc)
                    329:                throw Exception(0, 0, 
                    330:                        &method_name, 
                    331:                        exc);
                    332:        */
                    333:        GdomeDocument *document=gdome_di_createDocument (domimpl, 
                    334:                0/*namespaceURI*/, 
1.57      paf       335:                pool.transcode(qualifiedName).get(), 
1.54      paf       336:                0/*doctype*/, 
                    337:                &exc);
                    338:        if(!document || exc)
                    339:                throw Exception(0, 0, 
                    340:                        &method_name, 
                    341:                        exc);
1.1       parser    342: 
1.57      paf       343:        /// +xalan createXMLDecl ?
1.9       parser    344: 
1.54      paf       345:        // replace any previous parsed source
                    346:        vdoc.set_document(document);
                    347: }
1.9       parser    348: 
1.56      paf       349: /// @test xmlSAXParseMemory(NULL<<error handler subst, buffer, size, 0)
1.54      paf       350: static void _set(Request& r, const String& method_name, MethodParams *params) {
                    351: //     _asm int 3;
                    352:        Pool& pool=r.pool();
                    353:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
1.9       parser    354: 
1.54      paf       355:        Value& vxml=params->as_junction(0, "xml must be code");
                    356:        Temp_lang temp_lang(r, String::UL_XML);
                    357:        const String& xml=r.process(vxml).as_string();
1.9       parser    358: 
1.54      paf       359:        GdomeException exc;
                    360:        GdomeDocument *document=gdome_di_createDocFromMemory(domimpl,
                    361:                xml.cstr(String::UL_UNSPECIFIED, r.connection),
1.55      paf       362:                GDOME_LOAD_PARSING
1.61      paf       363:                /* GDOME_LOAD_VALIDATING  pending until kill warning of no-dtd*/ 
1.54      paf       364:                /*|GDOME_LOAD_SUBSTITUTE_ENTITIES */,
                    365:                &exc);
                    366:        if(!document || exc)
                    367:                throw Exception(0, 0, 
                    368:                        &method_name, 
                    369:                        exc);
1.9       parser    370: 
1.54      paf       371:        // replace any previous parsed source
                    372:        vdoc.set_document(document);
1.9       parser    373: }
                    374: 
1.54      paf       375: static void _load(Request& r, const String& method_name, MethodParams *params) {
                    376:        Pool& pool=r.pool();
                    377:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
1.9       parser    378: 
1.54      paf       379:        // filespec
                    380:        const String& file_name=params->as_string(0, "uri must be string");
                    381:        const String& uri=r.absolute(file_name);
                    382:        
                    383:        GdomeException exc;
                    384:        GdomeDocument *document=gdome_di_createDocFromURI(domimpl,
                    385:                uri.cstr(),
1.55      paf       386:                GDOME_LOAD_PARSING
1.61      paf       387:                /* GDOME_LOAD_VALIDATING  pending until kill warning of no-dtd*/ 
1.54      paf       388:                /*|GDOME_LOAD_SUBSTITUTE_ENTITIES */,
                    389:                &exc);
                    390:        if(!document || exc)
                    391:                throw Exception(0, 0, 
                    392:                        &method_name, 
                    393:                        exc);
1.9       parser    394: 
1.54      paf       395:        // replace any previous parsed source
                    396:        vdoc.set_document(document);
1.9       parser    397: }
                    398: 
1.46      paf       399: static void param_option_over_output_option(Pool& pool, 
                    400:                                                                                        Hash *param_options, const char *option_name,
1.61      paf       401:                                                                                        const String *& output_option) {
                    402:        if(Value *value=static_cast<Value *>(param_options->get(*new(pool) String(pool, 
                    403:                option_name))))
                    404:                output_option=&value->as_string();
1.46      paf       405: }
                    406: static void param_option_over_output_option(Pool& pool, 
                    407:                                                                                        Hash *param_options, const char *option_name,
                    408:                                                                                        bool& output_option) {
                    409:        if(Value *value=static_cast<Value *>(param_options->get(*new(pool) 
                    410:                String(pool, option_name)))) {
                    411:                const String& s=value->as_string();
                    412:                if(s=="yes")
                    413:                        output_option=true;
                    414:                else if(s=="no")
                    415:                        output_option=false;
                    416:                else
                    417:                        throw Exception(0, 0,
                    418:                                &s,
                    419:                                "%s must be either 'yes' or 'no'", option_name);
                    420:        }
                    421: }
                    422: 
1.61      paf       423: static void prepare_output_options(
                    424:                                                                   Pool& pool, const String& method_name, MethodParams *params, int index,
                    425:                                                                   VXdoc::Output_options& oo) {
1.46      paf       426: /*
                    427: <xsl:output
                    428:   !method = "xml" | "html" | "text" | qname-but-not-ncname 
                    429:   !version = nmtoken 
                    430:   !encoding = string 
                    431:   !omit-xml-declaration = "yes" | "no"
                    432:   !standalone = "yes" | "no"
                    433:   !doctype-public = string 
                    434:   !doctype-system = string 
                    435:   cdata-section-elements = qnames 
                    436:   !indent = "yes" | "no"
                    437:   !media-type = string /> 
1.61      paf       438: */
1.1       parser    439: 
1.46      paf       440:        // configuring with options from parameter...
1.1       parser    441:        if(params->size()>index) {
1.20      parser    442:                Value& voptions=params->as_no_junction(index, "options must be string");
1.1       parser    443:                if(voptions.is_defined()) {
1.34      parser    444:                        if(Hash *options=voptions.get_hash(&method_name)) {
1.1       parser    445:                                // $.method[xml|html|text]
                    446:                                if(Value *vmethod=static_cast<Value *>(options->get(*new(pool) 
                    447:                                        String(pool, XDOC_OUTPUT_METHOD_OPTION_NAME))))
1.61      paf       448:                                        oo.method=&vmethod->as_string();
1.1       parser    449: 
1.46      paf       450:                                // $.version[1.0]
                    451:                                param_option_over_output_option(pool, options, "version", oo.version);
1.1       parser    452:                                // $.encoding[windows-1251|...]
1.46      paf       453:                                param_option_over_output_option(pool, options, "encoding", oo.encoding);
                    454:                                // $.omit-xml-declaration[yes|no]
1.61      paf       455:                                param_option_over_output_option(pool, options, "omit-xml-declaration", oo.omitXmlDeclaration);
1.46      paf       456:                                // $.standalone[yes|no]
                    457:                                param_option_over_output_option(pool, options, "standalone", oo.standalone);
                    458:                                // $.doctype-public[?]
                    459:                                param_option_over_output_option(pool, options, "doctype-public", oo.doctypePublic);
                    460:                                // $.doctype-system[?]
                    461:                                param_option_over_output_option(pool, options, "doctype-system", oo.doctypeSystem);
                    462:                                // $.indent[yes|no]
1.61      paf       463:                                param_option_over_output_option(pool, options, "indent", oo.indent);
1.46      paf       464:                                // $.media-type[text/{html|xml|plain}]
                    465:                                param_option_over_output_option(pool, options, "media-type", oo.mediaType);                              
1.19      parser    466:                        }
1.1       parser    467:                }
                    468:        }
                    469: 
1.46      paf       470:        // default encoding from pool
1.61      paf       471:        if(!oo.encoding)
                    472:                oo.encoding=&pool.get_source_charset().name();
1.46      paf       473:        // default method=xml
                    474:        if(!oo.method)
1.61      paf       475:                oo.method=new(pool) String(pool, XDOC_OUTPUT_METHOD_OPTION_VALUE_XML);
                    476:        // default mediaType = depending on method
                    477:        if(!oo.mediaType) {
                    478:                if(*oo.method==XDOC_OUTPUT_METHOD_OPTION_VALUE_XML)
                    479:                        oo.mediaType=new(pool) String(pool, "text/xml");
                    480:                else if(*oo.method==XDOC_OUTPUT_METHOD_OPTION_VALUE_HTML)
                    481:                        oo.mediaType=new(pool) String(pool, "text/html");
                    482:                else // XDOC_OUTPUT_METHOD_OPTION_VALUE_TEXT & all others
                    483:                        oo.mediaType=new(pool) String(pool, "text/plain");
                    484:        }
                    485: }
1.46      paf       486: 
1.63      paf       487: static void xdoc2buf(Pool& pool, VXdoc& vdoc, 
                    488:                                         const String& method_name, MethodParams *params, int index,
                    489:                                         VXdoc::Output_options& oo,
                    490:                                         const String *file_spec,
                    491:                                         char **parser_buf, size_t *parser_size) {
                    492:        prepare_output_options(pool, method_name, params, index,
1.61      paf       493:                oo);
                    494: 
1.63      paf       495:        const char *encoding_cstr=oo.encoding->cstr();
                    496:        xmlCharEncodingHandler *encoder=xmlFindCharEncodingHandler(encoding_cstr);
                    497:        if(!encoder)
                    498:                throw Exception(0, 0,
                    499:                        &method_name,
                    500:                        "encoding '%s' not supported", encoding_cstr);
1.61      paf       501:        // UTF-8 encoder contains empty input/output converters, 
                    502:        // which is wrong for xmlOutputBufferCreateIO
                    503:        // while zero encoder goes perfectly 
                    504:        if(encoder && strcmp(encoder->name, "UTF-8")==0)
                    505:                encoder=0;
                    506: 
1.62      paf       507:        xmlOutputBuffer_auto_ptr outputBuffer(xmlAllocOutputBuffer(encoder));
1.61      paf       508: 
                    509:        xsltStylesheet *stylesheet=xsltNewStylesheet();
                    510:        if(!stylesheet)
                    511:                throw Exception(0, 0,
                    512:                        &method_name,
                    513:                        "xsltNewStylesheet failed");
                    514: 
1.62      paf       515:        #define OOS2STYLE(name) \
1.61      paf       516:                stylesheet->name=oo.name?BAD_CAST g_strdup(pool.transcode(*oo.name)->str):0
1.62      paf       517:        #define OOE2STYLE(name) \
                    518:                stylesheet->name=oo.name
1.61      paf       519: 
1.62      paf       520:        OOS2STYLE(method);
                    521:        OOS2STYLE(encoding);
                    522:        OOS2STYLE(mediaType);
                    523:        OOS2STYLE(doctypeSystem);
                    524:        OOS2STYLE(doctypePublic);
                    525:        OOE2STYLE(indent);
                    526:        OOS2STYLE(version);
                    527:        OOE2STYLE(standalone);
                    528:        OOE2STYLE(omitXmlDeclaration);
1.61      paf       529: 
                    530:        xmlDoc *document=((Gdome_xml_Document*)vdoc.get_document(&method_name))->n;
                    531:        xsltSaveResultTo(outputBuffer.get(), document, stylesheet);
                    532:        xsltFreeStylesheet(stylesheet);
                    533: 
1.54      paf       534:        // write out result
1.63      paf       535:        char *gnome_buf;  size_t gnome_size;
                    536:        if(outputBuffer->conv) {
                    537:                gnome_size=outputBuffer->conv->use;
1.62      paf       538:                gnome_buf=(char *)outputBuffer->conv->content;
1.63      paf       539:        } else {
                    540:                gnome_size=outputBuffer->buffer->use;
1.62      paf       541:                gnome_buf=(char *)outputBuffer->buffer->content;
1.63      paf       542:        }
                    543:        if(file_spec)
                    544:                file_write(pool, 
                    545:                                        *file_spec,
                    546:                                        gnome_buf, gnome_size, 
                    547:                                        true/*as_text*/);
                    548:        else {
                    549:                *parser_size=gnome_size;
                    550:                *parser_buf=(char *)pool.malloc(gnome_size);
                    551:                memcpy(*parser_buf, gnome_buf, gnome_size);
                    552:        }
1.1       parser    553: }
                    554: 
                    555: static void _file(Request& r, const String& method_name, MethodParams *params) {
                    556:        Pool& pool=r.pool();
1.46      paf       557:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
1.63      paf       558:        VXdoc::Output_options oo(vdoc.output_options);
                    559:        char *buf; size_t buf_size;
                    560:        xdoc2buf(pool, vdoc, method_name, params, 0, 
                    561:                oo,
1.64    ! paf       562:                0/*not to file, to memory*/,
1.63      paf       563:                &buf, &buf_size);
                    564:        // write out result
                    565:        r.write_no_lang(*new(pool) String(pool, buf, buf_size));
1.1       parser    566: 
1.58      paf       567:        // write out result
                    568:        VFile& vfile=*new(pool) VFile(pool);
1.63      paf       569:        Value *vcontent_type;
1.58      paf       570:        VHash *vhcontent_type=new(pool) VHash(pool);
1.63      paf       571:        vhcontent_type->hash(&method_name).put(
                    572:                *value_name, 
                    573:                new(pool) VString(*oo.mediaType));
                    574:        vhcontent_type->hash(&method_name).put(
                    575:                *new(pool) String(pool, "charset"), 
                    576:                new(pool) VString(*oo.encoding));
1.58      paf       577:        vcontent_type=vhcontent_type;
                    578:        
                    579:        vfile.set(false/*tainted*/, buf, buf_size, 0/*file_name*/, vcontent_type);
                    580:        r.write_no_lang(vfile);
1.63      paf       581: }
                    582: 
                    583: static void _save(Request& r, const String& method_name, MethodParams *params) {
                    584:        Pool& pool=r.pool();
                    585:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    586: 
                    587:        const String& file_spec=r.absolute(params->as_string(0, "file name must be string"));
                    588:        
                    589:        VXdoc::Output_options oo(vdoc.output_options);
                    590:        xdoc2buf(pool, vdoc, method_name, params, 1, 
                    591:                oo,
                    592:                &file_spec,
                    593:                0, 0);
                    594: }
                    595: 
                    596: static void _string(Request& r, const String& method_name, MethodParams *params) {
                    597:        Pool& pool=r.pool();
                    598:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    599:        VXdoc::Output_options oo(vdoc.output_options);
                    600:        char *buf; size_t buf_size;
                    601:        xdoc2buf(pool, vdoc, method_name, params, 0, 
                    602:                oo,
1.64    ! paf       603:                0/*not to file, to memory*/,
1.63      paf       604:                &buf, &buf_size);
                    605:        // write out result
                    606:        r.write_no_lang(*new(pool) String(pool, buf, buf_size));
1.1       parser    607: }
1.58      paf       608: 
1.1       parser    609: static void add_xslt_param(const Hash::Key& aattribute, Hash::Val *ameaning, 
                    610:                                                   void *info) {
1.59      paf       611:        Value *meaning=static_cast<Value *>(ameaning);
                    612:        Pool& pool=meaning->pool();
                    613:        const char **transform_params=(const char **)info;
                    614:        *transform_params++=pool.transcode(aattribute)->str;
                    615:        *transform_params++=pool.transcode(meaning->as_string())->str;
1.1       parser    616: }
1.24      parser    617: static void _transform(Request& r, const String& method_name, MethodParams *params) {
1.59      paf       618:        //_asm int 3;
1.24      parser    619:        Pool& pool=r.pool();
                    620:        VXdoc& vdoc=*static_cast<VXdoc *>(r.self);
                    621: 
                    622:        // params
1.59      paf       623:        const char **transform_params=0;
1.24      parser    624:        if(params->size()>1) {
1.59      paf       625:                Value& vparams=params->as_no_junction(1, "transform parameters must be hash");
1.24      parser    626:                if(vparams.is_defined())
1.59      paf       627:                        if(Hash *params=vparams.get_hash(&method_name)) {
                    628:                                transform_params=
                    629:                                        (const char **)pool.malloc(sizeof(const char *)*params->size()*2+1);
                    630:                                params->for_each(add_xslt_param, transform_params);
                    631:                                transform_params[params->size()*2]=0;                           
                    632:                        } else
1.29      parser    633:                                throw Exception(0, 0,
1.24      parser    634:                                        &method_name,
                    635:                                        "transform parameters parameter must be hash");
                    636:        }
                    637: 
                    638:        // stylesheet
1.59      paf       639:        const String& stylesheet_filespec=r.absolute(params->as_string(0, "file name must be string"));
1.32      parser    640:        Stylesheet_connection& connection=stylesheet_manager->get_connection(stylesheet_filespec);
1.24      parser    641: 
                    642:        // transform
1.59      paf       643:        xsltStylesheet *stylesheet=connection.stylesheet(false/*nocache*/);
                    644:        xmlDoc *document=((Gdome_xml_Document*)vdoc.get_document(&method_name))->n;
                    645:        xsltTransformContext *transformContext=xsltNewTransformContext(stylesheet, document);
                    646:        xmlDoc *transformed=xsltApplyStylesheetUser(
                    647:                stylesheet,
                    648:                document,
                    649:                transform_params,
                    650:                0/*const char *output*/,
                    651:                0/*FILE *profile*/,
                    652:                transformContext);
                    653:        if(!transformed) {
1.61      paf       654:                xsltFreeTransformContext(transformContext);
1.59      paf       655:                // close
1.13      parser    656:                connection.close();
1.59      paf       657:                throw Exception(0, 0,
                    658:                        &method_name, 
                    659:                        "transform failed. TODO: show errors");
1.13      parser    660:        }
1.42      paf       661: 
1.61      paf       662:        //gdome_xml_doc_mkref dislikes XML_HTML_DOCUMENT_NODE  type, fixing
                    663:        transformed->type=XML_DOCUMENT_NODE;
1.59      paf       664:        // constructing result
                    665:        GdomeDocument *gdomeDocument=gdome_xml_doc_mkref(transformed);
                    666:        if(!gdomeDocument)
                    667:                throw Exception(0, 0,
                    668:                        &method_name,
                    669:                        "gdome_xml_doc_mkref failed");
                    670:        VXdoc& result=*new(pool) VXdoc(pool, gdomeDocument);
1.61      paf       671:        /* grabbing options
                    672: 
                    673:                <xsl:output
                    674:                !method = "xml" | "html" | "text"
                    675:                        X| qname-but-not-ncname 
                    676:                !version = nmtoken 
                    677:                !encoding = string 
                    678:                !omit-xml-declaration = "yes" | "no"
                    679:                !standalone = "yes" | "no"
                    680:                !doctype-public = string 
                    681:                !doctype-system = string 
                    682:                Xcdata-section-elements = qnames 
                    683:                !indent = "yes" | "no"
                    684:                !media-type = string /> 
1.59      paf       685:        */
                    686:        memset(&result.output_options, 0, sizeof(result.output_options));
                    687:        VXdoc::Output_options& oo=result.output_options;
                    688: 
1.60      paf       689:        oo.method=stylesheet->method?&pool.transcode(stylesheet->method):0;
                    690:        oo.encoding=stylesheet->encoding?&pool.transcode(stylesheet->encoding):0;
                    691:        oo.mediaType=stylesheet->mediaType?&pool.transcode(stylesheet->mediaType):0;
                    692:        oo.doctypeSystem=stylesheet->doctypeSystem?&pool.transcode(stylesheet->doctypeSystem):0;
                    693:        oo.doctypePublic=stylesheet->doctypePublic?&pool.transcode(stylesheet->doctypePublic):0;
1.59      paf       694:        oo.indent=stylesheet->indent!=0;
1.60      paf       695:        oo.version=stylesheet->version?&pool.transcode(stylesheet->version):0;
1.59      paf       696:        oo.standalone=stylesheet->standalone!=0;
                    697:        oo.omitXmlDeclaration=stylesheet->omitXmlDeclaration!=0;
                    698: 
                    699:        xsltFreeTransformContext(transformContext);
1.42      paf       700:        // close
                    701:        connection.close();
1.59      paf       702: 
                    703:        // write out result
                    704:        r.write_no_lang(result);
                    705: 
1.1       parser    706: }
                    707: 
1.16      parser    708: // constructor
1.2       parser    709: 
1.16      parser    710: MXdoc::MXdoc(Pool& apool) : MXnode(apool) {
                    711:        set_name(*NEW String(pool(), XDOC_CLASS_NAME));
1.2       parser    712: 
1.16      parser    713:        /// @test how to create empty type html?
1.2       parser    714: 
1.16      parser    715:        /// DOM1
1.2       parser    716: 
1.16      parser    717:        // Element createElement(in DOMString tagName) raises(DOMException);
                    718:        add_native_method("createElement", Method::CT_DYNAMIC, _createElement, 1, 1);
                    719:        // DocumentFragment createDocumentFragment(); 
                    720:        add_native_method("createDocumentFragment", Method::CT_DYNAMIC, _createDocumentFragment, 0, 0);
                    721:        // Text createTextNode(in DOMString data);
                    722:        add_native_method("createTextNode", Method::CT_DYNAMIC, _createTextNode, 1, 1);
                    723:        // Comment createComment(in DOMString data);
                    724:        add_native_method("createComment", Method::CT_DYNAMIC, _createComment, 1, 1);
                    725:        // CDATASection createCDATASection(in DOMString data) raises(DOMException);
                    726:        add_native_method("createCDATASection", Method::CT_DYNAMIC, _createCDATASection, 1, 1);
                    727:        // ProcessingInstruction createProcessingInstruction(in DOMString target, in DOMString data) raises(DOMException);
                    728:        add_native_method("createProcessingInstruction", Method::CT_DYNAMIC, _createProcessingInstruction, 2, 2);
                    729:        // Attr createAttribute(in DOMString name) raises(DOMException);
                    730:        add_native_method("createAttribute", Method::CT_DYNAMIC, _createAttribute, 1, 1);
                    731:        // EntityReference createEntityReference(in DOMString name) raises(DOMException);
                    732:        add_native_method("createEntityReference", Method::CT_DYNAMIC, _createEntityReference, 1, 1);
                    733:        // NodeList getElementsByTagName(in DOMString tagname);
1.54      paf       734:        add_native_method("getElementsByTagName", Method::CT_DYNAMIC, _getElementsByTagName, 1, 1);
                    735:        // ^xdoc.getElementsByTagNameNS[namespaceURI;localName] = array of nodes
                    736:        add_native_method("getElementsByTagNameNS", Method::CT_DYNAMIC, _getElementsByTagNameNS, 2, 2);
1.2       parser    737: 
1.16      parser    738:        /// DOM2(?)
1.2       parser    739: 
1.16      parser    740:        // ^xdoc.getElementById[elementId]
                    741:        add_native_method("getElementById", Method::CT_DYNAMIC, _getElementById, 1, 1);
1.1       parser    742: 
1.16      parser    743:        /// parser
                    744:        
1.54      paf       745:        // ^xdoc::create{qualifiedName}
                    746:        add_native_method("create", Method::CT_DYNAMIC, _create, 1, 1); 
                    747:        // ^xdoc::set[<some>xml</some>]
                    748:        add_native_method("set", Method::CT_DYNAMIC, _set, 1, 1);
                    749: 
                    750:        // ^xdoc::load[some.xml]
                    751:        add_native_method("load", Method::CT_DYNAMIC, _load, 1, 1);
                    752: 
1.2       parser    753:        // ^xdoc.save[some.xml]
                    754:        // ^xdoc.save[some.xml;options hash]
1.1       parser    755:        add_native_method("save", Method::CT_DYNAMIC, _save, 1, 2);
                    756: 
1.2       parser    757:        // ^xdoc.string[] <doc/>
                    758:        // ^xdoc.string[options hash] <doc/>
1.1       parser    759:        add_native_method("string", Method::CT_DYNAMIC, _string, 0, 1);
                    760: 
1.2       parser    761:        // ^xdoc.file[] file with "<doc/>"
                    762:        // ^xdoc.file[options hash] file with "<doc/>"
1.58      paf       763:        add_native_method("file", Method::CT_DYNAMIC, _file, 0, 1);
1.1       parser    764: 
1.8       parser    765:        // ^xdoc.transform[stylesheet file_name]
                    766:        // ^xdoc.transform[stylesheet file_name;params hash]
1.59      paf       767:        add_native_method("transform", Method::CT_DYNAMIC, _transform, 1, 2);
1.2       parser    768: 
1.1       parser    769: }
1.5       parser    770: 
                    771: void MXdoc::configure_admin(Request& r) {
                    772: }
                    773: 
1.1       parser    774: // global variable
                    775: 
                    776: Methoded *Xdoc_class;
                    777: 
                    778: // creator
                    779: 
                    780: #endif
                    781: 
                    782: Methoded *MXdoc_create(Pool& pool) {
                    783:        return 
                    784: #ifdef XML
1.33      parser    785:                Xdoc_class=new(pool) MXdoc(pool)
1.1       parser    786: #else
                    787:                0
                    788: #endif
                    789:        ;
                    790: }

E-mail: