blob: fba1331e116edfbc730f1f4c895872b76948c0be (
plain)
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
|
$NetBSD: patch-ac,v 1.8 2000/12/17 09:39:53 hubertf Exp $
--- ../src/tkUnixInit.c.orig Mon Sep 4 18:30:41 2000
+++ ../src/tkUnixInit.c
@@ -11,3 +11,22 @@
#endif
return (TCL_OK);
}
+
+#ifdef __NetBSD__
+int
+sdr_Tcl_Eval (Tcl_Interp *interp, char *script)
+{
+ char *copy = strdup (script);
+ int ret;
+#ifdef __NetBSD__
+#ifdef Tcl_Eval
+#undef Tcl_Eval
+ int Tcl_Eval (Tcl_Interp *interp, char *script);
+#endif
+#endif
+ if (copy == NULL) abort();
+ ret = Tcl_Eval (interp, copy);
+ free (copy);
+ return ret;
+}
+#endif /* __NetBSD__ */
|
