44 |
char perl_buf[BUFSIZE]; |
char perl_buf[BUFSIZE]; |
45 |
char args[10][ARGSIZE]; |
char args[10][ARGSIZE]; |
46 |
|
|
47 |
|
/* external prototypes */ |
48 |
|
|
49 |
|
EXTERN_C void boot_DynaLoader (pTHX_ CV* cv); |
50 |
|
|
51 |
|
|
52 |
|
EXTERN_C void |
53 |
|
xs_init(pTHX) |
54 |
|
{ |
55 |
|
char *file = __FILE__; |
56 |
|
/* DynaLoader is a special case */ |
57 |
|
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file); |
58 |
|
} |
59 |
|
|
60 |
/* local prototypes */ |
/* local prototypes */ |
61 |
int exec_sql(); |
int exec_sql(); |
62 |
int call_perl_get_data(); |
int call_perl_get_data(); |
203 |
my_perl = perl_alloc(); |
my_perl = perl_alloc(); |
204 |
perl_construct(my_perl); |
perl_construct(my_perl); |
205 |
|
|
206 |
perl_parse(my_perl, NULL, argc, argv, env); |
perl_parse(my_perl, xs_init, argc, argv, env); |
207 |
perl_run(my_perl); /* just to initialize */ |
perl_run(my_perl); /* just to initialize */ |
208 |
|
|
209 |
return 0; |
return 0; |