2 |
#include <EXTERN.h> |
#include <EXTERN.h> |
3 |
#include <perl.h> |
#include <perl.h> |
4 |
#include <stdio.h> |
#include <stdio.h> |
5 |
|
#include <stdlib.h> |
6 |
|
|
7 |
#define FILE_PERL "./perl_tk.pl" |
#define FILE_PERL (getenv("MARVIN_PERL_FILE") ? getenv("MARVIN_PERL_FILE") : "./perl_tk.pl") |
8 |
|
|
9 |
static PerlInterpreter *my_perl; |
static PerlInterpreter *my_perl; |
10 |
static void xs_init _((void)); |
static void xs_init _((void)); |
39 |
|
|
40 |
int export_p (double *tab, int len, char *req) |
int export_p (double *tab, int len, char *req) |
41 |
{ |
{ |
42 |
char *my_argv[] = { "", FILE_PERL }; |
char *my_argv[] = { "", (char *)FILE_PERL }; |
43 |
int res; |
int res; |
44 |
|
|
45 |
|
|