DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »testenvir«

└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
    └─⟦6b41451d2⟧ 
        └─⟦this⟧ »testenvir« 

TextFile

(*$6 5 1*)
testenvir;
type
char = 0..127;
alfa = array (1..12) of char;
boolean = (false,true);
process_descriptor=record
f:integer;
g: alfa;
end;
message = packed record
u1,u2: ! 0..255;
dataptr: ! ^ niltype;
end;
shadow = ^ message;
reference = shadow;
semaphore = integer;
processrec = record
aaa: ^ process_descriptor;
bbb: ^ integer;
ccc: integer;
end;
function succ(i:niltype):niltype; external;
function pred(i:niltype):niltype; external;
function abs(i:niltype):niltype; external;
function ord(c:niltype):integer; external;
function nil(var f: ^ niltype): boolean; external;
procedure alloc (var r:reference; var p:pool 1; var s:semaphore); external;
procedure exception(i: integer); external;
procedure ___exit___rc; external;
procedure _initpool_rc(var sem: semaphore; n,s:integer); external;

(* herefter diverse ... *)
procedure signal (var r:reference; var s:semaphore); external;
procedure link (var son: process_descriptor); external;
procedure create (i:integer;p:processrec); external;
function boot(p: processrec; i,j: integer): boolean; external;
function chr (i: 0..127): char; external;
type incarnation_descriptor = record
felt1: integer;
felt2: alfa;
felt3: message;
felt4: ^ processrec;
felt5: message;
end;
var own: incarnation_descriptor;
. (* end dummy environment *)

▶EOF◀