1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/SRC/test5.c Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,220 @@
1.4 +/*
1.5 +** 2001 September 15
1.6 +**
1.7 +** The author disclaims copyright to this source code. In place of
1.8 +** a legal notice, here is a blessing:
1.9 +**
1.10 +** May you do good and not evil.
1.11 +** May you find forgiveness for yourself and forgive others.
1.12 +** May you share freely, never taking more than you give.
1.13 +**
1.14 +*************************************************************************
1.15 +** Code for testing the utf.c module in SQLite. This code
1.16 +** is not included in the SQLite library. It is used for automated
1.17 +** testing of the SQLite library. Specifically, the code in this file
1.18 +** is used for testing the SQLite routines for converting between
1.19 +** the various supported unicode encodings.
1.20 +**
1.21 +** $Id: test5.c,v 1.22 2008/08/12 15:04:59 danielk1977 Exp $
1.22 +*/
1.23 +#include "sqliteInt.h"
1.24 +#include "vdbeInt.h"
1.25 +#include "tcl.h"
1.26 +#include <stdlib.h>
1.27 +#include <string.h>
1.28 +
1.29 +/*
1.30 +** The first argument is a TCL UTF-8 string. Return the byte array
1.31 +** object with the encoded representation of the string, including
1.32 +** the NULL terminator.
1.33 +*/
1.34 +static int binarize(
1.35 + void * clientData,
1.36 + Tcl_Interp *interp,
1.37 + int objc,
1.38 + Tcl_Obj *CONST objv[]
1.39 +){
1.40 + int len;
1.41 + char *bytes;
1.42 + Tcl_Obj *pRet;
1.43 + assert(objc==2);
1.44 +
1.45 + bytes = Tcl_GetStringFromObj(objv[1], &len);
1.46 + pRet = Tcl_NewByteArrayObj((u8*)bytes, len+1);
1.47 + Tcl_SetObjResult(interp, pRet);
1.48 + return TCL_OK;
1.49 +}
1.50 +
1.51 +/*
1.52 +** Usage: test_value_overhead <repeat-count> <do-calls>.
1.53 +**
1.54 +** This routine is used to test the overhead of calls to
1.55 +** sqlite3_value_text(), on a value that contains a UTF-8 string. The idea
1.56 +** is to figure out whether or not it is a problem to use sqlite3_value
1.57 +** structures with collation sequence functions.
1.58 +**
1.59 +** If <do-calls> is 0, then the calls to sqlite3_value_text() are not
1.60 +** actually made.
1.61 +*/
1.62 +static int test_value_overhead(
1.63 + void * clientData,
1.64 + Tcl_Interp *interp,
1.65 + int objc,
1.66 + Tcl_Obj *CONST objv[]
1.67 +){
1.68 + int do_calls;
1.69 + int repeat_count;
1.70 + int i;
1.71 + Mem val;
1.72 + const char *zVal;
1.73 +
1.74 + if( objc!=3 ){
1.75 + Tcl_AppendResult(interp, "wrong # args: should be \"",
1.76 + Tcl_GetStringFromObj(objv[0], 0), " <repeat-count> <do-calls>", 0);
1.77 + return TCL_ERROR;
1.78 + }
1.79 +
1.80 + if( Tcl_GetIntFromObj(interp, objv[1], &repeat_count) ) return TCL_ERROR;
1.81 + if( Tcl_GetIntFromObj(interp, objv[2], &do_calls) ) return TCL_ERROR;
1.82 +
1.83 + val.flags = MEM_Str|MEM_Term|MEM_Static;
1.84 + val.z = "hello world";
1.85 + val.type = SQLITE_TEXT;
1.86 + val.enc = SQLITE_UTF8;
1.87 +
1.88 + for(i=0; i<repeat_count; i++){
1.89 + if( do_calls ){
1.90 + zVal = (char*)sqlite3_value_text(&val);
1.91 + }
1.92 + }
1.93 +
1.94 + return TCL_OK;
1.95 +}
1.96 +
1.97 +static u8 name_to_enc(Tcl_Interp *interp, Tcl_Obj *pObj){
1.98 + struct EncName {
1.99 + char *zName;
1.100 + u8 enc;
1.101 + } encnames[] = {
1.102 + { "UTF8", SQLITE_UTF8 },
1.103 + { "UTF16LE", SQLITE_UTF16LE },
1.104 + { "UTF16BE", SQLITE_UTF16BE },
1.105 + { "UTF16", SQLITE_UTF16 },
1.106 + { 0, 0 }
1.107 + };
1.108 + struct EncName *pEnc;
1.109 + char *z = Tcl_GetString(pObj);
1.110 + for(pEnc=&encnames[0]; pEnc->zName; pEnc++){
1.111 + if( 0==sqlite3StrICmp(z, pEnc->zName) ){
1.112 + break;
1.113 + }
1.114 + }
1.115 + if( !pEnc->enc ){
1.116 + Tcl_AppendResult(interp, "No such encoding: ", z, 0);
1.117 + }
1.118 + if( pEnc->enc==SQLITE_UTF16 ){
1.119 + return SQLITE_UTF16NATIVE;
1.120 + }
1.121 + return pEnc->enc;
1.122 +}
1.123 +
1.124 +/*
1.125 +** Usage: test_translate <string/blob> <from enc> <to enc> ?<transient>?
1.126 +**
1.127 +*/
1.128 +static int test_translate(
1.129 + void * clientData,
1.130 + Tcl_Interp *interp,
1.131 + int objc,
1.132 + Tcl_Obj *CONST objv[]
1.133 +){
1.134 + u8 enc_from;
1.135 + u8 enc_to;
1.136 + sqlite3_value *pVal;
1.137 +
1.138 + char *z;
1.139 + int len;
1.140 + void (*xDel)(void *p) = SQLITE_STATIC;
1.141 +
1.142 + if( objc!=4 && objc!=5 ){
1.143 + Tcl_AppendResult(interp, "wrong # args: should be \"",
1.144 + Tcl_GetStringFromObj(objv[0], 0),
1.145 + " <string/blob> <from enc> <to enc>", 0
1.146 + );
1.147 + return TCL_ERROR;
1.148 + }
1.149 + if( objc==5 ){
1.150 + xDel = sqlite3_free;
1.151 + }
1.152 +
1.153 + enc_from = name_to_enc(interp, objv[2]);
1.154 + if( !enc_from ) return TCL_ERROR;
1.155 + enc_to = name_to_enc(interp, objv[3]);
1.156 + if( !enc_to ) return TCL_ERROR;
1.157 +
1.158 + pVal = sqlite3ValueNew(0);
1.159 +
1.160 + if( enc_from==SQLITE_UTF8 ){
1.161 + z = Tcl_GetString(objv[1]);
1.162 + if( objc==5 ){
1.163 + z = sqlite3DbStrDup(0, z);
1.164 + }
1.165 + sqlite3ValueSetStr(pVal, -1, z, enc_from, xDel);
1.166 + }else{
1.167 + z = (char*)Tcl_GetByteArrayFromObj(objv[1], &len);
1.168 + if( objc==5 ){
1.169 + char *zTmp = z;
1.170 + z = sqlite3_malloc(len);
1.171 + memcpy(z, zTmp, len);
1.172 + }
1.173 + sqlite3ValueSetStr(pVal, -1, z, enc_from, xDel);
1.174 + }
1.175 +
1.176 + z = (char *)sqlite3ValueText(pVal, enc_to);
1.177 + len = sqlite3ValueBytes(pVal, enc_to) + (enc_to==SQLITE_UTF8?1:2);
1.178 + Tcl_SetObjResult(interp, Tcl_NewByteArrayObj((u8*)z, len));
1.179 +
1.180 + sqlite3ValueFree(pVal);
1.181 +
1.182 + return TCL_OK;
1.183 +}
1.184 +
1.185 +/*
1.186 +** Usage: translate_selftest
1.187 +**
1.188 +** Call sqlite3UtfSelfTest() to run the internal tests for unicode
1.189 +** translation. If there is a problem an assert() will fail.
1.190 +**/
1.191 +void sqlite3UtfSelfTest(void);
1.192 +static int test_translate_selftest(
1.193 + void * clientData,
1.194 + Tcl_Interp *interp,
1.195 + int objc,
1.196 + Tcl_Obj *CONST objv[]
1.197 +){
1.198 +#ifndef SQLITE_OMIT_UTF16
1.199 + sqlite3UtfSelfTest();
1.200 +#endif
1.201 + return SQLITE_OK;
1.202 +}
1.203 +
1.204 +
1.205 +/*
1.206 +** Register commands with the TCL interpreter.
1.207 +*/
1.208 +int Sqlitetest5_Init(Tcl_Interp *interp){
1.209 + static struct {
1.210 + char *zName;
1.211 + Tcl_ObjCmdProc *xProc;
1.212 + } aCmd[] = {
1.213 + { "binarize", (Tcl_ObjCmdProc*)binarize },
1.214 + { "test_value_overhead", (Tcl_ObjCmdProc*)test_value_overhead },
1.215 + { "test_translate", (Tcl_ObjCmdProc*)test_translate },
1.216 + { "translate_selftest", (Tcl_ObjCmdProc*)test_translate_selftest},
1.217 + };
1.218 + int i;
1.219 + for(i=0; i<sizeof(aCmd)/sizeof(aCmd[0]); i++){
1.220 + Tcl_CreateObjCommand(interp, aCmd[i].zName, aCmd[i].xProc, 0, 0);
1.221 + }
1.222 + return SQLITE_OK;
1.223 +}