C prints starting...
Lua prints hello
in C, tostring index 2: Hello OpenCOBOL from Lua
in C, tostring index 1: 3.1415926535898
OpenCOBOL displays: |Hello OpenCOBOL from Lua        |

/* OpenCOBOL Python interface */
/* tectonics: cobc -c -I/usr/include/python2.5/ ocpy.c */
#include <Python.h>

int main(int argc, char *argv[]) {
    PyObject *pymodule;
    PyObject *pyglobals;
    PyObject *pylocals;
    PyObject *pyresult;
    PyObject *pystring;
    int start = Py_file_input;

    char *result;
    int len = 0;
    int res = 0;

    Py_Initialize();
    pymodule = PyImport_AddModule("__main__");
    pyglobals = PyModule_GetDict(pymodule);
    /* pylocals = PyModule_GetDict(pymodule); */
    printf("Running string\n");
    pyresult = PyRun_String("from time import time, ctime\nctime(time())\n", start, pyglobals, pyglobals);
    printf("%x\n", pyresult);
    pystring = PyObject_Str(pyresult);
    printf("%d\n", PyString_Check(pystring));
    printf("parsing string\n");
    printf("len: %d\n", PyString_Size(pystring));
    res = PyString_AsStringAndSize(pystring, &result, &len);
    /* PyArg_Parse(pyresult, "s#", &result, &len); */

    /* printf("%s\n", PyString_AsString(pyresult)); */
    printf("Python returned: %d: %d : %s\n", res, len, result);

    Py_Finalize();

    return 0;
}

return ctime(time())