PACKET thesaurusfunktionenDEFINES leererthesaurus,trageinthesaurusein,
loescheausthesaurus,inthesaurus,zeigethesaurus,uebertragethesaurusindatei:
THESAURUS VAR saurus;PROC leererthesaurus:saurus:=emptythesaurus;END PROC
leererthesaurus;PROC trageinthesaurusein(TEXT CONST objekt):INT VAR index;IF
NOT inthesaurus(objekt)THEN insert(saurus,objekt,index)FI ;END PROC
trageinthesaurusein;PROC loescheausthesaurus(TEXT CONST loeschtext):INT VAR
index;delete(saurus,loeschtext,index);END PROC loescheausthesaurus;BOOL PROC
inthesaurus(TEXT CONST objekt):saurusCONTAINS objektEND PROC inthesaurus;
PROC uebertragethesaurusindatei(TEXT CONST dateiname):IF exists(dateiname)
THEN forget(dateiname,quiet)FI ;FILE VAR f:=sequentialfile(output,dateiname);
TEXT VAR zeile;INT VAR index:=0;get(saurus,zeile,index);WHILE index>0REP
putline(f,zeile);get(saurus,zeile,index)PER ;END PROC
uebertragethesaurusindatei;PROC zeigethesaurus:TEXT VAR zeile;INT VAR index:=
0;get(saurus,zeile,index);WHILE index>0REP putline(zeile);get(saurus,zeile,
index)PER ;END PROC zeigethesaurus;END PACKET thesaurusfunktionen;