heroku-tokyotyrant 0.4

data/ext/tokyocabinet-1.4.41/example/Makefile

@@ -0,0 +1,113 @@
+# Makefile for sample programs of Tokyo Cabinet
+
+
+
+#================================================================
+# Setting Variables
+#================================================================
+
+
+# Generic settings
+SHELL = /bin/sh
+
+# Targets
+MYBINS = tcutilex tchdbex tcbdbex tcfdbex tctdbex tcadbex tctchat.cgi tctsearch.cgi
+
+# Building binaries
+CC = gcc
+CFLAGS = -I. -I.. -ansi -Wall -pedantic -fsigned-char -O2
+C99FLAGS = -I. -I.. -std=c99 -Wall -pedantic -fsigned-char -O2
+LDFLAGS =
+LIBS = -L. -L.. -ltokyocabinet -lz -lbz2 -lpthread -lm -lc
+LDENV = LD_RUN_PATH=/lib:/usr/lib:$(HOME)/lib:/usr/local/lib:.:..
+
+
+
+#================================================================
+# Suffix rules
+#================================================================
+
+
+.SUFFIXES :
+.SUFFIXES : .c .o
+
+.c.o :
+	$(CC) -c $(CFLAGS) $<
+
+
+
+#================================================================
+# Actions
+#================================================================
+
+
+all : $(MYBINS)
+
+
+clean :
+	rm -rf $(MYBINS) *.exe *.o a.out check.out gmon.out leak.log casket* *.tct *.idx.* *~
+
+
+static :
+	make LDFLAGS="$(LDFLAGS) -static"
+
+
+.PHONY : all clean static tctchat.tct tctsearch.tct
+
+
+
+#================================================================
+# Building binaries
+#================================================================
+
+
+tcutilex : tcutilex.o
+	$(LDENV) $(CC) $(CFLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tchdbex : tchdbex.o
+	$(LDENV) $(CC) $(CFLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tcbdbex : tcbdbex.o
+	$(LDENV) $(CC) $(CFLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tcfdbex : tcfdbex.o
+	$(LDENV) $(CC) $(CFLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tctdbex : tctdbex.o
+	$(LDENV) $(CC) $(CFLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tcadbex : tcadbex.o
+	$(LDENV) $(CC) $(CFLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tctchat.cgi : tctchat.c
+	$(LDENV) $(CC) $(C99FLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tctsearch.cgi : tctsearch.c
+	$(LDENV) $(CC) $(C99FLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tctchat.tct :
+	rm -rf tctchat.tct*
+	LD_LIBRARY_PATH=/usr/local/lib:.:.. ../tctmgr create tctchat.tct
+	LD_LIBRARY_PATH=/usr/local/lib:.:.. ../tctmgr setindex -it qgram tctchat.tct "t"
+	chmod 666 tctchat.tct*
+
+
+tctsearch.tct :
+	rm -rf tctsearch.tct*
+	LD_LIBRARY_PATH=/usr/local/lib:.:.. ../tctmgr create tctsearch.tct
+	LD_LIBRARY_PATH=/usr/local/lib:.:.. ../tctmgr setindex -it qgram tctsearch.tct "text"
+	LD_LIBRARY_PATH=/usr/local/lib:.:.. ../tctmgr setindex -it qgram tctsearch.tct "title"
+	../lab/htmltotsv .. | \
+	  LD_LIBRARY_PATH=/usr/local/lib:.:.. ../tctmgr importtsv tctsearch.tct
+
+
+
+# END OF FILE

data/ext/tokyocabinet-1.4.41/example/tcadbex.c

@@ -0,0 +1,55 @@
+#include <tcutil.h>
+#include <tcadb.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdint.h>
+
+int main(int argc, char **argv){
+  TCADB *adb;
+  char *key, *value;
+
+  /* create the object */
+  adb = tcadbnew();
+
+  /* open the database */
+  if(!tcadbopen(adb, "casket.tch")){
+    fprintf(stderr, "open error\n");
+  }
+
+  /* store records */
+  if(!tcadbput2(adb, "foo", "hop") ||
+     !tcadbput2(adb, "bar", "step") ||
+     !tcadbput2(adb, "baz", "jump")){
+    fprintf(stderr, "put error\n");
+  }
+
+  /* retrieve records */
+  value = tcadbget2(adb, "foo");
+  if(value){
+    printf("%s\n", value);
+    free(value);
+  } else {
+    fprintf(stderr, "get error\n");
+  }
+
+  /* traverse records */
+  tcadbiterinit(adb);
+  while((key = tcadbiternext2(adb)) != NULL){
+    value = tcadbget2(adb, key);
+    if(value){
+      printf("%s:%s\n", key, value);
+      free(value);
+    }
+    free(key);
+  }
+
+  /* close the database */
+  if(!tcadbclose(adb)){
+    fprintf(stderr, "close error\n");
+  }
+
+  /* delete the object */
+  tcadbdel(adb);
+
+  return 0;
+}

data/ext/tokyocabinet-1.4.41/example/tcbdbex.c

@@ -0,0 +1,64 @@
+#include <tcutil.h>
+#include <tcbdb.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdint.h>
+
+int main(int argc, char **argv){
+  TCBDB *bdb;
+  BDBCUR *cur;
+  int ecode;
+  char *key, *value;
+
+  /* create the object */
+  bdb = tcbdbnew();
+
+  /* open the database */
+  if(!tcbdbopen(bdb, "casket.tcb", BDBOWRITER | BDBOCREAT)){
+    ecode = tcbdbecode(bdb);
+    fprintf(stderr, "open error: %s\n", tcbdberrmsg(ecode));
+  }
+
+  /* store records */
+  if(!tcbdbput2(bdb, "foo", "hop") ||
+     !tcbdbput2(bdb, "bar", "step") ||
+     !tcbdbput2(bdb, "baz", "jump")){
+    ecode = tcbdbecode(bdb);
+    fprintf(stderr, "put error: %s\n", tcbdberrmsg(ecode));
+  }
+
+  /* retrieve records */
+  value = tcbdbget2(bdb, "foo");
+  if(value){
+    printf("%s\n", value);
+    free(value);
+  } else {
+    ecode = tcbdbecode(bdb);
+    fprintf(stderr, "get error: %s\n", tcbdberrmsg(ecode));
+  }
+
+  /* traverse records */
+  cur = tcbdbcurnew(bdb);
+  tcbdbcurfirst(cur);
+  while((key = tcbdbcurkey2(cur)) != NULL){
+    value = tcbdbcurval2(cur);
+    if(value){
+      printf("%s:%s\n", key, value);
+      free(value);
+    }
+    free(key);
+    tcbdbcurnext(cur);
+  }
+  tcbdbcurdel(cur);
+
+  /* close the database */
+  if(!tcbdbclose(bdb)){
+    ecode = tcbdbecode(bdb);
+    fprintf(stderr, "close error: %s\n", tcbdberrmsg(ecode));
+  }
+
+  /* delete the object */
+  tcbdbdel(bdb);
+
+  return 0;
+}

data/ext/tokyocabinet-1.4.41/example/tcfdbex.c

@@ -0,0 +1,60 @@
+#include <tcutil.h>
+#include <tcfdb.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdint.h>
+
+int main(int argc, char **argv){
+  TCFDB *fdb;
+  int ecode;
+  char *key, *value;
+
+  /* create the object */
+  fdb = tcfdbnew();
+
+  /* open the database */
+  if(!tcfdbopen(fdb, "casket.tcf", FDBOWRITER | FDBOCREAT)){
+    ecode = tcfdbecode(fdb);
+    fprintf(stderr, "open error: %s\n", tcfdberrmsg(ecode));
+  }
+
+  /* store records */
+  if(!tcfdbput3(fdb, "1", "one") ||
+     !tcfdbput3(fdb, "12", "twelve") ||
+     !tcfdbput3(fdb, "144", "one forty four")){
+    ecode = tcfdbecode(fdb);
+    fprintf(stderr, "put error: %s\n", tcfdberrmsg(ecode));
+  }
+
+  /* retrieve records */
+  value = tcfdbget3(fdb, "1");
+  if(value){
+    printf("%s\n", value);
+    free(value);
+  } else {
+    ecode = tcfdbecode(fdb);
+    fprintf(stderr, "get error: %s\n", tcfdberrmsg(ecode));
+  }
+
+  /* traverse records */
+  tcfdbiterinit(fdb);
+  while((key = tcfdbiternext3(fdb)) != NULL){
+    value = tcfdbget3(fdb, key);
+    if(value){
+      printf("%s:%s\n", key, value);
+      free(value);
+    }
+    free(key);
+  }
+
+  /* close the database */
+  if(!tcfdbclose(fdb)){
+    ecode = tcfdbecode(fdb);
+    fprintf(stderr, "close error: %s\n", tcfdberrmsg(ecode));
+  }
+
+  /* delete the object */
+  tcfdbdel(fdb);
+
+  return 0;
+}

data/ext/tokyocabinet-1.4.41/example/tchdbex.c

@@ -0,0 +1,60 @@
+#include <tcutil.h>
+#include <tchdb.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdint.h>
+
+int main(int argc, char **argv){
+  TCHDB *hdb;
+  int ecode;
+  char *key, *value;
+
+  /* create the object */
+  hdb = tchdbnew();
+
+  /* open the database */
+  if(!tchdbopen(hdb, "casket.tch", HDBOWRITER | HDBOCREAT)){
+    ecode = tchdbecode(hdb);
+    fprintf(stderr, "open error: %s\n", tchdberrmsg(ecode));
+  }
+
+  /* store records */
+  if(!tchdbput2(hdb, "foo", "hop") ||
+     !tchdbput2(hdb, "bar", "step") ||
+     !tchdbput2(hdb, "baz", "jump")){
+    ecode = tchdbecode(hdb);
+    fprintf(stderr, "put error: %s\n", tchdberrmsg(ecode));
+  }
+
+  /* retrieve records */
+  value = tchdbget2(hdb, "foo");
+  if(value){
+    printf("%s\n", value);
+    free(value);
+  } else {
+    ecode = tchdbecode(hdb);
+    fprintf(stderr, "get error: %s\n", tchdberrmsg(ecode));
+  }
+
+  /* traverse records */
+  tchdbiterinit(hdb);
+  while((key = tchdbiternext2(hdb)) != NULL){
+    value = tchdbget2(hdb, key);
+    if(value){
+      printf("%s:%s\n", key, value);
+      free(value);
+    }
+    free(key);
+  }
+
+  /* close the database */
+  if(!tchdbclose(hdb)){
+    ecode = tchdbecode(hdb);
+    fprintf(stderr, "close error: %s\n", tchdberrmsg(ecode));
+  }
+
+  /* delete the object */
+  tchdbdel(hdb);
+
+  return 0;
+}

data/ext/tokyocabinet-1.4.41/example/tctchat.c

@@ -0,0 +1,97 @@
+#include <tcutil.h>
+#include <tctdb.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdint.h>
+#include <string.h>
+#include <stdio.h>
+
+/* function prototypes */
+int main(int argc, char **argv);
+static void proc(TCTMPL *tmpl, TCMPOOL *mpool);
+
+/* main routine */
+int main(int argc, char **argv){
+  TCTMPL *tmpl = tctmplnew();
+  tctmplload2(tmpl, "tctchat.tmpl");
+  TCMPOOL *mpool = tcmpoolnew();
+  proc(tmpl, mpool);
+  tcmpooldel(mpool);
+  tctmpldel(tmpl);
+  return 0;
+}
+
+/* process each session */
+static void proc(TCTMPL *tmpl, TCMPOOL *mpool){
+  TCMAP *params = tcmpoolmapnew(mpool);
+  char *query = getenv("QUERY_STRING");
+  const char *rp = getenv("CONTENT_LENGTH");
+  if(rp){
+    int clen = tclmin(tcatoi(rp), 1024 * 1024);
+    query = tcmpoolmalloc(mpool, clen + 1);
+    if(fread(query, 1, clen, stdin) != clen) clen = 0;
+    query[clen] = '\0';
+  }
+  if(query) tcwwwformdecode(query, params);
+  const char *type = tcstrskipspc(tcmapget4(params, "type", ""));
+  const char *author = tcstrskipspc(tcmapget4(params, "author", ""));
+  const char *text = tcstrskipspc(tcmapget4(params, "text", ""));
+  const char *search = tcstrskipspc(tcmapget4(params, "search", ""));
+  int page = tcatoi(tcmapget4(params, "page", "1"));
+  const char *dbpath = tctmplconf(tmpl, "dbpath");
+  if(!dbpath) dbpath = "tctchat.tct";
+  TCLIST *msgs = tcmpoollistnew(mpool);
+  TCTDB *tdb = tcmpoolpush(mpool, tctdbnew(), (void (*)(void *))tctdbdel);
+  rp = getenv("REQUEST_METHOD");
+  if(rp && !strcmp(rp, "POST") && *author != '\0' && *text != '\0' &&
+     strlen(author) <= 32 && strlen(text) <= 1024){
+    if(!tctdbopen(tdb, dbpath, TDBOWRITER | TDBOCREAT))
+      tclistprintf(msgs, "The database could not be opened (%s).", tctdberrmsg(tctdbecode(tdb)));
+    tctdbsetindex(tdb, "", TDBITDECIMAL | TDBITKEEP);
+    char pkbuf[64];
+    int pksiz = sprintf(pkbuf, "%.0f", tctime() * 1000);
+    TCMAP *cols = tcmpoolmapnew(mpool);
+    tcmapput2(cols, "a", author);
+    tcmapput2(cols, "t", text);
+    tctdbtranbegin(tdb);
+    if(!tctdbputkeep(tdb, pkbuf, pksiz, cols)) tclistprintf(msgs, "The message is ignored.");
+    tctdbtrancommit(tdb);
+  } else {
+    if(!tctdbopen(tdb, dbpath, TDBOREADER))
+      tclistprintf(msgs, "The database could not be opened (%s).", tctdberrmsg(tctdbecode(tdb)));
+  }
+  TCLIST *logs = tcmpoollistnew(mpool);
+  TDBQRY *qry = tcmpoolpush(mpool, tctdbqrynew(tdb), (void (*)(void *))tctdbqrydel);
+  if(*search != '\0') tctdbqryaddcond(qry, "t", TDBQCFTSEX, search);
+  tctdbqrysetorder(qry, "", TDBQONUMDESC);
+  tctdbqrysetlimit(qry, 16, page > 0 ? (page - 1) * 16 : 0);
+  TCLIST *res = tcmpoolpushlist(mpool, tctdbqrysearch(qry));
+  int rnum = tclistnum(res);
+  for(int i = rnum - 1; i >= 0; i--){
+    int pksiz;
+    const char *pkbuf = tclistval(res, i, &pksiz);
+    TCMAP *cols = tcmpoolpushmap(mpool, tctdbget(tdb, pkbuf, pksiz));
+    if(cols){
+      tcmapprintf(cols, "pk", "%s", pkbuf);
+      char date[64];
+      tcdatestrwww(tcatoi(pkbuf) / 1000, INT_MAX, date);
+      tcmapput2(cols, "d", date);
+      const char *astr = tcmapget4(cols, "a", "");
+      tcmapprintf(cols, "c", "c%02u", tcgetcrc(astr, strlen(astr)) % 12 + 1);
+      tclistpushmap(logs, cols);
+    }
+  }
+  TCMAP *vars = tcmpoolmapnew(mpool);
+  if(tclistnum(msgs) > 0) tcmapputlist(vars, "msgs", msgs);
+  if(tclistnum(logs) > 0) tcmapputlist(vars, "logs", logs);
+  tcmapprintf(vars, "author", "%s", author);
+  tcmapprintf(vars, "search", "%s", search);
+  if(page > 1) tcmapprintf(vars, "prev", "%d", page - 1);
+  if(rnum >= 16 && tctdbrnum(tdb) > page * 16) tcmapprintf(vars, "next", "%d", page + 1);
+  char *str = tcmpoolpushptr(mpool, tctmpldump(tmpl, vars));
+  printf("Content-Type: %s\r\n", !strcmp(type, "xml") ? "application/xml" :
+         !strcmp(type, "xhtml") ? "application/xhtml+xml" : "text/html; charset=UTF-8");
+  printf("Cache-Control: no-cache\r\n");
+  printf("\r\n");
+  fwrite(str, 1, strlen(str), stdout);
+}