MonetDB: default - Small clean up of the history facilities.

[mk]

Changeset: 634e76fcdeba for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=634e76fcdeba
Modified Files:
        sql/src/backends/monet5/sql.mx
        sql/src/sql/history.sql
Branch: default
Log Message:

Small clean up of the history facilities.
sql.mx: drop the function name in the argument column
history.sql: added the resetHistory procedure.


diffs (35 lines):

diff -r e644f442e0be -r 634e76fcdeba sql/src/backends/monet5/sql.mx
--- a/sql/src/backends/monet5/sql.mx    Sun May 16 00:15:22 2010 +0200
+++ b/sql/src/backends/monet5/sql.mx    Sun May 16 00:16:41 2010 +0200
@@ -4835,11 +4835,14 @@
 @:rnk(dense_,nrank+=(c?1:0),2)@
 
 str SQLargRecord(Client cntxt, MalBlkPtr mb, MalStkPtr stk, InstrPtr pci){
-       str *ret;
+       str s, t, *ret;
 
        (void) cntxt;
        ret= (str *) getArgReference(stk,pci,0);
-       *ret = instruction2str(mb,stk,getInstrPtr(mb,0),LIST_MAL_VALUE);
+       s = instruction2str(mb,stk,getInstrPtr(mb,0),LIST_MAL_VALUE);
+       t= strchr(s,' ');
+       *ret = GDKstrdup(t ? t+1: s);
+       GDKfree(s);
        return MAL_SUCCEED;
 }
 
diff -r e644f442e0be -r 634e76fcdeba sql/src/sql/history.sql
--- a/sql/src/sql/history.sql   Sun May 16 00:15:22 2010 +0200
+++ b/sql/src/sql/history.sql   Sun May 16 00:16:41 2010 +0200
@@ -92,4 +92,10 @@
                foot, memory, tuples, inblock, oublock );
 end;
 
-set history=true;
+create procedure resetHistory()
+begin
+       delete from callHistory;
+       delete from queryHistory;
+end;
+
+-- set history=true;
_______________________________________________
Checkin-list mailing list
Checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list