svnno****@sourc*****
svnno****@sourc*****
2008年 7月 1日 (火) 10:26:15 JST
Revision: 163
http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=tritonn&view=rev&rev=163
Author: mir
Date: 2008-07-01 10:26:15 +0900 (Tue, 01 Jul 2008)
Log Message:
-----------
cutting off some debug print
Modified Paths:
--------------
trunk/src/ha_tritonn.cc
-------------- next part --------------
Modified: trunk/src/ha_tritonn.cc
===================================================================
--- trunk/src/ha_tritonn.cc 2008-06-27 05:08:16 UTC (rev 162)
+++ trunk/src/ha_tritonn.cc 2008-07-01 01:26:15 UTC (rev 163)
@@ -40,7 +40,7 @@
static void dump_create(const char *name, TABLE *table_arg,
HA_CREATE_INFO *create_info);
-static void call_senna_ql(sen_ctx *ctx, const char *str, bool disp=false);
+static void call_senna_ql(sen_ctx *ctx, const char *str, bool disp=true);
static char *mysqltype2sennatype_string(enum_field_types types);
@@ -281,13 +281,13 @@
call_senna_ql(ctx, "(define (select recs expr) (reverse (letrec "
"((func (lambda (r x) (if x (let ((y (expr x))) "
"(func (if y (cons y r) r) (recs ::+ x))) r)))) "
- "(func () (recs ::)))))");
+ "(func () (recs ::)))))",false);
call_senna_ql(ctx, "(define (slot-exps class) (select <db> "
"(lambda (x) (let ((s (x ::schema))) (and (pair? s) "
- "(eq? class (car s)) (list () (car (cdr (cdr s)))))))))");
+ "(eq? class (car s)) (list () (car (cdr (cdr s)))))))))",false);
call_senna_ql(ctx, "(define (dump-table class) (if (< 0 class.:nrecords) "
"(begin (disp `(: ,class (.:key ,@(slot-exps class)) 0 0) "
- ":tsv))))");
+ ":tsv))))",false);
DBUG_RETURN(0);
}