1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
/*
* Plugin for Gnumeric for the Perl scripting language.
*/
#include <gnumeric-config.h>
#include <gnumeric.h>
#include <EXTERN.h>
#include <perl.h>
#undef _
#define _perl_dirty dirty
#undef dirty
#include <glib.h>
#include "plugin.h"
#include "error-info.h"
#include "module-plugin-defs.h"
#include "gutils.h"
#define dirty _perl_dirty
#undef _perl_dirty
GNUMERIC_MODULE_PLUGIN_INFO_DECL;
extern void xs_init(void);
static PerlInterpreter *gnumeric_perl_interp;
void
plugin_cleanup_general (ErrorInfo **ret_error)
{
*ret_error = NULL;
}
void
plugin_init_general (ErrorInfo **ret_error)
{
char *argv[] = { "", NULL, NULL, NULL };
char *arg;
*ret_error = NULL;
/* Initialize the Perl interpreter. */
arg = gnm_sys_data_dir ("perl");
argv[1] = g_strconcat("-I", arg, NULL);
argv[2] = g_build_filename (arg, "startup.pl", NULL);
g_free(arg);
gnumeric_perl_interp = perl_alloc();
perl_construct(gnumeric_perl_interp);
perl_parse(gnumeric_perl_interp, xs_init, 3, argv, NULL);
perl_run(gnumeric_perl_interp);
/* Don't try to deactivate the plugin */
gnm_plugin_use_ref (PLUGIN);
}
|
