public static int Sqlitetest3_Init(Tcl_Interp interp) { _aCmd[] aCmd = new _aCmd[] { new _aCmd("btree_open", (Tcl_CmdProc)btree_open), new _aCmd("btree_close", (Tcl_CmdProc)btree_close), new _aCmd("btree_begin_transaction", (Tcl_CmdProc)btree_begin_transaction), new _aCmd("btree_pager_stats", (Tcl_CmdProc)btree_pager_stats), new _aCmd("btree_cursor", (Tcl_CmdProc)btree_cursor), new _aCmd("btree_close_cursor", (Tcl_CmdProc)btree_close_cursor), new _aCmd("btree_next", (Tcl_CmdProc)btree_next), //new _aCmd( "btree_eof", (Tcl_CmdProc)btree_eof ), new _aCmd("btree_payload_size", (Tcl_CmdProc)btree_payload_size), new _aCmd("btree_first", (Tcl_CmdProc)btree_first), new _aCmd("btree_varint_test", (Tcl_CmdProc)btree_varint_test), new _aCmd("btree_from_db", (Tcl_CmdProc)btree_from_db), new _aCmd("btree_ismemdb", (Tcl_CmdProc)btree_ismemdb), //new _aCmd( "btree_set_cache_size", (Tcl_CmdProc)btree_set_cache_size ), }; int i; for (i = 0; i < aCmd.Length; i++) { //sizeof(aCmd)/sizeof(aCmd[0]); i++){ TCL.Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, null, null); } return(TCL.TCL_OK); }
public static int Sqlitetest2_Init(Tcl_Interp interp) { //extern int sqlite3_io_error_persist; //extern int sqlite3_io_error_pending; //extern int sqlite3_io_error_hit; //extern int sqlite3_io_error_hardhit; //extern int sqlite3_diskfull_pending; //extern int sqlite3_diskfull; //extern int sqlite3_pager_n_sort_bucket; //static struct { // char *zName; // Tcl_CmdProc *xProc; //} aCmd[] = { _aCmd[] aCmd = new _aCmd[] { //new _aCmd( "pager_open", (Tcl_CmdProc)pager_open ), //new _aCmd( "pager_close", (Tcl_CmdProc)pager_close ), // { "pager_commit", (Tcl_CmdProc*)pager_commit }, // { "pager_rollback", (Tcl_CmdProc*)pager_rollback }, // { "pager_stmt_begin", (Tcl_CmdProc*)pager_stmt_begin }, // { "pager_stmt_commit", (Tcl_CmdProc*)pager_stmt_commit }, // { "pager_stmt_rollback", (Tcl_CmdProc*)pager_stmt_rollback }, // { "pager_stats", (Tcl_CmdProc*)pager_stats }, // { "pager_pagecount", (Tcl_CmdProc*)pager_pagecount }, // { "page_get", (Tcl_CmdProc*)page_get }, // { "page_lookup", (Tcl_CmdProc*)page_lookup }, // { "page_unref", (Tcl_CmdProc*)page_unref }, // { "page_read", (Tcl_CmdProc*)page_read }, // { "page_write", (Tcl_CmdProc*)page_write }, // { "page_number", (Tcl_CmdProc*)page_number }, // { "pager_truncate", (Tcl_CmdProc*)pager_truncate }, #if !SQLITE_OMIT_DISKIO // { "fake_big_file", (Tcl_CmdProc*)fake_big_file }, #endif new _aCmd("sqlite3BitvecBuiltinTest", (Tcl_CmdProc)testBitvecBuiltinTest), new _aCmd("sqlite3_test_control_pending_byte", (Tcl_CmdProc)testPendingByte), }; int i; for (i = 0; i < aCmd.Length; i++) {//sizeof(aCmd)/sizeof(aCmd[0]); i++){ TCL.Tcl_CreateCommand(interp, aCmd[i].zName, aCmd[i].xProc, null, null); } TCL.Tcl_LinkVar(interp, "sqlite_io_error_pending", sqlite3_io_error_pending, VarFlags.SQLITE3_LINK_INT); TCL.Tcl_LinkVar(interp, "sqlite_io_error_persist", sqlite3_io_error_persist, VarFlags.SQLITE3_LINK_INT); TCL.Tcl_LinkVar(interp, "sqlite_io_error_hit", sqlite3_io_error_hit, VarFlags.SQLITE3_LINK_INT); TCL.Tcl_LinkVar(interp, "sqlite_io_error_hardhit", sqlite3_io_error_hardhit, VarFlags.SQLITE3_LINK_INT); TCL.Tcl_LinkVar(interp, "sqlite_diskfull_pending", sqlite3_diskfull_pending, VarFlags.SQLITE3_LINK_INT); TCL.Tcl_LinkVar(interp, "sqlite_diskfull", sqlite3_diskfull, VarFlags.SQLITE3_LINK_INT); TCL.Tcl_LinkVar(interp, "sqlite_pending_byte", TCLsqlite3PendingByte, VarFlags.SQLITE3_LINK_INT); TCLsqlite3PendingByte.iValue = sqlite3PendingByte; return(TCL.TCL_OK); }
/* ** Register the two TCL commands above with the TCL interpreter. */ static public int Md5_Init(Tcl_Interp interp) { TCL.Tcl_CreateCommand(interp, "md5", md5_cmd, null, null); TCL.Tcl_CreateCommand(interp, "md5file", md5file_cmd, null, null); return(TCL.TCL_OK); }