a few problems with 3.0 (b2 ?)

From: <Drew.Whitehouse_at_anu.edu.au>
Date: Tue, 23 Jan 1996 16:35:03 +1100

        It seems that '\e' is only meaningfully an escaped charactrer
for gcc. SGI silently compiles this, Sun solaris says "warning:
dubious escape: \e". The effect is for all printed e's to become
\t's.

        eg

STk> (write "eee")
"\t\t\t"#[undefined]
STk>


--- /home/drw900/Languages/STk-3.0/Src/print.c Mon Oct 16 08:20:51 1995
+++ print.c Tue Jan 23 16:13:38 1996
_at_@ -136,7 +136,9 @@
            switch (*p) {
              case '\0' : Puts("\\0000", f); break;
              case '\b' : Puts("\\n", f); break;
+#ifdef __GNUC__
              case '\e' : Puts("\\t", f); break;
+#endif
              case '\n' : Puts("\\n", f); break;
              case '\r' : Puts("\\r", f); break;
              case '\t' : Puts("\\t", f); break;



        Also in tk-glue.h STk_last_Tk_result needs to be declared
extern -

--- /home/drw900/Languages/STk-3.0/Src/tk-glue.h Wed Jan 17 01:48:51 1996
+++ tk-glue.h Mon Jan 22 15:18:08 1996
_at_@ -28,7 +28,7 @@
 extern SCM STk_root_window_name;
 
 /* Last result of Tcl_GlobalEval (as a SCM object rather than a string) */
-SCM STk_last_Tk_result;
+extern SCM STk_last_Tk_result;
 
 char *STk_convert_for_Tk(SCM obj, SCM *res);
 
-Drew

;;---------------------------------------------------------------------
;; mailto:Drew.Whitehouse_at_anu.edu.au http://anusf.anu.edu.au/~drw900/
;;---------------------------------------------------------------------
Received on Tue Jan 23 1996 - 06:37:44 CET

This archive was generated by hypermail 2.3.0 : Mon Jul 21 2014 - 19:38:59 CEST