6

The Pascal main program,

SimValMain.p

The commands to compile and execute SimVal.c and

SimValMain.p

program SimVal(output);

var

t: boolean

:= true;

f: boolean

:= false;

c: char

:= 'z';

si: integer16

:= 9;

i: integer

:= 9;

sr: shortreal

:= 9.9;

r: double

:= 9.9;

args: integer;

 

procedure SimVal( t, f: boolean; c: char;

si: integer16;

i:integer;

sr: shortreal;

r:double;

var Reply: integer); external c;

begin

SimVal(t, f, c, si, i, sr, r, args); writeln(' args = ', args :6 oct);

end. { SimVal }

hostname% cc -c SimVal.c hostname% pc SimVal.o SimValMain.p hostname% a.out

args=111111

Function Return Values

Function return values match types in the same manner as with parameters, and they pass in much the same way. See “Variable Parameters” on page 94. The following example shows how to pass simple types.

130

Pascal 4.0 User’s Guide