Re: Calling External DLL functions in Perl using Inline

Hello

I am getting the following out put
______________________________________
E:\Sankaran\Work\TP-TAImpacts-LM051049\PerlInline\MyTest1>perl Hello.Pl
Starting Build Prepocess Stage
Finished Build Prepocess Stage

Starting Build Parse Stage
Finished Build Parse Stage

Starting Build Glue 1 Stage
Finished Build Glue 1 Stage

Starting Build Glue 2 Stage
Finished Build Glue 2 Stage

Starting Build Glue 3 Stage
Finished Build Glue 3 Stage

Starting Build Compile Stage
Starting "perl Makefile.PL" Stage
Note (probably harmless): No library found for '-lInlinetestLib'
Writing Makefile for Hello_Pl_5dd0
Finished "perl Makefile.PL" Stage

Starting "make" Stage

Microsoft (R) Program Maintenance Utility Version 6.00.9782.0
Copyright (C) Microsoft Corp 1988-1998. All rights reserved.

D:\Perl\bin\Perl.exe -ID:\Perl\lib -ID:\Perl\lib
D:\Perl\lib\ExtUtils/xs
ubpp -typemap D:\Perl\lib\ExtUtils\typemap Hello_Pl_5dd0.xs >
Hello_Pl_5dd0.xsc
&& D:\Perl\bin\Perl.exe -ID:\Perl\lib -ID:\Perl\lib
-MExtUtils::Command -e mv H
ello_Pl_5dd0.xsc Hello_Pl_5dd0.c
cl -c
-IE:/Sankaran/Work/TP-TAImpacts-LM051049/PerlInline/MyTest1 -I\E:\
Sankaran\Work\TP-TAImpacts-LM051049\PerlInline\MyTest1 -O1 -MD -DNDEBUG
-DWIN32
-D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT
-DPERL_IMPLICIT
_SYS -DPERL_MSVCRT_READFIX -O1 -MD -DNDEBUG -DVERSION=\"0.00\"
-DXS_VERSIO
N=\"0.00\" -ID:\Perl\lib\CORE Hello_Pl_5dd0.c
Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8804 for
80x86
Copyright (C) Microsoft Corp 1984-1998. All rights reserved.

Hello_Pl_5dd0.c
E:/Sankaran/Work/TP-TAImpacts-LM051049/PerlInline/MyTest1\InlinetestLib.h(15)
:
error C2054: expected '(' to follow 'class'
E:/Sankaran/Work/TP-TAImpacts-LM051049/PerlInline/MyTest1\InlinetestLib.h(15)
:
error C2085: 'CInlinetestLib' : not in formal parameter list
E:/Sankaran/Work/TP-TAImpacts-LM051049/PerlInline/MyTest1\InlinetestLib.h(15)
:
error C2143: syntax error : missing ';' before '{'
NMAKE : fatal error U1077: 'cl' : return code '0x2'
Stop.

A problem was encountered while attempting to compile and install your
Inline
C code. The command that failed was:
nmake

The build directory was:
E:\Sankaran\Work\TP-TAImpacts-LM051049\PerlInline\MyTest1\_Inline\build\Hello_Pl
_5dd0

To debug the problem, cd to the build directory, and inspect the output
files.

at Hello.Pl line 8
BEGIN failed--compilation aborted at Hello.Pl line 17.
________________________________________________________
for the below modified program...
use warnings;

use Inline C => Config =>
LIBS => '-L\E:\Sankaran\Work\TP-TAImpacts-LM051049\PerlInline\MyTest1
-lInlinetestLib',
INC => '-I\E:\Sankaran\Work\TP-TAImpacts-LM051049\PerlInline\MyTest1',
BUILD_NOISY => 1;

use Inline C => <<'EOC';

#include "InlinetestLib.h"
void greet(){
int nId = fnInlinetestLib();
printf ("%d", nId);
printf("Hello, world from Perl Inline, By Sankaran\n");

}
EOC
greet();
__END__
________________________________________________________
I have modified your program.
Any clue?

Regards,
Sankaran

.

Relevant Pages

  • Re: Self adhesive glue
    ... Is it really true Cannibals will not eat clowns because they taste ... sticky self adhesive glue: like the glue on microsoft COA's. ...
    (uk.adverts.computer)
  • Re: Self adhesive glue
    ... self adhesive glue: like the glue on microsoft COA's. ... It's not rocket science, you know. ...
    (uk.adverts.computer)