Changeset 1e3015 in git for Singular/feread.cc

Timestamp:

Aug 3, 1998, 6:39:07 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '4bd32dfef92ec9f5ed8dceee82d14318ae147107')

Children:

cafa52caa8e468ad40ec914a2f25cc9574e078e6

Parents:

81da6babf16d8b6dcb49f991f1a18a9727cced73

Message:

* hanes: TCL-changes (febase.cc feread.cc iplib.cc misc.cc)


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

File:

• Singular/feread.cc (modified) (4 diffs)

Singular/feread.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: feread.cc,v 1.17 1998-07-29 16:49:26 Singular Exp $ */
+/* $Id: feread.cc,v 1.18 1998-08-03 16:39:05 Singular Exp $ */
 /*
 * ABSTRACT: input from ttys, simulating fgets
@@ -12 +12 @@
 #include "febase.h"
 #include "mmemory.h"
+#ifdef HAVE_TCL
+#include "ipid.h"
+#endif
 
 #ifdef HAVE_FEREAD
@@ -329 +332 @@
   if (tclmode)
   {
-    PrintTCLS('P',pr);
+    if(currRing!=NULL) PrintTCLS('P',pr);
+    else               PrintTCLS('U',pr);
   }
   else
@@ -726 +730 @@
     if (tclmode)
     {
-      PrintTCLS('P',pr);
+      if(currRing!=NULL) PrintTCLS('P',pr);
+      else               PrintTCLS('U',pr);
     }
     else