Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added dom method featureinfo. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dom_featureinfo |
| Files: | files | file ages | folders |
| SHA1: |
2877d5b58a0122a05cc2eab3ff097e2c |
| User & Date: | rolf 2013-09-21 23:44:35 |
Context
|
2013-09-22
| ||
| 11:27 | Corrected tmml syntax errors in domNode.xml. Started documentation of dom featureinfo. check-in: aecda7733d user: rolf tags: dom_featureinfo | |
|
2013-09-21
| ||
| 23:44 | Added dom method featureinfo. check-in: 2877d5b58a user: rolf tags: dom_featureinfo | |
|
2013-09-20
| ||
| 23:44 | Integrated toXPath bug fix. check-in: 85d99b56af user: rolf tags: trunk | |
Changes
Changes to generic/tcldom.c.
216 217 218 219 220 221 222 223 224 225 226 227 228 229 .... 5660 5661 5662 5663 5664 5665 5666 5667 5668 5669 5670 5671 5672 5673 .... 5686 5687 5688 5689 5690 5691 5692 5693 5694 5695 5696 5697 5698 5699 5700 5701 5702 5703 5704 5705 5706 5707 5708 5709 5710 5711 .... 5922 5923 5924 5925 5926 5927 5928 5929 5930 5931 5932 5933 5934 5935 |
" isComment string \n"
" isCDATA string \n"
" isPIValue string \n"
" isName string \n"
" isQName string \n"
" isNCName string \n"
" isPIName string \n"
;
static char doc_usage[] =
"Usage domDoc <method> <args>, where method can be:\n"
" documentElement ?objVar? \n"
" getElementsByTagName name \n"
" getElementsByTagNameNS uri localname \n"
................................................................................
return tcldom_returnDocumentObj (interp, doc, setVariable, newObjName, 1,
0);
#endif
}
/*----------------------------------------------------------------------------
| tcldom_DomObjCmd
|
\---------------------------------------------------------------------------*/
int tcldom_DomObjCmd (
ClientData clientData,
................................................................................
static CONST84 char *domMethods[] = {
"createDocument", "createDocumentNS", "createNodeCmd",
"parse", "setResultEncoding", "setStoreLineColumn",
"isCharData", "isName", "isPIName",
"isQName", "isComment", "isCDATA",
"isPIValue", "isNCName", "createDocumentNode",
"setNameCheck", "setTextCheck", "setObjectCommands",
#ifdef TCL_THREADS
"attachDocument", "detachDocument",
#endif
NULL
};
enum domMethod {
m_createDocument, m_createDocumentNS, m_createNodeCmd,
m_parse, m_setResultEncoding, m_setStoreLineColumn,
m_isCharData, m_isName, m_isPIName,
m_isQName, m_isComment, m_isCDATA,
m_isPIValue, m_isNCName, m_createDocumentNode,
m_setNameCheck, m_setTextCheck, m_setObjectCommands
#ifdef TCL_THREADS
,m_attachDocument, m_detachDocument
#endif
};
static CONST84 char *nodeModeValues[] = {
"automatic", "command", "token", NULL
................................................................................
return TCL_OK;
case m_isNCName:
CheckArgs(3,3,2,"string");
SetBooleanResult(domIsNCNAME(Tcl_GetString(objv[2])));
return TCL_OK;
}
SetResult( dom_usage);
return TCL_ERROR;
}
#ifdef TCL_THREADS
|
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | > > > > |
216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 .... 5661 5662 5663 5664 5665 5666 5667 5668 5669 5670 5671 5672 5673 5674 5675 5676 5677 5678 5679 5680 5681 5682 5683 5684 5685 5686 5687 5688 5689 5690 5691 5692 5693 5694 5695 5696 5697 5698 5699 5700 5701 5702 5703 5704 5705 5706 5707 5708 5709 5710 5711 5712 5713 5714 5715 5716 5717 5718 5719 5720 5721 5722 5723 5724 5725 5726 5727 5728 5729 5730 5731 5732 5733 5734 5735 5736 5737 5738 5739 5740 5741 5742 5743 5744 5745 5746 5747 5748 5749 5750 5751 5752 5753 5754 5755 5756 5757 5758 5759 5760 5761 5762 .... 5775 5776 5777 5778 5779 5780 5781 5782 5783 5784 5785 5786 5787 5788 5789 5790 5791 5792 5793 5794 5795 5796 5797 5798 5799 5800 5801 5802 .... 6013 6014 6015 6016 6017 6018 6019 6020 6021 6022 6023 6024 6025 6026 6027 6028 6029 |
" isComment string \n"
" isCDATA string \n"
" isPIValue string \n"
" isName string \n"
" isQName string \n"
" isNCName string \n"
" isPIName string \n"
" featureinfo feature \n"
;
static char doc_usage[] =
"Usage domDoc <method> <args>, where method can be:\n"
" documentElement ?objVar? \n"
" getElementsByTagName name \n"
" getElementsByTagNameNS uri localname \n"
................................................................................
return tcldom_returnDocumentObj (interp, doc, setVariable, newObjName, 1,
0);
#endif
}
/*----------------------------------------------------------------------------
| tcldom_featureinfo
|
\---------------------------------------------------------------------------*/
static
int tcldom_featureinfo (
ClientData clientData,
Tcl_Interp *interp,
int objc,
Tcl_Obj * const objv[]
)
{
int featureIndex, result;
static CONST84 char *features[] = {
"expatversion", "expatmajorversion", "expatminorversion",
"expatmicroversion", "dtd", "ns",
"unknown", "tdomalloc", "lessns",
NULL
};
enum feature {
o_expatversion, o_expatmajorversion, o_expatminorversion,
o_expatmicroversion, o_dtd, o_ns,
o_unknown, o_tdomalloc, o_lessns
};
if (Tcl_GetIndexFromObj(interp, objv[1], features, "feature", 0,
&featureIndex) != TCL_OK) {
return TCL_ERROR;
}
switch ((enum feature) featureIndex) {
case o_expatversion:
SetResult(XML_ExpatVersion());
break;
case o_expatmajorversion:
SetIntResult(XML_MAJOR_VERSION);
break;
case o_expatminorversion:
SetIntResult(XML_MINOR_VERSION);
break;
case o_expatmicroversion:
SetIntResult(XML_MICRO_VERSION);
break;
case o_dtd:
#ifdef XML_DTD
result = 1;
#else
result = 0;
#endif
SetBooleanResult(result);
break;
case o_ns:
#ifdef XML_NS
result = 1;
#else
result = 0;
#endif
SetBooleanResult(result);
break;
case o_unknown:
#ifdef TDOM_NO_UNKNOWN_CMD
result = 0;
#else
result = 1;
#endif
SetBooleanResult(result);
break;
case o_tdomalloc:
#ifdef USE_NORMAL_ALLOCATOR
result = 0;
#else
result = 1;
#endif
SetBooleanResult(result);
break;
case o_lessns:
#ifdef TDOM_LESS_NS
result = 1;
#else
result = 0;
#endif
SetBooleanResult(result);
break;
}
return TCL_OK;
}
/*----------------------------------------------------------------------------
| tcldom_DomObjCmd
|
\---------------------------------------------------------------------------*/
int tcldom_DomObjCmd (
ClientData clientData,
................................................................................
static CONST84 char *domMethods[] = {
"createDocument", "createDocumentNS", "createNodeCmd",
"parse", "setResultEncoding", "setStoreLineColumn",
"isCharData", "isName", "isPIName",
"isQName", "isComment", "isCDATA",
"isPIValue", "isNCName", "createDocumentNode",
"setNameCheck", "setTextCheck", "setObjectCommands",
"featureinfo",
#ifdef TCL_THREADS
"attachDocument", "detachDocument",
#endif
NULL
};
enum domMethod {
m_createDocument, m_createDocumentNS, m_createNodeCmd,
m_parse, m_setResultEncoding, m_setStoreLineColumn,
m_isCharData, m_isName, m_isPIName,
m_isQName, m_isComment, m_isCDATA,
m_isPIValue, m_isNCName, m_createDocumentNode,
m_setNameCheck, m_setTextCheck, m_setObjectCommands,
m_featureinfo
#ifdef TCL_THREADS
,m_attachDocument, m_detachDocument
#endif
};
static CONST84 char *nodeModeValues[] = {
"automatic", "command", "token", NULL
................................................................................
return TCL_OK;
case m_isNCName:
CheckArgs(3,3,2,"string");
SetBooleanResult(domIsNCNAME(Tcl_GetString(objv[2])));
return TCL_OK;
case m_featureinfo:
CheckArgs(3,3,2,"feature")
return tcldom_featureinfo(clientData, interp, --objc, objv+1);
}
SetResult( dom_usage);
return TCL_ERROR;
}
#ifdef TCL_THREADS
|