HP SunSoft Pascal 4.0 Manual do Utilizador descarregar pdf (Página 149)

100

101

The C–Pascal Interface 125

Variant Records

C equivalents of variant records can sometimes be constructed, although there

is some variation with the architecture, and sometimes you have to adjust the

alignment.

The Pascal main program,

StruChrMain.p

program StruChrMain(output);

type

TVarLenStr = record

nbytes: integer;

a: array [0..25] of char

end;

var

vls: TVarLenStr;

i: integer;

procedure StruChr(var vls: TVarLenStr); external c;

begin

StruChr(vls);

write(' string=''');

for i := 0 to vls.nbytes - 1 do

write(vls.a[i]);

writeln('''');

writeln(' length = ', vls.nbytes)

end. { StruChrMain }

The commands to compile and

execute StruChr.c and

StruChrMain.p

hostname% cc -c StruChr.c

hostname% pc -calign StruChr.o StruChrMain.p

hostname% a.out

string=' strvar'

length= 6

1 2 ... 144 145 146 147 148 149 150 151 152 153 154 ... 332 333

Comentários a estes Manuais

Sem comentários

HP SunSoft Pascal 4.0 Manual do Utilizador Página 149

Comentários a estes Manuais

Manuais e produtos relacionados com Software HP SunSoft Pascal 4.0