[Texmacs-dev] Patch: Guile-1.8.1 problem solved!

[Norbert Nemec]

Hi there,

I solved the problem with linking to the latest versions of guile:

The symbol scm_to_int is newly introduced in guile and collides with the
same symbol defined in texmacs/src/Guile/Glue/glue.hpp and .cpp

Unfortunately, this collision caused very strange linking problems which
explains why it took so long to solve.

Attached is a patch against the CVS version of TeXmacs that solves the
problem.

With this patch applied, the CVS version of TeXmacs starts up without
the former crashes, but causes a bunch of other errors that I did not
want to get into.

Greetings,
Norbert

Index: texmacs/src/Guile/Glue/glue.cpp
===================================================================
--- texmacs.orig/src/Guile/Glue/glue.cpp        2006-12-08 12:49:57.000000000 
+0100
+++ texmacs/src/Guile/Glue/glue.cpp     2006-12-08 12:50:47.000000000 +0100
@@ -134,10 +134,12 @@
   return scm_long2scm ((long) i);
 }
 
+#ifndef GUILE_C
 int
 scm_to_int (SCM i) {
   return (int) scm_scm2long (i);
 }
+#endif
 
 /******************************************************************************
 * Floating point numbers
Index: texmacs/src/Guile/Glue/glue.hpp
===================================================================
--- texmacs.orig/src/Guile/Glue/glue.hpp        2006-12-08 12:49:57.000000000 
+0100
+++ texmacs/src/Guile/Glue/glue.hpp     2006-12-08 12:50:47.000000000 +0100
@@ -36,8 +36,12 @@
 SCM path_to_scm (path p);
 SCM url_to_scm (url u);
 SCM scheme_tree_to_scm (scheme_tree t);
+
+#ifndef GUILE_C
 int scm_to_bool (SCM obj);
 int scm_to_int (SCM obj);
+#endif
+
 string scm_to_string (SCM obj);
 string scm_to_symbol (SCM obj);
 tree scm_to_tree (SCM obj);
Index: texmacs/src/Texmacs/Texmacs/texmacs.cpp
===================================================================
--- texmacs.orig/src/Texmacs/Texmacs/texmacs.cpp        2006-12-08 
12:49:57.000000000 +0100
+++ texmacs/src/Texmacs/Texmacs/texmacs.cpp     2006-12-08 12:50:48.000000000 
+0100
@@ -266,12 +266,6 @@
 
 int
 main (int argc, char** argv) {
-#ifdef GUILE_C
-  cout << "Guile 1.8.0 is uncompatible with earlier versions.\n";
-  cout << "Please recompile TeXmacs with an older version of Guile,\n";
-  cout << "since TeXmacs is likely to crash with Guile 1.8.0.\n";
-  cout << "Any help for fixing this problem would be appreciated.\n";
-#endif
   //cout << "Bench  ] Started TeXmacs\n";
   the_et     = tuple ();
   the_et->obs= ip_observer (path ());