app/baisy/2.2.1-schulis/src/thesaurusfunktionen

Raw file
Back to index

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;