Changeset a3836d in git

Timestamp:

Feb 26, 1999, 10:36:18 AM (25 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

c17b5f369243f602e00fde44f3104a5598691a18

Parents:

6d1466fa43dd5fd32dd9838701268814d41a3d58

Message:

Added check for HPUX shared libraries


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

Location:

Singular

Files:

• iparith.cc (modified) (1 diff)
• iplib.cc (modified) (2 diffs)
• subexpr.h (modified) (2 diffs)

Singular/iparith.cc

@@ -3057 +3057 @@
 #endif /* HAVE_DYNAMIC_LOADING */
         break;
+
+      case LT_HPUX:
+#ifdef HAVE_DYNAMIC_LOADING
+        result = load_modules(s, libnamebuf, autoexport);
+#else /* HAVE_DYNAMIC_LOADING */
+        WerrorS("Dynamic modules are not supported by this version of Singular");
+#endif /* HAVE_DYNAMIC_LOADING */
+        break;
   }
   return result;

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.50 1998-12-18 11:11:37 obachman Exp $ */
+/* $Id: iplib.cc,v 1.51 1999-02-26 09:35:14 krueger Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -1170 +1170 @@
     goto lib_type_end;
   }
+  if( (strncmp(buf, "\02\013\01\016\05\022@", 7)==0)) {
+    LT = LT_HPUX;
+    FreeL(newlib);
+    newlib = mstrdup(libnamebuf);
+    goto lib_type_end;
+  }
   if(isprint(buf[0]) || buf[0]=='\n') { LT = LT_SINGULAR; goto lib_type_end; }
   

Singular/subexpr.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: subexpr.h,v 1.13 1998-12-18 11:11:44 obachman Exp $ */
+/* $Id: subexpr.h,v 1.14 1999-02-26 09:36:18 krueger Exp $ */
 /*
 * ABSTRACT: handling of leftv
@@ -170 +170 @@
 #endif /* HAVE_LIBPARSER */
 
-typedef enum { LT_NONE, LT_SINGULAR, LT_ELF} lib_types;
+typedef enum { LT_NONE, LT_SINGULAR, LT_ELF, LT_HPUX} lib_types;
 lib_types type_of_LIB(char *newlib, char *fullname);
 #endif