Changeset 16895 for gsdl/trunk/common-src/src/lib/gsdltools.cpp

Timestamp:

2008-08-19T14:13:44+12:00 (16 years ago)

Author:

davidb

Message:

Runtime code can now support GDBM database being provided as a gzipped txt file, which is platform independant. If the required .ldb (or .bdb) isn't there than the runtime system executes txt2db to generate it. The rest of the code then works as before

File:

• gsdl/trunk/common-src/src/lib/gsdltools.cpp (modified) (3 diffs)

gsdl/trunk/common-src/src/lib/gsdltools.cpp

@@ -25 +25 @@
 
 #include "gsdltools.h"
+#include "fileutil.h"
 
 #if defined(__WIN32__)
@@ -30 +31 @@
 #include <process.h>
 #endif
+
+#if !defined (__WIN32__)
+#include <sys/utsname.h>
+#include <unistd.h>
+#endif
+
 
 bool littleEndian() {
@@ -160 +167 @@
 }
 
+
+static bool gsdl_setenv_done = false;
+
+bool set_gsdl_env_vars (const text_t& gsdlhome) 
+{
+  if (gsdl_setenv_done) { return true; }
+
+  // set up GSDLOS, GSDLHOME and PATH environment variables
+
+  text_t gsdlos, path;
+  unsigned int path_separator = ':';
+
+#if defined (__WIN32__)
+  gsdlos = "windows";
+  path_separator = ';';
+
+  path = filename_cat (gsdlhome, "bin", "windows", "perl", "bin;");
+
+#else
+  struct utsname *buf = new struct utsname();
+  int i = uname (buf);
+  if (i == -1) gsdlos = "linux"; // uname failed, default to linux
+  else gsdlos.setcstr (buf->sysname);
+  delete buf;
+  lc (gsdlos);
+#endif
+
+  // according to getenv documentation (after a bit of digging), *getenv*
+  // is responsible for the char* pointer returned, so no need for us
+  // to free it (in fact that would be a mistake!)
+
+  char* orig_pathc = getenv ("PATH"); 
+  path += filename_cat (gsdlhome, "bin", gsdlos);
+  path.push_back (path_separator);
+  path += filename_cat (gsdlhome, "bin", "script");
+  if (orig_pathc != NULL) {
+    path.push_back (path_separator);
+    path += orig_pathc;
+  }  
+
+  // these will be cleaned up in the destructor
+  char* gsdlosc = gsdlos.getcstr();
+  char* gsdlhomec = gsdlhome.getcstr();
+  char* pathc = path.getcstr();
+  
+  if ((setenv("GSDLOS",gsdlosc,1)!=0) 
+      || (setenv("GSDLHOME",gsdlhomec,1)!=0) 
+      || (setenv("PATH",pathc,1)!=0))
+    {
+      perror("Setting Greenstone environment variables");
+      return false;
+    }
+
+  delete [] gsdlosc;
+  delete [] gsdlhomec;
+  delete [] pathc;
+
+  gsdl_setenv_done = true;
+
+  return true;
+}
+
+
+
 // attempts to work out if perl is functional
 bool perl_ok (ostream &logout) {