app/baisy/2.2.1-schulis/src/isp.auskunftseditor

Raw file
Back to index

PACKET ispauskunftseditorDEFINES auskunftstextaendernvp,
auskunftstextaendernnp,auskunftstextspeichern:LET dateiname=
"Auskunftstext zur Auskunft ";LET editorfenster=77,eol="�",stop="�";TEXT VAR 
datnam;PROC auskunftstextaendernvp:datnam:=dateiname+sicherungauskunftsname;#
FILE VAR dat:=sequentialfile(output,datnam);#store(FALSE );IF 
sicherungauskunftstext<>""THEN auskunftindatei(datnam,sicherungauskunftstext)
FI ;wordwrap(TRUE );page;editiere(datnam,"s",FALSE ).END PROC 
auskunftstextaendernvp;PROC auskunftstextaendernnp:store(FALSE );
editierewieeingestelltEND PROC auskunftstextaendernnp;PROC 
auskunftstextspeichern(PROC (INT CONST )spezerfassungauskuenfte,BOOL CONST 
speichern):originalsituation;IF speichernTHEN TEXT VAR t;auskunftintext(
datnam,t);#putwert(fnrauskunftstext,t);#zwischenspeicherungdestextes(t);FI ;
forget(datnam,quiet);return(1);angegebenedatenpruefenundevtlspeichern(
speichern,PROC spezerfassungauskuenfte);END PROC auskunftstextspeichern;PROC 
auskunftintext(TEXT CONST datnam,TEXT VAR auskunft):FILE VAR dat:=
sequentialfile(input,datnam);TEXT VAR zeile;IF eof(dat)THEN close(dat);
auskunft:=""ELSE auskunft:="";REP getline(dat,zeile);auskunft:=auskunft+
encode(zeile);UNTIL eof(dat)PER ;FI END PROC auskunftintext;PROC 
auskunftindatei(TEXT CONST datnam,TEXT CONST te):FILE VAR dat:=sequentialfile
(output,datnam);TEXT VAR zeile,auskunft:=te;INT VAR bottom:=1,top:=1;INT VAR 
l:=length(auskunft);formatierezeile;REP schreibe;formatierezeile;UNTIL (top>=
l)CAND (zeile="")PER .formatierezeile:zeile:="";IF bottom>=lTHEN zeile:=""
ELSE top:=min(bottom+editorfenster-1,l);zeile:=subtext(auskunft,bottom,top,
eol,stop,FALSE );topINCR 1;bottom:=topFI .schreibe:putline(dat,zeile).END 
PROC auskunftindatei;PROC originalsituation:reorganizescreen;store(TRUE )END 
PROC originalsituation;END PACKET ispauskunftseditor;