diff options
Diffstat (limited to 'dialog/ls-DIALOG 7')
-rw-r--r-- | dialog/ls-DIALOG 7 | 460 |
1 files changed, 0 insertions, 460 deletions
diff --git a/dialog/ls-DIALOG 7 b/dialog/ls-DIALOG 7 deleted file mode 100644 index bc43410..0000000 --- a/dialog/ls-DIALOG 7 +++ /dev/null @@ -1,460 +0,0 @@ -(* - - ********************************************************* - ********************************************************* - ** ** - ** ls-DIALOG 7 ** - ** Dateihandling ** - ** Version 1.2 ** - ** ** - ** (Stand: 04.11.88) ** - ** ** - ** ** - ** Autor: Wolfgang Weber, Bielefeld ** - ** ** - ** ** - ** Copyright (C) 1987, 1988 Eva Latta-Weber, Bielefeld ** - ** ** - ** Copyright (C) 1988 ERGOS GmbH, Siegburg ** - ** ** - ********************************************************* - ********************************************************* - - *) - -PACKET ls dialog 7 DEFINES - menu dateien verzeichnis, - menu dateien loeschen, - menu dateien drucken, - menu dateien kopieren, - menu dateien umbenennen, - menu dateien speicherplatz, - menu dateien aufraeumen: -LET filetype = 1003, - maxlaenge = 60, - breite = 40, - niltext = ""; -TEXT CONST dateibez :: "Dateiliste bei internen Operationen"; -PROC menu dateien verzeichnis: - forget (dateibez, quiet); - liste dateien auf; - - regenerate menuscreen. - liste dateien auf: - erstelle liste; - gib liste aus; - forget (dateibez, quiet). - erstelle liste: - menufootnote (menubasistext (21) + menubasistext (28)); - FILE VAR f :: sequential file (output, dateibez); - list (f); modify (f); - headline (f, menubasistext (43)); - to line (f, 1); insert record (f); - write record (f, menubasistext (161)); - entferne eigenen namen aus der liste. - entferne eigenen namen aus der liste: - TEXT VAR zeile :: ""; INT VAR i; - - FOR i FROM lines (f) DOWNTO 1 REP - to line (f, i); read record (f, zeile); - IF pos (zeile, dateibez) > 0 - THEN delete record (f); - LEAVE entferne eigenen namen aus der liste - FI - PER. - gib liste aus: - to line (f, 1); cursor on; menuwindowshow (f); cursor off -END PROC menu dateien verzeichnis; -PROC menu dateien loeschen: - lasse dateien auswaehlen; - loesche ausgewaehlte dateien; - regenerate menuscreen. - lasse dateien auswaehlen: - IF NOT not empty (ALL myself) - - THEN noch keine datei; - LEAVE menu dateien loeschen - ELSE biete auswahl an - FI. - biete auswahl an: - THESAURUS VAR angekreuzte := - menuanswersome ( center (breite, invers (menubasistext(162))) + - menubasistext (163), "", ALL myself, - menubasistext (162), menubasistext (91) + - menubasistext (104) + menubasistext (92), FALSE). - loesche ausgewaehlte dateien: - show menuwindow; - steige ggf bei leerem thesaurus aus; - - menuwindowout (menuwindowcenter (invers (menubasistext (162)))); - menuwindowline (2); - command dialogue (FALSE); - fuehre einzelne operation aus; - command dialogue (TRUE); - schlage ggf neue seite auf; - menuwindowout (menubasistext (93) + menubasistext (104)); - menuwindowstop. - fuehre einzelne operation aus: - INT VAR k; - FOR k FROM 1 UPTO highest entry (angekreuzte) REP - IF name (angekreuzte, k) = niltext - THEN LEAVE fuehre einzelne operation aus - - ELIF NOT exists (name (angekreuzte, k)) - THEN menuwindowout (" """ + name (angekreuzte, k) + """"); - menuwindowline; - menuwindowout (menubasistext (188)); menuwindowline; - LEAVE fuehre einzelne operation aus - ELSE disable stop; - IF menuwindowyes (" """ + name (angekreuzte, k) + """ " - + menubasistext (111)) - THEN forget (name (angekreuzte, k), quiet) - FI; - - fehlerbehandlung - FI - PER. - steige ggf bei leerem thesaurus aus: - IF NOT not empty (angekreuzte) - THEN menuwindowline (2); - menuwindowout (menubasistext (94)); - menuwindowstop; - regenerate menuscreen; - LEAVE menu dateien loeschen - FI. - schlage ggf neue seite auf: - IF remaining menuwindowlines < 7 - THEN menuwindowpage; menuwindowline - ELSE menuwindowline (2) - FI. - fehlerbehandlung: - IF is error - - THEN regenerate menuscreen; - menuinfo (invers (errormessage)); - clear error; enable stop; - LEAVE menu dateien loeschen - FI -END PROC menu dateien loeschen; -PROC menu dateien drucken: - lasse programme auswaehlen; - drucke programme; - regenerate menuscreen. - lasse programme auswaehlen: - IF NOT not empty (ALL myself) - THEN noch keine datei; - LEAVE menu dateien drucken - ELSE biete auswahl an - FI. - biete auswahl an: - - THESAURUS VAR angekreuzte := - menuanswersome ( center (breite, invers (menubasistext(164))) + - menubasistext (163), "", ALL myself, - menubasistext (164), menubasistext (91) + - menubasistext (165) + menubasistext (92), FALSE). - drucke programme: - show menuwindow; - steige ggf bei leerem thesaurus aus; - menuwindowout (menuwindowcenter (invers (menubasistext (164)))); - menuwindowline (2); - command dialogue (FALSE); - - fuehre einzelne operation aus; - command dialogue (TRUE); - schlage ggf neue seite auf; - menuwindowout (menubasistext (93) + menubasistext (165)); - menuwindowstop. - fuehre einzelne operation aus: - INT VAR k; - FOR k FROM 1 UPTO highest entry (angekreuzte) REP - IF name (angekreuzte, k) = niltext - THEN LEAVE fuehre einzelne operation aus - ELIF NOT exists (name (angekreuzte, k)) - THEN menuwindowout (" """ + name (angekreuzte, k) + """"); - - menuwindowline; - menuwindowout (menubasistext (188)); menuwindowline; - LEAVE fuehre einzelne operation aus - ELSE disable stop; - menuwindowout ( " """ + name (angekreuzte, k) + """ " - + menubasistext (166)); - menuwindowline; - print (name (angekreuzte, k)); - fehlerbehandlung - FI - PER. - steige ggf bei leerem thesaurus aus: - IF NOT not empty (angekreuzte) - - THEN menuwindowline (2); - menuwindowout (menubasistext (94)); - menuwindowstop; - regenerate menuscreen; - LEAVE menu dateien drucken - FI. - schlage ggf neue seite auf: - IF remaining menuwindowlines < 7 - THEN menuwindowpage; menuwindowline - ELSE menuwindowline (2) - FI. - fehlerbehandlung: - IF is error - THEN regenerate menuscreen; - menuinfo (invers (errormessage)); - clear error; enable stop; - - LEAVE menu dateien drucken - FI. -END PROC menu dateien drucken; -PROC menu dateien kopieren: - ermittle alten dateinamen; - erfrage neuen dateinamen; - kopiere ggf die datei. - ermittle alten dateinamen: - IF NOT not empty (ALL myself) - THEN noch keine datei; - LEAVE menu dateien kopieren - ELSE hole den namen - FI. - hole den namen: - TEXT VAR alter name := - menuanswerone ( center (breite, invers (menubasistext(167))) + - menubasistext (163), "", ALL myself, - - menubasistext (167), menubasistext (168) + - menubasistext (169) + menubasistext (170), TRUE); - IF alter name = niltext - THEN LEAVE menu dateien kopieren - ELIF NOT exists (alter name) - THEN menuinfo (menubasistext (188)); - LEAVE menu dateien kopieren - FI. - erfrage neuen dateinamen: - TEXT VAR neuer name :: menuanswer (ausgabe, alter name, 5). - ausgabe: - ueberschrift + menubasistext (171) + bisheriger name - - + menubasistext (172). - ueberschrift: - center (maxlaenge, invers (menubasistext (167))) + ""13""13"". - bisheriger name: - ""13""13" " + invers (alter name) + ""13""13"". - kopiere ggf die datei: - IF neuer name = niltext - THEN menuinfo (invers (menubasistext (173))); - LEAVE menu dateien kopieren - ELIF exists (neuer name) - THEN mache vorwurf; - LEAVE menu dateien kopieren - ELSE copy (alter name, neuer name) - - FI. - mache vorwurf: - menuinfo (menubasistext (174)). -END PROC menu dateien kopieren; -PROC menu dateien umbenennen: - ermittle alten dateinamen; - erfrage neuen dateinamen; - benenne ggf die datei um. - ermittle alten dateinamen: - IF NOT not empty (ALL myself) - THEN noch keine datei; - LEAVE menu dateien umbenennen - ELSE hole den namen - FI. - hole den namen: - TEXT VAR alter name := - menuanswerone ( center (breite, invers (menubasistext(175))) + - - menubasistext (163), "", ALL myself, - menubasistext (175), menubasistext (168) + - menubasistext (176) + menubasistext (170), TRUE); - IF alter name = niltext - THEN LEAVE menu dateien umbenennen - ELIF NOT exists (alter name) - THEN menuinfo (menubasistext (188)); - LEAVE menu dateien umbenennen - FI. - erfrage neuen dateinamen: - TEXT VAR neuer name :: menuanswer (ausgabe, alter name, 5). - ausgabe: - - ueberschrift + menubasistext (171) + bisheriger name - + menubasistext (177). - ueberschrift: - center (maxlaenge, invers (menubasistext (175))) + ""13""13"". - bisheriger name: - ""13""13" " + invers (alter name) + ""13""13"". - benenne ggf die datei um: - IF neuer name = niltext - THEN menuinfo (invers (menubasistext (173))); - LEAVE menu dateien umbenennen - ELIF exists (neuer name) - THEN mache vorwurf; - LEAVE menu dateien umbenennen - - ELSE rename (alter name, neuer name) - FI. - mache vorwurf: - menuinfo (menubasistext (174)). -END PROC menu dateien umbenennen; -PROC menu dateien speicherplatz: - lasse dateinamen auswaehlen; - ermittle den speicherplatz; - regenerate menuscreen. - lasse dateinamen auswaehlen: - IF NOT not empty (ALL myself) - THEN noch keine datei; - LEAVE menu dateien speicherplatz - ELSE biete auswahl an - FI. - biete auswahl an: - THESAURUS VAR angekreuzte := - - menuanswersome ( center (breite, invers (menubasistext(178))) + - menubasistext (163), "", ALL myself, - menubasistext (178), menubasistext (179), FALSE). - ermittle den speicherplatz: - show menuwindow; - steige ggf bei leerem thesaurus aus; - menuwindowout (menuwindowcenter (invers (menubasistext (178)))); - menuwindowline (2); - command dialogue (FALSE); - fuehre einzelne operation aus; - command dialogue (TRUE); - schlage ggf neue seite auf; - - menuwindowout (menubasistext (180)); - menuwindowstop. - fuehre einzelne operation aus: - INT VAR k; - FOR k FROM 1 UPTO highest entry (angekreuzte) REP - IF name (angekreuzte, k) = niltext - THEN LEAVE fuehre einzelne operation aus - ELIF NOT exists (name (angekreuzte, k)) - THEN menuwindowout (" """ + name (angekreuzte, k) + """"); - menuwindowline; - menuwindowout (menubasistext (188)); menuwindowline; - LEAVE fuehre einzelne operation aus - - ELSE disable stop; - menuwindowout ( " """ + name (angekreuzte, k) + """ " - + menubasistext (181) - + speicherplatz (name (angekreuzte, k))); - menuwindowline; - fehlerbehandlung - FI - PER. - steige ggf bei leerem thesaurus aus: - IF NOT not empty (angekreuzte) - THEN menuwindowline (2); - menuwindowout (menubasistext (94)); - menuwindowstop; - regenerate menuscreen; - - LEAVE menu dateien speicherplatz - FI. - schlage ggf neue seite auf: - IF remaining menuwindowlines < 7 - THEN menuwindowpage; menuwindowline - ELSE menuwindowline (2) - FI. - fehlerbehandlung: - IF is error - THEN regenerate menuscreen; - menuinfo (invers (errormessage)); - clear error; enable stop; - LEAVE menu dateien speicherplatz - FI. -END PROC menu dateien speicherplatz; -TEXT PROC speicherplatz (TEXT CONST dateiname): - - DATASPACE VAR ds :: old (dateiname); - INT CONST platz :: storage (ds); - forget (ds); - " " + text (platz) + menubasistext (182) -END PROC speicherplatz; -PROC menu dateien aufraeumen: - lasse dateinamen auswaehlen; - raeume die dateien auf; - regenerate menuscreen. - lasse dateinamen auswaehlen: - IF NOT not empty (ALL myself) - THEN noch keine datei; - LEAVE menu dateien aufraeumen - ELSE biete auswahl an - FI. - biete auswahl an: - THESAURUS VAR angekreuzte := - - menuanswersome ( center (breite, invers (menubasistext(183))) + - menubasistext (163), "", ALL myself, - menubasistext (183), menubasistext (91) + - menubasistext (184) + menubasistext (92), FALSE). - raeume die dateien auf: - show menuwindow; - steige ggf bei leerem thesaurus aus; - menuwindowout (menuwindowcenter (invers (menubasistext (183)))); - menuwindowline (2); - command dialogue (FALSE); - fuehre einzelne operation aus; - - command dialogue (TRUE); - schlage ggf neue seite auf; - menuwindowout (menubasistext (93) + menubasistext (184)); - menuwindowstop. - fuehre einzelne operation aus: - INT VAR k; - FOR k FROM 1 UPTO highest entry (angekreuzte) REP - IF name (angekreuzte, k) = niltext - THEN LEAVE fuehre einzelne operation aus - ELIF NOT exists (name (angekreuzte, k)) - THEN menuwindowout (" """ + name (angekreuzte, k) + """"); - menuwindowline; - menuwindowout (menubasistext (188)); menuwindowline; - - LEAVE fuehre einzelne operation aus - ELIF dateityp ist ok - THEN disable stop; - menuwindowline; - menuwindowout ( " """ + name (angekreuzte, k) + """ " - + menubasistext (185) ); - menuwindowline; menuwindowout (" "); - reorganize (name (angekreuzte, k)); - fehlerbehandlung - ELSE menuwindowout ( " """ + name (angekreuzte, k) + """ " - + menubasistext (186)) - - FI - PER. - dateityp ist ok: - type (old (name (angekreuzte, k))) = filetype. - steige ggf bei leerem thesaurus aus: - IF NOT not empty (angekreuzte) - THEN menuwindowline (2); - menuwindowout (menubasistext (94)); - menuwindowstop; - regenerate menuscreen; - LEAVE menu dateien aufraeumen - FI. - schlage ggf neue seite auf: - IF remaining menuwindowlines < 7 - THEN menuwindowpage; menuwindowline - ELSE menuwindowline (2) - - FI. - fehlerbehandlung: - IF is error - THEN regenerate menuscreen; - menuinfo (invers (errormessage)); - clear error; enable stop; - LEAVE menu dateien aufraeumen - FI. -END PROC menu dateien aufraeumen; -PROC noch keine datei: - menuinfo (menubasistext ( 187)) -END PROC noch keine datei; -END PACKET ls dialog 7; - - |