| 1 |
grozin 14/02/04 16:24:09 |
| 2 |
|
| 3 |
Added: tcl.patch 64gcl-gentoo.el |
| 4 |
Removed: 2.6.7-fix-configure.in-gentoo.patch |
| 5 |
gcl-default-el.patch |
| 6 |
gcl-2.6.7-fix-configure.in-bfd.patch |
| 7 |
gcl-2.6.8_pre20090419-configure.patch |
| 8 |
Log: |
| 9 |
Version bump, cleaning old |
| 10 |
|
| 11 |
(Portage version: 2.2.8-r1/cvs/Linux i686, signed Manifest commit with key 0x3AFFCE974D34BD8C!) |
| 12 |
|
| 13 |
Revision Changes Path |
| 14 |
1.1 dev-lisp/gcl/files/tcl.patch |
| 15 |
|
| 16 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lisp/gcl/files/tcl.patch?rev=1.1&view=markup |
| 17 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lisp/gcl/files/tcl.patch?rev=1.1&content-type=text/plain |
| 18 |
|
| 19 |
Index: tcl.patch |
| 20 |
=================================================================== |
| 21 |
diff -r -U2 gcl.orig/gcl-tk/tkMain.c gcl/gcl-tk/tkMain.c |
| 22 |
--- gcl.orig/gcl-tk/tkMain.c 2013-11-11 21:55:48.000000000 +0700 |
| 23 |
+++ gcl/gcl-tk/tkMain.c 2014-02-05 00:09:38.821981358 +0700 |
| 24 |
@@ -122,5 +122,5 @@ |
| 25 |
char *x; |
| 26 |
{char buf[300] ; |
| 27 |
- sprintf("error %s",x); |
| 28 |
+ snprintf(buf,300,"error %s",x); |
| 29 |
Tcl_Eval(interp,buf); |
| 30 |
dfprintf(stderr,x); |
| 31 |
@@ -207,5 +207,5 @@ |
| 32 |
if (Tk_ParseArgv(interp, (Tk_Window) NULL, &argc, (const char **)argv, argTable, 0) |
| 33 |
!= TCL_OK) { |
| 34 |
- fprintf(stderr, "%s\n", interp->result); |
| 35 |
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp)); |
| 36 |
exit(1); |
| 37 |
} |
| 38 |
@@ -291,5 +291,5 @@ |
| 39 |
|
| 40 |
if (Tcl_AppInit(interp) != TCL_OK) { |
| 41 |
- fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result); |
| 42 |
+ fprintf(stderr, "Tcl_AppInit failed: %s\n", Tcl_GetStringResult(interp)); |
| 43 |
} |
| 44 |
|
| 45 |
@@ -301,5 +301,5 @@ |
| 46 |
code = Tcl_VarEval(interp, "wm geometry . ", geometry, (char *) NULL); |
| 47 |
if (code != TCL_OK) { |
| 48 |
- fprintf(stderr, "%s\n", interp->result); |
| 49 |
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp)); |
| 50 |
} |
| 51 |
} |
| 52 |
@@ -331,5 +331,5 @@ |
| 53 |
fullName = Tcl_TildeSubst(interp, tcl_RcFileName, &buffer); |
| 54 |
if (fullName == NULL) { |
| 55 |
- fprintf(stderr, "%s\n", interp->result); |
| 56 |
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp)); |
| 57 |
} else { |
| 58 |
f = fopen(fullName, "r"); |
| 59 |
@@ -337,5 +337,5 @@ |
| 60 |
code = Tcl_EvalFile(interp, fullName); |
| 61 |
if (code != TCL_OK) { |
| 62 |
- fprintf(stderr, "%s\n", interp->result); |
| 63 |
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp)); |
| 64 |
} |
| 65 |
fclose(f); |
| 66 |
@@ -372,5 +372,5 @@ |
| 67 |
msg = Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY); |
| 68 |
if (msg == NULL) { |
| 69 |
- msg = interp->result; |
| 70 |
+ msg = Tcl_GetStringResult(interp); |
| 71 |
} |
| 72 |
dfprintf(stderr, "%s\n", msg); |
| 73 |
@@ -497,12 +497,11 @@ |
| 74 |
{ |
| 75 |
char buf[4]; |
| 76 |
- char *p = buf; |
| 77 |
+ char *p = buf, *string; |
| 78 |
/*header */ |
| 79 |
*p++ = (code ? '1' : '0'); |
| 80 |
bcopy(msg->msg_id,p,3); |
| 81 |
/* end header */ |
| 82 |
- if(sock_write_str2(dsfd, m_reply, buf, 4 , |
| 83 |
- interp->result, strlen(interp->result)) |
| 84 |
- < 0) |
| 85 |
+ string = Tcl_GetStringResult(interp); |
| 86 |
+ if(sock_write_str2(dsfd, m_reply, buf, 4, string, strlen(string)) < 0) |
| 87 |
{ /* what do we want to do if the write failed */} |
| 88 |
|
| 89 |
|
| 90 |
|
| 91 |
|
| 92 |
1.1 dev-lisp/gcl/files/64gcl-gentoo.el |
| 93 |
|
| 94 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lisp/gcl/files/64gcl-gentoo.el?rev=1.1&view=markup |
| 95 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lisp/gcl/files/64gcl-gentoo.el?rev=1.1&content-type=text/plain |
| 96 |
|
| 97 |
Index: 64gcl-gentoo.el |
| 98 |
=================================================================== |
| 99 |
;; site-init for dev-lisp/gcl |
| 100 |
(add-to-list 'load-path "@SITELISP@") |
| 101 |
(autoload 'run "gcl" "Run GCL." t) |
| 102 |
(autoload 'gcl-mode "gcl" "GCL mode." t) |
| 103 |
(autoload 'dbl "dbl" "GCL debugger." t) |
Archives