30   Tcl_Interp *interp;  member
36   Tcl_Interp *interp;  member
42   Tcl_EvalObjEx(p->interp, p->pScript, 0);  in testDelUser()
57     Tcl_Interp *interp = pCtx->interp;  in invokeTclGeomCb()  local
67     Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj(zName,-1));  in invokeTclGeomCb()
70     Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj(aPtr,-1));  in invokeTclGeomCb()
75           interp, pParam, Tcl_NewDoubleObj(p->aParam[ii])  in invokeTclGeomCb()
78     Tcl_ListObjAppendElement(interp, pScript, pParam);  in invokeTclGeomCb()
82       Tcl_ListObjAppendElement(interp, pCoord, Tcl_NewDoubleObj(aCoord[ii]));  in invokeTclGeomCb()
84     Tcl_ListObjAppendElement(interp, pScript, pCoord);  in invokeTclGeomCb()
87     Tcl_ListObjAppendElement(interp, pScript, Tcl_NewStringObj(aPtr,-1));  in invokeTclGeomCb()
89     rc = Tcl_EvalObjEx(interp, pScript, 0);  in invokeTclGeomCb()
96       pRes = Tcl_GetObjResult(interp);  in invokeTclGeomCb()
97       if( Tcl_ListObjGetElements(interp, pRes, &nObj, &aObj) ) return TCL_ERROR;  in invokeTclGeomCb()
112               pBGCtx->interp = interp;  in invokeTclGeomCb()
115               Tcl_ListObjReplace(interp, pBGCtx->pScript, 0, 1, 0, 0);  in invokeTclGeomCb()
175   Tcl_Interp *interp,  in register_box_geom()  argument
186     Tcl_WrongNumArgs(interp, 1, objv, "DB SCRIPT");  in register_box_geom()
189   if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR;  in register_box_geom()
192   pCtx->interp = interp;  in register_box_geom()
199   Tcl_SetObjResult(interp, Tcl_NewStringObj(aPtr, -1));  in register_box_geom()
206   Tcl_Interp *interp = pCtx->interp;  in box_query()  local
223     Tcl_ListObjAppendElement(interp, pTmp, p);  in box_query()
225   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewStringObj("aParam", -1));  in box_query()
226   Tcl_ListObjAppendElement(interp, pArg, pTmp);  in box_query()
234     Tcl_ListObjAppendElement(interp, pTmp, p);  in box_query()
236   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewStringObj("aCoord", -1));  in box_query()
237   Tcl_ListObjAppendElement(interp, pArg, pTmp);  in box_query()
245     Tcl_ListObjAppendElement(interp, pTmp, p);  in box_query()
247   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewStringObj("anQueue", -1));  in box_query()
248   Tcl_ListObjAppendElement(interp, pArg, pTmp);  in box_query()
252   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewStringObj("iLevel", -1));  in box_query()
253   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewIntObj(pInfo->iLevel));  in box_query()
256   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewStringObj("mxLevel", -1));  in box_query()
257   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewIntObj(pInfo->mxLevel));  in box_query()
260   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewStringObj("iRowid", -1));  in box_query()
261   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewWideIntObj(pInfo->iRowid));  in box_query()
264   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewStringObj("rParentScore", -1));  in box_query()
265   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewDoubleObj(pInfo->rParentScore));  in box_query()
272   Tcl_ListObjAppendElement(interp, pArg, Tcl_NewStringObj("eParentWithin", -1));  in box_query()
273   Tcl_ListObjAppendElement(interp, pArg,   in box_query()
277   Tcl_ListObjAppendElement(interp, pEval, pArg);  in box_query()
278   rc = Tcl_EvalObjEx(interp, pEval, 0) ? SQLITE_ERROR : SQLITE_OK;  in box_query()
285     Tcl_Obj *pRes = Tcl_GetObjResult(interp);  in box_query()
287     if( Tcl_ListObjGetElements(interp, pRes, &nObj, &aObj)   in box_query()
289      || Tcl_GetDoubleFromObj(interp, aObj[1], &rScore)  in box_query()
290      || Tcl_GetIndexFromObj(interp, aObj[0], azParentWithin, "value", 0, &eP)  in box_query()
312   Tcl_Interp *interp,  in register_box_query()  argument
322     Tcl_WrongNumArgs(interp, 1, objv, "DB SCRIPT");  in register_box_query()
325   if( getDbPointer(interp, Tcl_GetString(objv[1]), &db) ) return TCL_ERROR;  in register_box_query()
328   pCtx->interp = interp;  in register_box_query()
336   Tcl_ResetResult(interp);  in register_box_query()
342 int Sqlitetestrtreedoc_Init(Tcl_Interp *interp){  in Sqlitetestrtreedoc_Init()  argument
344   Tcl_CreateObjCommand(interp, "register_box_geom", register_box_geom, 0, 0);  in Sqlitetestrtreedoc_Init()
345   Tcl_CreateObjCommand(interp, "register_box_query", register_box_query, 0, 0);  in Sqlitetestrtreedoc_Init()