From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,16656275b5169989
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-11-29 02:09:02 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!proxad.net!fr.usenet-edu.net!usenet-edu.net!enst.fr!not-for-mail
From: sk <sk@noname.com>
Newsgroups: comp.lang.ada
Subject: Re: Link C main with Ada static library
Date: Fri, 29 Nov 2002 04:04:05 -0600
Organization: ENST, France
Sender: comp.lang.ada-admin@ada.eu.org
Message-ID: <mailman.1038564541.20930.comp.lang.ada@ada.eu.org>
References: <fe4bb2c2.0211290045.dba25a4@posting.google.com>
Reply-To: comp.lang.ada@ada.eu.org
NNTP-Posting-Host: marvin.enst.fr
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit
X-Trace: avanie.enst.fr 1038564542 86796 137.194.161.2 (29 Nov 2002 10:09:02
 GMT)
X-Complaints-To: usenet@enst.fr
NNTP-Posting-Date: Fri, 29 Nov 2002 10:09:02 +0000 (UTC)
Return-Path: <sk@noname.com>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.0.1) Gecko/20020828
X-Accept-Language: en-us, en
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
X-Mailman-Version: 2.0.13
Precedence: bulk
List-Unsubscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=unsubscribe>
List-Id: comp.lang.ada mail<->news gateway <comp.lang.ada.ada.eu.org>
List-Post: <mailto:comp.lang.ada@ada.eu.org>
List-Help: <mailto:comp.lang.ada-request@ada.eu.org?subject=help>
List-Subscribe: <http://ada.eu.org/mailman/listinfo/comp.lang.ada>,
	<mailto:comp.lang.ada-request@ada.eu.org?subject=subscribe>
Errors-To: comp.lang.ada-admin@ada.eu.org
X-BeenThere: comp.lang.ada@ada.eu.org
Xref: archiver1.google.com comp.lang.ada:31309
Date: 2002-11-29T04:04:05-06:00

Hi,

Tricky without seeing your "library" code, but this
works, GNAT 3.15p, Linux-Mandrake 8.2.

-- static_ada_library.ads --
package Static_Ada_Library is

     function Return_Forty_Two return Natural;
     pragma Export (C, Return_Forty_Two, "return_forty_two");

end Static_Ada_Library;

-- static_ada_library.adb --
package body Static_Ada_Library is

     function Return_Forty_Two return Natural is
     begin
         return 42;
     end Return_Forty_Two;

end Static_Ada_Library;

-- main.c --
extern int return_forty_two ();
extern int adainit ();
extern int adafinal ();

#include <stdio.h>

int main () {

     int i = 0;

     printf ("i => %d\n", i);


     adainit ();

     i = return_forty_two ();

     adafinal ();

     printf ("i => %d\n", i);

};


Now the build ...

# gnatmake -c static_ada_library
# gnatbind -n static_ada_library

-- OR gnatbind -z ...

# gcc -c b~static_ada_library.adb
# ar rc static_ada_library.a static_ada_library.o b~static_ada_library.o
# gcc main.c static_ada_library.a -o c-test \
/usr/gnat/lib/gcc-lib/i686-pc-linux-gnu/2.8.1/adalib/libgnat.a

# ./c-test
i => 0
i => 42

-- 
The above is very CRUDE, but it should point you in the right
direction.

Review your "ld" manual to see how to link against
"libgnat.so" etc.

Good luck.


-- For real address, merge vertically
-------------------
-- s n p @ t . o
--  k i e k c c m
-------------------