1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
$NetBSD: patch-au,v 1.1 2000/12/16 05:44:10 hubertf Exp $
--- sdr/src/www_ui_init.c.orig Wed May 19 18:05:10 1999
+++ sdr/src/www_ui_init.c Wed Dec 13 01:44:54 2000
@@ -235,7 +235,7 @@
msg = interp->result;
}
fprintf(stderr, "%s\n", msg);
- Tcl_Eval(interp, errorExitCmd);
+ sdr_Tcl_Eval(interp, errorExitCmd);
return 1; /* Needed only to prevent compiler warnings. */
#endif
}
@@ -277,7 +277,7 @@
if (count <= 0) {
if (!gotPartial) {
if (tty) {
- Tcl_Eval(interp, "exit");
+ sdr_Tcl_Eval(interp, "exit");
exit(1);
} else {
Tk_DeleteFileHandler(0);
@@ -366,7 +366,7 @@
fputs("% ", stdout);
}
} else {
- code = Tcl_Eval(interp, promptCmd);
+ code = sdr_Tcl_Eval(interp, promptCmd);
if (code != TCL_OK) {
Tcl_AddErrorInfo(interp,
"\n (script that generates prompt)");
|