MonetDB: profiler - Add missing implementation of setpoolsize

[Martin Kersten]

Changeset: 84fe1683258e for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=84fe1683258e
Modified Files:
        monetdb5/modules/mal/profiler.c
        monetdb5/modules/mal/profiler.mal
        sql/scripts/16_tracelog.sql
        sql/scripts/46_profiler.sql
Branch: profiler
Log Message:

Add missing implementation of setpoolsize


diffs (77 lines):

diff --git a/monetdb5/modules/mal/profiler.c b/monetdb5/modules/mal/profiler.c
--- a/monetdb5/modules/mal/profiler.c
+++ b/monetdb5/modules/mal/profiler.c
@@ -53,6 +53,17 @@ CMDcloseProfilerStream(void *res)
 }
 
 str
+CMDsetProfilerPoolSize (Client cntxt, MalBlkPtr mb, MalStkPtr stk, InstrPtr 
pci)
+{
+       int poolsize = *getArgReference_int(stk,pci,1);
+       (void) mb;              /* fool compiler */
+       (void) cntxt;
+       if( poolsize < 0)
+               throw(MAL,"profiler","Trace pool size should be positive");
+       return setprofilerpoolsize(poolsize);
+}
+
+str
 CMDsetProfilerStream (Client cntxt, MalBlkPtr mb, MalStkPtr stk, InstrPtr pci)
 {
        str *host = getArgReference_str(stk,pci,1);
diff --git a/monetdb5/modules/mal/profiler.mal 
b/monetdb5/modules/mal/profiler.mal
--- a/monetdb5/modules/mal/profiler.mal
+++ b/monetdb5/modules/mal/profiler.mal
@@ -31,7 +31,7 @@ address CMDclearTrace
 comment "Clear the sql profiling ";
 
 pattern setpoolsize(pool:int)
-address setProfilerPoolSize
+address CMDsetProfilerPoolSize
 comment "Re-initialize the profiler pool";
 
 command setheartbeat(b:int):void
@@ -64,7 +64,7 @@ address CMDgetTrace
 comment "Get the trace details of a specific event";
 
 command cleanup():void
-address cleanupTraces
+address CMDcleanupTraces
 comment "Remove the temporary tables for profiling";
 
 command getDiskReads():lng
diff --git a/sql/scripts/16_tracelog.sql b/sql/scripts/16_tracelog.sql
--- a/sql/scripts/16_tracelog.sql
+++ b/sql/scripts/16_tracelog.sql
@@ -25,5 +25,5 @@ create function sys.tracelog()
 
 create view sys.tracelog as select * from sys.tracelog();
 
-create procedure profiler_openstream(host string, port int) external name 
profiler."openStream";
-create procedure profiler_stethoscope(ticks int) external name 
profiler.stethoscope;
+--create procedure profiler_openstream(host string, port int) external name 
profiler."openStream";
+--create procedure profiler_stethoscope(ticks int) external name 
profiler.stethoscope;
diff --git a/sql/scripts/46_profiler.sql b/sql/scripts/46_profiler.sql
--- a/sql/scripts/46_profiler.sql
+++ b/sql/scripts/46_profiler.sql
@@ -4,13 +4,13 @@
 --
 -- Copyright 2008-2015 MonetDB B.V.
 
--- start/stop collecting mdbs_profiler traces in profiler_logs pool with 
specific heartbeat
-create schema mdbs_profiler;
+-- start/stop collecting MDBS profiler traces in a profiler_logs pool with a 
specific heartbeat
+create schema profiler;
 
-create procedure mdbs_profiler.start() external name profiler.start;
-create procedure mdbs_profiler.stop() external name profiler.stop;
+create procedure profiler.start() external name profiler."start";
+create procedure profiler.stop() external name profiler.stop;
 
-create procedure mdbs_profiler.setheartbeat(beat int) external name 
profiler.setheartbeat;
-create procedure mdbs_profiler.setpoolsize(poolsize int) external name 
profiler.setpoolsize;
+create procedure profiler.setheartbeat(beat int) external name 
profiler.setheartbeat;
+create procedure profiler.setpoolsize(poolsize int) external name 
profiler.setpoolsize;
 
-create procedure mdbs_profiler.setstream(host string, port int) external name 
profiler.setstream;
+create procedure profiler.setstream(host string, port int) external name 
profiler.setstream;
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list