summaryrefslogtreecommitdiff
path: root/lang/dynamo/1.8.7/src/dyn.inserter
blob: 4b0b9d5681d84b1d810630a32522c2486772327c (plain)
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
put line ("DYNAMO 3.3+ wird generiert");
line;
WHILE noch nicht alle dateien da REPEAT          (* Christian Szymanski *)
  hole dateien vom archiv                        (* 10.08.88            *)
END REPEAT;
putline ("Die Pakete werden insertiert.");
putline ("Bitte warten !");
checkoff;
IF id(0) < 182
  THEN insert ("dyn.kleiner182")
FI ;
insert ("dyn.tool");
insert ("dyn.33");
insert ("dyn.vec");
insert ("dyn.proc");
insert ("dyn.rts");
insert ("dyn.plot+");
insert ("dyn.plot"); 
insert ("dyn.print");
command dialogue (TRUE);
do ("init errors (""dyn.errors"")");
do ("init std (""dyn.std"")");
do ("insert macro (""dyn.mac"")");
do ("graphic (yes (""mit CGA-Grafik""))");
putline ("dynamo-system generiert"); 
check on.

noch nicht alle dateien da:
  THESAURUS VAR alle dateien := empty thesaurus;
  IF id(0) < 182 THEN
    insert (alle dateien,"dyn.kleiner182")
  FI ;
  insert (alle dateien, "dyn.tool");
  insert (alle dateien, "dyn.33");
  insert (alle dateien, "dyn.vec");
  insert (alle dateien, "dyn.proc");
  insert (alle dateien, "dyn.rts");
  insert (alle dateien, "dyn.plot+");
  insert (alle dateien, "dyn.plot");
  insert (alle dateien, "dyn.print");
  highest entry (alle dateien - all) > 0 .

hole dateien vom archiv:
  IF yes ("DYNAMO-Diskette eingelegt") THEN
    archive ("dynamo");
    fetch (ALL archive - all, archive);
    release (archive)
  FI.