Changeset 286bd57 in git for Singular/mpsr_Put.cc

Timestamp:

Mar 28, 1997, 10:44:40 PM (27 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '6e5adcba05493683b94648c659a729c189812c77')

Children:

16910e1c7d0e5650764c7686671407d794630421

Parents:

a6815bc36646e83a9fa1fd030f6cedf55e4441b5

Message:

Fri Mar 28 14:12:05 1997  Olaf Bachmann
<obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>

	* Added routines dump(link) and getdump(link) for ascii and MP
	  links

	* ipconv.cc (dConvertTypes): added int->module conversion so that
	  'module m = 0' works

	* iparith.cc (jjVAR1): added LINK_CMD to list of typeof(...)


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

File:

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

Singular/mpsr_Put.cc

@@ -491 +491 @@
  *
  ***************************************************************/
-BOOLEAN mpsr_PutDump(char *fn)
-{
-  MP_Link_pt link = OpenMPFile(fn, 0);
-  BOOLEAN status;
-
-  if (link == NULL) return FALSE;
-  else status = mpsr_PutDump(link);
-
-  MP_CloseLink(link);
-  return status;
-}
-
-
-BOOLEAN mpsr_PutDump(MP_Link_pt link)
+mpsr_Status_t mpsr_PutDump(MP_Link_pt link)
 {
   idhdl h = idroot, h2 = NULL, rh = currRingHdl;
@@ -564 +551 @@
   
   if (h == NULL && h2 == NULL)
-    return TRUE;
+    return mpsr_Success;
   else
-  {
-    mpsr_PrintError();
-    return FALSE;
-  }
-}
-  
-BOOLEAN mpsr_PutDump(leftv h)
-{
-  if (h == NULL)
-  {
-    Print("Using file %s for dump\n", MPSR_DEFAULT_DUMP_FILE);
-    return mpsr_PutDump(MPSR_DEFAULT_DUMP_FILE);
-  }
-  else if (h->Typ() == STRING_CMD)
-  {
-    return mpsr_PutDump((char *) h->Data());
-  }
-  else if (h->Typ() == LINK_CMD)
-  {
-    si_link l = (si_link) h->Data();
-    if (SI_LINK_W_OPEN_P(l) && mpsr_IsMPLink(l))
-      return mpsr_PutDump((MP_Link_pt) l->data);
-    else
-      Werror("Can only dump data to an already opened MP link");
-  }
-  else
-  {
-    Werror("Need string or opened MP Link");
-  }
-  return FALSE;
-}
+    return mpsr_Failure;
+}
+  
 #endif // HAVE_MPSR