app/flint/0.4/src/MENUE.gen

Raw file
Back to index

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
page;
putline ("Generierung MENUE 0.5");
BOOL CONST box := yes ("Mit IBM Grafikzeichen");
BOOL CONST l3 := maxint DIV 2 > 17000;
TASK VAR dummy, ar;
IF l3 THEN ar := /"EUMEL" ELSE ar := archive END IF;
INT VAR kanal := channel;
fetch ("eudas.satzzugriffe", ar);
fetch ("eudas.fenster", ar);
fetch ("eudas.menues", ar);
fetch ("offline.1", ar);
fetch ("eudas.1", ar);
fetch ("eudas.2", ar);
fetch ("eudas.3", ar);
fetch ("eudas.dialoghilfen", ar);
fetch ("flint.init", ar);
IF yes ("Ggf zweites Archiv eingelegt") THEN END IF;
fetch ("eudas.steuerung", ar);
fetch ("eudas.init", ar);
fetch ("klartextbelegung", ar);
fetch ("editormenue", ar);
fetch ("eudas.manager", ar);
fetch ("flint.manager", ar);
fetch ("flint", ar);
IF l3 THEN fetch ("isub.replace", ar) END IF;
IF box THEN fetch ("boxzeichen", ar) END IF;
release (ar);
check off;
IF l3 THEN do (PROC (TEXT CONST) reorganize, all) END IF;
IF l3 THEN insert ("isub.replace"); forget ("isub.replace", quiet) END IF;
insert ("eudas.satzzugriffe"); forget ("eudas.satzzugriffe", quiet);
insert ("eudas.fenster"); forget ("eudas.fenster", quiet);
insert ("eudas.menues"); forget ("eudas.menues", quiet);
IF l3 THEN
  TEXT VAR zeile; FILE VAR f;
  f := sequential file (modify, "offline.1");
  to line (f, 1);
  read record (f, zeile);
  INT CONST pp := pos (zeile, ",PROCA");
  change (zeile, pp, pp + 7, "");
  write record (f, zeile)
END IF;
insert ("offline.1"); forget ("offline.1", quiet);
IF box THEN run ("boxzeichen"); forget ("boxzeichen", quiet) END IF;
do ("ausfuehrtaste (""""13"""")");
begin ("FLINT", PROC flint init, dummy);
do ("global manager");

PROC flint init :

  disable stop;
  fetch ("eudas.init");
  fetch ("flint.init");
  continue (kanal);
  command dialogue (FALSE);
  page;
  i ("eudas.1");
  i ("eudas.2");
  i ("eudas.3");
  i ("eudas.dialoghilfen");
  i ("eudas.steuerung");
  i ("klartextbelegung");
  i ("editormenue");
  i ("eudas.manager");
  i ("flint.manager");
  i ("flint");
  do ("menue loeschen (FALSE)");
  do ("menuedaten einlesen (""eudas.init"")");
  forget ("eudas.init", quiet);
  erase ("eudas.init");
  do ("menuedaten einlesen (""flint.init"")");
  forget ("flint.init", quiet);
  erase ("flint.init");
  erase ("MENUE.gen");
  command dialogue (TRUE);
  check on;
  do ("begin (""OP"", ""OPMENUE"")");
  do ("global manager")

END PROC flint init;

PROC i (TEXT CONST name) :

  fetch (name);
  insert (name);
  IF is error THEN
    put error; clear error; pause (1000); do ("global manager")
  END IF;
  forget (name);
  erase (name)

END PROC i;