Lines Matching refs:pCmd
445 ** Look at the script prefix in pCmd. We will be executing this script
456 static int safeToUseEvalObjv(Tcl_Interp *interp, Tcl_Obj *pCmd){
459 ** characters appear in pCmd, we will report the string as unsafe.
463 z = Tcl_GetStringFromObj(pCmd, &n);
652 Tcl_Obj *pCmd;
659 pCmd = Tcl_NewStringObj(pDb->zTraceV2, -1);
660 Tcl_IncrRefCount(pCmd);
661 Tcl_ListObjAppendElement(pDb->interp, pCmd,
663 Tcl_ListObjAppendElement(pDb->interp, pCmd,
665 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT);
666 Tcl_DecrRefCount(pCmd);
674 pCmd = Tcl_NewStringObj(pDb->zTraceV2, -1);
675 Tcl_IncrRefCount(pCmd);
676 Tcl_ListObjAppendElement(pDb->interp, pCmd,
678 Tcl_ListObjAppendElement(pDb->interp, pCmd,
680 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT);
681 Tcl_DecrRefCount(pCmd);
688 pCmd = Tcl_NewStringObj(pDb->zTraceV2, -1);
689 Tcl_IncrRefCount(pCmd);
690 Tcl_ListObjAppendElement(pDb->interp, pCmd,
692 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT);
693 Tcl_DecrRefCount(pCmd);
700 pCmd = Tcl_NewStringObj(pDb->zTraceV2, -1);
701 Tcl_IncrRefCount(pCmd);
702 Tcl_ListObjAppendElement(pDb->interp, pCmd,
704 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT);
705 Tcl_DecrRefCount(pCmd);
832 Tcl_Obj *pCmd;
842 pCmd = Tcl_DuplicateObj(pDb->pPreUpdateHook);
843 Tcl_IncrRefCount(pCmd);
844 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(azStr[(op-1)/9], -1));
845 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(zDb, -1));
846 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(zTbl, -1));
847 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewWideIntObj(iKey1));
848 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewWideIntObj(iKey2));
849 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT);
850 Tcl_DecrRefCount(pCmd);
862 Tcl_Obj *pCmd;
872 pCmd = Tcl_DuplicateObj(pDb->pUpdateHook);
873 Tcl_IncrRefCount(pCmd);
874 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(azStr[(op-1)/9], -1));
875 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(zDb, -1));
876 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewStringObj(zTbl, -1));
877 Tcl_ListObjAppendElement(0, pCmd, Tcl_NewWideIntObj(rowid));
878 Tcl_EvalObjEx(pDb->interp, pCmd, TCL_EVAL_DIRECT);
879 Tcl_DecrRefCount(pCmd);
908 Tcl_Obj *pCmd;
910 pCmd = Tcl_NewStringObj(p->zScript, -1);
911 Tcl_IncrRefCount(pCmd);
912 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zA, nA));
913 Tcl_ListObjAppendElement(p->interp, pCmd, Tcl_NewStringObj(zB, nB));
914 Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT);
915 Tcl_DecrRefCount(pCmd);
925 Tcl_Obj *pCmd;
934 pCmd = p->pScript;
935 Tcl_IncrRefCount(pCmd);
936 rc = Tcl_EvalObjEx(p->interp, pCmd, 0);
937 Tcl_DecrRefCount(pCmd);
954 pCmd = Tcl_NewListObj(nArg, aArg);
955 Tcl_IncrRefCount(pCmd);
991 rc = Tcl_ListObjAppendElement(p->interp, pCmd, pVal);
993 Tcl_DecrRefCount(pCmd);
999 /* Tcl_EvalObjEx() will automatically call Tcl_EvalObjv() if pCmd
1001 ** happening, make sure pCmd has a valid string representation */
1002 Tcl_GetString(pCmd);
1004 rc = Tcl_EvalObjEx(p->interp, pCmd, TCL_EVAL_DIRECT);
1005 Tcl_DecrRefCount(pCmd);
1403 Tcl_Obj *pCmd;
1405 pCmd = Tcl_NewStringObj(pDb->zBindFallback, -1);
1406 Tcl_IncrRefCount(pCmd);
1407 Tcl_ListObjAppendElement(interp, pCmd, Tcl_NewStringObj(zVar,-1));
1410 rx = Tcl_EvalObjEx(interp, pCmd, TCL_EVAL_DIRECT);
1411 Tcl_DecrRefCount(pCmd);