Adding wordnet version 1.6.

WordNet is a powerful lexical  reference system that combines aspects of
dictionaries  and thesauri  with  current  psycholinguistic theories  of
human lexical memory. It is produced by the Cognitive Science Laboratory
at Princeton University, under the direction of Professor George Miller.

PR:		17016
Submitted by:	Mikhail Teterin <mi@aldan.algebra.com>

19 files changed, 430 insertions, 0 deletions

diff --git a/textproc/wordnet/Makefile b/textproc/wordnet/Makefile
new file mode 100644
index 000000000000..45a661f9e169
--- /dev/null
+++ b/textproc/wordnet/Makefile
@@ -0,0 +1,40 @@
+# New ports collection makefile for:	wordnet
+# Date created:		26 Feb 2000
+# Whom:			Mikhail Teterin <mi@aldan.algebra.com>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	wordnet
+PORTVERSION=	1.6
+CATEGORIES=	textproc
+MASTER_SITES=	ftp://ftp.cogsci.princeton.edu/pub/wordnet/ \
+		ftp://ftp.ims.uni-stuttgart.de/pub/WordNet/${PORTVERSION}/
+DISTNAME=	wn16.unix
+
+MAINTAINER=	mi@aldan.algebra.com
+
+LIB_DEPENDS=	tk82.1:${PORTSDIR}/x11-toolkits/tk82
+
+MAN1=		wn.1 wnb.1 wnintro.1
+MAN3=		binsrch.3 morph.3 wnintro.3 wnsearch.3 wnutil.3
+MAN5=		cntlist.5 glossidx.5 lexnames.5 senseidx.5 taglist.5 \
+		wndb.5 wninput.5 wnintro.5
+MAN7=		morphy.7 uniqbeg.7 wngloss.7 wngroups.7 wnintro.7 \
+		wnlicens.7 wnpkgs.7 wnstats.7
+MANCOMPRESSED=	maybe
+
+WRKSRC=		${WRKDIR}/${PKGNAME}
+
+TCL_DVER=	8.2
+SCRIPTS_ENV+=	TCL_DVER=${TCL_DVER}
+MAKE_ENV+=	TCL_DVER=${TCL_DVER}
+PLIST_SUB+=	TCL_DVER=${TCL_DVER}
+# Parallel build is faster even on a single cpu machine:
+MAKE_ARGS=	-j 2
+
+post-extract:
+	# bin and lib contain useless pre-built binaries:
+	${RM} -rf ${WRKSRC}/bin ${WRKSRC}/lib
+
+.include <bsd.port.mk>
diff --git a/textproc/wordnet/distinfo b/textproc/wordnet/distinfo
new file mode 100644
index 000000000000..b8e43032a886
--- /dev/null
+++ b/textproc/wordnet/distinfo
@@ -0,0 +1,2 @@
+MD5 (wn16.unix.tar.gz) = cb6b9cedd139cacb5928c4fb49b4b7a6
+MD5 (semcor16.tar.gz) = 1a635e2ff96145c4308188e056448deb
diff --git a/textproc/wordnet/files/Makefile b/textproc/wordnet/files/Makefile
new file mode 100644
index 000000000000..4e13361cffe9
--- /dev/null
+++ b/textproc/wordnet/files/Makefile
@@ -0,0 +1,8 @@
+# $FreeBSD$
+
+SUBDIR=		include \
+		dict \
+		src \
+		man
+
+.include <bsd.subdir.mk>
diff --git a/textproc/wordnet/files/dict.Makefile b/textproc/wordnet/files/dict.Makefile
new file mode 100644
index 000000000000..a9ce4da4a2cb
--- /dev/null
+++ b/textproc/wordnet/files/dict.Makefile
@@ -0,0 +1,24 @@
+WN_INSTALLDIR=	${PREFIX}/share/wordnet-1.6
+WN_FILES=	data.noun data.verb data.adj data.adv index.noun \
+		index.verb index.adj index.adv noun.exc verb.exc \
+		adj.exc adv.exc cousin.exc cousin.tops index.sense \
+		cntlist lexnames index.gloss sentidx.vrb sents.vrb \
+		stoplist.pl
+
+all: $(WN_FILES)
+
+${WN_INSTALLDIR}:
+	mkdir -p ${WN_INSTALLDIR}
+
+.for f in ${WN_FILES}
+INSTALLED+=	${WN_INSTALLDIR}/$f
+
+${WN_INSTALLDIR}/$f: $f
+	${INSTALL} -C -o ${BINOWN} -g ${BINGRP} \
+		$f ${WN_INSTALLDIR}/$f
+.endfor
+
+install: ${WN_INSTALLDIR} ${INSTALLED}
+
+NOOBJ=  noobj
+.include <bsd.prog.mk>
diff --git a/textproc/wordnet/files/include.Makefile b/textproc/wordnet/files/include.Makefile
new file mode 100644
index 000000000000..c3a9f88e38ab
--- /dev/null
+++ b/textproc/wordnet/files/include.Makefile
@@ -0,0 +1,17 @@
+WN_INSTALLDIR = ${PREFIX}/include/wordnet-1.6
+
+WN_FILES=	license.h setutil.h wn.h wnconsts.h wnglobal.h \
+		wnhelp.h wnrtl.h wntypes.h
+
+all: $(WN_FILES)
+
+${WN_INSTALLDIR}:
+	mkdir -p ${WN_INSTALLDIR}
+
+install: ${WN_INSTALLDIR}
+	${INSTALL} -C -o ${BINOWN} -g ${BINGRP} -m 444 \
+		${WN_FILES} ${WN_INSTALLDIR}/
+
+NOOBJ=		noobj
+
+.include <bsd.prog.mk>
diff --git a/textproc/wordnet/files/man.Makefile b/textproc/wordnet/files/man.Makefile
new file mode 100644
index 000000000000..0b9f44911a46
--- /dev/null
+++ b/textproc/wordnet/files/man.Makefile
@@ -0,0 +1,10 @@
+MANDIR=		${PREFIX}/man/man
+
+MAN1=		wn.1 wnb.1 wnintro.1
+MAN3=		binsrch.3 morph.3 wnintro.3 wnsearch.3 wnutil.3
+MAN5=		cntlist.5 glossidx.5 lexnames.5 senseidx.5 taglist.5 \
+		wndb.5 wninput.5 wnintro.5
+MAN7=		morphy.7 uniqbeg.7 wngloss.7 wngroups.7 wnintro.7 \
+		wnlicens.7 wnpkgs.7 wnstats.7
+
+.include <bsd.prog.mk>
diff --git a/textproc/wordnet/files/patch-aa b/textproc/wordnet/files/patch-aa
new file mode 100644
index 000000000000..752d86d809d3
--- /dev/null
+++ b/textproc/wordnet/files/patch-aa
@@ -0,0 +1,11 @@
+--- include/wnconsts.h	Fri Feb 27 13:54:53 1998
++++ include/wnconsts.h	Sat Feb 26 16:11:51 2000
+@@ -16,2 +16,6 @@
+-#define DEFAULTPATH	"/usr/local/wordnet1.6/dict"
+-#define DEFAULTBIN      "/usr/local/wordnet1.6/bin"
++#ifndef DEFAULTPATH
++#define DEFAULTPATH	"/usr/local/share/wordnet-1.6"
++#endif
++#ifndef DEFAULTBIN
++#define DEFAULTBIN      "/usr/local/bin"
++#endif
diff --git a/textproc/wordnet/files/patch-ab b/textproc/wordnet/files/patch-ab
new file mode 100644
index 000000000000..441c003f86ac
--- /dev/null
+++ b/textproc/wordnet/files/patch-ab
@@ -0,0 +1,7 @@
+--- src/lib/wnutil.c	Thu Feb 19 12:15:09 1998
++++ src/lib/wnutil.c	Sat Feb 26 16:14:08 2000
+@@ -10,3 +10,3 @@
+ #ifdef UNIX
+-#include <malloc.h>
++#include <stdlib.h>
+ #endif
diff --git a/textproc/wordnet/files/patch-ac b/textproc/wordnet/files/patch-ac
new file mode 100644
index 000000000000..8e4e78294643
--- /dev/null
+++ b/textproc/wordnet/files/patch-ac
@@ -0,0 +1,68 @@
+--- src/wnb/stubs.c	Fri Nov 14 17:01:44 1997
++++ src/wnb/stubs.c	Sat Feb 26 20:09:19 2000
+@@ -24,3 +24,2 @@
+ #include <tcl.h>
+-#include <tk.h>
+ #include <wn.h>
+@@ -37,5 +36,4 @@
+ int wn_findvalidsearches (ClientData clientData, Tcl_Interp *interp, 
+-   int argc, char *argv[]) {
++   int argc, Tcl_Obj *objv[]) {
+    unsigned int bitfield;
+-   char bitfieldstr[32];
+    char *morph;
+@@ -43,9 +41,10 @@
+    if (argc != 3) {
+-      interp -> result = 
+-         "usage: findvalidsearches searchword partofspeechnum";
++      Tcl_WrongNumArgs(interp, 1, objv,
++         "findvalidsearches searchword partofspeechnum");
+       return TCL_ERROR;
+    }
+-   pos = atoi (argv[2]);
+-   bitfield = is_defined (argv[1], pos);
+-   if ((morph = morphstr (argv[1], pos)) != NULL) {
++   if (Tcl_GetIntFromObj(interp, objv[2], &pos) != TCL_OK)
++      return TCL_ERROR;
++   bitfield = is_defined (Tcl_GetString(objv[1]), pos);
++   if ((morph = morphstr (Tcl_GetString(objv[1]), pos)) != NULL) {
+       do {
+@@ -54,4 +53,3 @@
+    }
+-   sprintf (bitfieldstr, "%u", bitfield);
+-   interp -> result = bitfieldstr;
++   Tcl_SetObjResult(interp, Tcl_NewIntObj(bitfield));
+    return TCL_OK;
+@@ -67,14 +65,11 @@
+ int wn_bit (ClientData clientData, Tcl_Interp *interp,
+-   int argc, char *argv[]) {
+-   unsigned int bitfield;
+-   char bitfieldstr[32];
++   int argc, Tcl_Obj *objv[]) {
+    int whichbit;
+    if (argc != 2) {
+-      interp -> result = "usage: bit bitnum";
++      Tcl_WrongNumArgs(interp, 1, objv, "bitnum");
+       return TCL_ERROR;
+    }
+-   whichbit = atoi (argv[1]);
+-   bitfield = bit (whichbit);
+-   sprintf (bitfieldstr, "%u", bitfield);
+-   interp -> result = bitfieldstr;
++   if (Tcl_GetIntFromObj(interp, objv[1], &whichbit) != TCL_OK)
++	return TCL_ERROR;
++   Tcl_SetObjResult(interp, Tcl_NewIntObj(bit(whichbit)));
+    return TCL_OK;
+@@ -275,5 +270,5 @@
+    wninit ();
+-   Tcl_CreateCommand (interp, "findvalidsearches", (void *) 
++   Tcl_CreateObjCommand (interp, "findvalidsearches", (void *) 
+       wn_findvalidsearches, (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+-   Tcl_CreateCommand (interp, "bit", (void *) wn_bit, (ClientData) NULL, 
++   Tcl_CreateObjCommand (interp, "bit", (void *) wn_bit, (ClientData) NULL, 
+       (Tcl_CmdDeleteProc *) NULL);
+@@ -295,3 +290,3 @@
+       (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
+-   return TCL_OK;
++   return Tcl_PkgProvide(interp, "Wordnet", "1.6");
+ }
diff --git a/textproc/wordnet/files/patch-ad b/textproc/wordnet/files/patch-ad
new file mode 100644
index 000000000000..1724ec69b8ed
--- /dev/null
+++ b/textproc/wordnet/files/patch-ad
@@ -0,0 +1,9 @@
+--- src/wnb/wnb	Sun Feb 22 12:49:56 1998
++++ src/wnb/wnb	Sat Feb 26 19:52:42 2000
+@@ -629,2 +626,6 @@
+          -text "Based upon an earlier X Window version by\nBrian Gustafson."] \
++      [label .aboutbox.top.right.textmi \
++         -anchor w \
++         -justify left \
++         -text "Tuned for Tcl8.x and ported to FreeBSD by\nMikhail Teterin."] \
+       [label .aboutbox.top.right.text5 \
diff --git a/textproc/wordnet/files/patch-official b/textproc/wordnet/files/patch-official
new file mode 100644
index 000000000000..faca2552fe9b
--- /dev/null
+++ b/textproc/wordnet/files/patch-official
@@ -0,0 +1,90 @@
+--- src/lib/search.c	Fri Nov  7 11:27:45 1997
++++ src/lib/search.c	Fri Aug  7 12:57:08 1998
+@@ -19,3 +19,3 @@
+ 
+-static char *Id = "$Id: search.c,v 1.134 1997/11/07 16:27:36 wn Exp $";
++static char *Id = "$Id: search.c,v 1.136 1998/08/07 17:51:32 wn Exp $";
+ 
+@@ -448,2 +448,7 @@
+ 
++    /* Can't do earlier - calls indexlookup which messes up strtok calls */
++
++    for (i = 0; i < synptr->wcount; i++)
++	synptr->wnsns[i] = getsearchsense(synptr, i + 1);
++
+     return(synptr);
+@@ -588,3 +593,3 @@
+ 		sprintf(tbuf, " (Sense %d)\n",
+-			getsearchsense(cursyn, synptr->pto[i]));
++			cursyn->wnsns[synptr->pto[i] - 1]);
+ 		printsynset(prefix, cursyn, tbuf, DEFOFF, synptr->pto[i],
+@@ -1775,2 +1780,8 @@
+ 	wnresults.numforms++;
++
++	if (ptrtyp == COORDS) {	/* clean up by removing hypernym */
++	    lastsyn = synlist->ptrlist;
++	    synlist->ptrlist = lastsyn->ptrlist;
++	    free_synset(lastsyn);
++	}
+     }
+@@ -1781,3 +1792,3 @@
+ /* Recursive search algorithm to trace a pointer tree and return results
+-   in linked list of data structures. */
++  in linked list of data structures. */
+ 
+@@ -1785,4 +1796,5 @@
+ {
+-    int i;
++    int i, j;
+     SynsetPtr cursyn, synlist = NULL, lastsyn = NULL;
++    int tstptrtyp, docoords;
+     
+@@ -1805,5 +1817,13 @@
+     }
+-	    
++
++    if (ptrtyp == COORDS) {
++	tstptrtyp = HYPERPTR;
++	docoords = 1;
++    } else {
++	tstptrtyp = ptrtyp;
++	docoords = 0;
++    }
++
+     for (i = 0; i < synptr->ptrcount; i++) {
+-	if((synptr->ptrtyp[i] == ptrtyp) &&
++	if((synptr->ptrtyp[i] == tstptrtyp) &&
+ 	   ((synptr->pfrm[i] == 0) ||
+@@ -1814,5 +1834,2 @@
+ 
+-	    for (i = 0; i < cursyn->wcount; i++)
+-		cursyn->wnsns[i] = getsearchsense(cursyn, i + 1);
+-
+ 	    if (lastsyn)
+@@ -1828,3 +1845,5 @@
+ 					       (depth+1));
+-	    }	
++	    } else if (docoords) {
++		cursyn->ptrlist = traceptrs_ds(cursyn, HYPOPTR, NOUN, 0);
++	    }
+ 	}
+@@ -2193,3 +2212,3 @@
+     if (wnsnsflag)
+-	sprintf(buf + strlen(buf), "#%d", getsearchsense(synptr, wdnum + 1));
++	sprintf(buf + strlen(buf), "#%d", synptr->wnsns[wdnum]);
+ 
+@@ -2246,3 +2265,3 @@
+ 			sprintf(tbuf + strlen(tbuf), "#%d",
+-				getsearchsense(psynptr, wdoff + 1));
++				psynptr->wnsns[wdoff]);
+ 		    if (!first)
+@@ -2333,2 +2352,9 @@
+   $Log: search.c,v $
++ * Revision 1.136  1998/08/07  17:51:32  wn
++ * added COORDS to traceptrs_ds and findtheinfo_ds
++ * fixed getsearchsense code to only happen in parse_synset
++ *
++ * Revision 1.135  1998/08/07  13:04:24  wn
++ * *** empty log message ***
++ *
+  * Revision 1.134  1997/11/07  16:27:36  wn
diff --git a/textproc/wordnet/files/src.Makefile b/textproc/wordnet/files/src.Makefile
new file mode 100644
index 000000000000..f5df548ec758
--- /dev/null
+++ b/textproc/wordnet/files/src.Makefile
@@ -0,0 +1,3 @@
+SUBDIR=		lib wn wnb
+
+.include <bsd.subdir.mk>
diff --git a/textproc/wordnet/files/src.lib.Makefile b/textproc/wordnet/files/src.lib.Makefile
new file mode 100644
index 000000000000..97e48f59fdb4
--- /dev/null
+++ b/textproc/wordnet/files/src.lib.Makefile
@@ -0,0 +1,16 @@
+SRCS=		binsrch.c morph.c search.c setutil.c wnglobal.c \
+		wnhelp.c wnrtl.c wnutil.c
+
+CFLAGS+=	-DUNIX -DDEFAULTPATH="\"${PREFIX}/share/wordnet-1.6\"" \
+		-DDEFAULTBIN="\"${PREFIX}/bin\"" -Werror
+
+CFLAGS+=	-I${.CURDIR}/../../include
+
+LIB=		wn1
+SHLIB_MAJOR=	6
+SHLIB_MINOR=	0
+NOPROFILE=	True
+
+LIBDIR=		${PREFIX}/lib
+
+.include <bsd.lib.mk>
diff --git a/textproc/wordnet/files/src.wn.Makefile b/textproc/wordnet/files/src.wn.Makefile
new file mode 100644
index 000000000000..5bfe8139bb0c
--- /dev/null
+++ b/textproc/wordnet/files/src.wn.Makefile
@@ -0,0 +1,12 @@
+PROG=		wn
+NOMAN=		True	# man pages installed separately
+
+CFLAGS+=	-DUNIX -DDEFAULTPATH="\"${PREFIX}/share/wordnet-1.6\"" \
+		-DDEFAULTBIN="\"${PREFIX}/bin\""
+
+CFLAGS+=	-I${.CURDIR}/../../include
+LDADD+=		-L../lib -lwn1
+
+BINDIR=		${PREFIX}/bin
+
+.include <bsd.prog.mk>
diff --git a/textproc/wordnet/files/src.wnb.Makefile b/textproc/wordnet/files/src.wnb.Makefile
new file mode 100644
index 000000000000..3089aa4ea538
--- /dev/null
+++ b/textproc/wordnet/files/src.wnb.Makefile
@@ -0,0 +1,41 @@
+PREFIX?=	/usr/local
+TCL_DVER?=	8.2
+TCL_VER=	${TCL_DVER:S/.//g}
+TCL_INCDIR?=	${PREFIX}/include/tcl${TCL_DVER}
+
+CFLAGS+=	-DUNIX -DDEFAULTPATH="\"${PREFIX}/share/wordnet-1.6\"" \
+		-DDEFAULTBIN="\"${PREFIX}/bin\""
+
+CFLAGS+=	-I${.CURDIR}/../../include -I$(TCL_INCDIR)
+
+LDADD=		-L../lib -lwn1 -L${PREFIX}/lib -ltcl${TCL_VER} -ltk${TCL_VER}
+
+LIB=		tclwn1
+SHLIB_MAJOR=	6
+SHLIB_MINOR=	0
+SRCS=		stubs.c
+
+INTERNALLIB=	True	# To avoid building the useless static library
+
+all: ${SHLIB_NAME} pkgIndex.tcl
+
+pkgIndex.tcl:
+	echo "package ifneeded Wordnet 1.6 [list load \
+		[file join ${PREFIX}/lib ${SHLIB_NAME}] Wordnet]" \
+			> pkgIndex.tcl
+
+LIBDIR=		${PREFIX}/lib
+RESDIR=		${PREFIX}/share/wordnet-1.6/wnres
+
+${LIBDIR} ${RESDIR} ${LIBDIR}/tcl${TCL_DVER}/Wordnet:
+	mkdir -p ${.TARGET}
+
+beforeinstall: ${LIBDIR} ${RESDIR} ${LIBDIR}/tcl${TCL_DVER}/Wordnet
+	${INSTALL} -C -o ${BINOWN} -g ${BINGRP} -m 444 \
+		pkgIndex.tcl ${LIBDIR}/tcl${TCL_DVER}/Wordnet
+	${INSTALL} -C -o ${BINOWN} -g ${BINGRP} -m 444 \
+		${.CURDIR}/../lib/wnres/*.* ${RESDIR}
+	${INSTALL} -C -o ${BINOWN} -g ${BINGRP} -m 755 \
+		wnb ${PREFIX}/bin
+
+.include <bsd.lib.mk>
diff --git a/textproc/wordnet/pkg-comment b/textproc/wordnet/pkg-comment
new file mode 100644
index 000000000000..510639ac2a5c
--- /dev/null
+++ b/textproc/wordnet/pkg-comment
@@ -0,0 +1 @@
+Dictionaries and thesauri with devel. libraries (C, TCL) and browsers
diff --git a/textproc/wordnet/pkg-descr b/textproc/wordnet/pkg-descr
new file mode 100644
index 000000000000..a7cf251ca800
--- /dev/null
+++ b/textproc/wordnet/pkg-descr
@@ -0,0 +1,10 @@
+WordNet is a powerful lexical  reference system that combines aspects of
+dictionaries  and thesauri  with  current  psycholinguistic theories  of
+human lexical memory. It is produced by the Cognitive Science Laboratory
+at Princeton University, under the direction of Professor George Miller.
+
+In WordNet, words  are defined and grouped into various  related sets of
+synonyms.  Not only  is the  system  valuable to  the casual  user as  a
+powerful thesaurus and dictionary, but also  to the researcher as one of
+the few freely available, lexical databases. WordNet is available via an
+on-line interface and also as easy-to-compile C source code for Unix.
diff --git a/textproc/wordnet/pkg-plist b/textproc/wordnet/pkg-plist
new file mode 100644
index 000000000000..05b865609c73
--- /dev/null
+++ b/textproc/wordnet/pkg-plist
@@ -0,0 +1,35 @@
+bin/wnb
+bin/wn
+lib/libwn1.so.6
+lib/libwn1.so
+lib/libtclwn1.so.6
+lib/libtclwn1.so
+lib/tcl%%TCL_DVER%%/Wordnet/pkgIndex.tcl
+share/wordnet-1.6/adj.exc
+share/wordnet-1.6/adv.exc
+share/wordnet-1.6/cntlist
+share/wordnet-1.6/cousin.exc
+share/wordnet-1.6/cousin.tops
+share/wordnet-1.6/data.adj
+share/wordnet-1.6/data.adv
+share/wordnet-1.6/data.noun
+share/wordnet-1.6/data.verb
+share/wordnet-1.6/index.adj
+share/wordnet-1.6/index.adv
+share/wordnet-1.6/index.gloss
+share/wordnet-1.6/index.noun
+share/wordnet-1.6/index.sense
+share/wordnet-1.6/index.verb
+share/wordnet-1.6/lexnames
+share/wordnet-1.6/noun.exc
+share/wordnet-1.6/sentidx.vrb
+share/wordnet-1.6/sents.vrb
+share/wordnet-1.6/stoplist.pl
+share/wordnet-1.6/verb.exc
+share/wordnet-1.6/wnres/license.txt
+share/wordnet-1.6/wnres/wn.xbm
+share/wordnet-1.6/wnres/wnb.man
+share/wordnet-1.6/wnres/wngloss.man
+@dirrm lib/tcl%%TCL_DVER%%/Wordnet
+@dirrm share/wordnet-1.6/wnres
+@dirrm share/wordnet-1.6
diff --git a/textproc/wordnet/scripts/configure b/textproc/wordnet/scripts/configure
new file mode 100644
index 000000000000..f730d5a64949
--- /dev/null
+++ b/textproc/wordnet/scripts/configure
@@ -0,0 +1,26 @@
+#!/bin/sh
+for mf in ${FILESDIR}/*Makefile ; do \
+	dir=${WRKSRC}/`basename $mf | sed -e s%Makefile%% -e 's%\.%/%g'` ; \
+	test -f ${dir}Makefile.orig && continue
+	mv ${dir}Makefile ${dir}Makefile.orig ; \
+	cp -p $mf ${dir}Makefile ; \
+done
+
+patch -d ${WRKSRC}/src/wnb -p << EOPATCH
+Configuring the wnb script to call the right wish-binary directly
+--- wnb	Sun Feb 22 12:49:56 1998
++++ wnb	Sat Feb 26 17:41:06 2000
+@@ -1,6 +1,3 @@
+-#!/bin/sh 
+-# the following line is evaluated by sh but ignored by tcl \\
+-wishwn "\$0" "\$@" &
+-# the following line is evaluated by sh but ignored by tcl \\
+-exec true
+-# the preceding lines make this script self-executing on unix systems
++#!${PREFIX}/bin/wish${TCL_DVER}
++
++package require Wordnet
+@@ -30 +27 @@
+-	set resourcedir "/usr/local/wordnet1.6/lib/wnres"
++	set resourcedir "${PREFIX}/share/wordnet-1.6/wnres"
+EOPATCH