Update of /cvsroot/monetdb/pathfinder/modules/pftijah
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv22051
Modified Files:
pftijah.mx
Log Message:
- reimplement tj_set_parameter() MIL function (was accidently lost)
Index: pftijah.mx
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/modules/pftijah/pftijah.mx,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -d -r1.100 -r1.101
--- pftijah.mx 1 Mar 2007 11:26:30 -0000 1.100
+++ pftijah.mx 2 Mar 2007 07:53:50 -0000 1.101
@@ -214,7 +214,6 @@
var verbose := false;
-
ADDHELP("tj_ping", "flokstra & rode", "Jan 2007",
"PARAMETERS:\n\
- none.\n\
@@ -785,6 +784,25 @@
}
# set a collection parameter
+PROC tj_set_parameter(str collName, str par, str val) : void
+{
+ if ( verbose ) printf("#TJ: tj_set_parameterl(%s,%s,%s)
called.\n",collName,par,val);
+ var coll_lock := tj_get_collection_lock(collName);
+ lock_set(coll_lock);
+ var err := CATCH({
+ var parbat := bat("tj_" + collName + "_param");
+
+ if ( parbat.exist(par) ) {
+ parbat.replace(par,val);
+ } else {
+ parbat.insert(par,val);
+ }
+ });
+ lock_unset(coll_lock);
+ if (not(isnil(err))) ERROR(err);
+}
+
+# get a collection parameter
PROC _tj_get_parameter(BAT[str,bat] collBat, str par) : str
{
var parbat := collBat.find("_param");
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Monetdb-pf-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-pf-checkins
