Sun Microsystems SunSoft Pascal 4.0, Руководство пользователя

Страница: 177 / 333

The C++–Pascal Interface 153
7
Simple Types
Simple types pass in a straightforward way, as in the following example:
The Pascal function,
RetReal.p
function RetReal (r: real): real;
begin
RetReal := r + 1
end;
The C++ main program,
RetRealMain.cc
#include <stdio.h>
extern "C" double RetReal (double);
int main(void)
{
double r, s;
r = 2.0;
s = RetReal (r);
printf (" %f \n", s);
}
The commands to compile and
execute
RetReal.p
and
RetRealMain.cc
hostname% pc -c RetReal.p
hostname% CC RetReal.o RetRealMain.cc -lpc
hostname% a.out
3.000000