HP SunSoft Pascal 4.0 Bedienungsanleitung PDF herunterladen (Seite 147)

100

101

The C–Pascal Interface 123

The -calign option is not needed for this example, but may be necessary if

the array parameter is an array of aggregates.

Conformant Arrays

For single-dimension conformant arrays, pass upper and lower bounds placed

after the declared parameter list. If the array is multidimensional, pass

element widths as well, one element width for each dimension, except the last

one. Chapter 8, “The FORTRAN–Pascal Interface,” has an example of

multidimensional conformant array passing.

The following example uses a single-dimension array:

The C function, IntCA.c void IntCA(int a[], int lb, int ub)

{

int k;

for (k=0; k <= ub - lb; k++)

a[k] = 4;

}

The Pascal main program,

IntCAMain.p. Note that what

Pascal passes as s, is received

in C as a, lb, ub.

program IntCAMain(output);

var

s: array [1..3] of integer;

i: integer;

procedure IntCA(var a: array [lb..ub: integer] of integer);

external c;

begin

IntCA(s);

for i := 1 to 3 do

write(s[i]);

writeln

end. { IntCAMain }

1 2 ... 142 143 144 145 146 147 148 149 150 151 152 ... 332 333

Kommentare zu diesen Handbüchern

Keine Kommentare

HP SunSoft Pascal 4.0 Bedienungsanleitung Seite 147

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Software HP SunSoft Pascal 4.0