system/base/1.7.5/src/local manager 2


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

 
PACKET local manager part 2 DEFINES            (* Autor: J.Liedtke *)
                                               (* Stand: 25.02.85  *)
  list :
 
 
TEXT VAR file name, status text;


PROC list :
 
  disable stop ;
  DATASPACE VAR ds := nilspace ;
  FILE VAR list file := sequential file (output, ds) ;
  headline (list file, "list") ;
  list (list file) ;
  show (list file) ;
  forget (ds) .
 
ENDPROC list ;
 
PROC list (FILE VAR f) :
 
  enable stop ;
  begin list ;
  putline (f, "") ;
  REP
    get list entry (file name, status text) ;
    IF file name = ""
      THEN LEAVE list
    FI ;
    write (f, status text + "  """ ) ;
    write (f, file name) ;
    write (f, """") ;
    line (f)
  PER .
 
ENDPROC list ;
 
ENDPACKET local manager part 2 ;