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

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

E-mail: