Changeset 286bd57 in git for Singular/mpsr_Get.cc

Timestamp:

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

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

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_Get.cc (modified) (2 diffs)

Singular/mpsr_Get.cc

@@ -795 +795 @@
 /***************************************************************
  *  
- * A routine which get the previous dump of Singular
+ * A routine which gets the previous dump of Singular
  *
  ***************************************************************/
-BOOLEAN mpsr_GetDump(char *fn)
-{
-  MP_Link_pt link = OpenMPFile(fn, 1);
-  BOOLEAN status;
-
-  if (link == NULL) return FALSE;
-  else status = mpsr_GetDump(link);
-
-  MP_CloseLink(link);
-  return status;
-}
-
-BOOLEAN mpsr_GetDump(MP_Link_pt link)
+
+mpsr_Status_t mpsr_GetDump(MP_Link_pt link)
 {
   mpsr_sleftv mlv;
@@ -837 +826 @@
       mpsr_PrintError(status);
   }
-
-
-  return (status == mpsr_Success);
-}
-
-BOOLEAN mpsr_GetDump(leftv h)
-{
-  if (h == NULL)
-  {
-    Print("Using file %s to get dump\n", MPSR_DEFAULT_DUMP_FILE);
-    return mpsr_GetDump(MPSR_DEFAULT_DUMP_FILE);
-  }
-  else if (h->Typ() == STRING_CMD)
-  {
-    return mpsr_GetDump((char *) h->Data());
-  }
-  else if (h->Typ() == LINK_CMD)
-  {
-    si_link l = (si_link) h->Data();
-    if (SI_LINK_R_OPEN_P(l) && mpsr_IsMPLink(l))
-      return mpsr_GetDump((MP_Link_pt) l->data);
-    else
-      Werror("Can only get dump data from an already opened MP link");
-  }
-  else
-  {
-    Werror("Need string or opened MP Link");
-  }
-  return FALSE;
+  return status;
 }
 #endif