Changeset 1d1101 in git for Singular/iplib.cc

Timestamp:

Apr 27, 1998, 4:58:09 PM (26 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

48ef1b78f26c10a268b5e62bb42f0787fe9e3b18

Parents:

9e2ba3333cb37221b091178f15de38c4f2cfbf24

Message:

Fixed exmaple bug
Added HAVE_DYNAMIC_LOADING


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

File:

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

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.20 1998-04-27 12:34:16 obachman Exp $ */
+/* $Id: iplib.cc,v 1.21 1998-04-27 14:58:09 krueger Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -194 +194 @@
     strcat(s+procbuflen-3, "\n;return();\n\n" );
     p=strchr(s,'{');
-    if (p!=NULL) *s=' ';
+    if (p!=NULL) *p=' ';
     return(s);
   }
@@ -322 +322 @@
   {
     leftv res = (leftv)Alloc0(sizeof(sleftv));
+    res->rtyp=NONE;
     err = (pi->data.o.function)(res, sl);
     iiRETURNEXPR[myynest+1].Copy(res);
@@ -431 +432 @@
 }
 
+/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
 BOOLEAN iiLibCmd( char *newlib, BOOLEAN tellerror )
 {
@@ -695 +697 @@
 }
 
+/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
 procinfo *iiInitSingularProcinfo(procinfov pi, char *libname, char *procname,
                                  int line, long pos, BOOLEAN pstatic)
@@ -721 +724 @@
 }
 
+#ifdef HAVE_DYNAMIC_LOADING
+/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
+int iiAddCproc(char *libname, char *procname, BOOLEAN pstatic,
+               BOOLEAN(*func)(leftv res, leftv v))
+{
+  procinfov pi;
+  idhdl h;
+
+  h = enterid(mstrdup(procname),0, PROC_CMD, &idroot, FALSE);
+  if ( h!= NULL ) {
+    Print("register binary proc: %s::%s\n", libname, procname);
+    pi = IDPROC(h);
+    pi->libname = mstrdup(libname);
+    pi->procname = mstrdup(procname);
+    pi->language = LANG_C;
+    pi->ref = 1;
+    pi->is_static = pstatic;
+    pi->data.o.function = func;
+    return(1);
+  } else {
+    Print("iiAddCproc: failed.\n");
+  }
+  return(0);
+}
+#endif /* HAVE_DYNAMIC_LOADING */
+
 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
 char *iiConvName(char *libname)