DataMuseum.dk

top - metrics - download

    Length: 2334 (0x91e)
    Types: TextFile
    Notes: UNIX file
    Names: »updict«

└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
    └─⟦this⟧ »up/new/usr/UAP/ufill/usrc/updict« 

TextFile

V.......T.......T.......T.......T.......T.......T.......T.......T.............H
:TITLE
O P D A T E R   O R D L I S T E R

:SCREEN

 Med denne funktion kan man opdatere en angivet ordliste med de ord, der
 er markeret med (+) under stavekontrol af tekstbehandlingsopgaver.

 DAAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
 B                         B                                               B@@
 [                         [                                               [
 B Ordliste til opdatering B [DICTIONARY_________________]                 B@@
 [                         [                                               [
 B                         B                                               B@@
 [                         [                                               [
 JAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
 [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
DICTIONARY= type char, reply =
"Personlig supplerende\
!Generel supplerende",
            prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";

:COMMANDS
WORDS=$HOME/addtodict
if test ! -f $WORDS; then
   echo "Fil findes ikke: \"$WORDS\"
"
   exit 1
fi

case "$(DICTIONARY)" in
    "Personlig "* ) DIR=$HOME/UAP;;
               ?* ) DIR=$Uniplex;;
esac

( : Create dictionary directories, and language files, if necessary
   mkdir $DIR $DIR/dict
   updict -l $Uniplex/dict/english.lng -d $DIR/dict/supdicc
   chmod 666 $DIR/dict/supdicc.cmp
) >/dev/null 2>&1

if ( >> $DIR/dict/supdicc ) >/dev/null 2>&1; then :
else
   echo "Kan ikke skrive $(DICTIONARY) ordliste (\"$DIR/dict/supdicc\")
"
   exit 1
fi
updict -a $WORDS -d "$DIR/dict/supdicc"
exit 0

:HELP
  OPDATER ORDLISTER

  Tryk <MELLEMRUM> for at v▶91◀lge enten:

  Personlig supplerende                 For at opdatere din personlige
                                        supplerende ordliste (suppdic) i
                                        dit eget UAP katalog.

  Generel supplerende                   For at opdatere systemets
                                        generelle supplerende ordliste
                                        (suppdic) i det generelle UAP
                                        katalog.