First commit functional with test.

Author: Ergus

.gitignore

@@ -0,0 +1 @@
+build*

CMakeLists.txt

@@ -0,0 +1,33 @@
+# Copyright (C) 2019  Jimmy Aguilar Mena
+
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+cmake_minimum_required(VERSION 3.0)
+
+project(CPython)
+
+find_package(PythonInterp)
+find_package(PythonLibs)
+
+include_directories(${PYTHON_INCLUDE_DIRS})
+
+add_executable (main main.c)
+target_link_libraries (main ${PYTHON_LIBRARIES} )
+
+enable_testing()
+
+add_test(test_5_4 ./main mylib multiply 4 5)
+set_tests_properties(test_5_4 PROPERTIES
+  PASS_REGULAR_EXPRESSION "Result of call: 20"
+)

main.c

@@ -0,0 +1,74 @@
+#define PY_SSIZE_T_CLEAN
+#include <Python.h>
+
+int
+main(int argc, char *argv[])
+{
+	PyObject *pName, *pModule, *pFunc;
+	PyObject *pArgs, *pValue;
+	int i;
+
+	if (argc < 3) {
+		fprintf(stderr,"Usage: call pythonfile funcname [args]\n");
+		return 1;
+	}
+
+	Py_Initialize();
+	PyObject *sysmodule = PyImport_ImportModule("sys");
+	PyObject *syspath = PyObject_GetAttrString(sysmodule, "path");
+	PyList_Append(syspath, PyUnicode_FromString("."));
+	Py_DECREF(syspath);
+	Py_DECREF(sysmodule);
+
+	pName = PyUnicode_DecodeFSDefault(argv[1]);
+	/* Error checking of pName left out */
+
+	pModule = PyImport_Import(pName);
+	Py_DECREF(pName);
+
+	if (pModule != NULL) {
+		pFunc = PyObject_GetAttrString(pModule, argv[2]);
+		/* pFunc is a new reference */
+
+		if (pFunc && PyCallable_Check(pFunc)) {
+			pArgs = PyTuple_New(argc - 3);
+			for (i = 0; i < argc - 3; ++i) {
+				pValue = PyLong_FromLong(atoi(argv[i + 3]));
+				if (!pValue) {
+					Py_DECREF(pArgs);
+					Py_DECREF(pModule);
+					fprintf(stderr, "Cannot convert argument\n");
+					return 1;
+				}
+				/* pValue reference stolen here: */
+				PyTuple_SetItem(pArgs, i, pValue);
+			}
+			pValue = PyObject_CallObject(pFunc, pArgs);
+			Py_DECREF(pArgs);
+			if (pValue != NULL) {
+				printf("Result of call: %ld\n", PyLong_AsLong(pValue));
+				Py_DECREF(pValue);
+			} else {
+				Py_DECREF(pFunc);
+				Py_DECREF(pModule);
+				PyErr_Print();
+				fprintf(stderr,"Call failed\n");
+				return 1;
+			}
+		} else {
+			if (PyErr_Occurred())
+				PyErr_Print();
+			fprintf(stderr, "Cannot find function \"%s\"\n", argv[2]);
+		}
+		Py_XDECREF(pFunc);
+		Py_DECREF(pModule);
+	} else {
+		PyErr_Print();
+		fprintf(stderr, "Failed to load \"%s\"\n", argv[1]);
+		return 1;
+	}
+	if (Py_FinalizeEx() < 0) {
+		return 120;
+	}
+	return 0;
+}

mylib.py

@@ -0,0 +1,21 @@
+# Copyright (C) 2019  Jimmy Aguilar Mena
+
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+def multiply(a,b):
+    print("Will compute", a, "times", b)
+    c = 0
+    for i in range(0, a):
+        c = c + b
+    return c