summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'app-dicts/wordnet/files/wordnet-3.0-tcl8.6.patch')
-rw-r--r--app-dicts/wordnet/files/wordnet-3.0-tcl8.6.patch133
1 files changed, 133 insertions, 0 deletions
diff --git a/app-dicts/wordnet/files/wordnet-3.0-tcl8.6.patch b/app-dicts/wordnet/files/wordnet-3.0-tcl8.6.patch
new file mode 100644
index 000000000000..110ffc2110b8
--- /dev/null
+++ b/app-dicts/wordnet/files/wordnet-3.0-tcl8.6.patch
@@ -0,0 +1,133 @@
+ src/stubs.c | 33 +++++++++++++++++----------------
+ 1 file changed, 17 insertions(+), 16 deletions(-)
+
+diff --git a/src/stubs.c b/src/stubs.c
+index 794485c..cec2c04 100644
+--- a/src/stubs.c
++++ b/src/stubs.c
+@@ -40,8 +40,8 @@ int wn_findvalidsearches (ClientData clientData, Tcl_Interp *interp,
+ char *morph;
+ int pos;
+ if (argc != 3) {
+- interp -> result =
+- "usage: findvalidsearches searchword partofspeechnum";
++ Tcl_SetResult(interp,
++ "usage: findvalidsearches searchword partofspeechnum", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ pos = atoi (argv[2]);
+@@ -52,7 +52,7 @@ int wn_findvalidsearches (ClientData clientData, Tcl_Interp *interp,
+ } while ((morph = morphstr (NULL, pos)) != NULL);
+ }
+ sprintf (bitfieldstr, "%u", bitfield);
+- interp -> result = bitfieldstr;
++ Tcl_SetResult(interp, bitfieldstr, TCL_STATIC);
+ return TCL_OK;
+ }
+
+@@ -69,13 +69,13 @@ int wn_bit (ClientData clientData, Tcl_Interp *interp,
+ static char bitfieldstr[32];
+ int whichbit;
+ if (argc != 2) {
+- interp -> result = "usage: bit bitnum";
++ Tcl_SetResult(interp, "usage: bit bitnum", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ whichbit = atoi (argv[1]);
+ bitfield = bit (whichbit);
+ sprintf (bitfieldstr, "%u", bitfield);
+- interp -> result = bitfieldstr;
++ Tcl_SetResult(interp, bitfieldstr, TCL_STATIC);
+ return TCL_OK;
+ }
+
+@@ -89,8 +89,8 @@ int wn_search (ClientData clientData, Tcl_Interp *interp,
+ int pos, searchtype, sense;
+ char *morph;
+ if (argc != 5) {
+- interp -> result =
+- "usage: search searchword partofspeechnum searchtypenum sensenum";
++ Tcl_SetResult(interp,
++ "usage: search searchword partofspeechnum searchtypenum sensenum", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ pos = atoi (argv[2]);
+@@ -102,7 +102,7 @@ int wn_search (ClientData clientData, Tcl_Interp *interp,
+ strcat (resultbuf, findtheinfo (morph, pos, searchtype, sense));
+ } while ((morph = morphstr (NULL, pos)) != NULL);
+ }
+- interp -> result = resultbuf;
++ Tcl_SetResult(interp, resultbuf, TCL_STATIC);
+ return TCL_OK;
+ }
+
+@@ -114,7 +114,7 @@ int wn_search (ClientData clientData, Tcl_Interp *interp,
+ int wn_glosses (ClientData clientData, Tcl_Interp *interp,
+ int argc, char *argv[]) {
+ if (argc != 2) {
+- interp -> result = "usage: glosses [1 | 0]";
++ Tcl_SetResult(interp, "usage: glosses [1 | 0]", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ dflag = atoi (argv[1]);
+@@ -129,7 +129,7 @@ int wn_glosses (ClientData clientData, Tcl_Interp *interp,
+ int wn_fileinfo (ClientData clientData, Tcl_Interp *interp,
+ int argc, char *argv[]) {
+ if (argc != 2) {
+- interp -> result = "usage: fileinfo [1 | 0]";
++ Tcl_SetResult(interp, "usage: fileinfo [1 | 0]", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ fileinfoflag = atoi (argv[1]);
+@@ -144,7 +144,7 @@ int wn_fileinfo (ClientData clientData, Tcl_Interp *interp,
+ int wn_byteoffset (ClientData clientData, Tcl_Interp *interp,
+ int argc, char *argv[]) {
+ if (argc != 2) {
+- interp -> result = "usage: byteoffset [1 | 0]";
++ Tcl_SetResult(interp, "usage: byteoffset [1 | 0]", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ offsetflag = atoi (argv[1]);
+@@ -159,7 +159,7 @@ int wn_byteoffset (ClientData clientData, Tcl_Interp *interp,
+ int wn_senseflag (ClientData clientData, Tcl_Interp *interp,
+ int argc, char *argv[]) {
+ if (argc != 2) {
+- interp -> result = "usage: senseflag [1 | 0]";
++ Tcl_SetResult(interp, "usage: senseflag [1 | 0]", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ wnsnsflag = atoi (argv[1]);
+@@ -175,12 +175,13 @@ int wn_contextualhelp (ClientData clientData, Tcl_Interp *interp,
+ int argc, char *argv[]) {
+ int pos, searchtype;
+ if (argc != 3) {
+- interp -> result = "usage: contextualhelp partofspeechnum searchtypenum";
++ Tcl_SetResult(interp,
++ "usage: contextualhelp partofspeechnum searchtypenum", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ pos = atoi (argv[1]);
+ searchtype = atoi (argv[2]);
+- interp -> result = helptext[pos][searchtype];
++ Tcl_SetResult(interp, helptext[pos][searchtype], TCL_STATIC);
+ return TCL_OK;
+ }
+
+@@ -190,7 +191,7 @@ int wn_contextualhelp (ClientData clientData, Tcl_Interp *interp,
+ int wn_reopendb (ClientData clientData, Tcl_Interp *interp,
+ int argc, char *argv[]) {
+ if (argc != 1) {
+- interp -> result = "usage: reopendb";
++ Tcl_SetResult(interp, "usage: reopendb", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ re_wninit ();
+@@ -204,7 +205,7 @@ int wn_reopendb (ClientData clientData, Tcl_Interp *interp,
+ int wn_abortsearch (ClientData clientData, Tcl_Interp *interp,
+ int argc, char *argv[]) {
+ if (argc != 1) {
+- interp -> result = "usage: abortsearch";
++ Tcl_SetResult(interp, "usage: abortsearch", TCL_STATIC);
+ return TCL_ERROR;
+ }
+ abortsearch = 1;