Version 0.9  What is XML4Ada95?  Installation  How-To  API  Download 

COUNTER
counter


Hello world!

Copy and paste the following code and then try to execute it.

world.cpp:
#include <stdio.h>
#include <iostream>

extern "C" void cfunc() {
  printf("  C: Hi Ada!\n");
}

extern "C" void cppfunc() {
  std::cout << "C++: Hi Ada!\n";
}

hello.adb
with Ada.Text_Io; use Ada.Text_Io;

procedure Poc is

  procedure CFunc;
  pragma Import(C,cfunc);

  procedure CPPFunc;
  pragma Import(C,cppfunc);

begin
  Put_Line("Ada: Hi C!");
  CFunc;
  Put_Line("Ada: Hi C++!");
  CPPFunc;
  Put_Line("Ada: We cooperate!");
end Poc;

I achieve to run it with the following commands (having gcc 3.2 with C, C++ and Ada 95 enabled):

gnatmake hello -c
gnatbind hello -C
gnatlink hello world.o -C --LINK=g++

Run the program - just being able to link it doesn't mean everything is fine!

Comments are welcome.


Requirements Hello world! Download

e-Mail: denny@nodix.de

design shareright © 2002 Phlash  
inhalt © 2003-04 Zdenko Denny Vrandecic  
last update: 14.01.2004 website created by XML4Ada95 DocGen