Lines Matching refs:interp
124 static int parse_thread_id(Tcl_Interp *interp, const char *zArg){ in parse_thread_id() argument
126 Tcl_AppendResult(interp, "thread ID must be an upper case letter", 0); in parse_thread_id()
140 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_create() argument
149 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_create()
153 i = parse_thread_id(interp, argv[1]); in tcl_thread_create()
156 Tcl_AppendResult(interp, "thread ", argv[1], " is already running", 0); in tcl_thread_create()
166 Tcl_AppendResult(interp, "failed to create the thread", 0); in tcl_thread_create()
191 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_wait() argument
198 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_wait()
202 i = parse_thread_id(interp, argv[1]); in tcl_thread_wait()
205 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_wait()
235 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_halt() argument
242 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_halt()
251 i = parse_thread_id(interp, argv[1]); in tcl_thread_halt()
254 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_halt()
270 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_argc() argument
278 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_argc()
282 i = parse_thread_id(interp, argv[1]); in tcl_thread_argc()
285 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_argc()
290 Tcl_AppendResult(interp, zBuf, 0); in tcl_thread_argc()
302 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_argv() argument
310 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_argv()
314 i = parse_thread_id(interp, argv[1]); in tcl_thread_argv()
317 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_argv()
320 if( Tcl_GetInt(interp, argv[2], &n) ) return TCL_ERROR; in tcl_thread_argv()
323 Tcl_AppendResult(interp, "column number out of range", 0); in tcl_thread_argv()
326 Tcl_AppendResult(interp, threadset[i].argv[n], 0); in tcl_thread_argv()
338 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_colname() argument
346 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_colname()
350 i = parse_thread_id(interp, argv[1]); in tcl_thread_colname()
353 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_colname()
356 if( Tcl_GetInt(interp, argv[2], &n) ) return TCL_ERROR; in tcl_thread_colname()
359 Tcl_AppendResult(interp, "column number out of range", 0); in tcl_thread_colname()
362 Tcl_AppendResult(interp, threadset[i].colv[n], 0); in tcl_thread_colname()
374 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_result() argument
382 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_result()
386 i = parse_thread_id(interp, argv[1]); in tcl_thread_result()
389 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_result()
394 Tcl_AppendResult(interp, zName, 0); in tcl_thread_result()
406 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_error() argument
413 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_error()
417 i = parse_thread_id(interp, argv[1]); in tcl_thread_error()
420 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_error()
424 Tcl_AppendResult(interp, threadset[i].zErr, 0); in tcl_thread_error()
451 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_compile() argument
457 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_compile()
461 i = parse_thread_id(interp, argv[1]); in tcl_thread_compile()
464 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_compile()
505 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_step() argument
511 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_step()
515 i = parse_thread_id(interp, argv[1]); in tcl_thread_step()
518 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_step()
548 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_finalize() argument
554 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_finalize()
558 i = parse_thread_id(interp, argv[1]); in tcl_thread_finalize()
561 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_finalize()
580 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_swap() argument
587 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_swap()
591 i = parse_thread_id(interp, argv[1]); in tcl_thread_swap()
594 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_swap()
598 j = parse_thread_id(interp, argv[2]); in tcl_thread_swap()
601 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_swap()
620 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_db_get() argument
628 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_db_get()
632 i = parse_thread_id(interp, argv[1]); in tcl_thread_db_get()
635 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_db_get()
639 sqlite3TestMakePointerStr(interp, zBuf, threadset[i].db); in tcl_thread_db_get()
641 Tcl_AppendResult(interp, zBuf, (char*)0); in tcl_thread_db_get()
651 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_db_put() argument
659 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_db_put()
663 i = parse_thread_id(interp, argv[1]); in tcl_thread_db_put()
666 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_db_put()
683 Tcl_Interp *interp, /* The TCL interpreter that invoked this command */ in tcl_thread_stmt_get() argument
691 Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], in tcl_thread_stmt_get()
695 i = parse_thread_id(interp, argv[1]); in tcl_thread_stmt_get()
698 Tcl_AppendResult(interp, "no such thread", 0); in tcl_thread_stmt_get()
702 sqlite3TestMakePointerStr(interp, zBuf, threadset[i].pStmt); in tcl_thread_stmt_get()
704 Tcl_AppendResult(interp, zBuf, (char*)0); in tcl_thread_stmt_get()
711 int Sqlitetest4_Init(Tcl_Interp *interp){ in Sqlitetest4_Init() argument
735 Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0); in Sqlitetest4_Init()
740 int Sqlitetest4_Init(Tcl_Interp *interp){ return TCL_OK; } in Sqlitetest4_Init() argument