Changeset: 1d7e0572c2bf for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=1d7e0572c2bf
Modified Files:
monetdb5/modules/mal/manual.c
sql/scripts/25_debug.sql
Branch: default
Log Message:
Minor texutal cleanup
diffs (76 lines):
diff --git a/monetdb5/modules/mal/manual.c b/monetdb5/modules/mal/manual.c
--- a/monetdb5/modules/mal/manual.c
+++ b/monetdb5/modules/mal/manual.c
@@ -8,19 +8,12 @@
/*
* (c) Martin Kersten
- * This module introduces a series of commands that provide access
- * to the help information stored in the runtime environment.
- *
- * The manual bulk operations ease offline inspection of all function
definitions.
+ * This module provides a wrapping of the help function in the
.../mal/mal_modules.c
+ * and the list of all MAL functions for analysis using SQL.
*/
#include "monetdb_config.h"
#include "manual.h"
-/*
- * The manual help overview merely lists the mod.function names
- * together with the help oneliner in texi format for inclusion in the
documentation.
- */
-
str
MANUALcreateOverview(Client cntxt, MalBlkPtr mb, MalStkPtr stk, InstrPtr pci)
{
@@ -28,12 +21,10 @@ MANUALcreateOverview(Client cntxt, MalBl
bat *sx = getArgReference_bat(stk,pci,0);
bat *ax = getArgReference_bat(stk,pci,1);
bat *cx = getArgReference_bat(stk,pci,2);
- stream *f= cntxt->fdout;
Module s= cntxt->nspace;
- int j,z;
+ int j, k, ftop, top=0;
Symbol t;
Module list[256];
- int k, ftop, top=0;
MalBlkPtr blks[25000];
str hlp[25000];
char buf[BUFSIZ], *tt;
@@ -54,7 +45,7 @@ MANUALcreateOverview(Client cntxt, MalBl
BATkey(adr, TRUE);
BATkey(com, TRUE);
- if(s==NULL || f==NULL){
+ if(s==NULL){
return MAL_SUCCEED;
}
list[top++]=s;
@@ -75,10 +66,10 @@ MANUALcreateOverview(Client cntxt, MalBl
}
}
- for(z=0; z<ftop; z++){
+ for(j=0; j<ftop; j++){
buf[0]=0;
- BUNappend(com, hlp[z] ? hlp[z]:buf, TRUE);
- fcnDefinition(blks[z], getInstrPtr(blks[z],0), buf,
TRUE, buf, BUFSIZ);
+ BUNappend(com, hlp[j] ? hlp[j]:buf, TRUE);
+ fcnDefinition(blks[j], getInstrPtr(blks[j],0), buf,
TRUE, buf, BUFSIZ);
tt = strstr(buf,"address ");
if( tt){
*tt = 0;
diff --git a/sql/scripts/25_debug.sql b/sql/scripts/25_debug.sql
--- a/sql/scripts/25_debug.sql
+++ b/sql/scripts/25_debug.sql
@@ -42,6 +42,10 @@ create function sys.bbp ()
status string, kind string)
external name bbp.get;
+create function sys.malfunctions()
+ returns table("signature" string, "address" string, "comment" string)
+ external name "manual"."functions";
+
create procedure sys.evalAlgebra( ra_stmt string, opt bool)
external name sql."evalAlgebra";
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
