The univ arrays – HP SunSoft Pascal 4.0 User Manual

Page 146

Text mode
Original mode

Advertising

122

Pascal 4.0 User’s Guide

The

univ

Arrays

The

univ

arrays that are

out

in out,

var

parameters pass by

reference.

Here is an example:

The C function,

UniVec.c

void UniVec(int V[3], int Last, int *Sum)

{

int i;

*Sum = 0;

for (i = 0; i <= Last; i++)

*Sum += V[i];

}

The Pascal main program,

UniVecMain.p

program UniVecMain(output);

type

TVec = array [0..9] of integer;

var

Sum: integer;

V: array [0..2] of integer;

procedure UniVec(var V: univ TVec; in Last: integer;

var Sum: integer);

external c;

begin

V[0] := 7;

V[1] := 8;

V[2] := 9;

UniVec(V, 2, Sum);

writeln(Sum);

end. { UniVecMain }

The commands to compile and
execute

UniVec.c

and

UniVecMain.p

hostname% cc -c UniVec.c

hostname% pc -calign UniVec.o UniVecMain.p

hostname% a.out

Advertising