DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »tsussjob«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »tsussjob« 

TextFile

job oer 4 200 time 11 0 area 10 size 90000
(
source = copy 25.1
tsusslst = set 1 disc1
tsusserr = set 1 disc1
tsusslst = indent source mark lc
listc = cross tsusslst
o tsusserr
pascal80 alarmenv paxenv source
o c
lookup pass6code
if ok.yes
( tsussbin = set 1 disc1
tsussbin = move pass6code
scope user tsussbin
)
tsusslst = copy listc tsusserr
scope user tsusslst
scope user tsusserr
finis output.no
)

prefix update_stream_state;

procedure update_stream_state (
var
entry     : stream_s_e ;
upd_kind  : upd_kinds ;
new_state : state_type );
(*----------------------------------------------------------
-   updates the streamstates                               -
-   used by paxcon and stream protocol handler             -
------------------------------------------------------------*)

var
ref : reference;
i : integer;
begin
with entry do
begin
wait( ref, key);       (* enter critical region *)

case upd_kind of

inc_all :
begin
state := new_state;
l_queue := l_queue + 1;
timers( l_queue) := stream_timeout;
end;

dec_all :
begin
state := new_state;
l_queue := l_queue - 1;
for i := 1 to l_queue do
timers(i) := timers( i+1);
timers(i) := 0;
end;
\f


inc_q :
begin
l_queue := l_queue + 1;
timers( l_queue) := stream_timeout;
end;

dec_q :
begin
l_queue := l_queue -1;
for i := 1 to l_queue do
timers(i) := timers( i+1);
timers(i) := 0;
end;

new_stat :
state := new_state;

dec_timers :
begin

i:= 1;

while i <= l_queue do
begin
timers(i) := timers(i) -1;
i:= i+1;
end;
end;

end (* case *);

signal( ref, key);         (* leave critical region *)

end (* with *)

end (* procedure *);
.
▶EOF◀