Re: "extern" procedure in ada

["SteveD" <nospam_steved94@attbi.com>]

"Bernard Azria" <azria@cae.ca> wrote in message
news:an2c4e$52l$1@dns3.cae.ca...
> I am looking for the equivallent of an "extern" definition procedure in
> C for ADA.
>
> In other words, how could I define an external procedure to my program
> without "withing" the package where it is defined ( I have only the "obj'
> and the "ali" file of this procedure in a library)
>

I am still not sure I understand your question, but here is "sort of" an
answer... but I'm not sure it is to your question.

I can declare a variable in an Ada source file and "export" that variable:

package sharer is
  pragma Elaborate_Body;
end sharer;

package body sharer is

  x : integer := 42;
  pragma export( Ada, x );

end sharer;

I can then "import" that variable into another Ada source file:

with Ada.Text_io;
with Sharer;
pragma Elaborate( Sharer );
procedure shared is
  x : Integer;
  pragma import( Ada, x );
begin
  Ada.Text_Io.Put_Line( "x is " & Integer'IMAGE( x ) );
end shared;

In my example I have still With'd the "Sharer" package in so that the "x"
variable will get initialized during elaboration.  But you'll note that
"Sharer" does not explicitly make anything visible in the package spec.

I hope this helps,
SteveD

> Would it be an kind of : pragma import ( ADA, procedure_name )
>
> Thanks in advance
>
> B.A.
>
>
>