Function write_rhs_function_code

Core/SoarKernel/src/rhs_functions.cpp:175–196

-------------------------------------------------------------------- */

Symbol* write_rhs_function_code(agent* thisAgent, list* args, void* /*user_data*/)
{
    Symbol* arg;
    char* string;
    growable_string gs = make_blank_growable_string(thisAgent); // for XML generation
    
    for (; args != NIL; args = args->rest)
    {
        arg = static_cast<symbol_struct*>(args->first);
        /* --- Note use of false here--print the symbol itself, not a rereadable
           version of it --- */
        string = symbol_to_string(thisAgent, arg, false, NIL, 0);
        add_to_growable_string(thisAgent, &gs, string); // for XML generation
        print_string(thisAgent, string);
    }
    
    xml_object(thisAgent, kTagRHS_write, kRHS_String, text_of_growable_string(gs));
    
    free_growable_string(thisAgent, gs);
    
    return NIL;
}

/* --------------------------------------------------------------------
                                Crlf