DataMuseum.dk

top - metrics - download

    Length: 7680 (0x1e00)
    Types: TextFileVerbose
    Names: »test120«

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

TextFileVerbose

job btj 9 600 area 9 time 2 0 size 80000
i testjob

(********************
*  dette er test 1  *
********************)


prefix prog1;
procedure pip(a,c: integer; b: boolean; var d: char);
const c1=1; c2=c1+1; c3=c1+c2+1;
var i: integer; ch: char;
    arr: array ( 1..10 ) of integer;

function sum(a,b: integer): integer;
var s,i: integer; 
begin
for i:=a to b do s:=s+arr(i);
sum:=s;
end;

begin
while b do
for i:=a to c  do
arr(i):=c2*5 + i + c1
;
d:=ch;
end;
.

\f


job btj 9 600 area 9 size 80000 time 2 0
i testjob

(********************
*  dette er test 2  *
********************)

prefix smallprog;
procedure piphans;
var i:integer;
begin
i:=2;
end;
.

\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(*******************
*  dette er test3  *
*******************)


prefix smallprog;
procedure piphans;
var
i: integer;
ar: array (1..99) of char;
begin
ar(i):=ar(1+2);
end;
.
\f


job btj 9 600 area 8 time 2 0 size 80000
i testjob


(*******************
* dette er test 4  *
*******************)


prefix smallprog;
procedure piphans;
var
b: boolean;
i,j: integer;
c: char;
rec: record
     a: integer;
     b: char;
     d: boolean;
     e: array (1..55) of 0..255
     end;
label l;
begin
l:
while b do rec.b:=c;
repeat rec.e(j):=10 until rec.d;
goto l;
end;
.
\f


job btj 9 600 area 8 time 2 0 size 80000
i testjob


(********************
*  dette er test 5  *
********************)


prefix smallprog;
procedure piphans;
var
b: boolean;
i,j: integer;
c: char;
rec: record
     a: integer;
     b: char;
     d: boolean;
     e: array (1..55) of 0..255
     end;
begin
if b then rec.a:=6*9;
if i<8 then i:=8 else i:=9;
if (i>8) and (j<9) or (rec.b='a') then c:='g'
end;
.

\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(********************
*  dette er test 6  *
********************)


prefix smallprog;
procedure piphans;
const c1=33; c2='det er en text';
type
rec_type=record
           a,b,c: integer;
           d,e,f: boolean;
         end;
arr_type=array (0..500) of rec_type;

var
p: rec_type;
q: arr_type;
i,j,k: integer;

begin
with p do
begin
  if d then a:=1 else a:=c1;
  i:=q(k).c;
end;

with q(i) do
begin
  if d then a:=1 else a:=c1;
  i:=q(k).c;
end;

end;
.
\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(********************
*  dette er test 7  *
********************)


prefix smallprog;
procedure piphans;
var
b: boolean;
i,j: integer;
c: char;
rec: record
     a: integer;
     b: char;
     d: boolean;
     e: array (1..55) of integer
     end;
begin
for rec.e(i):=j*(rec.a+7) to i*j do i:=7;
for j:=23 downto 0 do i:=99;
end;
.

\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(*******************
*  dett er test 8  *
*******************)



prefix smallprog;
procedure piphans;

var i,j: integer;

procedure pip;
begin
i:=1;
end;

begin
pip;
end;
.
\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(********************
*  dette er test 9  *
********************)



prefix smallprog;
procedure piphans;

var i,j: integer;

function f: integer;
begin
f:=99;
end;

begin
i:=f+77;
end;
.

\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(*********************
*  dette er test 10  *
*********************)



process pip;
var i:integer;
p: pool 1;
p1: pool 1 of process_descriptor;
rr: record 
feltref: reference;
feltsem: semaphore;
end;
procedure futfut(ii: integer; var jj : integer);
begin
lock rr.feltref as asdf:char do
channel rr.feltref do
signal (rr.feltref, rr.feltsem);
i:=succ(i);  
i:=pred(i);
end;
process proccc(var s: semaphore; i: integer);
var k,l: integer;
begin
k:=l;
end;
begin
link(proccc);
create(123,proccc(rr.feltsem,i));
i:=2;
i:=pred(i);
i:=succ(i);
futfut(i,i);  
(*$4 2 0*)
(*$3 3 1*)
end
.

\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(*********************
*  dette er test 11  *
*********************)



process ttt;
procedure pro(var i: integer; j: integer); forward;
function boo(var i: integer; j: integer): boolean; forward;
var a,b,c: integer;
    ar: array (1..100) of integer;
procedure pro(var i: integer; j: integer);
var x,y: integer;
begin
while boo(x,y) do pro(j,i+j);
end;
function boo(var i: integer; j: integer): boolean;
var x,y:integer;
begin
repeat pro(y,x+y) until boo(j,j+i);
boo:=x=y;
end;
begin
if boo(ar(a),2) then pro(c,ar(b+c)) else pro(a,c);
end.

\f


job btj 9 600 time 2 0 area 9 size 80000
i testjob

(*********************
*  dette er test 12  *
*********************)


process testproc;
var i,j,k,l: integer;
type sca = (a,b,c,d,e,f);
var t,u: sca;

begin
case i of
1: i:=0;
2: i:=0;
3,4,5: i:=0;
6..20: i:=0;
10+20: i:=0;
l: i:=0;
end;

case t of
a: i:=0;
b..d,e: i:=0;
otherwise  i:=0; t:=a;
end;

case u of
a: ;
b: ;
e..a: ;
end;

end.

\f


job btj 9 600 time 2 0 area 9 size 80000
i testjob

(*********************
*  dette er test 13  *
*********************)


process testproc;
var
msg: reference;
sh : shadow;
p: pool 123 of integer;
sem:semaphore;
begin
if nil(msg) then
if nil(sh) then
begin end;
alloc(msg, p, sem);
end.
\f


job btj 9 600 area 9 time 2 0 size 90000
i testjob


(*********************
*  dette er test 14  *
*********************)


process tes_proc;

type poolt=pool 1;
rec = record 
      p: poolt
      end;
var actp: poolt;
    actr: rec := rec(actp);

const sc = (.15,16.);
var s: set of (n,u,l);
const ss = (.n,u,l.);

type rec1 = record a,b: integer;
                   c: char;
                   d: boolean;
            end;
var vrec1: rec1 := rec1(1,2,'a',true);
begin
s:=(.n,u,l.);
s:=s + s;
s:=s * s;
end.

\f


job btj 9 600 area 9 time 2 0 size 90000
i testjob


(*********************
*  dette er test 15  *
*********************)


process tes_proc;
var i,j,k: integer;
begin
i:=0;
(*$4 1 0*) (*$4 3 0*)  
end.
\f


job btj 9 600 time 2 0 area 9 size 80000
i testjob

(*********************
*  dette er test 16  *
*********************)


process testproc;
type rec = record
felt1: integer;
felt2: semaphore;
felt3: pool 1;
felt4: reference;
felt5: shadow;
end;
const recc = rec(?,?,?,?,?);
begin
end.
\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(********************
*  dette er test 17  *
********************)



prefix smallprog;
procedure piphans;

var i,j: integer;

function f: 0..255;
begin
f:=99;
end;
type ccc = (a,b,c,d,e);
begin
i:=f+ord(succ(pred(c)));
end;
.

\f


job btj 9 600 area 9 time 2 0 size 80000
i testjob


(********************
*  dette er test 18  *
********************)



process p;
var i,j,k,l: integer;
 
procedure aa(a,b,c:integer);
var i,j,k,l: integer;
 
function bb(a,b,c,d: integer): 0..30;
var i,j,k,l: integer;
begin
i:=0; j:=succ(i);
bb:=i+j;
end;
 
var s: (e,f,g,h);
    sub: 77..99;
begin
s:=pred(s);
sub:=j;
sub:=3+6-6+74;
sub:=99;
sub:=76;
sub:=100;
end;
 
type ss=(bb,cc,dd,ee,ff,gg,hh,ii,jj,kk,ll,mm,nn);
var sa: ss;
begin
aa(1,2,3); i:=ord(sa);
sa:=pred(sa);
sa:=succ(sa);
(*$4 1 0*) (*$4 2 0*) (*$4 3 0*)  
end.
\f


job btj 9 600 area 9 time 2 0 size 90000
i testjob


(*********************
*  dette er test 19  *
*********************)


process tes_proc;

type scal = (s,c,a,l);
type scalset = set of scal;
var elem: scal;
var vset: scalset;

begin
elem := s;
vset := vset;
vset := (..);
vset := (.s.);
if elem in (..) then;
if s in (..) then;
if elem in vset then;
if s in vset then;
end.
\f


job btj 9 600 area 9 size 80000 time 2 0
i testjob

(********************
*  dette er test 20  *
********************)

process piphans;

process ext; external;

begin
create (0,ext);
link(ext);
create (0,ext(1));
link(ext(1));
end.
\f


«eof»