Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37739625
en ru br
Репозитории ALT
S:0.42.6-alt5_12
5.1: 0.42.5-alt0.svn12837.0.M51.1
www.altlinux.org/Changes

Группа :: Науки/Прочее
Пакет: pd

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: pd-0.42-6-tcl86.patch
Скачать


--- pd-0.41-4/src/configure.in	2008-03-14 17:03:00.000000000 -0700
+++ pd-0.41-4/src/configure.in.new	2008-12-03 11:56:04.000000000 -0800
@@ -148,6 +148,7 @@
 #    exit -1
 fi
 
+AC_CHECK_LIB(tcl8.6, main,,
 AC_CHECK_LIB(tcl85, main,,
         AC_CHECK_LIB(tcl8.5, main,,
         AC_CHECK_LIB(tcl84, main,,
@@ -155,8 +156,9 @@
                 AC_CHECK_LIB(tcl8.3, main,,
                     AC_CHECK_LIB(tcl8.2, main,,
                                     AC_CHECK_LIB(tcl8.0, main,,
-                            echo no tcl library found; exit 1)))))))
+                            echo no tcl library found; exit 1))))))))
 
+AC_CHECK_LIB(tk8.6, main,,
 AC_CHECK_LIB(tk85, main,,
         AC_CHECK_LIB(tk8.5, main,,
        AC_CHECK_LIB(tk84, main,,
@@ -164,7 +166,7 @@
                 AC_CHECK_LIB(tk8.3, main,,
                     AC_CHECK_LIB(tk8.2, main,,
                                     AC_CHECK_LIB(tk8.0, main,,
-                            echo no tk library found; exit 1)))))))
+                            echo no tk library found; exit 1))))))))
 
 
 if test x$tk != "xno"; then
--- pd-0.41-4/src/t_tkcmd.c	2008-03-14 17:03:00.000000000 -0700
+++ pd-0.41-4/src/t_tkcmd.c.new	2008-12-03 12:19:52.000000000 -0800
@@ -2,6 +2,8 @@
 * For information on usage and redistribution, and for a DISCLAIMER OF ALL
 * WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
 
+#define USE_INTERP_RESULT
+
 #ifndef MSW     /* in unix this only works first; in MSW it only works last. */
 #include "tk.h"
 #endif
@@ -541,7 +543,7 @@
     result = Tcl_Eval(tk_pdinterp,  s);
     if (result != TCL_OK)
     {
-        if (*tk_pdinterp->result) printf("%s\n",  tk_pdinterp->result);
+        if (*Tcl_GetStringResult(tk_pdinterp)) printf("%s\n",  Tcl_GetStringResult(tk_pdinterp));
     }
 }
 
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin