Changeset feaddd in git for Singular/mpsr_Put.h

Timestamp:

Apr 10, 1997, 3:08:40 PM (27 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

91882f721049d2a9b2c3a5acda3db060a136600a

Parents:

6ae4f5a3079ec71b3f884bb50eb22a3919c9f9fb

Message:

Thu Apr 10 11:59:41 1997  Olaf Bachmann
<obachman@ratchwum.mathematik.uni-kl.de (Olaf Bachmann)>

	* remote quit is now arranged using MP_CopMpQuit

	* Updated mpsr_* files for new naming convention of MP v:1.1.2


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

File:

• Singular/mpsr_Put.h (modified) (4 diffs)

Singular/mpsr_Put.h

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mpsr_Put.h,v 1.2 1997-04-09 12:20:03 Singular Exp $ */
+/* $Id: mpsr_Put.h,v 1.3 1997-04-10 13:08:38 obachman Exp $ */
 /***************************************************************
  *
@@ -32 +32 @@
 #include"MP_NumberDict.h"
 #include"MP_ProtoDict.h"
-
+#include"MP_MpDict.h"
 
 
@@ -75 +75 @@
 inline mpsr_Status_t mpsr_PutString(MP_Link_pt link, char *str)
 {
-  mp_return(MP_PutStringPacket(link, str, 0));
+  if (strcmp(str, MPSR_QUIT_STRING) == 0)
+    mp_return(MP_PutCommonOperatorPacket(link,
+                                         MP_MpDict,
+                                         MP_CopMpEndSession,
+                                         0, 0));
+  else
+    mp_return(MP_PutStringPacket(link, str, 0));
 }
 extern mpsr_Status_t mpsr_PutRing(MP_Link_pt link, ring r);
@@ -81 +87 @@
 inline mpsr_Status_t mpsr_PutDef(MP_Link_pt link, char *name)
 {
-  mp_return(MP_PutIdentifierPacket(link, name, 0, 0));
+  mp_return(MP_PutIdentifierPacket(link, MP_SingularDict, name, 0));
 }
 // next, ring-dependent data