Function function_call_rule

v2/engine/function.c:427–480

}

static LIST * function_call_rule( JAM_FUNCTION * function, FRAME * frame,
    STACK * s, int n_args, char const * unexpanded, OBJECT * file, int line )
{
    FRAME inner[ 1 ];
    int i;
    LIST * first = stack_pop( s );
    LIST * result = L0;
    OBJECT * rulename;
    LIST * trailing;

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

    if ( list_empty( first ) )
    {
        backtrace_line( frame );
        printf( "warning: rulename %s expands to empty string\n", unexpanded );
        backtrace( frame );
        list_free( first );
        for ( i = 0; i < n_args; ++i )
            list_free( stack_pop( s ) );
        return result;
    }

    rulename = object_copy( list_front( first ) );

    frame_init( inner );
    inner->prev = frame;
    inner->prev_user = frame->module->user_module ? frame : frame->prev_user;
    inner->module = frame->module;  /* This gets fixed up in evaluate_rule(). */

    for ( i = 0; i < n_args; ++i )
        lol_add( inner->args, stack_at( s, n_args - i - 1 ) );

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

    trailing = list_pop_front( first );
    if ( trailing )
    {
        if ( inner->args->count == 0 )
            lol_add( inner->args, trailing );
        else
        {
            LIST * * const l = &inner->args->list[ 0 ];
            *l = list_append( trailing, *l );
        }
    }

    result = evaluate_rule( bindrule( rulename, inner->module ), rulename, inner );
    frame_free( inner );
    object_free( rulename );
    return result;
}

static LIST * function_call_member_rule( JAM_FUNCTION * function, FRAME * frame, STACK * s, int n_args, OBJECT * rulename, OBJECT * file, int line )
{