Changeset c19d54 in git for Singular/febase.cc

Timestamp:

Jul 10, 1998, 7:03:45 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

19fbf0a3717469b69ac8af448e962da5745a4ef3

Parents:

6cb9e2361fccb5dbb72754e77429220e5a8b6e13

Message:

* hannes: changes to HAVE_TCL


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

File:

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

Singular/febase.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: febase.cc,v 1.59 1998-07-07 14:00:38 Singular Exp $ */
+/* $Id: febase.cc,v 1.60 1998-07-10 17:03:43 Singular Exp $ */
 /*
 * ABSTRACT: i/o system
@@ -836 +836 @@
 }
 
-void PrintTCLS(char c, char *s)
-{
 #ifndef __MWERKS__
+#ifdef HAVE_TCL
+void PrintTCLS(const char c, const char *s)
+{
   int l=strlen(s);
   if (l>0) PrintTCL(c,l,s);
-#endif
-}
+}
+#endif
+#endif
 
 extern "C" {
@@ -1057 +1059 @@
   if (((c == '\003') || (c == 'C')) || (c == 'c'))
   {
-    m2_end(1);
+    m2_end(4);
   }
 }