![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395169x1.png)
7
The Pascal procedure,
DaysOfWeek.p
The C++ main program,
DaysOfWeekMain.cc
Although it does not apply to this example, arrays of aggregates in Pascal have, by default, a size that is a multiple of four bytes. When you use the
The following example illustrates this point. The string 'Sunday' only gets through to the C++ main program when you compile the Pascal routine using the
type
TDay = array [0..8] of char;
TWeek = array [0..6] of TDay;
TYear = array [0..51] of TWeek;
procedure DaysOfWeek ( var Y: TYear
);
begin
Y[1][1] := 'Sunday'; end;
#include <stdio.h>
extern "C" void DaysOfWeek ( char [52][7][9]);
int main(void)
{
char Year [52][7][9];
DaysOfWeek (Year);
printf (" Day = '%s' \n", Year[1][1]);
}
The | 145 |