Changeset 8e64dcd in tol

Timestamp:

Nov 10, 2008, 6:43:34 PM (18 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

8d5f19b

Parents:

2291fa7

Message:

Better definition of SqlExecScript

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@136 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/dynhlm

Files:

• _db_api.tol (modified) (3 diffs)
• _db_api.tools.tol (modified) (1 diff)

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/dynhlm/_db_api.tol

@@ -17 +17 @@
   //release
   Real _.engine = SqlEngine::GesMys;
+
+  //Database must be open before to use this API but some methods could use
+  //connection parameters. Then this field must be defined previously.
+  NameBlock dbConnect = UNKNOWN;
 
   //Enables or disables SQL tracing
@@ -42 +46 @@
     Real Stop
   };
-
-  Code SqlExecScript = SqlExecScript.NotImplemented;
 
   //Set of TOL alias for database tables
@@ -82 +84 @@
   Code SqlTableTrace;
   Code SqlExecTrace;
+  Code SqlExecScript;
   Code SqlCachedTableFile;
   Code SqlCachedInsert;

tol/stdlib/math/stat/models/bayesian/bysMcmc/bsr/dynhlm/_db_api.tools.tol

@@ -37 +37 @@
     DBTable(query),
     DBTable(query, structure))
+};
+
+//////////////////////////////////////////////////////////////////////////////
+Real SqlExecScript(Text filePath)
+//////////////////////////////////////////////////////////////////////////////
+{
+  Case(
+  _.engine==SqlEngine::GesMys,
+  {
+    Text command = 
+    "mysql "
+    "-h"+dbConnect::_.server+" "+
+    "-D"+dbConnect::_.defaultDB+" "+ 
+    "-u"+dbConnect::_.user+" "+
+    "-p"+dbConnect::_.password+" "+ 
+    "--disable-auto-rehash "
+    "--compress "
+    "< \""+filePath+"\"";
+    WriteLn("[SqlExecScript] "+command);
+    OSConWait(command,1)
+  },
+  {
+    WriteLn("[SqlExecScript] Not implemented for engine "+_.engine,"E");
+    0
+  })
 };