Re: Inline::C with multiple *.c

Is there a better way?

#!/usr/bin/perl --
use Path::Class;
use constant THISFILE => "".file( __FILE__ )->absolute;
use constant THISDIR  => "".file( THISFILE )->dir;
BEGIN { chdir THISDIR or die $!; }
use Inline (
    C                 =>
    Config            =>
    LIBS              => "-Llib/relative -lrelative",
    INC               => "-Iinc/relative",
    BUILD_NOISY       => 1,
    CLEAN_AFTER_BUILD => 0,
    DIRECTORY         => 'RELATIVE', # INVALID VALUE?! IT MUST EXIST
);
use Inline C => file('a.c')->absolute, qw' NAME RelativeA ';
use Inline C => file('b.c')->absolute, qw' NAME RelativeB ';

use strict; use warnings;
...
[download]

See also swd, Toolkit, Syntax::Collector...

Comment on Re: Inline::C with multiple *.c Download Code

Replies are listed 'Best First'.
Re^2: Inline::C with multiple *.c by gri6507 (Deacon) on Aug 24, 2012 at 12:35 UTC
Thanks, your syntax does seem much cleaner and more intuitive. However, I just stumbled across another odd problem. I just changed my b.c so that it calls a function from a.c. Since a.c is built first, it generates a DLL (I'm doing this on Windows under Strawberry Perl). Next, when building b.c, it has to be linked against the first DLL. But I can't specify that in the config section above because it's common to all Inline::C files and clearly that DLL does not yet exist when compiling/linking a.c. Any suggestions?	[reply]
Re^3: Inline::C with multiple *.c by Anonymous Monk on Aug 24, 2012 at 13:16 UTC
Any suggestions? You can use http://perldoc.perl.org/perlapi.html#Callback-Functions like call_pv to call the perl version of a function It helps if you skip the script concept and create modules (namespace other than main ) -- see Inline#Writing Modules with Inline Otherwise I think you'll have to create commonlib and link both a.c and b.c against it IIRC it is possible to manually manipulate modname.def so that you can link with -lmodname and call the c versions, but not without modifying Inline::C -- this might help (never used it) Module::CAPIMaker - Provide a C API for your XS modules Also curious Re: How to use C Libraries in Perl Script?, ExtUtils::Depends - Easily build XS extensions that depend on XS extensions, InlineX::XS - Auto-convert Inline::C based modules to XS, InlineX::C2XS	[reply]


Problems? Is your data what you think it is?
	PerlMonks