15821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 25821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** 2001 September 15 35821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** 45821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** The author disclaims copyright to this source code. In place of 55821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** a legal notice, here is a blessing: 65821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** 75821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** May you do good and not evil. 85821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** May you find forgiveness for yourself and forgive others. 95821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** May you share freely, never taking more than you give. 105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** 115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)************************************************************************* 125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** Code for testing the utf.c module in SQLite. This code 135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** is not included in the SQLite library. It is used for automated 145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** testing of the SQLite library. Specifically, the code in this file 155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** is used for testing the SQLite routines for converting between 165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** the various supported unicode encodings. 175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)*/ 185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "sqliteInt.h" 195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "vdbeInt.h" 205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "tcl.h" 215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <stdlib.h> 225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <string.h> 235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** The first argument is a TCL UTF-8 string. Return the byte array 265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** object with the encoded representation of the string, including 275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** the NULL terminator. 285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)*/ 295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)static int binarize( 305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) void * clientData, 315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Interp *interp, 325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int objc, 335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Obj *CONST objv[] 345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)){ 355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int len; 365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) char *bytes; 375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Obj *pRet; 385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) assert(objc==2); 395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) bytes = Tcl_GetStringFromObj(objv[1], &len); 415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) pRet = Tcl_NewByteArrayObj((u8*)bytes, len+1); 425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_SetObjResult(interp, pRet); 435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return TCL_OK; 445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** Usage: test_value_overhead <repeat-count> <do-calls>. 485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** 495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** This routine is used to test the overhead of calls to 505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** sqlite3_value_text(), on a value that contains a UTF-8 string. The idea 515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** is to figure out whether or not it is a problem to use sqlite3_value 525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** structures with collation sequence functions. 535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** 545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** If <do-calls> is 0, then the calls to sqlite3_value_text() are not 555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** actually made. 565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)*/ 575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)static int test_value_overhead( 585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) void * clientData, 595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Interp *interp, 605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int objc, 615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Obj *CONST objv[] 625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)){ 635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int do_calls; 645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int repeat_count; 655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int i; 665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Mem val; 675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) const char *zVal; 685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( objc!=3 ){ 705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_AppendResult(interp, "wrong # args: should be \"", 715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_GetStringFromObj(objv[0], 0), " <repeat-count> <do-calls>", 0); 725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return TCL_ERROR; 735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( Tcl_GetIntFromObj(interp, objv[1], &repeat_count) ) return TCL_ERROR; 765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( Tcl_GetIntFromObj(interp, objv[2], &do_calls) ) return TCL_ERROR; 775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) val.flags = MEM_Str|MEM_Term|MEM_Static; 795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) val.z = "hello world"; 805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) val.type = SQLITE_TEXT; 815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) val.enc = SQLITE_UTF8; 825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) for(i=0; i<repeat_count; i++){ 845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( do_calls ){ 855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) zVal = (char*)sqlite3_value_text(&val); 865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return TCL_OK; 905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)static u8 name_to_enc(Tcl_Interp *interp, Tcl_Obj *pObj){ 935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) struct EncName { 945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) char *zName; 955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) u8 enc; 965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } encnames[] = { 975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { "UTF8", SQLITE_UTF8 }, 985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { "UTF16LE", SQLITE_UTF16LE }, 995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { "UTF16BE", SQLITE_UTF16BE }, 1005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { "UTF16", SQLITE_UTF16 }, 1015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { 0, 0 } 1025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) }; 1035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) struct EncName *pEnc; 1045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) char *z = Tcl_GetString(pObj); 1055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) for(pEnc=&encnames[0]; pEnc->zName; pEnc++){ 1065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( 0==sqlite3StrICmp(z, pEnc->zName) ){ 1075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) break; 1085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( !pEnc->enc ){ 1115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_AppendResult(interp, "No such encoding: ", z, 0); 1125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( pEnc->enc==SQLITE_UTF16 ){ 1145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return SQLITE_UTF16NATIVE; 1155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return pEnc->enc; 1175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 1185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 1205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** Usage: test_translate <string/blob> <from enc> <to enc> ?<transient>? 1215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** 1225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)*/ 1235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)static int test_translate( 1245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) void * clientData, 1255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Interp *interp, 1265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int objc, 1275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Obj *CONST objv[] 1285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)){ 1295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) u8 enc_from; 1305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) u8 enc_to; 1315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) sqlite3_value *pVal; 1325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) char *z; 1345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int len; 1355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) void (*xDel)(void *p) = SQLITE_STATIC; 1365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( objc!=4 && objc!=5 ){ 1385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_AppendResult(interp, "wrong # args: should be \"", 1395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_GetStringFromObj(objv[0], 0), 1405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) " <string/blob> <from enc> <to enc>", 0 1415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ); 1425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return TCL_ERROR; 1435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( objc==5 ){ 1455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xDel = sqlite3_free; 1465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) enc_from = name_to_enc(interp, objv[2]); 1495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( !enc_from ) return TCL_ERROR; 1505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) enc_to = name_to_enc(interp, objv[3]); 1515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( !enc_to ) return TCL_ERROR; 1525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) pVal = sqlite3ValueNew(0); 1545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( enc_from==SQLITE_UTF8 ){ 1565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) z = Tcl_GetString(objv[1]); 1575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( objc==5 ){ 1585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) z = sqlite3_mprintf("%s", z); 1595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) sqlite3ValueSetStr(pVal, -1, z, enc_from, xDel); 1615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) }else{ 1625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) z = (char*)Tcl_GetByteArrayFromObj(objv[1], &len); 1635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if( objc==5 ){ 1645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) char *zTmp = z; 1655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) z = sqlite3_malloc(len); 1665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) memcpy(z, zTmp, len); 1675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) sqlite3ValueSetStr(pVal, -1, z, enc_from, xDel); 1695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) z = (char *)sqlite3ValueText(pVal, enc_to); 1725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) len = sqlite3ValueBytes(pVal, enc_to) + (enc_to==SQLITE_UTF8?1:2); 1735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_SetObjResult(interp, Tcl_NewByteArrayObj((u8*)z, len)); 1745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) sqlite3ValueFree(pVal); 1765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return TCL_OK; 1785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 1795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 1815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** Usage: translate_selftest 1825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** 1835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** Call sqlite3UtfSelfTest() to run the internal tests for unicode 1845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** translation. If there is a problem an assert() will fail. 1855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)**/ 1865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void sqlite3UtfSelfTest(void); 1875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)static int test_translate_selftest( 1885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) void * clientData, 1895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Interp *interp, 1905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int objc, 1915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_Obj *CONST objv[] 1925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)){ 1935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifndef SQLITE_OMIT_UTF16 1945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) sqlite3UtfSelfTest(); 1955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 1965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return SQLITE_OK; 1975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 1985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 2015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)** Register commands with the TCL interpreter. 2025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)*/ 2035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)int Sqlitetest5_Init(Tcl_Interp *interp){ 2045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) static struct { 2055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) char *zName; 2065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_ObjCmdProc *xProc; 2075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } aCmd[] = { 2085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { "binarize", (Tcl_ObjCmdProc*)binarize }, 2095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { "test_value_overhead", (Tcl_ObjCmdProc*)test_value_overhead }, 2105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { "test_translate", (Tcl_ObjCmdProc*)test_translate }, 2115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { "translate_selftest", (Tcl_ObjCmdProc*)test_translate_selftest}, 2125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) }; 2135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int i; 2145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) for(i=0; i<sizeof(aCmd)/sizeof(aCmd[0]); i++){ 2155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) Tcl_CreateObjCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0); 2165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return SQLITE_OK; 2185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 219