2 Unix SMB/CIFS implementation.
3 Samba utility functions
4 Copyright (C) Jelmer Vernooij <jelmer@samba.org> 2007
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>.
20 #include "lib/replace/system/python.h"
21 #include "py3compat.h"
23 #include "python/modules.h"
24 #include "dynconfig/dynconfig.h"
26 static bool PySys_PathPrepend(PyObject
*list
, const char *path
)
29 PyObject
*py_path
= PyUnicode_FromString(path
);
30 if (py_path
== NULL
) {
33 ok
= PyList_Insert(list
, 0, py_path
) == 0;
38 bool py_update_path(void)
40 PyObject
*mod_sys
= NULL
;
41 PyObject
*py_path
= NULL
;
43 mod_sys
= PyImport_ImportModule("sys");
44 if (mod_sys
== NULL
) {
48 py_path
= PyObject_GetAttrString(mod_sys
, "path");
49 if (py_path
== NULL
) {
53 if (!PyList_Check(py_path
)) {
57 if (!PySys_PathPrepend(py_path
, dyn_PYTHONDIR
)) {
61 if (strcmp(dyn_PYTHONARCHDIR
, dyn_PYTHONDIR
) != 0) {
62 if (!PySys_PathPrepend(py_path
, dyn_PYTHONARCHDIR
)) {
75 char **PyList_AsStringList(TALLOC_CTX
*mem_ctx
, PyObject
*list
,
76 const char *paramname
)
80 if (!PyList_Check(list
)) {
81 PyErr_Format(PyExc_TypeError
, "%s is not a list", paramname
);
84 ret
= talloc_array(NULL
, char *, PyList_Size(list
)+1);
90 for (i
= 0; i
< PyList_Size(list
); i
++) {
93 PyObject
*item
= PyList_GetItem(list
, i
);
94 if (!PyUnicode_Check(item
)) {
95 PyErr_Format(PyExc_TypeError
, "%s should be strings", paramname
);
99 value
= PyUnicode_AsUTF8AndSize(item
, &size
);
104 ret
[i
] = talloc_strndup(ret
, value
, size
);
105 if (ret
[i
] == NULL
) {