diff options
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.patch | 133 |
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; |