Changeset 87ad70 in git for Singular/febase.cc

Timestamp:

Oct 29, 1998, 2:15:18 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

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

Children:

aadd79c91366f59aad4cb660b4aa718a7e3bc300

Parents:

06da87746f5373c1b9d4629100737c938d3e30a1

Message:

FEREAD updated


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

File:

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

Singular/febase.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: febase.cc,v 1.68 1998-10-15 11:45:53 obachman Exp $ */
+/* $Id: febase.cc,v 1.69 1998-10-29 13:15:15 Singular Exp $ */
 /*
 * ABSTRACT: i/o system
@@ -179 +179 @@
 #endif
 #ifdef PATH_DEBUG
-    Print("I'm going to chatter about the Search path:\n");
+    PrintS("I'm going to chatter about the Search path:\n");
 #endif
     if (env != NULL)
@@ -275 +275 @@
 
 #ifdef PATH_DEBUG
-  Print("Search for singular.hlp\n");
+  PrintS("Search for singular.hlp\n");
 #endif
 
@@ -535 +535 @@
     path_comps[i] = CleanUpName(path_comps[i]);
 #ifdef PATH_DEBUG
-  Print("After CleanUpName: ");
+  PrintS("After CleanUpName: ");
   for (i=0; i<n_comps; i++)
     Print("%s:", path_comps[i]);
@@ -854 +854 @@
 #ifndef __MWERKS__
 #ifdef HAVE_TCL
+extern "C" {
 void PrintTCLS(const char c, const char *s)
 {
   int l=strlen(s);
   if (l>0) PrintTCL(c,l,s);
+}
 }
 #endif
@@ -995 +997 @@
 #endif
 
+extern "C" {
 void PrintS(char *s)
 {
@@ -1077 +1080 @@
 }
 
+/* end extern "C" */
+}
+
 void fePause()
 {