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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
#include "kernel/mod2.h"
#ifdef HAVE_PYTHON_MOD
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <unistd.h>
#include <sys/stat.h>
#include <boost/python.hpp>
#include <Python.h>
#include "Singular/tok.h"
#include "kernel/structs.h"
#include "Singular/mod_lib.h"
#include "Singular/ipid.h"
#include "Singular/locals.h"
#include "omalloc/omalloc.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <Python.h>
#include "wrapper.h"
static BOOLEAN mod_python(leftv __res, leftv __h)
{
leftv __v = __h, __v_save;
int __tok = NONE, __index = 0;
sleftv __sa; leftv __za = &__sa;
char * a;
if(__v==NULL) goto mod_python_error;
__tok = __v->Typ();
if((__index=iiTestConvert(__tok, STRING_CMD))==0)
goto mod_python_error;
__v_save = __v->next;
__v->next = NULL;
if(iiConvert(__tok, STRING_CMD, __index, __v, __za))
goto mod_python_error;
__v = __v_save;
a = (char *)__za->Data();
if(__v!=NULL) { __tok = __v->Typ(); goto mod_python_error; }
PyRun_SimpleString(a);
__res->data = NULL;
__res->rtyp = END_RING;
return FALSE;
mod_python_error:
Werror("python(`%s`) is not supported", Tok2Cmdname(__tok));
Werror("expected python('string')");
return TRUE;
}
//int mod_init(
// int (*iiAddCproc)(char *libname, char *procname, BOOLEAN pstatic,
// BOOLEAN(*func)(leftv res, leftv v))
// )
extern "C" int SI_MOD_INIT(python_module)(SModulFunctions* psModulFunctions)
{
char *py=getenv("PYTHONPATH");
char buf[1024];
if (py!=NULL)
{
strcpy(buf,py);
strcat(buf,":");
strcat(buf,feResource('s',FALSE));
}
else
strcpy(buf,feResource('s',FALSE));
Print("setting PYTHONAPTH to %s\n",buf);
setenv("PYTHONPATH",buf,1);
Py_Initialize();
PyRun_SimpleString("from sys import path\n\
path.insert(0,'.')\n");
initSingular();
init_Singular();
psModulFunctions->iiAddCproc(currPack->libname,"python",FALSE, mod_python);
return MAX_TOK;
}
#endif
|
