Cross Reference: /osnet-11/usr/src/lib/libsqlite/src/test1.c

Lines Matching refs:interp
36 static int getDbPointer(Tcl_Interp *interp, const char *zA, sqlite **ppDb){
40     Tcl_AppendResult(interp, "\"", zA, "\" is not a valid pointer value", 0);
49 static int getVmPointer(Tcl_Interp *interp, const char *zArg, sqlite_vm **ppVm){
51     Tcl_AppendResult(interp, "\"", zArg, "\" is not a valid pointer value", 0);
70 static int makePointerStr(Tcl_Interp *interp, char *zPtr, void *p){
76       Tcl_AppendResult(interp, "unable to convert a pointer to a string "
94   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
102     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
108     Tcl_AppendResult(interp, zErr, 0);
112   if( makePointerStr(interp, zBuf, db) ) return TCL_ERROR;
113   Tcl_AppendResult(interp, zBuf, 0);
144   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
154     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
158   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
162   Tcl_AppendElement(interp, zBuf);
163   Tcl_AppendElement(interp, rc==SQLITE_OK ? Tcl_DStringValue(&str) : zErr);
178   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
188   Tcl_AppendResult(interp, zResult, 0);
202   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
215     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
219   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
224   Tcl_AppendElement(interp, zBuf);
227     Tcl_AppendElement(interp, zBuf);
229     Tcl_AppendElement(interp, zBuf);
231       Tcl_AppendElement(interp, aResult[i] ? aResult[i] : "NULL");
234     Tcl_AppendElement(interp, zErr);
249   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
257     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], " DB\"", 0);
260   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
262   Tcl_AppendResult(interp, zBuf, 0);
273   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
279     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
283   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
387   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
394     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
398   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
437   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
443     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
447   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
462   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
469     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
474     if( Tcl_GetInt(interp, argv[i], &a[i-2]) ) return TCL_ERROR;
477   Tcl_AppendResult(interp, z, 0);
489   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
496     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
501     if( Tcl_GetInt(interp, argv[i], &a[i-2]) ) return TCL_ERROR;
504   Tcl_AppendResult(interp, z, 0);
516   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
524     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
529     if( Tcl_GetInt(interp, argv[i], &a[i-2]) ) return TCL_ERROR;
531   if( Tcl_GetDouble(interp, argv[4], &r) ) return TCL_ERROR;
533   Tcl_AppendResult(interp, z, 0);
547   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
555     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
560     if( Tcl_GetDouble(interp, argv[i], &r[i-2]) ) return TCL_ERROR;
563   Tcl_AppendResult(interp, z, 0);
577   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
583     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], " N\"", 0);
586   if( Tcl_GetInt(interp, argv[1], &n) ) return TCL_ERROR;
601   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
607   Tcl_AppendResult(interp, zBuf, 0);
621   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
625   assert( interp==0 );   /* This will always fail */
663   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
670     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
674   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
677     Tcl_AppendResult(interp, sqlite_error_string(rc), 0);
693   Tcl_Interp *interp = (Tcl_Interp*)pArg;
701     Tcl_ListObjAppendElement(interp, pList, pElem);
703   Tcl_SetObjResult(interp, pList);
716   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
723     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
727   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
728   rc = sqlite_exec(db, argv[2], rememberDataTypes, interp, 0);
730     Tcl_AppendResult(interp, sqlite_error_string(rc), 0);
745   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
756     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
760   if( getDbPointer(interp, argv[1], &db) ) return TCL_ERROR;
762   if( argc==4 ) Tcl_SetVar(interp, argv[3], zTail, 0);
766     Tcl_AppendResult(interp, zBuf, zErr, 0);
771     if( makePointerStr(interp, zBuf, vm) ) return TCL_ERROR;
772     Tcl_AppendResult(interp, zBuf, 0);
785   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
797     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
801   if( getVmPointer(interp, argv[1], &vm) ) return TCL_ERROR;
805     Tcl_SetVar(interp, argv[2], zBuf, 0);
808     Tcl_SetVar(interp, argv[3], "", 0);
811         Tcl_SetVar(interp, argv[3], azValue[i] ? azValue[i] : "",
817     Tcl_SetVar(interp, argv[4], "", 0);
820         Tcl_SetVar(interp, argv[4], azColName[i] ? azColName[i] : "",
833   Tcl_AppendResult(interp, zRc, 0);
844   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
852     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
856   if( getVmPointer(interp, argv[1], &vm) ) return TCL_ERROR;
861     Tcl_AppendResult(interp, zBuf, zErrMsg, 0);
875   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
883     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
887   if( getVmPointer(interp, argv[1], &vm) ) return TCL_ERROR;
892     Tcl_AppendResult(interp, zBuf, zErrMsg, 0);
917   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
925     Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], 
929   if( getVmPointer(interp, argv[1], &vm) ) return TCL_ERROR;
930   if( Tcl_GetInt(interp, argv[2], &idx) ) return TCL_ERROR;
938     Tcl_AppendResult(interp, "4th argument should be "
945     Tcl_AppendResult(interp, zBuf, sqlite_error_string(rc), 0);
966   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
976 int Sqlitetest1_Init(Tcl_Interp *interp){
1015     Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0);
1017   Tcl_LinkVar(interp, "sqlite_search_count", 
1019   Tcl_LinkVar(interp, "sqlite_interrupt_count", 
1021   Tcl_LinkVar(interp, "sqlite_open_file_count", 
1023   Tcl_LinkVar(interp, "sqlite_current_time", 
1025   Tcl_LinkVar(interp, "sqlite_static_bind_value",
1027   Tcl_LinkVar(interp, "sqlite_temp_directory",