7

The Pascal main program,

SimValMain.p

The commands to compile and execute SimVal.cc and

SimValMain.p

program SimValMain(output); var

t:boolean := true;

f:boolean := false;

c: char

:=

'z';

si:integer16:=

9;

i:integer := 9; sr:shortreal:= 9.9;

r: real := 9.9;

args: integer;

procedure SimVal( t, f: boolean;

c:char;

si:integer16;

i:integer;

sr:shortreal;

r:real;

var Reply: integer); external C;

begin

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

end.

hostname% CC -c SimVal.cc 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. They pass in much the same way.

The C++–Pascal Interface

159