54 lines
1.2 KiB
C
54 lines
1.2 KiB
C
|
/*
|
||
|
|
* Implemntation of additional sql functions useful from the TCL
|
||
|
|
* interface. Most of these are for use during testing.
|
||
|
|
*/
|
||
|
|
#include "dbsql_config.h"
|
||
|
|
#include "dbsql_int.h"
|
||
|
|
#include "inc/os_ext.h"
|
||
|
|
#include "tcl.h"
|
||
|
|
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
|
||
|
|
/*
|
||
|
|
** This function generates a string of random characters. Used for
|
||
|
|
** generating test data.
|
||
|
|
*/
|
||
|
|
void
|
||
|
|
__tcl_sql_func_randstr(dbsql_func_t *context, int argc, const char **argv){
|
||
|
|
static const char zSrc[] =
|
||
|
|
"abcdefghijklmnopqrstuvwxyz"
|
||
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||
|
|
"0123456789"
|
||
|
|
".-!,:*^+=_|?/<> ";
|
||
|
|
int iMin, iMax, n, r, i;
|
||
|
|
char zBuf[1000];
|
||
|
|
if( argc>=1 ){
|
||
|
|
iMin = atoi(argv[0]);
|
||
|
|
if( iMin<0 ) iMin = 0;
|
||
|
|
if( iMin>=sizeof(zBuf) ) iMin = sizeof(zBuf)-1;
|
||
|
|
}else{
|
||
|
|
iMin = 1;
|
||
|
|
}
|
||
|
|
if( argc>=2 ){
|
||
|
|
iMax = atoi(argv[1]);
|
||
|
|
if( iMax<iMin ) iMax = iMin;
|
||
|
|
if( iMax>=sizeof(zBuf) ) iMax = sizeof(zBuf)-1;
|
||
|
|
}else{
|
||
|
|
iMax = 50;
|
||
|
|
}
|
||
|
|
n = iMin;
|
||
|
|
if( iMax>iMin ){
|
||
|
|
r = __random_int() & 0x7fffffff;
|
||
|
|
n += r%(iMax + 1 - iMin);
|
||
|
|
}
|
||
|
|
DBSQL_ASSERT( n<sizeof(zBuf) );
|
||
|
|
r = 0;
|
||
|
|
for(i=0; i<n; i++){
|
||
|
|
r = (r + __random_byte())% (sizeof(zSrc)-1);
|
||
|
|
zBuf[i] = zSrc[r];
|
||
|
|
}
|
||
|
|
zBuf[n] = 0;
|
||
|
|
dbsql_set_result_string(context, zBuf, n);
|
||
|
|
}
|