Re^6: What's the difference between a hash ?

But that doesn't work with the AUTOWRAP script that I have ... and I'm not able to come to an understanding of why that is so ... given my (now) current state of insobriety. Perhaps all will become clear to me tomorrow. In the meantime, here's 'autowrap.pl':

use warnings;

use Inline C => Config =>
    BUILD_NOISY => 1,
    TYPEMAPS => 'simple_typemap.txt',
    AUTO_INCLUDE => '#include "D:/C/simple.h"',
    CLEAN_AFTER_BUILD => 0,
    ENABLE => AUTOWRAP,
    LIBS => '-LD:/C -lsimple';

use Inline C => q{simple_double simple(simple_double); };

print simple(1.032);
[download]

and here's what happens when I run 'perl autowrap.pl' (using your amendments to C.pm):

.
.
Starting Build Compile Stage
  Starting "perl Makefile.PL" Stage
String found where operator expected at Makefile.PL line 8, near "'NAM
+E'"
        (Missing semicolon on previous line?)
String found where operator expected at Makefile.PL line 9, near "'aut
+owrap_pl_e
826'"
        (Missing semicolon on previous line?)
String found where operator expected at Makefile.PL line 10, near "'IN
+C'"
        (Missing semicolon on previous line?)
String found where operator expected at Makefile.PL line 11, near "'-I
+D:/pscrpt/
inline/special'"
        (Missing semicolon on previous line?)
String found where operator expected at Makefile.PL line 12, near "'LI
+BS'"
        (Missing semicolon on previous line?)
String found where operator expected at Makefile.PL line 16, near "'VE
+RSION'"
        (Missing semicolon on previous line?)
String found where operator expected at Makefile.PL line 17, near "'0.
+00'"
        (Missing semicolon on previous line?)
syntax error at Makefile.PL line 4, near "["
Execution of Makefile.PL aborted due to compilation errors.

A problem was encountered while attempting to compile and install your
+ Inline
C code. The command that failed was:
  D:\perl58_M\5.8.8\bin\perl.exe Makefile.PL

The build directory was:
D:\pscrpt\inline\special\_Inline\build\autowrap_pl_e826

To debug the problem, cd to the build directory, and inspect the outpu
+t files.

 at autowrap.pl line 11
BEGIN failed--compilation aborted at autowrap.pl line 11.
[download]

'simple.h' looks like:

#define simple_double double
simple_double simple(simple_double d);
[download]

and 'simple_typemap.txt' looks like:

simple_double T_S_DOUBLE

INPUT
T_S_DOUBLE
          $var = (simple_double)SvNV($arg)

OUTPUT
T_S_DOUBLE
          sv_setnv($arg, (simple_double)$var);
[download]

Perhaps it's just a simple syntax error in the code you posted ... but I couldn't spot it. It's creating a Makefile.PL that looks like this:

use ExtUtils::MakeMaker;
my %options = (       
'TYPEMAPS'
[
  'D:\\perl58_M\\5.8.8\\lib\\ExtUtils\\typemap',
  'D:\\pscrpt\\inline\\special\\simple_typemap.txt'
]
'NAME'
'autowrap_pl_e826'
'INC'
'-ID:/pscrpt/inline/special'
'LIBS'
[
  '-LD:/C -lsimple'
]
'VERSION'
'0.00'
);
WriteMakefile(%options);

# Remove the Makefile dependency. Causes problems on a few systems.
sub MY::makefile { '' }
[download]

Gotta go to bed :-)

Cheers,
Rob

Comment on Re^6: What's the difference between a hash ? Select or Download Code

Replies are listed 'Best First'.
Re^7: What's the difference between a hash ? by BrowserUk (Patriarch) on Nov 19, 2006 at 15:20 UTC
perhaps it's just a simple syntax error in the code you posted I completely missed the absence of commas in the DD output, which means it needs a join also. `my %options = ( END local $Data::Dumper::Terse = 1; local $Data::Dumper::Indent = 1; print MF join ',', Data::Dumper::Dumper( %options); print MF <<END; ); WriteMakefile(\%options); # Remove the Makefile dependency. Causes problems on a few systems. sub MY::makefile { '' } END` [download] Again, that's not tested. Update: Now it is, producing `use ExtUtils::MakeMaker; my %options = ( 'TYPEMAPS' ,[ 'C:\\Perl\\lib\\ExtUtils\\typemap' ] ,'NAME' ,'_550745' ,'INC' ,'-Ic:/test' ,'VERSION' ,'0.00' ); WriteMakefile(%options); # Remove the Makefile dependency. Causes problems on a few systems. sub MY::makefile { '' }` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^7: What's the difference between a hash ?
by BrowserUk (Patriarch) on Nov 19, 2006 at 15:20 UTC

perhaps it's just a simple syntax error in the code you posted

I completely missed the absence of commas in the DD output, which means it needs a join also.

my %options = (
END

    local $Data::Dumper::Terse = 1;
    local $Data::Dumper::Indent = 1;
    print MF join ',', Data::Dumper::Dumper( %options);

    print MF <<END;
);
WriteMakefile(\%options);

# Remove the Makefile dependency. Causes problems on a few systems.
sub MY::makefile { '' }
END
[download]

Again, that's not tested.

Update: Now it is, producing

use ExtUtils::MakeMaker;
my %options = (
'TYPEMAPS'
,[
  'C:\\Perl\\lib\\ExtUtils\\typemap'
]
,'NAME'
,'_550745'
,'INC'
,'-Ic:/test'
,'VERSION'
,'0.00'
);
WriteMakefile(%options);

# Remove the Makefile dependency. Causes problems on a few systems.
sub MY::makefile { '' }
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

[reply]
[d/l]
[select]