Re: problem compiling perl with inline c program uses a shared lib.

[Sisyphus]

----- Original Message ----- 
From: "Sean McMahon" <[EMAIL PROTECTED]>
To: <Inline@perl.org>
Sent: Wednesday, May 09, 2007 6:31 AM
Subject: problem compiling perl with inline c program uses a shared lib.


I have attached my script connect and the error log.  Please help I'm 
trying to
go from the example provided by the c-cookbook for inline.
(see attached files connect and connectbuggs.log)
Sean

Rewriting the script as follows should at least enable the Inline::C code to 
compile:
----------------------------------
#!/usr/opt/bin/perl
use Inline C => Config =>
LIBS => '-L/usr/opt/nwis/lib -lnw';
use Inline C => <<'END_OF_C_CODE';
#include "nw.h"
END_OF_C_CODE

nw_sql_connect (nw_db_nm (), "ownereditor");
----------------------------------
(The closing "END_OF_C_CODE" needs to go hard up against the left hand 
margin, and you forgot the "=>" in the 4th line in the above code.)

It won't compile for me - but only because I don't have nw.h.

Once it does compile, the perl code will die because perl has no way of 
knowing what nw_sql_connect() and nw_db_nm() are.

I'm guessing that these are functions defined in the nw library - in which 
case you probably want to wrap nw_sql_connect() so that the script will look 
something like this:
-----------------------------------
#!/usr/opt/bin/perl
use Inline C => Config =>
LIBS => '-L/usr/opt/nwis/lib -lnw';
use Inline C => <<'END_OF_C_CODE';
#include "nw.h"

void wrap_nw_sql_connect( char * y) {
    nw_sql_connect(nw_db_nm(), y);
}

END_OF_C_CODE

wrap_nw_sql_connect ("ownereditor");
-----------------------------------

Bear in mind that I'm only guessing - the above code may not function 
correctly (if at all :-)

I take it that you're not interested in catching the return value of 
nw_sql_connect() - if, indeed, it does return anything at all.

Cheers,
Rob