arto
Inline::Struct - то что надо, Большое спасибо.
Возникла проблема при использовании:
Скрипт из примера:
#!c:/usr/local/bin/perl -w
use Inline C;
my $o = new Inline::Struct::JA_H("Perl");
print JAxH($o), "\\n";
$o->x("Inline");
print JAxH($o), "\\n";
__END__
__C__
struct JA_H {
char *x;
};
typedef struct JA_H JA_H;
SV *JAxH(JA_H *f) {
return newSVpvf("Just Another %s Hacker", f->x);
}
Но при запуске выдает ошибки:
Warning. No Inline C functions bound to Perl
Check your C function definition(s) for Inline compatibility
"nmake" _¥ ï¥âáï ¢_ãâà¥__¥© ¨«¨ ¢_¥è_¥©
ª®¬__¤®©, ¨á¯®«_塞®© ¯à®£à_¬¬®© ¨«¨ ¯_ª¥â_ë¬ ä_©«®¬.
A problem was encountered while attempting to compile and install your Inline
C code. The command that failed was:
nmake > out.make 2>&1
The build directory was:
C:\\DOCUME~1\\ROOT~1.API\\LOCALS~1\\Temp\\_Inline\\build\\perltemp_pl_0236
To debug the problem, cd to the build directory, and inspect the output files.
INIT failed--call queue aborted
Почему???
Система: MS Windows XP SP2, perl 5.6.1 build 633 by ActiveState