-, , , , ++ C .
C, ++ C ( Ada), . , , - ++, , extern ++.
++ extern "C", . ++ Ada Ada.
:
cpp:
extern "C" int cpp_func (int p1, int p2) {
;
}
.adb:
function cpp_func (p1, p2 : Interfaces.C.Int) return Interfaces.C.Int;
pragma Import (C, cpp_func);
...
Result : constant Interfaces.C.Int := cpp_func (1, 2);