system/dos/1986/src/open

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
PACKET open DEFINES                             (* Copyright (C) 1986 *)
                                                (* Frank Klapper      *)
  open  action,                                 (* 20.03.86           *)
  close action,
  action opened,
  action closed,
  init check rerun,
  check rerun:

BOOL VAR open;
INT VAR old session;

INITFLAG VAR packet := FALSE;

PROC open action:
  open := TRUE

END PROC open action;

PROC close action:
  open := FALSE

END PROC close action;

BOOL PROC action opened:
  IF NOT initialized (packet)
    THEN close action
  FI;
  open

END PROC action opened;

BOOL PROC action closed:
  NOT action opened

END PROC action closed;

PROC init check rerun:
  old session := session

END PROC init check rerun;

PROC check rerun:
  IF session <> old session
    THEN close action;
         error stop ("Diskettenzugriff im RERUN")
  FI.

END PROC check rerun;

END PACKET open;