Lines Matching refs:info
173 static void DispatchPCDATA (domReadInfo *info);
1062 domReadInfo *info = userData;
1075 if (info->feedbackAfter) {
1077 if (info->lastFeedbackPosition
1078 < XML_GetCurrentByteIndex (info->parser)
1081 if (Tcl_Eval(info->interp, feedbackCmd) != TCL_OK) {
1083 Tcl_GetStringResult (info->interp));)
1090 info->lastFeedbackPosition += info->feedbackAfter;
1094 DispatchPCDATA (info);
1096 h = Tcl_CreateHashEntry(&HASHTAB(info->document,tdom_tagNames), name,
1098 if (info->storeLineColumn) {
1109 node->nodeNumber = NODE_NO(info->document);
1110 node->ownerDocument = info->document;
1112 if (info->baseURIstack[info->baseURIstackPos].baseURI
1113 != XML_GetBase (info->parser)) {
1114 h = Tcl_CreateHashEntry (info->document->baseURIs,
1117 Tcl_SetHashValue (h, tdomstrdup (XML_GetBase (info->parser)));
1119 info->baseURIstackPos++;
1120 if (info->baseURIstackPos >= info->baseURIstackSize) {
1121 info->baseURIstack = (domActiveBaseURI*) REALLOC(
1122 (char*)info->baseURIstack,
1123 sizeof(domActiveBaseURI) * 2 * info->baseURIstackSize);
1124 info->baseURIstackSize = 2 * info->baseURIstackSize;
1126 info->baseURIstack[info->baseURIstackPos].baseURI
1127 = XML_GetBase (info->parser);
1128 info->baseURIstack[info->baseURIstackPos].depth
1129 = info->depth;
1132 if (info->depth == 0) {
1133 if (info->document->rootNode->lastChild) {
1134 info->document->rootNode->lastChild->nextSibling = node;
1135 node->previousSibling = info->document->rootNode->lastChild;
1137 info->document->rootNode->firstChild = node;
1139 info->document->rootNode->lastChild = node;
1141 parentNode = info->currentNode;
1151 info->currentNode = node;
1152 if (info->storeLineColumn) {
1155 lc->line = XML_GetCurrentLineNumber(info->parser);
1156 lc->column = XML_GetCurrentColumnNumber(info->parser);
1172 if (domIsNamespaceInScope (info->activeNS, info->activeNSpos,
1174 ns = domLookupPrefix (info->currentNode, &(xmlns[6]));
1178 ns = domNewNamespace(info->document, &xmlns[6], atPtr[1]);
1181 ns = domNewNamespace(info->document, "", atPtr[1]);
1185 info->activeNSpos++;
1186 if (info->activeNSpos >= info->activeNSsize) {
1187 info->activeNS = (domActiveNS*) REALLOC(
1188 (char*)info->activeNS,
1189 sizeof(domActiveNS) * 2 * info->activeNSsize);
1190 info->activeNSsize = 2 * info->activeNSsize;
1192 info->activeNS[info->activeNSpos].depth = info->depth;
1193 info->activeNS[info->activeNSpos].namespace = ns;
1196 h = Tcl_CreateHashEntry(&HASHTAB(info->document, tdom_attrNames),
1206 if (TclOnly8Bits && info->encoding_8bit) {
1207 tdom_Utf8to8Bit(info->encoding_8bit, atPtr[1], &len);
1226 for (pos = info->activeNSpos; pos >= 0; pos--) {
1227 if ( ((tagPrefix[0] == '\0') && (info->activeNS[pos].namespace->prefix[0] == '\0'))
1228 || ((tagPrefix[0] != '\0') && (info->activeNS[pos].namespace->prefix[0] != '\0')
1229 && (strcmp(tagPrefix, info->activeNS[pos].namespace->prefix) == 0))
1231 if (info->activeNS[pos].namespace->prefix[0] == '\0'
1232 && info->activeNS[pos].namespace->uri[0] == '\0'
1240 node->namespace = info->activeNS[pos].namespace->index;
1243 info->activeNS[pos].namespace->uri);
1250 node->namespace = info->document->rootNode->firstAttr->namespace;
1264 if ((idatt = XML_GetIdAttributeIndex (info->parser)) != -1) {
1265 if (!info->document->ids) {
1266 info->document->ids = MALLOC (sizeof (Tcl_HashTable));
1267 Tcl_InitHashTable (info->document->ids, TCL_STRING_KEYS);
1269 h = Tcl_CreateHashEntry (info->document->ids,
1295 h = Tcl_CreateHashEntry(&HASHTAB(info->document, tdom_attrNames),
1309 if (TclOnly8Bits && info->encoding_8bit) {
1310 tdom_Utf8to8Bit(info->encoding_8bit, atPtr[1], &len);
1329 for (pos = info->activeNSpos; pos >= 0; pos--) {
1330 if ( ((prefix[0] == '\0') && (info->activeNS[pos].namespace->prefix[0] == '\0'))
1331 || ((prefix[0] != '\0') && (info->activeNS[pos].namespace->prefix[0] != '\0')
1332 && (strcmp(prefix, info->activeNS[pos].namespace->prefix) == 0))
1334 attrnode->namespace = info->activeNS[pos].namespace->index;
1337 info->activeNS[pos].namespace->uri);
1344 info->document->rootNode->firstAttr->namespace;
1356 info->depth++;
1369 domReadInfo *info = userData;
1371 DispatchPCDATA (info);
1373 info->depth--;
1376 while ( (info->activeNSpos >= 0) &&
1377 (info->activeNS[info->activeNSpos].depth == info->depth) )
1379 info->activeNSpos--;
1383 if (info->depth != -1) {
1384 info->currentNode = info->currentNode->parentNode;
1386 info->currentNode = NULL;
1389 if (info->depth) {
1390 if (info->baseURIstack[info->baseURIstackPos].depth == info->depth) {
1391 info->baseURIstackPos--;
1407 domReadInfo *info = userData;
1409 Tcl_DStringAppend (info->cdata, s, len);
1420 domReadInfo *info
1430 s = Tcl_DStringValue (info->cdata);
1431 len = Tcl_DStringLength (info->cdata);
1434 if (TclOnly8Bits && info->encoding_8bit) {
1435 tdom_Utf8to8Bit( info->encoding_8bit, s, &len);
1437 parentNode = info->currentNode;
1451 if (info->ignoreWhiteSpaces) {
1466 Tcl_DStringSetLength (info->cdata, 0);
1471 if (info->storeLineColumn) {
1481 node->nodeNumber = NODE_NO(info->document);
1486 node->ownerDocument = info->document;
1498 if (info->baseURIstack[info->baseURIstackPos].baseURI
1499 != XML_GetBase (info->parser)) {
1500 h = Tcl_CreateHashEntry (info->document->baseURIs,
1503 Tcl_SetHashValue (h, tdomstrdup (XML_GetBase (info->parser)));
1507 if (info->storeLineColumn) {
1510 lc->line = XML_GetCurrentLineNumber(info->parser);
1511 lc->column = XML_GetCurrentColumnNumber(info->parser);
1514 Tcl_DStringSetLength (info->cdata, 0);
1528 domReadInfo *info = userData;
1535 if (info->insideDTD) {
1540 DispatchPCDATA (info);
1543 if (TclOnly8Bits && info->encoding_8bit) {
1544 tdom_Utf8to8Bit(info->encoding_8bit, s, &len);
1546 parentNode = info->currentNode;
1548 if (info->storeLineColumn) {
1558 node->nodeNumber = NODE_NO(info->document);
1563 node->ownerDocument = info->document;
1566 if (info->document->rootNode->lastChild) {
1567 info->document->rootNode->lastChild->nextSibling = (domNode*)node;
1568 node->previousSibling = info->document->rootNode->lastChild;
1570 info->document->rootNode->firstChild = (domNode*)node;
1572 info->document->rootNode->lastChild = (domNode*)node;
1583 if (info->baseURIstack[info->baseURIstackPos].baseURI
1584 != XML_GetBase (info->parser)) {
1585 h = Tcl_CreateHashEntry (info->document->baseURIs,
1588 Tcl_SetHashValue (h, tdomstrdup (XML_GetBase (info->parser)));
1592 if (info->storeLineColumn) {
1595 lc->line = XML_GetCurrentLineNumber(info->parser);
1596 lc->column = XML_GetCurrentColumnNumber(info->parser);
1613 domReadInfo *info = userData;
1619 if (info->insideDTD) {
1625 DispatchPCDATA (info);
1627 parentNode = info->currentNode;
1629 if (info->storeLineColumn) {
1641 node->nodeNumber = NODE_NO(info->document);
1643 if (info->baseURIstack[info->baseURIstackPos].baseURI
1644 != XML_GetBase (info->parser)) {
1645 h = Tcl_CreateHashEntry (info->document->baseURIs,
1648 Tcl_SetHashValue (h, tdomstrdup (XML_GetBase (info->parser)));
1653 if (TclOnly8Bits && info->encoding_8bit) {
1654 tdom_Utf8to8Bit(info->encoding_8bit, target, &len);
1661 if (TclOnly8Bits && info->encoding_8bit) {
1662 tdom_Utf8to8Bit(info->encoding_8bit, data, &len);
1668 node->ownerDocument = info->document;
1671 if (info->document->rootNode->lastChild) {
1672 info->document->rootNode->lastChild->nextSibling = (domNode*)node;
1673 node->previousSibling = info->document->rootNode->lastChild;
1675 info->document->rootNode->firstChild = (domNode*)node;
1677 info->document->rootNode->lastChild = (domNode*)node;
1687 if (info->storeLineColumn) {
1690 lc->line = XML_GetCurrentLineNumber(info->parser);
1691 lc->column = XML_GetCurrentColumnNumber(info->parser);
1712 domReadInfo *info = (domReadInfo *) userData;
1717 if (!info->document->unparsedEntities) {
1718 info->document->unparsedEntities = MALLOC (sizeof (Tcl_HashTable));
1719 Tcl_InitHashTable (info->document->unparsedEntities,
1722 entryPtr = Tcl_CreateHashEntry (info->document->unparsedEntities,
1743 domReadInfo *info = (domReadInfo *) XML_GetUserData (parser);
1754 if (info->document->extResolver == NULL) {
1755 Tcl_AppendResult (info->interp, "Can't read external entity \"",
1761 DispatchPCDATA (info);
1766 cmdPtr = Tcl_NewStringObj(info->document->extResolver, -1);
1770 Tcl_ListObjAppendElement(info->interp, cmdPtr,
1773 Tcl_ListObjAppendElement(info->interp, cmdPtr,
1783 Tcl_ListObjAppendElement(info->interp, cmdPtr,
1786 Tcl_ListObjAppendElement(info->interp, cmdPtr,
1791 Tcl_ListObjAppendElement(info->interp, cmdPtr,
1794 Tcl_ListObjAppendElement(info->interp, cmdPtr,
1800 result = Tcl_GlobalEvalObj(info->interp, cmdPtr);
1802 result = Tcl_EvalObjEx (info->interp, cmdPtr,
1814 resultObj = Tcl_GetObjResult (info->interp);
1817 result = Tcl_ListObjLength (info->interp, resultObj, &tclLen);
1821 result = Tcl_ListObjIndex (info->interp, resultObj, 0, &resultTypeObj);
1828 result = Tcl_ListObjIndex (info->interp, resultObj, 2, &xmlstringObj);
1835 result = Tcl_ListObjIndex (info->interp, resultObj, 2, &channelIdObj);
1837 chan = Tcl_GetChannel (info->interp, channelId, &mode);
1851 result = Tcl_ListObjIndex (info->interp, resultObj, 1, &extbaseObj);
1861 Tcl_SetResult (info->interp,
1867 oldparser = info->parser;
1868 info->parser = extparser;
1873 Tcl_ResetResult (info->interp);
1875 Tcl_AppendResult(info->interp, "error \"",
1880 Tcl_AppendResult(info->interp, s, NULL);
1883 Tcl_AppendResult(info->interp, "\n\"", NULL);
1889 Tcl_AppendResult(info->interp, s, NULL);
1891 Tcl_AppendResult(info->interp,
1899 Tcl_AppendResult(info->interp, "\"",NULL);
1903 info->parser = oldparser;
1911 Tcl_ResetResult (info->interp);
1913 Tcl_AppendResult(info->interp, "error \"",
1918 Tcl_AppendResult(info->interp, s, NULL);
1921 info->parser = oldparser;
1927 DispatchPCDATA (info);
1930 info->parser = oldparser;
1933 Tcl_ResetResult (info->interp);
1938 Tcl_ResetResult (info->interp);
1941 info->parser = oldparser;
1943 Tcl_AppendResult (info->interp, "The -externalentitycommand script "
1963 domReadInfo *info = (domReadInfo *) userData;
1966 info->document->doctype = (domDocInfo*)MALLOC (sizeof (domDocInfo));
1967 memset (info->document->doctype, 0, sizeof (domDocInfo));
1968 info->document->doctype->systemId = tdomstrdup (sysid);
1969 info->document->doctype->publicId = tdomstrdup (pubid);
1971 info->document->doctype = (domDocInfo*)MALLOC (sizeof (domDocInfo));
1972 memset (info->document->doctype, 0, sizeof (domDocInfo));
1973 info->document->doctype->systemId = tdomstrdup (sysid);
1975 info->insideDTD = 1;
1987 domReadInfo *info = (domReadInfo *) userData;
1989 info->insideDTD = 0;
2015 domReadInfo info;
2027 info.parser = parser;
2028 info.document = doc;
2029 info.currentNode = NULL;
2030 info.depth = 0;
2031 info.ignoreWhiteSpaces = ignoreWhiteSpaces;
2032 info.cdata = (Tcl_DString*) MALLOC (sizeof (Tcl_DString));
2033 Tcl_DStringInit (info.cdata);
2034 info.encoding_8bit = encoding_8bit;
2035 info.storeLineColumn = storeLineColumn;
2036 info.feedbackAfter = feedbackAfter;
2037 info.lastFeedbackPosition = 0;
2038 info.interp = interp;
2039 info.activeNSpos = -1;
2040 info.activeNSsize = 8;
2041 info.activeNS = (domActiveNS*) MALLOC (sizeof(domActiveNS)
2042 * info.activeNSsize);
2043 info.baseURIstackPos = 0;
2044 info.baseURIstackSize = INITIAL_BASEURISTACK_SIZE;
2045 info.baseURIstack = (domActiveBaseURI*)
2046 MALLOC (sizeof(domActiveBaseURI) * info.baseURIstackSize);
2047 info.insideDTD = 0;
2049 XML_SetUserData(parser, &info);
2053 info.baseURIstack[0].baseURI = XML_GetBase (parser);
2054 info.baseURIstack[0].depth = 0;
2071 FREE ( info.activeNS );
2072 FREE ( info.baseURIstack );
2073 Tcl_DStringFree (info.cdata);
2074 FREE ( info.cdata);
2082 FREE ( (char*) info.activeNS );
2083 FREE ( info.baseURIstack );
2084 Tcl_DStringFree (info.cdata);
2085 FREE ( info.cdata);
2097 FREE ( info.activeNS );
2098 FREE ( info.baseURIstack );
2099 Tcl_DStringFree (info.cdata);
2100 FREE ( info.cdata);
2113 FREE ( info.activeNS );
2114 FREE ( info.baseURIstack );
2115 Tcl_DStringFree (info.cdata);
2116 FREE ( info.cdata);
2129 FREE ( info.activeNS );
2130 FREE ( info.baseURIstack );
2132 Tcl_DStringFree (info.cdata);
2133 FREE ( info.cdata);
2139 FREE ( info.activeNS );
2140 FREE ( info.baseURIstack );
2141 Tcl_DStringFree (info.cdata);
2142 FREE ( info.cdata);
2674 | delete doctype info
5070 tdomCmdReadInfo *info = (tdomCmdReadInfo *) userData;
5072 if (info->document) {
5073 domFreeDocument (info->document, NULL, NULL);
5075 if (info->activeNS) {
5076 FREE (info->activeNS);
5078 if (info->baseURIstack) {
5079 FREE (info->baseURIstack);
5082 Tcl_DStringFree (info->cdata);
5083 FREE (info->cdata);
5084 if (info->extResolver) {
5085 Tcl_DecrRefCount (info->extResolver);
5087 FREE (info);
5096 tdomCmdReadInfo *info = (tdomCmdReadInfo *) userData;
5098 info->parser = parser;
5107 tdomCmdReadInfo *info = (tdomCmdReadInfo *) userData;
5109 if (!info->tdomStatus) return;
5111 if (info->document) {
5112 domFreeDocument (info->document, NULL, NULL);
5115 info->document = NULL;
5116 info->currentNode = NULL;
5117 info->depth = 0;
5118 info->feedbackAfter = 0;
5119 Tcl_DStringSetLength (info->cdata, 0);
5120 info->lastFeedbackPosition = 0;
5121 info->interp = interp;
5122 info->activeNSpos = -1;
5123 info->insideDTD = 0;
5124 info->baseURIstackPos = 0;
5125 info->tdomStatus = 0;
5135 tdomCmdReadInfo *info = (tdomCmdReadInfo *) userData;
5137 info->document = domCreateDoc(XML_GetBase (info->parser),
5138 info->storeLineColumn);
5139 if (info->extResolver) {
5140 info->document->extResolver =
5141 tdomstrdup (Tcl_GetString (info->extResolver));
5143 info->baseURIstack[0].baseURI = XML_GetBase (info->parser);
5144 info->baseURIstack[0].depth = 0;
5145 info->tdomStatus = 2;
5156 domReadInfo *info = userData;
5158 Tcl_DStringAppend (info->cdata, s, len);
5159 DispatchPCDATA (info);
5173 tdomCmdReadInfo *info;
5235 info = (tdomCmdReadInfo *) MALLOC (sizeof (tdomCmdReadInfo));
5236 info->parser = expat->parser;
5237 info->document = NULL;
5238 info->currentNode = NULL;
5239 info->depth = 0;
5240 info->ignoreWhiteSpaces = 1;
5241 info->cdata = (Tcl_DString*) MALLOC (sizeof (Tcl_DString));
5242 Tcl_DStringInit (info->cdata);
5243 info->encoding_8bit = 0;
5244 info->storeLineColumn = 0;
5245 info->feedbackAfter = 0;
5246 info->lastFeedbackPosition = 0;
5247 info->interp = interp;
5248 info->activeNSpos = -1;
5249 info->activeNSsize = 8;
5250 info->activeNS =
5251 (domActiveNS*) MALLOC(sizeof(domActiveNS) * info->activeNSsize);
5252 info->baseURIstackPos = 0;
5253 info->baseURIstackSize = INITIAL_BASEURISTACK_SIZE;
5254 info->baseURIstack = (domActiveBaseURI*)
5255 MALLOC (sizeof(domActiveBaseURI) * info->baseURIstackSize);
5256 info->insideDTD = 0;
5257 info->tdomStatus = 0;
5258 info->extResolver = NULL;
5260 handlerSet->userData = info;
5266 info = CHandlerSetGetUserData (interp, objv[1], "tdom");
5267 if (!info) {
5272 if (info->tdomStatus != 2 || !expat->finished) {
5276 domSetDocumentElement (info->document);
5277 result = tcldom_returnDocumentObj (interp, info->document, 0,
5279 info->document = NULL;
5283 info = CHandlerSetGetUserData (interp, objv[1], "tdom");
5284 if (!info) {
5288 if (info->encoding_8bit == NULL) {
5293 tdom_GetEncodingName (info->encoding_8bit),
5304 info->encoding_8bit = NULL;
5311 info->encoding_8bit = encoding;
5314 info->tdomStatus = 1;
5318 info = CHandlerSetGetUserData (interp, objv[1], "tdom");
5319 if (!info) {
5323 Tcl_SetIntObj (Tcl_GetObjResult (interp), info->storeLineColumn);
5326 info->storeLineColumn = bool;
5328 info->tdomStatus = 1;
5344 info = CHandlerSetGetUserData (interp, objv[1], "tdom");
5345 if (!info) {
5349 if (info->extResolver) {
5350 Tcl_DecrRefCount (info->extResolver);
5353 info->extResolver = NULL;
5355 info->extResolver = objv[3];
5356 Tcl_IncrRefCount (info->extResolver);
5358 info->tdomStatus = 1;
5368 info = handlerSet->userData;
5369 if (!info) {
5373 Tcl_SetIntObj (Tcl_GetObjResult (interp), info->ignoreWhiteSpaces);
5375 info->ignoreWhiteSpaces = !bool;
5377 info->tdomStatus = 1;