Changeset: fdf6335df49b for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=fdf6335df49b
Modified Files:
        sql/backends/monet5/vaults/gadget/82_gadget.sql
        sql/backends/monet5/vaults/gadget/gadget.mal
Branch: data-vaults
Log Message:

Make check and analyze table available at the SQL level for gadget data vaults.


diffs (37 lines):

diff --git a/sql/backends/monet5/vaults/gadget/82_gadget.sql 
b/sql/backends/monet5/vaults/gadget/82_gadget.sql
--- a/sql/backends/monet5/vaults/gadget/82_gadget.sql
+++ b/sql/backends/monet5/vaults/gadget/82_gadget.sql
@@ -5,7 +5,8 @@ create procedure gadgetListDir(dname str
 create procedure gadgetListDirPat(dname string, pattern string) external name 
gadget.listdirpattern;
 create procedure gadgetListDirAll(dname string) external name 
gadget.listdirall;
 create procedure gadgetAttachAll(*) external name gadget.attachall;
-create procedure gadgetCheckTable(tname string) external name 
gadget.checktable;
+create procedure gadgetCheckTab(tname string) external name gadget.checktab;
+create procedure gadgetAnalyzeTab(status int, tname string) external name 
gadget.analyzetab;
 create function gadgetPHkeyConvert(x real, y real, z real, baseSize real, 
nbits int) returns bigint external name gadget.phkeyconvert;
 create function gadgetPHkeyInvert(phkey bigint, baseSize real, nbits int) 
returns table (x real, y real, z real, cSize real) external name 
gadget.phkeyinvert;
 
diff --git a/sql/backends/monet5/vaults/gadget/gadget.mal 
b/sql/backends/monet5/vaults/gadget/gadget.mal
--- a/sql/backends/monet5/vaults/gadget/gadget.mal
+++ b/sql/backends/monet5/vaults/gadget/gadget.mal
@@ -50,10 +50,20 @@ pattern checktable(mvc:int, tablename :s
 address gadgetCheckTable
 comment "Check if table was loaded";
 
+function checktab(tablename :str):int;
+    x = checktable(0, tablename);
+    return x;
+end checktab;
+
 pattern analyzetable(mvc:int, status:int, tablename :str):int
 address gadgetAnalyzeTable
 comment "Analyze table";
 
+function analyzetab(status:int, tablename:str) :int;
+    x = analyzetable(0, status, tablename);
+    return x;
+end analyzetab;
+
 pattern bind(tid:int, mvc:int, schema:str, table:str, column:str, access:int 
):bat[:any_1]
 address mvc_gadget_bind_wrap
 comment "Bind the 'schema.table.column' BAT with access kind:
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list

Reply via email to