Changeset c20843 in git for Singular/febase.cc

Timestamp:

Aug 4, 1998, 6:54:08 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

ef85f4ac916b31404595a705fbd58da20a40a024

Parents:

cafa52caa8e468ad40ec914a2f25cc9574e078e6

Message:

* hannes: TCL-fixes: pause -> noop, read("")->error


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

File:

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

Singular/febase.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: febase.cc,v 1.63 1998-08-03 16:39:04 Singular Exp $ */
+/* $Id: febase.cc,v 1.64 1998-08-04 16:54:07 Singular Exp $ */
 /*
 * ABSTRACT: i/o system
@@ -1054 +1054 @@
 void fePause()
 {
-  uchar c;
-  mflush();
+#ifdef HAVE_TCL
+  if(!tclmode)
+#endif
+  {
+    mflush();
 #ifndef macintosh
-  fputs("pause>",stderr);
-#else
-  fputs("pause>\n",stderr);
-#endif
-  c = fgetc(stdin);
-  if (((c == '\003') || (c == 'C')) || (c == 'c'))
-  {
-    m2_end(4);
+    fputs("pause>",stderr);
+#else
+    fputs("pause>\n",stderr);
+#endif
+    uchar c = fgetc(stdin);
+    if (((c == '\003') || (c == 'C')) || (c == 'c'))
+    {
+      m2_end(4);
+    }
   }
 }