tclxml/tclxslt/tclxslt.c

101 static void TclXSLT_RegisterAll _ANSI_ARGS_((TclXSLT_Extension *extinfo,
811   TclXSLT_Extension *extinfo;
838     extinfo = (TclXSLT_Extension *) Tcl_Alloc(sizeof(TclXSLT_Extension));
839     extinfo->interp = interp;
840     extinfo->nsuri = objv[2];
842     extinfo->tclns = objv[3];
845     extinfo->xformCtxt = NULL;
851       Tcl_Free((char *) extinfo);
855     Tcl_SetHashValue(entry, extinfo);
857     TclXSLT_RegisterAll(extinfo, (const xmlChar *) Tcl_GetStringFromObj(objv[2], NULL));
879     extinfo = (TclXSLT_Extension *) Tcl_GetHashValue(entry);
880     Tcl_DecrRefCount(extinfo->nsuri);
881     Tcl_DecrRefCount(extinfo->tclns);
882     Tcl_Free((char *) extinfo);
920   TclXSLT_Extension *extinfo;
928   extinfo = (TclXSLT_Extension *) Tcl_GetHashValue(entry);
929   extinfo->xformCtxt = ctxt;
931   return (void *) extinfo;
935 TclXSLT_RegisterAll(extinfo, nsuri)
936     TclXSLT_Extension *extinfo;
953   Tcl_AppendObjToObj(cmdPtr, extinfo->tclns);
954   ret = Tcl_EvalObjEx(extinfo->interp, cmdPtr, TCL_EVAL_GLOBAL|TCL_EVAL_DIRECT);
955   objPtr = Tcl_GetObjResult(extinfo->interp);
966   ret = Tcl_ListObjGetElements(extinfo->interp, objPtr, &len, &reg);
983   ret = Tcl_ListObjLength(extinfo->interp, reg[0], &len);
987       if (Tcl_ListObjIndex(extinfo->interp, reg[0], i, &objPtr) != TCL_OK) {
1002   ret = Tcl_ListObjLength(extinfo->interp, reg[1], &len);
1009     if (Tcl_ListObjIndex(extinfo->interp, reg[1], i, &objPtr) != TCL_OK) {
1073   TclXSLT_Extension *extinfo;
1091   extinfo = (TclXSLT_Extension *) Tcl_GetHashValue(entry);
1097   cmdPtr = Tcl_DuplicateObj(extinfo->tclns);
1100   if (Tcl_ListObjAppendElement(extinfo->interp, cmdPtr, TclDOM_CreateObjFromNode(node)) != TCL_OK) {
1119   ret = Tcl_EvalObjEx(extinfo->interp, cmdPtr, TCL_EVAL_GLOBAL | TCL_EVAL_DIRECT);
1121     Tcl_BackgroundError(extinfo->interp);
1148   TclXSLT_Extension *extinfo;
1160   extinfo = (TclXSLT_Extension *) xsltGetExtData(xformCtxt,
1167   cmdPtr = Tcl_DuplicateObj(extinfo->tclns);
1186     objv[0] = TclXSLT_ConvertXPathObjToTclObj(extinfo->interp, obj);
1188     if (Tcl_ListObjReplace(extinfo->interp, cmdPtr, 1, 0, 1, objv) != TCL_OK) {
1189       Tcl_BackgroundError(extinfo->interp);
1211   ret = Tcl_EvalObjEx(extinfo->interp, cmdPtr, TCL_EVAL_GLOBAL | TCL_EVAL_DIRECT);
1212   resultPtr = Tcl_GetObjResult(extinfo->interp);
1217     obj = TclXSLT_ConvertTclObjToXPathObj(extinfo->interp, resultPtr);