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

int omain(int argc, char *argv[]) {
  Py_Initialize();
  PyRun_SimpleString("from time import time,ctime\n"
                     "print 'Today is',ctime(time())\n");
  Py_Finalize();
  return 0;
}

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);
    pyresult = PyRun_String("ctime(time())", Py_eval_input, pyglobals, pyglobals);
    PyObject_Print(pyresult, stdout, Py_PRINT_RAW);
    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;
}

//
//        PyObject *resultObject = PyObject_Str( rstring );
//        if( resultObject != NULL ) {
//          char *string = PyString_AsString( resultObject );
//        }