Lines Matching refs:interp
1295 Tcl_Interp *interp; /* Interpreter in which to run the script */ member
1324 Tcl_ObjSetVar2(p->interp, pVarname, 0, Tcl_NewWideIntObj(*piLimit), 0); in tclQuotaCallback()
1331 rc = Tcl_EvalObjEx(p->interp, pEval, TCL_EVAL_GLOBAL); in tclQuotaCallback()
1335 Tcl_Obj *pLimit = Tcl_ObjGetVar2(p->interp, pVarname, 0, 0); in tclQuotaCallback()
1336 rc = Tcl_GetWideIntFromObj(p->interp, pLimit, &x); in tclQuotaCallback()
1338 Tcl_UnsetVar(p->interp, Tcl_GetString(pVarname), 0); in tclQuotaCallback()
1343 if( rc!=TCL_OK ) Tcl_BackgroundError(p->interp); in tclQuotaCallback()
1362 Tcl_Interp *interp, in test_quota_initialize() argument
1372 Tcl_WrongNumArgs(interp, 1, objv, "NAME MAKEDEFAULT"); in test_quota_initialize()
1376 if( Tcl_GetBooleanFromObj(interp, objv[2], &makeDefault) ) return TCL_ERROR; in test_quota_initialize()
1381 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_STATIC); in test_quota_initialize()
1391 Tcl_Interp *interp, in test_quota_shutdown() argument
1398 Tcl_WrongNumArgs(interp, 1, objv, ""); in test_quota_shutdown()
1404 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_STATIC); in test_quota_shutdown()
1414 Tcl_Interp *interp, in test_quota_set() argument
1429 Tcl_WrongNumArgs(interp, 1, objv, "PATTERN LIMIT SCRIPT"); in test_quota_set()
1433 if( Tcl_GetWideIntFromObj(interp, objv[2], &iLimit) ) return TCL_ERROR; in test_quota_set()
1441 Tcl_SetResult(interp, (char *)"SQLITE_NOMEM", TCL_STATIC); in test_quota_set()
1445 p->interp = interp; in test_quota_set()
1459 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_STATIC); in test_quota_set()
1468 Tcl_Interp *interp, in test_quota_file() argument
1477 Tcl_WrongNumArgs(interp, 1, objv, "FILENAME"); in test_quota_file()
1485 Tcl_SetResult(interp, (char *)sqlite3ErrName(rc), TCL_STATIC); in test_quota_file()
1494 Tcl_Interp *interp, in test_quota_dump() argument
1508 Tcl_ListObjAppendElement(interp, pGroupTerm, in test_quota_dump()
1510 Tcl_ListObjAppendElement(interp, pGroupTerm, in test_quota_dump()
1512 Tcl_ListObjAppendElement(interp, pGroupTerm, in test_quota_dump()
1520 Tcl_ListObjAppendElement(interp, pFileTerm, in test_quota_dump()
1522 Tcl_ListObjAppendElement(interp, pFileTerm, in test_quota_dump()
1524 Tcl_ListObjAppendElement(interp, pFileTerm, in test_quota_dump()
1526 Tcl_ListObjAppendElement(interp, pFileTerm, in test_quota_dump()
1528 Tcl_ListObjAppendElement(interp, pGroupTerm, pFileTerm); in test_quota_dump()
1530 Tcl_ListObjAppendElement(interp, pResult, pGroupTerm); in test_quota_dump()
1533 Tcl_SetObjResult(interp, pResult); in test_quota_dump()
1542 Tcl_Interp *interp, in test_quota_fopen() argument
1553 Tcl_WrongNumArgs(interp, 1, objv, "FILENAME MODE"); in test_quota_fopen()
1560 Tcl_SetResult(interp, zReturn, TCL_VOLATILE); in test_quota_fopen()
1572 Tcl_Interp *interp, in test_quota_fread() argument
1583 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE SIZE NELEM"); in test_quota_fread()
1587 if( Tcl_GetIntFromObj(interp, objv[2], &sz) ) return TCL_ERROR; in test_quota_fread()
1588 if( Tcl_GetIntFromObj(interp, objv[3], &nElem) ) return TCL_ERROR; in test_quota_fread()
1591 Tcl_SetResult(interp, "out of memory", TCL_STATIC); in test_quota_fread()
1596 Tcl_SetResult(interp, zBuf, TCL_VOLATILE); in test_quota_fread()
1606 Tcl_Interp *interp, in test_quota_fwrite() argument
1617 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE SIZE NELEM CONTENT"); in test_quota_fwrite()
1621 if( Tcl_GetIntFromObj(interp, objv[2], &sz) ) return TCL_ERROR; in test_quota_fwrite()
1622 if( Tcl_GetIntFromObj(interp, objv[3], &nElem) ) return TCL_ERROR; in test_quota_fwrite()
1625 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(got)); in test_quota_fwrite()
1634 Tcl_Interp *interp, in test_quota_fclose() argument
1642 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_quota_fclose()
1647 Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); in test_quota_fclose()
1656 Tcl_Interp *interp, in test_quota_fflush() argument
1665 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE ?HARDSYNC?"); in test_quota_fflush()
1670 if( Tcl_GetBooleanFromObj(interp, objv[2], &doSync) ) return TCL_ERROR; in test_quota_fflush()
1673 Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); in test_quota_fflush()
1682 Tcl_Interp *interp, in test_quota_fseek() argument
1693 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE OFFSET WHENCE"); in test_quota_fseek()
1697 if( Tcl_GetIntFromObj(interp, objv[2], &ofst) ) return TCL_ERROR; in test_quota_fseek()
1706 Tcl_AppendResult(interp, in test_quota_fseek()
1711 Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); in test_quota_fseek()
1720 Tcl_Interp *interp, in test_quota_rewind() argument
1726 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_quota_rewind()
1739 Tcl_Interp *interp, in test_quota_ftell() argument
1746 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_quota_ftell()
1751 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(x)); in test_quota_ftell()
1760 Tcl_Interp *interp, in test_quota_ftruncate() argument
1769 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE SIZE"); in test_quota_ftruncate()
1773 if( Tcl_GetWideIntFromObj(interp, objv[2], &w) ) return TCL_ERROR; in test_quota_ftruncate()
1776 Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); in test_quota_ftruncate()
1785 Tcl_Interp *interp, in test_quota_file_size() argument
1792 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_quota_file_size()
1797 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(x)); in test_quota_file_size()
1806 Tcl_Interp *interp, in test_quota_file_truesize() argument
1813 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_quota_file_truesize()
1818 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(x)); in test_quota_file_truesize()
1827 Tcl_Interp *interp, in test_quota_file_mtime() argument
1834 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_quota_file_mtime()
1840 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(t)); in test_quota_file_mtime()
1850 Tcl_Interp *interp, in test_quota_remove() argument
1857 Tcl_WrongNumArgs(interp, 1, objv, "FILENAME"); in test_quota_remove()
1862 Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); in test_quota_remove()
1874 Tcl_Interp *interp, in test_quota_glob() argument
1882 Tcl_WrongNumArgs(interp, 1, objv, "PATTERN TEXT"); in test_quota_glob()
1888 Tcl_SetObjResult(interp, Tcl_NewIntObj(rc)); in test_quota_glob()
1900 Tcl_Interp *interp, in test_quota_file_available() argument
1907 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_quota_file_available()
1912 Tcl_SetObjResult(interp, Tcl_NewWideIntObj(x)); in test_quota_file_available()
1923 Tcl_Interp *interp, in test_quota_ferror() argument
1930 Tcl_WrongNumArgs(interp, 1, objv, "HANDLE"); in test_quota_ferror()
1935 Tcl_SetObjResult(interp, Tcl_NewIntObj(x)); in test_quota_ferror()
1944 int Sqlitequota_Init(Tcl_Interp *interp){ in Sqlitequota_Init() argument
1974 Tcl_CreateObjCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0); in Sqlitequota_Init()