Function function_call_member_rule

src/engine/function.cpp:503–612

}

static LIST * function_call_member_rule( JAM_FUNCTION * function, FRAME * frame, STACK * s, int32_t n_args, OBJECT * rulename, OBJECT * file, int32_t line )
{
    FRAME   inner[ 1 ];
    int32_t i;
    LIST * first = stack_pop( s );
    LIST * result = L0;
    RULE * rule;
    module_t * module;
    OBJECT * real_rulename = 0;

    frame->file = file;
    frame->line = line;

    if ( list_empty( first ) )
    {
        backtrace_line( frame );
        out_printf( "warning: object is empty\n" );
        backtrace( frame );

        list_free( first );

        for( i = 0; i < n_args; ++i )
        {
            list_free( stack_pop( s ) );
        }

        return result;
    }

    /* FIXME: handle generic case */
    assert( list_length( first ) == 1 );

    module = bindmodule( list_front( first ) );
    if ( module->class_module )
    {
        rule = bindrule( rulename, module );
        if ( rule->procedure )
        {
            real_rulename = object_copy( function_rulename( rule->procedure ) );
        }
        else
        {
            string buf[ 1 ];
            string_new( buf );
            string_append( buf, object_str( module->name ) );
            string_push_back( buf, '.' );
            string_append( buf, object_str( rulename ) );
            real_rulename = object_new( buf->value );
            string_free( buf );
        }
    }
    else
    {
        string buf[ 1 ];
        string_new( buf );
        string_append( buf, object_str( list_front( first ) ) );
        string_push_back( buf, '.' );
        string_append( buf, object_str( rulename ) );