Function call_python_function

v2/engine/function.c:4785–4862

static LIST * call_python_function( PYTHON_FUNCTION * function, FRAME * frame )
{
    LIST * result = 0;
    PyObject * arguments = 0;
    PyObject * kw = NULL;
    int i;
    PyObject * py_result;
    FRAME * prev_frame_before_python_call;

    if ( function->base.formal_arguments )
    {
        arguments = PyTuple_New( 0 );
        kw = PyDict_New();
        argument_list_to_python( function->base.formal_arguments,
            function->base.num_formal_arguments, &function->base, frame, kw );
    }
    else
    {
        arguments = PyTuple_New( frame->args->count );
        for ( i = 0; i < frame->args->count; ++i )
            PyTuple_SetItem( arguments, i, list_to_python( lol_get( frame->args,
                i ) ) );
    }

    frame->module = python_module();

    prev_frame_before_python_call = frame_before_python_call;
    frame_before_python_call = frame;
    py_result = PyObject_Call( function->python_function, arguments, kw );
    frame_before_python_call = prev_frame_before_python_call;
    Py_DECREF( arguments );
    Py_XDECREF( kw );
    if ( py_result != NULL )
    {
        if ( PyList_Check( py_result ) )
        {
            int size = PyList_Size( py_result );
            int i;
            for ( i = 0; i < size; ++i )
            {
                OBJECT * s = python_to_string( PyList_GetItem( py_result, i ) );
                if ( !s )
                    fprintf( stderr,
                        "Non-string object returned by Python call.\n" );
                else
                    result = list_push_back( result, s );
            }
        }
        else if ( py_result == Py_None )
        {
            result = L0;
        }
        else
        {
            OBJECT * const s = python_to_string( py_result );
            if ( s )
                result = list_new( s );
            else