Very Computer

Does there exist a public domain Thesaurus for the english language
for UNIX?? If you know of such a system, please mail me information
on how to get it.

--Claus Skaanning Jensen

--
########################################################################

#  Aalborg University, Denmark        # alk.iesd.auc.dk  4242          #
########################################################################

Quote:> Does there exist a public domain Thesaurus for the english language
> for UNIX??

There's a free version of the Roget thesaurus (from early in this
century) from Project Gutenberg; ftp to mrcnext.cso.uiuc.edu and look
in pub/etext/etext91.

It's the text, though---no fancy interface or search tools.  You'll
have to come up with those yourself.

--

Widener University                                                 Chester, PA
    In action-oriented shows, TV cops fire their guns in almost every episode;
       in Chicago, the average police officer fires a gun once every 27 years.

writes:

Quote:>There's a free version of the Roget thesaurus (from early in this
>century) from Project Gutenberg; ftp to mrcnext.cso.uiuc.edu and look
>in pub/etext/etext91.

>It's the text, though---no fancy interface or search tools.  You'll
>have to come up with those yourself.

If you get `lq-text', this works reasonably well for me ... not fancy, but you
can say `roget slime' and find that `ooze' might be a much nicer word.  I'll
include it here, it's only noddy.

Cheers,

Rob
==============================================================================
#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#               "End of archive 1 (of 1)."
# Contents:  roget roget.1

PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'roget' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'roget'\"
else
echo shar: Extracting \"'roget'\" \(738 characters\)
sed "s/^X//" >'roget' <<'END_OF_FILE'
X#!/bin/sh
XLQTEXTDIR=/usr/local/doc/roget/.lqtext export LQTEXTDIR
XDOCPATH=/usr/local/doc/roget export DOCPATH
Xmatching=-mh
Xlqopts=
Xlqshowopts=
XOPTIONS=a:b:c:m:
XUSAGE="Usage: `basename $0` $OPTIONS word|phrase"
Xwhile getopts $OPTIONS OPT
Xdo
X   case "$OPT" in
X      a|b)     lqshowopts="$lqshowopts -$OPT $OPTARG";;
X      c)       lqopts="$lqopts -$OPT $OPTARG";;
X      m)       matching="-m$OPTARG";;
X      \?)      echo "$USAGE" 1>&2
X               exit 2;;
X   esac
Xdone
Xshift `expr $OPTIND - 1`
Xcase $# in
X0) echo "$USAGE" 1>&2
X   exit 2 ;;
X1) matches=`lqword -l $matching $lqopts "$1"` ;;
X*) matches=`lqphrase -l $matching $lqopts "$*"` ;;
Xesac
Xif [ x"$matches" = x"" ]; then
X   echo "$0: no matches for \`$*'"
X   exit 1
Xfi
Xlqshow $matching $lqopts $lqshowopts $matches
END_OF_FILE
if test 738 -ne `wc -c <'roget'`; then
    echo shar: \"'roget'\" unpacked with wrong size!
fi
chmod +x 'roget'
# end of 'roget'
fi
if test -f 'roget.1' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'roget.1'\"
else
echo shar: Extracting \"'roget.1'\" \(1254 characters\)
sed "s/^X//" >'roget.1' <<'END_OF_FILE'
X.TH ROGET 1 "4 January 1992"
X.SH NAME
Xroget \- look up a word or phrase in Roget's Thesaurus
X.SH SYNOPSIS
X.B roget
X[
X.BI \-a n
X]
X[
X.BI \-b n
X]
X[
X.BI \-c cfile
X]
X[
X.BI \-m c
X]
X.I word
X\(bv
X.I phrase
X.SH DESCRIPTION
XThe
X.B roget
Xcommand uses an
X.I lq-text
Xtext retrieval database to look up words or phrases in Roget's Thesaurus.
X.SH OPTIONS
X.TP
X.BI \-a above
XDisplay
X.I above
Xlines of text above each match.
XThe default is to display up to six lines preceding each match from each file.
X.TP
X.BI \-b below
XDisplay
X.I below
Xlines of text following each match.
XThe default is to display an extra six lines.
XIf there are too many lines to fit on the screen, they will wrap around
Xto the top of the screen.
XThe default is to display six lines of text after the line containing
Xthe first matched keyword in a phrase.
X.TP
X.BI \-m c
XSet the matching level.  If
X.I c
Xis
X.BR p ,
Xprecise matching is used;
X.B \-mh
Xinvokes heuristic matching, and
X.B \-ma
Xallows approximate matching.
XSee
X.BR lqtext (1)
Xfor more explanation of word and phrase matching.
X.TP
X.BI \-c file
XThe named file should contain a list of words that should be ignored.
X.SH FILES
X.PD 0
X.TP 20
X.B /usr/local/doc/roget/roget11.txt
X.TP
X.B /usr/locla/doc/roget/.lqtext
X.PD
X.SH SEE ALSO
X.BR lqtext (1)
END_OF_FILE
if test 1254 -ne `wc -c <'roget.1'`; then
    echo shar: \"'roget.1'\" unpacked with wrong size!
fi
# end of 'roget.1'
fi
echo shar: End of archive 1 \(of 1\).
cp /dev/null ark1isdone
MISSING=""
for I in 1 ; do
    if test ! -f ark${I}isdone ; then
        MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have the archive.
    rm -f ark[1-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0
==============================================================================
--
UUCP:   ...!mcsun!uknet!warwick!cudcv   PHONE:  +44 203 523037

Rob McMahon, Computing Services, Warwick University, Coventry CV4 7AL, England