Changeset 698457 in git for Singular/iplib.cc

Timestamp:

Nov 6, 1999, 4:07:56 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e5295aa5284b62bfbf5d03c92cdf5f62238ed425

Parents:

9d0697170908a6e9669c18eaf6ea6c461ed24375

Message:

* added proc iiLocateLib:
  sees wheter library lib has already been loaded
   if yes, writes filename of lib into where and returns TRUE,
      no, returns FALSE

* healp ~/my.lib" works


git-svn-id: file:///usr/local/Singular/svn/trunk@3811 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iplib.cc (modified) (2 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.66 1999-10-14 14:27:09 obachman Exp $ */
+/* $Id: iplib.cc,v 1.67 1999-11-06 15:07:56 obachman Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -653 +653 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
+/* sees wheter library lib has already been loaded
+   if yes, writes filename of lib into where and returns TRUE,
+      no, returns FALSE
+*/
+BOOLEAN iiLocateLib(const char* lib, char* where)
+{
+  idhdl hl;
+  
+  hl = idroot->get("LIB", 0);
+  if (hl == NULL || strstr(IDSTRING(hl), lib) == NULL) return FALSE;
+  
+  if (strstr(IDSTRING(hl), ",") == NULL)
+  {
+    strcpy(where, IDSTRING(hl));
+  }
+  else
+  {
+    char* tmp = mstrdup(IDSTRING(hl));
+    char* tok = strtok(tmp, ",");
+    do
+    {
+      if (strstr(tok, lib) != NULL) break;
+      tok = strtok(NULL, ",");
+    }
+    while (tok != NULL);
+    assume(tok != NULL);
+    strcpy(where, tok);
+    FreeL(tmp);
+  }
+  return TRUE;
+}
+    
+  
 #ifdef HAVE_NAMESPACES
 BOOLEAN iiLibCmd( char *newlib, BOOLEAN autoexport, BOOLEAN tellerror )