Lines Matching refs:interp
142 static int parse_client_id(Tcl_Interp *interp, const char *zArg){ in parse_client_id() argument
144 Tcl_AppendResult(interp, "thread ID must be an upper case letter", 0); in parse_client_id()
158 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_create() argument
167 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_create()
171 i = parse_client_id(interp, argv[1]); in tcl_client_create()
174 Tcl_AppendResult(interp, "thread ", argv[1], " is already running", 0); in tcl_client_create()
184 Tcl_AppendResult(interp, "failed to create the thread", 0); in tcl_client_create()
211 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_wait() argument
218 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_wait()
222 i = parse_client_id(interp, argv[1]); in tcl_client_wait()
225 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_wait()
255 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_halt() argument
262 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_halt()
273 i = parse_client_id(interp, argv[1]); in tcl_client_halt()
276 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_halt()
303 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_argc() argument
311 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_argc()
315 i = parse_client_id(interp, argv[1]); in tcl_client_argc()
318 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_argc()
323 Tcl_AppendResult(interp, zBuf, 0); in tcl_client_argc()
335 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_argv() argument
343 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_argv()
347 i = parse_client_id(interp, argv[1]); in tcl_client_argv()
350 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_argv()
353 if( Tcl_GetInt(interp, argv[2], &n) ) return TCL_ERROR; in tcl_client_argv()
356 Tcl_AppendResult(interp, "column number out of range", 0); in tcl_client_argv()
359 Tcl_AppendResult(interp, threadset[i].argv[n], 0); in tcl_client_argv()
371 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_colname() argument
379 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_colname()
383 i = parse_client_id(interp, argv[1]); in tcl_client_colname()
386 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_colname()
389 if( Tcl_GetInt(interp, argv[2], &n) ) return TCL_ERROR; in tcl_client_colname()
392 Tcl_AppendResult(interp, "column number out of range", 0); in tcl_client_colname()
395 Tcl_AppendResult(interp, threadset[i].colv[n], 0); in tcl_client_colname()
409 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_result() argument
417 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_result()
421 i = parse_client_id(interp, argv[1]); in tcl_client_result()
424 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_result()
429 Tcl_AppendResult(interp, zName, 0); in tcl_client_result()
441 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_error() argument
448 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_error()
452 i = parse_client_id(interp, argv[1]); in tcl_client_error()
455 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_error()
459 Tcl_AppendResult(interp, threadset[i].zErr, 0); in tcl_client_error()
486 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_compile() argument
492 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_compile()
496 i = parse_client_id(interp, argv[1]); in tcl_client_compile()
499 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_compile()
539 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_step() argument
545 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_step()
549 i = parse_client_id(interp, argv[1]); in tcl_client_step()
552 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_step()
581 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_finalize() argument
587 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_finalize()
591 i = parse_client_id(interp, argv[1]); in tcl_client_finalize()
594 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_finalize()
625 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_reset() argument
631 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_reset()
635 i = parse_client_id(interp, argv[1]); in tcl_client_reset()
638 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_reset()
656 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_client_swap() argument
663 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_client_swap()
667 i = parse_client_id(interp, argv[1]); in tcl_client_swap()
670 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_swap()
674 j = parse_client_id(interp, argv[2]); in tcl_client_swap()
677 Tcl_AppendResult(interp, "no such thread", 0); in tcl_client_swap()
690 int Sqlitetest7_Init(Tcl_Interp *interp){ in Sqlitetest7_Init() argument
712 Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0); in Sqlitetest7_Init()
717 int Sqlitetest7_Init(Tcl_Interp *interp){ return TCL_OK; } in Sqlitetest7_Init() argument