heroku-tokyotyrant 0.4

data/ext/tokyotyrant-1.1.39/example/Makefile

@@ -0,0 +1,68 @@
+# Makefile for sample programs of Hyper Estraier
+
+
+
+#================================================================
+# Setting Variables
+#================================================================
+
+
+# Generic settings
+SHELL = /bin/sh
+
+# Targets
+MYBINS = tcrdbex tcrdbtblex
+
+# Building binaries
+CC = gcc
+CFLAGS = -ansi -Wall -pedantic -I. -I.. -Wall
+LDFLAGS =
+LIBS = -L. -L.. -ltokyotyrant -ltokyocabinet -lz -lresolv -lnsl -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* *~
+
+
+.PHONY : all clean
+
+
+
+#================================================================
+# Building binaries
+#================================================================
+
+
+tcrdbex : tcrdbex.o
+	$(LDENV) $(CC) $(CFLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+tcrdbtblex : tcrdbtblex.o
+	$(LDENV) $(CC) $(CFLAGS) -o $@ $< $(LDFLAGS) $(LIBS)
+
+
+
+# END OF FILE

data/ext/tokyotyrant-1.1.39/example/httptest.pl

@@ -0,0 +1,88 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use LWP::UserAgent;
+
+my $err = 0;
+my $ua = LWP::UserAgent->new(keep_alive => 1);
+my $baseurl = 'http://localhost:1978/';
+
+my $req = HTTP::Request->new(PUT => $baseurl . "%E5%B9%B3%E6%9E%97", [], "mikio");
+my $res = $ua->request($req);
+my $code = $res->code();
+if($code != 201){
+    printf("Error: %s\n", $res->status_line());
+    $err = 1;
+}
+
+foreach my $i (1..100){
+    $req = HTTP::Request->new(PUT => $baseurl . $i, [], "mikio:$i");
+    $res = $ua->request($req);
+    if($res->code() != 201){
+        printf("Error: %s\n", $res->status_line());
+        $err = 1;
+    }
+}
+
+foreach my $i (1..10){
+    my $pdmode = int(rand(3));
+    $req = HTTP::Request->new(PUT => $baseurl . $i,
+                              ["X-TT-PDMODE" => $pdmode], "mikio:$i");
+    $res = $ua->request($req);
+    $code = $res->code();
+    if($code != 201 && $code != 409){
+        printf("Error: %s\n", $res->status_line());
+        $err = 1;
+    }
+}
+
+for(my $i = 1; $i < 107; $i += 7){
+    $req = HTTP::Request->new(DELETE => $baseurl . $i);
+    $res = $ua->request($req);
+    if($res->is_error() && $res->code() != 404){
+        printf("Error: %s\n", $res->status_line());
+        $err = 1;
+    }
+}
+
+for(my $i = 1; $i < 100; $i += 3){
+    $req = HTTP::Request->new(POST => $baseurl . $i,
+                              ["X-TT-XNAME" => "echo", "X-TT-XOPTS" => 1], "hirabayashi:$i");
+    $res = $ua->request($req);
+}
+
+for(my $i = 1; $i < 100; $i += 3){
+    $req = HTTP::Request->new(POST => $baseurl . $i,
+                              ["X-TT-MNAME" => "getlist", "X-TT-MOPTS" => 1], "1=$i&2=$i");
+    $res = $ua->request($req);
+}
+
+foreach my $i (1..107){
+    $req = HTTP::Request->new(GET => $baseurl . $i);
+    $res = $ua->request($req);
+    $code = $res->code();
+    if($res->is_success()){
+        printf("%d: %s\n", $i, $res->content());
+    } elsif($res->code() != 404){
+        printf("Error: %s\n", $res->status_line());
+        $err = 1;
+    }
+    $req = HTTP::Request->new(HEAD => $baseurl . $i);
+    $res = $ua->request($req);
+    if($res->is_success()){
+        printf("%d: %s\n", $i, $res->header("content-length"));
+    } elsif($res->code() != 404){
+        printf("Error: %s\n", $res->status_line());
+        $err = 1;
+    }
+}
+
+if($err){
+    printf("finished with error\n");
+    exit(1);
+}
+
+printf("finished successfully\n");
+exit(1);

data/ext/tokyotyrant-1.1.39/example/mcftest.pl

@@ -0,0 +1,39 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Cache::Memcached::Fast;
+
+my $memd = Cache::Memcached::Fast->new({
+    servers => [{ address => "localhost:1978", noreply => 1 }],
+    connect_timeout => 10,
+});
+
+$memd->flush_all();
+foreach my $i (1..100){
+    my $rnd = int(rand(10));
+    my $key = int(rand(100));
+    if($rnd == 0){
+      $memd->add($key, "[add:$i]");
+    } elsif($rnd == 1){
+      $memd->replace($key, "[replace:$i]");
+    } elsif($rnd == 2){
+      $memd->append($key, "[append:$i]");
+    } elsif($rnd == 3){
+      $memd->prepend($key, "[prepend:$i]");
+    } elsif($rnd == 4){
+      $memd->delete($key);
+    } elsif($rnd == 5){
+      $memd->incr($key, 1);
+    } elsif($rnd == 6){
+      $memd->decr($key, 1);
+    } else {
+      $memd->set($key, "[set:$i]");
+    }
+}
+
+foreach my $i (1..100){
+    my $val = $memd->get($i, $i);
+    printf("%d: %s\n", $i, defined($val) ? $val : "(undef)");
+}

data/ext/tokyotyrant-1.1.39/example/mctest.pl

@@ -0,0 +1,43 @@
+#! /usr/bin/perl
+
+use strict;
+use warnings;
+
+use Cache::Memcached;
+
+my $memd = Cache::Memcached->new();
+$memd->set_servers(["localhost:1978"]);
+
+$memd->flush_all();
+foreach my $i (1..100){
+    $memd->set($i, "mikio:$i");
+}
+foreach my $i (1..101){
+    $memd->add($i, "hirabayashi:$i");
+}
+foreach my $i (1..100){
+    $memd->replace($i, $i);
+}
+foreach my $i (1..100){
+    $memd->incr($i, 100);
+}
+foreach my $i (1..100){
+    $memd->decr($i, 10);
+}
+for(my $i = 1; $i < 100; $i += 7){
+    $memd->delete($i);
+}
+foreach my $i (1..102){
+    my $val = $memd->get($i, $i);
+    printf("%d: %s\n", $i, defined($val) ? $val : "(undef)");
+}
+my $stats = $memd->stats();
+while(my ($key, $value) = each(%$stats)){
+    if(ref($value) eq 'HASH'){
+        while(my ($tkey, $tvalue) = each(%$value)){
+            printf("%s:%s:%s\n", $key, $tkey, $tvalue);
+        }
+    } else {
+        printf("%s:%s\n", $key, $value);
+    }
+}

data/ext/tokyotyrant-1.1.39/example/tcrdbex.c

@@ -0,0 +1,49 @@
+#include <tcrdb.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdint.h>
+
+int main(int argc, char **argv){
+
+  TCRDB *rdb;
+  int ecode;
+  char *value;
+
+  /* create the object */
+  rdb = tcrdbnew();
+
+  /* connect to the server */
+  if(!tcrdbopen(rdb, "localhost", 1978)){
+    ecode = tcrdbecode(rdb);
+    fprintf(stderr, "open error: %s\n", tcrdberrmsg(ecode));
+  }
+
+  /* store records */
+  if(!tcrdbput2(rdb, "foo", "hop") ||
+     !tcrdbput2(rdb, "bar", "step") ||
+     !tcrdbput2(rdb, "baz", "jump")){
+    ecode = tcrdbecode(rdb);
+    fprintf(stderr, "put error: %s\n", tcrdberrmsg(ecode));
+  }
+
+  /* retrieve records */
+  value = tcrdbget2(rdb, "foo");
+  if(value){
+    printf("%s\n", value);
+    free(value);
+  } else {
+    ecode = tcrdbecode(rdb);
+    fprintf(stderr, "get error: %s\n", tcrdberrmsg(ecode));
+  }
+
+  /* close the connection */
+  if(!tcrdbclose(rdb)){
+    ecode = tcrdbecode(rdb);
+    fprintf(stderr, "close error: %s\n", tcrdberrmsg(ecode));
+  }
+
+  /* delete the object */
+  tcrdbdel(rdb);
+
+  return 0;
+}

data/ext/tokyotyrant-1.1.39/example/tcrdbtblex.c

@@ -0,0 +1,79 @@
+#include <tcrdb.h>
+#include <stdlib.h>
+#include <stdbool.h>
+#include <stdint.h>
+
+int main(int argc, char **argv){
+
+  TCRDB *rdb;
+  int ecode, pksiz, i, rsiz;
+  char pkbuf[256];
+  const char *rbuf, *name;
+  TCMAP *cols;
+  RDBQRY *qry;
+  TCLIST *res;
+
+  /* create the object */
+  rdb = tcrdbnew();
+
+  /* connect to the server */
+  if(!tcrdbopen(rdb, "localhost", 1978)){
+    ecode = tcrdbecode(rdb);
+    fprintf(stderr, "open error: %s\n", tcrdberrmsg(ecode));
+  }
+
+  /* store a record */
+  pksiz = sprintf(pkbuf, "%ld", (long)tcrdbtblgenuid(rdb));
+  cols = tcmapnew3("name", "mikio", "age", "30", "lang", "ja,en,c", NULL);
+  if(!tcrdbtblput(rdb, pkbuf, pksiz, cols)){
+    ecode = tcrdbecode(rdb);
+    fprintf(stderr, "put error: %s\n", tcrdberrmsg(ecode));
+  }
+  tcmapdel(cols);
+
+  /* store a record in a naive way */
+  pksiz = sprintf(pkbuf, "12345");
+  cols = tcmapnew();
+  tcmapput2(cols, "name", "falcon");
+  tcmapput2(cols, "age", "31");
+  tcmapput2(cols, "lang", "ja");
+  if(!tcrdbtblput(rdb, pkbuf, pksiz, cols)){
+    ecode = tcrdbecode(rdb);
+    fprintf(stderr, "put error: %s\n", tcrdberrmsg(ecode));
+  }
+  tcmapdel(cols);
+
+  /* search for records */
+  qry = tcrdbqrynew(rdb);
+  tcrdbqryaddcond(qry, "age", RDBQCNUMGE, "20");
+  tcrdbqryaddcond(qry, "lang", RDBQCSTROR, "ja,en");
+  tcrdbqrysetorder(qry, "name", RDBQOSTRASC);
+  tcrdbqrysetlimit(qry, 10, 0);
+  res = tcrdbqrysearch(qry);
+  for(i = 0; i < tclistnum(res); i++){
+    rbuf = tclistval(res, i, &rsiz);
+    cols = tcrdbtblget(rdb, rbuf, rsiz);
+    if(cols){
+      printf("%s", rbuf);
+      tcmapiterinit(cols);
+      while((name = tcmapiternext2(cols)) != NULL){
+        printf("\t%s\t%s", name, tcmapget2(cols, name));
+      }
+      printf("\n");
+      tcmapdel(cols);
+    }
+  }
+  tclistdel(res);
+  tcrdbqrydel(qry);
+
+  /* close the connection */
+  if(!tcrdbclose(rdb)){
+    ecode = tcrdbecode(rdb);
+    fprintf(stderr, "close error: %s\n", tcrdberrmsg(ecode));
+  }
+
+  /* delete the object */
+  tcrdbdel(rdb);
+
+  return 0;
+}

data/ext/tokyotyrant-1.1.39/ext/mapreduce.lua

@@ -0,0 +1,57 @@
+--
+-- MapReduce implementation by the Lua extension of Tokyo Tyrant
+--
+
+
+
+----------------------------------------------------------------
+-- public functions
+----------------------------------------------------------------
+
+
+-- count words of all records
+function wordcount(texpr)
+   local targets = nil
+   if texpr and #texpr > 0 then
+      targets = {}
+      table.insert(targets, texpr)
+   end
+   function mapper(key, value, mapemit)
+      for word in string.gmatch(string.lower(value), "%w+") do
+         mapemit(word, 1)
+      end
+      return true
+   end
+   local res = ""
+   function reducer(key, values)
+      res = res .. key .. "\t" .. #values .. "\n"
+      return true
+   end
+   if not _mapreduce(mapper, reducer, targets) then
+      res = nil
+   end
+   return res
+end
+
+
+
+----------------------------------------------------------------
+-- private functions
+----------------------------------------------------------------
+
+
+-- call back function when starting
+function _begin()
+   _log("Lua processor started")
+   _tmpdir_ = "/tmp"
+end
+
+
+-- call back function when ending
+function _end()
+   _log("Lua processor finished")
+end
+
+
+
+-- END OF FILE

data/ext/tokyotyrant-1.1.39/ext/queue.lua

@@ -0,0 +1,55 @@
+--
+-- Queue mechanism by the Lua extension of Tokyo Tyrant
+--
+
+
+
+----------------------------------------------------------------
+-- public functions
+----------------------------------------------------------------
+
+
+-- enqueue a record
+function enqueue(key, value)
+   local id = _adddouble(key, 1)
+   if not id then
+      return nil
+   end
+   key = string.format("%s\t%012d", key, id)
+   if not _putkeep(key, value) then
+      return nil
+   end
+   return "ok"
+end
+
+
+-- dequeue a record
+function dequeue(key, max)
+   max = tonumber(max)
+   if not max or max < 1 then
+      max = 1
+   end
+   key = string.format("%s\t", key)
+   local keys = _fwmkeys(key, max)
+   local res = ""
+   for i = 1, #keys do
+      local key = keys[i]
+      local value = _get(key)
+      if _out(key) and value then
+         res = res .. value .. "\n"
+      end
+   end
+   return res
+end
+
+
+-- get the queue size
+function queuesize(key)
+   key = string.format("%s\t", key)
+   local keys = _fwmkeys(key)
+   return #keys
+end
+
+
+
+-- END OF FILE