heroku-tokyotyrant 0.4

data/ext/tokyocabinet-1.4.41/bros/reporter

@@ -0,0 +1,141 @@
+#! /usr/bin/perl
+
+#================================================================
+# reporter
+# Measure elapsed time and database size of DBM brothers
+#================================================================
+
+use strict;
+use warnings;
+use Time::HiRes qw(gettimeofday);
+
+use constant {
+    RECNUM => 1000000,
+    TESTCOUNT => 20,
+    REMOVETOP => 2,
+    REMOVEBOTTOM => 8,
+};
+
+my @commands = (
+                './tctest write casket.tch ' . RECNUM,
+                './tctest read casket.tch ' . RECNUM,
+                './qdbmtest write casket.qdbh ' . RECNUM,
+                './qdbmtest read casket.qdbh ' . RECNUM,
+                './ndbmtest write casket.ndbh ' . RECNUM,
+                './ndbmtest read casket.ndbh ' . RECNUM,
+                './sdbmtest write casket.sdbh ' . RECNUM,
+                './sdbmtest read casket.sdbh ' . RECNUM,
+                './gdbmtest write casket.gdbh ' . RECNUM,
+                './gdbmtest read casket.gdbh ' . RECNUM,
+                './tdbtest write casket.tdbh ' . RECNUM,
+                './tdbtest read casket.tdbh ' . RECNUM,
+                './cdbtest write casket.cdbh ' . RECNUM,
+                './cdbtest read casket.cdbh ' . RECNUM,
+                './bdbtest write casket.bdbh ' . RECNUM,
+                './bdbtest read casket.bdbh ' . RECNUM,
+                './tctest btwrite casket.tcb ' . RECNUM,
+                './tctest btread casket.tcb ' . RECNUM,
+                './tctest btwrite -rnd casket.tcb_r ' . RECNUM,
+                './tctest btread -rnd casket.tcb_r ' . RECNUM,
+                './qdbmtest btwrite casket.qdbb ' . RECNUM,
+                './qdbmtest btread casket.qdbb ' . RECNUM,
+                './qdbmtest btwrite -rnd casket.qdbb_r ' . RECNUM,
+                './qdbmtest btread -rnd casket.qdbb_r ' . RECNUM,
+                './bdbtest btwrite casket.bdbb ' . RECNUM,
+                './bdbtest btread casket.bdbb ' . RECNUM,
+                './bdbtest btwrite -rnd casket.bdbb_r ' . RECNUM,
+                './bdbtest btread -rnd casket.bdbb_r ' . RECNUM,
+                './tctest flwrite casket.tcf ' . RECNUM,
+                './tctest flread casket.tcf ' . RECNUM,
+                );
+
+my @names = (
+             'casket.tch',
+             'casket.qdbh',
+             'casket.ndbh',
+             'casket.sdbh',
+             'casket.gdbh',
+             'casket.tdbh',
+             'casket.cdbh',
+             'casket.bdbh',
+             'casket.tcb',
+             'casket.tcb_r',
+             'casket.qdbb',
+             'casket.qdbb_r',
+             'casket.bdbb',
+             'casket.bdbb_r',
+             'casket.tcf',
+             );
+
+foreach my $name (@names){
+    my @paths = glob("$name*");
+    foreach my $path (@paths){
+        unlink($path);
+    }
+}
+
+my @table;
+foreach my $command (@commands){
+    system('sync ; sync');
+    $ENV{'HIDEPRGR'} = 1;
+    my @result;
+    for(my $i = 0; $i < TESTCOUNT; $i++){
+        my $stime = gettimeofday();
+        system("$command >/dev/null 2>&1");
+        $stime = gettimeofday() - $stime;
+        printf("%s\t%d\t%0.5f\n", $command, $i + 1, $stime);
+        push(@result, $stime);
+    }
+    @result = sort { $a <=> $b } @result;
+    for(my $i = 0; $i < REMOVETOP; $i++){
+        shift(@result);
+    }
+    for(my $i = 0; $i < REMOVEBOTTOM; $i++){
+        pop(@result);
+    }
+    my $sum = 0;
+    foreach my $result (@result){
+        $sum += $result;
+    }
+    my $avg = $sum / scalar(@result);
+    push(@table, [$command, $avg]);
+}
+
+printf("\n\nRESULT\n\n");
+foreach my $row (@table){
+    printf("%s\t%0.5f\n", $$row[0], $$row[1]);
+}
+printf("\n");
+
+my @sizes;
+foreach my $name (@names){
+    my @paths = glob("$name*");
+    my $sum = 0;
+    foreach my $path (@paths){
+        my @sbuf = stat($path);
+        $sum += $sbuf[7];
+    }
+    printf("%s\t%s\n", $name, $sum);
+    push(@sizes, $sum);
+}
+printf("\n");
+
+printf("%s,%.5f,%.5f,%d\n", "TC", $table[0][1], $table[1][1], $sizes[0]);
+printf("%s,%.5f,%.5f,%d\n", "QDBM", $table[2][1], $table[3][1], $sizes[1]);
+printf("%s,%.5f,%.5f,%d\n", "NDBM", $table[4][1], $table[5][1], $sizes[2]);
+printf("%s,%.5f,%.5f,%d\n", "SDBM", $table[6][1], $table[7][1], $sizes[3]);
+printf("%s,%.5f,%.5f,%d\n", "GDBM", $table[8][1], $table[9][1], $sizes[4]);
+printf("%s,%.5f,%.5f,%d\n", "TDB", $table[10][1], $table[11][1], $sizes[5]);
+printf("%s,%.5f,%.5f,%d\n", "CDB", $table[12][1], $table[13][1], $sizes[6]);
+printf("%s,%.5f,%.5f,%d\n", "BDB", $table[14][1], $table[15][1], $sizes[7]);
+printf("%s,%.5f,%.5f,%d\n", "TC-BT-ASC", $table[16][1], $table[17][1], $sizes[8]);
+printf("%s,%.5f,%.5f,%d\n", "TC-BT-RND", $table[18][1], $table[19][1], $sizes[9]);
+printf("%s,%.5f,%.5f,%d\n", "QDBM-BT-ASC", $table[20][1], $table[21][1], $sizes[10]);
+printf("%s,%.5f,%.5f,%d\n", "QDBM-BT-RND", $table[22][1], $table[23][1], $sizes[11]);
+printf("%s,%.5f,%.5f,%d\n", "BDB-BT-ASC", $table[24][1], $table[25][1], $sizes[12]);
+printf("%s,%.5f,%.5f,%d\n", "BDB-BT-RND", $table[26][1], $table[27][1], $sizes[13]);
+printf("%s,%.5f,%.5f,%d\n", "TC-FIXED", $table[28][1], $table[29][1], $sizes[14]);
+
+
+
+# END OF FILE

data/ext/tokyocabinet-1.4.41/bros/sdbmtest.c

@@ -0,0 +1,204 @@
+/*************************************************************************************************
+ * Writing test of Substitute Database Manager
+ *************************************************************************************************/
+
+
+#include <sdbm.h>
+#include <sys/types.h>
+#include <fcntl.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+#undef TRUE
+#define TRUE           1                 /* boolean true */
+#undef FALSE
+#define FALSE          0                 /* boolean false */
+
+#define RECBUFSIZ      32                /* buffer for records */
+
+
+/* global variables */
+const char *progname;                    /* program name */
+int showprgr;                            /* whether to show progression */
+
+
+/* function prototypes */
+int main(int argc, char **argv);
+void usage(void);
+int runwrite(int argc, char **argv);
+int runread(int argc, char **argv);
+int dowrite(char *name, int rnum);
+int doread(char *name, int rnum);
+
+
+/* main routine */
+int main(int argc, char **argv){
+  int rv;
+  progname = argv[0];
+  showprgr = TRUE;
+  if(getenv("HIDEPRGR")) showprgr = FALSE;
+  if(argc < 2) usage();
+  rv = 0;
+  if(!strcmp(argv[1], "write")){
+    rv = runwrite(argc, argv);
+  } else if(!strcmp(argv[1], "read")){
+    rv = runread(argc, argv);
+  } else {
+    usage();
+  }
+  return rv;
+}
+
+
+/* print the usage and exit */
+void usage(void){
+  fprintf(stderr, "%s: test cases for Substitute Database Manager\n", progname);
+  fprintf(stderr, "\n");
+  fprintf(stderr, "usage:\n");
+  fprintf(stderr, "  %s write name rnum\n", progname);
+  fprintf(stderr, "  %s read name rnum\n", progname);
+  fprintf(stderr, "\n");
+  exit(1);
+}
+
+
+/* parse arguments of write command */
+int runwrite(int argc, char **argv){
+  char *name, *rstr;
+  int i, rnum, rv;
+  name = NULL;
+  rstr = NULL;
+  rnum = 0;
+  for(i = 2; i < argc; i++){
+    if(!name && argv[i][0] == '-'){
+      usage();
+    } else if(!name){
+      name = argv[i];
+    } else if(!rstr){
+      rstr = argv[i];
+    } else {
+      usage();
+    }
+  }
+  if(!name || !rstr) usage();
+  rnum = atoi(rstr);
+  if(rnum < 1) usage();
+  rv = dowrite(name, rnum);
+  return rv;
+}
+
+
+/* parse arguments of read command */
+int runread(int argc, char **argv){
+  char *name, *rstr;
+  int i, rnum, rv;
+  name = NULL;
+  rstr = NULL;
+  rnum = 0;
+  for(i = 2; i < argc; i++){
+    if(!name && argv[i][0] == '-'){
+      usage();
+    } else if(!name){
+      name = argv[i];
+    } else if(!rstr){
+      rstr = argv[i];
+    } else {
+      usage();
+    }
+  }
+  if(!name || !rstr) usage();
+  rnum = atoi(rstr);
+  if(rnum < 1) usage();
+  rv = doread(name, rnum);
+  return rv;
+}
+
+
+/* perform write command */
+int dowrite(char *name, int rnum){
+  DBM *db;
+  datum key, val;
+  int i, err, len;
+  char buf[RECBUFSIZ];
+  if(showprgr) printf("<Writing Test>\n  name=%s  rnum=%d\n\n", name, rnum);
+  /* open a database */
+  if(!(db = dbm_open(name, O_RDWR | O_CREAT | O_TRUNC, 00644))){
+    fprintf(stderr, "dbm_open failed\n");
+    return 1;
+  }
+  err = FALSE;
+  /* loop for each record */
+  for(i = 1; i <= rnum; i++){
+    len = sprintf(buf, "%08d", i);
+    key.dptr = buf;
+    key.dsize = len;
+    val.dptr = buf;
+    val.dsize = len;
+    /* store a record */
+    if(dbm_store(db, key, val, DBM_REPLACE) < 0){
+      fprintf(stderr, "dbm_store failed\n");
+      err = TRUE;
+      break;
+    }
+    /* print progression */
+    if(showprgr && rnum > 250 && i % (rnum / 250) == 0){
+      putchar('.');
+      fflush(stdout);
+      if(i == rnum || i % (rnum / 10) == 0){
+        printf(" (%08d)\n", i);
+        fflush(stdout);
+      }
+    }
+  }
+  /* close the database */
+  dbm_close(db);
+  if(showprgr && !err) printf("ok\n\n");
+  return err ? 1 : 0;
+}
+
+
+/* perform read command */
+int doread(char *name, int rnum){
+  DBM *db;
+  datum key, val;
+  int i, err, len;
+  char buf[RECBUFSIZ];
+  if(showprgr) printf("<Reading Test>\n  name=%s  rnum=%d\n\n", name, rnum);
+  /* open a database */
+  if(!(db = dbm_open(name, O_RDONLY, 00644))){
+    fprintf(stderr, "dbm_open failed\n");
+    return 1;
+  }
+  err = FALSE;
+  /* loop for each record */
+  for(i = 1; i <= rnum; i++){
+    /* retrieve a record */
+    len = sprintf(buf, "%08d", i);
+    key.dptr = buf;
+    key.dsize = len;
+    val = dbm_fetch(db, key);
+    if(!val.dptr){
+      fprintf(stderr, "dbm_fetch failed\n");
+      err = TRUE;
+      break;
+    }
+    /* print progression */
+    if(showprgr && rnum > 250 && i % (rnum / 250) == 0){
+      putchar('.');
+      fflush(stdout);
+      if(i == rnum || i % (rnum / 10) == 0){
+        printf(" (%08d)\n", i);
+        fflush(stdout);
+      }
+    }
+  }
+  /* close the database */
+  dbm_close(db);
+  if(showprgr && !err) printf("ok\n\n");
+  return err ? 1 : 0;
+}
+
+
+
+/* END OF FILE */

data/ext/tokyocabinet-1.4.41/bros/sqltest.c

@@ -0,0 +1,404 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <sqlite3.h>
+
+#undef TRUE
+#define TRUE           1                 /* boolean true */
+#undef FALSE
+#define FALSE          0                 /* boolean false */
+
+#define RECBUFSIZ      256               /* buffer for records */
+
+
+/* global variables */
+const char *progname;                    /* program name */
+int showprgr;                            /* whether to show progression */
+
+
+/* function prototypes */
+int main(int argc, char **argv);
+void usage(void);
+int runwrite(int argc, char **argv);
+int runread(int argc, char **argv);
+int runtblwrite(int argc, char **argv);
+int runtblread(int argc, char **argv);
+int myrand(void);
+int callback(void *opq, int argc, char **argv, char **colname);
+int dowrite(char *name, int rnum);
+int doread(char *name, int rnum);
+int dotblwrite(char *name, int rnum);
+int dotblread(char *name, int rnum);
+
+
+/* main routine */
+int main(int argc, char **argv){
+  int rv;
+  progname = argv[0];
+  showprgr = TRUE;
+  if(getenv("HIDEPRGR")) showprgr = FALSE;
+  if(argc < 2) usage();
+  rv = 0;
+  if(!strcmp(argv[1], "write")){
+    rv = runwrite(argc, argv);
+  } else if(!strcmp(argv[1], "read")){
+    rv = runread(argc, argv);
+  } else if(!strcmp(argv[1], "tblwrite")){
+    rv = runtblwrite(argc, argv);
+  } else if(!strcmp(argv[1], "tblread")){
+    rv = runtblread(argc, argv);
+  } else {
+    usage();
+  }
+  return rv;
+}
+
+
+/* print the usage and exit */
+void usage(void){
+  fprintf(stderr, "%s: test cases for SQLite\n", progname);
+  fprintf(stderr, "\n");
+  fprintf(stderr, "usage:\n");
+  fprintf(stderr, "  %s write name rnum\n", progname);
+  fprintf(stderr, "  %s read name rnum\n", progname);
+  fprintf(stderr, "  %s tblwrite name rnum\n", progname);
+  fprintf(stderr, "  %s tblread name rnum\n", progname);
+  fprintf(stderr, "\n");
+  exit(1);
+}
+
+
+/* parse arguments of write command */
+int runwrite(int argc, char **argv){
+  char *name, *rstr;
+  int i, rnum, rv;
+  name = NULL;
+  rstr = NULL;
+  rnum = 0;
+  for(i = 2; i < argc; i++){
+    if(!name && argv[i][0] == '-'){
+      usage();
+    } else if(!name){
+      name = argv[i];
+    } else if(!rstr){
+      rstr = argv[i];
+    } else {
+      usage();
+    }
+  }
+  if(!name || !rstr) usage();
+  rnum = atoi(rstr);
+  if(rnum < 1) usage();
+  rv = dowrite(name, rnum);
+  return rv;
+}
+
+
+/* parse arguments of read command */
+int runread(int argc, char **argv){
+  char *name, *rstr;
+  int i, rnum, rv;
+  name = NULL;
+  rstr = NULL;
+  rnum = 0;
+  for(i = 2; i < argc; i++){
+    if(!name && argv[i][0] == '-'){
+      usage();
+    } else if(!name){
+      name = argv[i];
+    } else if(!rstr){
+      rstr = argv[i];
+    } else {
+      usage();
+    }
+  }
+  if(!name || !rstr) usage();
+  rnum = atoi(rstr);
+  if(rnum < 1) usage();
+  rv = doread(name, rnum);
+  return rv;
+}
+
+
+/* parse arguments of tblwrite command */
+int runtblwrite(int argc, char **argv){
+  char *name, *rstr;
+  int i, rnum, rv;
+  name = NULL;
+  rstr = NULL;
+  rnum = 0;
+  for(i = 2; i < argc; i++){
+    if(!name && argv[i][0] == '-'){
+      usage();
+    } else if(!name){
+      name = argv[i];
+    } else if(!rstr){
+      rstr = argv[i];
+    } else {
+      usage();
+    }
+  }
+  if(!name || !rstr) usage();
+  rnum = atoi(rstr);
+  if(rnum < 1) usage();
+  rv = dotblwrite(name, rnum);
+  return rv;
+}
+
+
+/* parse arguments of tblread command */
+int runtblread(int argc, char **argv){
+  char *name, *rstr;
+  int i, rnum, rv;
+  name = NULL;
+  rstr = NULL;
+  rnum = 0;
+  for(i = 2; i < argc; i++){
+    if(!name && argv[i][0] == '-'){
+      usage();
+    } else if(!name){
+      name = argv[i];
+    } else if(!rstr){
+      rstr = argv[i];
+    } else {
+      usage();
+    }
+  }
+  if(!name || !rstr) usage();
+  rnum = atoi(rstr);
+  if(rnum < 1) usage();
+  rv = dotblread(name, rnum);
+  return rv;
+}
+
+
+/* pseudo random number generator */
+int myrand(void){
+  static int cnt = 0;
+  return (lrand48() + cnt++) & 0x7FFFFFFF;
+}
+
+
+/* call back function for select statement */
+int callback(void *opq, int argc, char **argv, char **colname){
+  return 0;
+}
+
+
+/* perform write command */
+int dowrite(char *name, int rnum){
+  sqlite3 *db;
+  char sql[RECBUFSIZ], *errmsg;
+  int i, err;
+  if(showprgr) printf("<Writing Test of Hash>\n  name=%s  rnum=%d\n\n", name, rnum);
+  /* open a database */
+  unlink(name);
+  if(sqlite3_open(name, &db) != 0){
+    fprintf(stderr, "sqlite3_open failed\n");
+    return 1;
+  }
+  sprintf(sql, "CREATE TABLE tbl ( key TEXT PRIMARY KEY, val TEXT );");
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  sprintf(sql, "PRAGMA cache_size = %d;", rnum);
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  sprintf(sql, "BEGIN TRANSACTION;");
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  err = FALSE;
+  /* loop for each record */
+  for(i = 1; i <= rnum; i++){
+    /* store a record */
+    sprintf(sql, "INSERT INTO tbl VALUES ( '%08d', '%08d' );", i, i);
+    if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+      fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+      sqlite3_free(errmsg);
+      err = TRUE;
+    }
+    /* print progression */
+    if(showprgr && rnum > 250 && i % (rnum / 250) == 0){
+      putchar('.');
+      fflush(stdout);
+      if(i == rnum || i % (rnum / 10) == 0){
+        printf(" (%08d)\n", i);
+        fflush(stdout);
+      }
+    }
+  }
+  /* close the database */
+  sprintf(sql, "END TRANSACTION;");
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  sqlite3_close(db);
+  if(showprgr && !err) printf("ok\n\n");
+  return err ? 1 : 0;
+}
+
+
+/* perform read command */
+int doread(char *name, int rnum){
+  sqlite3 *db;
+  char sql[RECBUFSIZ], *errmsg;
+  int i, err;
+  if(showprgr) printf("<Reading Test of Hash>\n  name=%s  rnum=%d\n\n", name, rnum);
+  /* open a database */
+  if(sqlite3_open(name, &db) != 0){
+    fprintf(stderr, "sqlite3_open failed\n");
+    return 1;
+  }
+  sprintf(sql, "PRAGMA cache_size = %d;", rnum);
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  err = FALSE;
+  /* loop for each record */
+  for(i = 1; i <= rnum; i++){
+    /* store a record */
+    sprintf(sql, "SELECT * FROM tbl WHERE key = '%08d';", i);
+    if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+      fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+      sqlite3_free(errmsg);
+      err = TRUE;
+    }
+    /* print progression */
+    if(showprgr && rnum > 250 && i % (rnum / 250) == 0){
+      putchar('.');
+      fflush(stdout);
+      if(i == rnum || i % (rnum / 10) == 0){
+        printf(" (%08d)\n", i);
+        fflush(stdout);
+      }
+    }
+  }
+  /* close the database */
+  sqlite3_close(db);
+  if(showprgr && !err) printf("ok\n\n");
+  return err ? 1 : 0;
+}
+
+
+/* perform tblwrite command */
+int dotblwrite(char *name, int rnum){
+  sqlite3 *db;
+  char sql[RECBUFSIZ], *errmsg;
+  int i, err;
+  if(showprgr) printf("<Writing Test of Table>\n  name=%s  rnum=%d\n\n", name, rnum);
+  /* open a database */
+  unlink(name);
+  if(sqlite3_open(name, &db) != 0){
+    fprintf(stderr, "sqlite3_open failed\n");
+    return 1;
+  }
+  sprintf(sql, "CREATE TABLE tbl ( key INTEGER PRIMARY KEY, s TEXT, n INTEGER,"
+          " t TEXT, f TEXT );");
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  sprintf(sql, "CREATE INDEX tbl_s ON tbl ( s );");
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  sprintf(sql, "CREATE INDEX tbl_n ON tbl ( n );");
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  sprintf(sql, "PRAGMA cache_size = %d;", rnum);
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  sprintf(sql, "BEGIN TRANSACTION;");
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  err = FALSE;
+  /* loop for each record */
+  for(i = 1; i <= rnum; i++){
+    /* store a record */
+    sprintf(sql, "INSERT INTO tbl VALUES ( %d, '%08d', %d, '%08d', '%08d' );",
+            i, i, myrand() % i, i, myrand() % rnum);
+    if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+      fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+      sqlite3_free(errmsg);
+    }
+    /* print progression */
+    if(showprgr && rnum > 250 && i % (rnum / 250) == 0){
+      putchar('.');
+      fflush(stdout);
+      if(i == rnum || i % (rnum / 10) == 0){
+        printf(" (%08d)\n", i);
+        fflush(stdout);
+      }
+    }
+  }
+  /* close the database */
+  sprintf(sql, "END TRANSACTION;");
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  sqlite3_close(db);
+  if(showprgr && !err) printf("ok\n\n");
+  return err ? 1 : 0;
+}
+
+
+/* perform tblread command */
+int dotblread(char *name, int rnum){
+  sqlite3 *db;
+  char sql[RECBUFSIZ], *errmsg;
+  int i, err;
+  if(showprgr) printf("<Reading Test of Table>\n  name=%s  rnum=%d\n\n", name, rnum);
+  /* open a database */
+  if(sqlite3_open(name, &db) != 0){
+    fprintf(stderr, "sqlite3_open failed\n");
+    return 1;
+  }
+  sprintf(sql, "PRAGMA cache_size = %d;", rnum);
+  if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+    fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+    sqlite3_free(errmsg);
+  }
+  err = FALSE;
+  /* loop for each record */
+  for(i = 1; i <= rnum; i++){
+    /* store a record */
+    sprintf(sql, "SELECT * FROM tbl WHERE key = '%08d';", i);
+    if(sqlite3_exec(db, sql, callback, 0, &errmsg) != SQLITE_OK){
+      fprintf(stderr, "sqlite3_exec failed: %s\n", errmsg);
+      sqlite3_free(errmsg);
+    }
+    /* print progression */
+    if(showprgr && rnum > 250 && i % (rnum / 250) == 0){
+      putchar('.');
+      fflush(stdout);
+      if(i == rnum || i % (rnum / 10) == 0){
+        printf(" (%08d)\n", i);
+        fflush(stdout);
+      }
+    }
+  }
+  /* close the database */
+  sqlite3_close(db);
+  if(showprgr && !err) printf("ok\n\n");
+  return err ? 1 : 0;
+}
+
+
+
+/* END OF FILE */