Changeset 7604db in git for Singular/ipprint.cc

Timestamp:

Apr 19, 1999, 1:03:57 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

228c7e51151a4fc3bdf6908acbb09367f243d275

Parents:

a30caa3e79912e5d42b9d62c6d2e1aa1239e5486

Message:

* print command


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

File:

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

Singular/ipprint.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipprint.cc,v 1.10 1999-04-17 14:58:49 obachman Exp $ */
+/* $Id: ipprint.cc,v 1.11 1999-04-19 11:02:39 obachman Exp $ */
 /*
 * ABSTRACT: interpreter: printing
@@ -229 +229 @@
       case IDEAL_CMD:
       {
-        char* s = u->String();
+        char* s = u->String(NULL, FALSE, 2);
         PrintS(s);
         PrintLn();
@@ -334 +334 @@
 /* ======================== end betti ================================= */
 
-  if (strcmp((char *)v->Data(),"%s") == 0)
-  {
-    res->data = (char*) u->String();
-  }
-  else if (strcmp((char *)v->Data(),"%;") == 0)
+  char* ns = mstrdup((char*) v->Data());
+  int dim = 1;
+  if (strlen(ns) == 3 && ns[1] == '2')
+  {
+    dim = 2;
+    ns[1] = ns[2];
+    ns[2] = '\0';
+  }
+  if (strcmp(ns,"%l") == 0)
+  {
+    res->data = (char*) u->String(NULL, TRUE, dim);
+  }
+  else if (strcmp(ns,"%t") == 0)
+  {
+    SPrintStart();
+    type_cmd((idhdl) u);
+    res->data = SPrintEnd();
+  }
+  else if (strcmp(ns,"%;") == 0)
   {
     SPrintStart();
@@ -344 +358 @@
     res->data = SPrintEnd();
   }
-  else if  (strcmp((char *)v->Data(),"%p") == 0)
+  else if  (strcmp(ns,"%p") == 0)
   {
     SPrintStart();
@@ -350 +364 @@
     res->data = SPrintEnd();
   }
-  else if (strcmp((char *)v->Data(),"%b") == 0 && (u->Typ()==INTMAT_CMD))
+  else if (strcmp(ns,"%b") == 0 && (u->Typ()==INTMAT_CMD))
   {
     SPrintStart();
@@ -358 +372 @@
   else 
   {
-    res->data = u->String();
+    res->data = u->String(NULL, FALSE, dim);
   }
     
+  FreeL(ns);
   res->rtyp = STRING_CMD;
   return FALSE;