Changeset 2ba9a6 in git for Singular/ipassign.cc

Timestamp:

Jan 16, 1998, 3:29:59 PM (26 years ago)

Author:

Kai Krüger <krueger@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

f6590b9deabd44afb9756e810c1213f1e4aa4190

Parents:

f4404c2811a260acd825c9312b087b2c2704ae91

Message:

Implementation of new proc-scheme done.


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

File:

• Singular/ipassign.cc (modified) (3 diffs)

Singular/ipassign.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipassign.cc,v 1.19 1997-11-13 10:52:44 Singular Exp $ */
+/* $Id: ipassign.cc,v 1.20 1998-01-16 14:29:52 krueger Exp $ */
 
 /*
@@ -330 +330 @@
   return FALSE;
 }
+static BOOLEAN jiA_PROC(leftv res, leftv a, Subexpr e)
+{
+  extern procinfo *iiInitSingularProcinfo(procinfo *pi, char *libname,
+                                   char *procname, int line, long pos);
+  extern void piCleanUp(procinfov pi);
+
+  if(res->data!=NULL) piCleanUp((procinfo *)res->data);
+  if(a->rtyp==STRING_CMD) {
+    res->data = (void *)Alloc(sizeof(procinfo));
+    memset(res->data,0,sizeof(*(res->data)));
+    ((procinfo *)(res->data))->language=LANG_NONE;
+    iiInitSingularProcinfo((procinfo *)res->data,"",res->name,0,0);
+    ((procinfo *)res->data)->data.s.body=(void *)a->CopyD(STRING_CMD);
+  }
+  else
+    res->data=(void *)a->CopyD(PROC_CMD);
+  jiAssignAttr(res,a);
+  return FALSE;
+}
 static BOOLEAN jiA_INTVEC(leftv res, leftv a, Subexpr e)
 {
@@ -478 +497 @@
 ,{jiA_RING,     QRING_CMD,      QRING_CMD }
 ,{jiA_STRING,   STRING_CMD,     STRING_CMD }
-,{jiA_STRING,   PROC_CMD,       STRING_CMD }
-,{jiA_STRING,   PROC_CMD,       PROC_CMD }
+,{jiA_PROC,     PROC_CMD,       STRING_CMD }
+,{jiA_PROC,     PROC_CMD,       PROC_CMD }
 ,{jiA_POLY,     VECTOR_CMD,     VECTOR_CMD }
 ,{jiA_INTVEC,   INTVEC_CMD,     INTVEC_CMD }