Function parse_attribute_path_in_brackets

Core/SoarKernel/src/trace.cpp:210–275

}

list* parse_attribute_path_in_brackets(agent* thisAgent)
{
    list* path;
    char name[MAX_LEXEME_LENGTH + 20], *ch;
    Symbol* sym;
    
    /* --- look for opening bracket --- */
    if (*format != '[')
    {
        format_string_error_message = "Expected '[' followed by attribute (path)";
        return NIL;
    }
    format++;
    
    /* --- check for '*' (null path) --- */
    if (*format == '*')
    {
        path = NIL;
        format++;
    }
    else
    {
        /* --- normal case: read the attribute path --- */
        path = NIL;
        while (true)
        {
            ch = name;
            while ((*format != 0) && (*format != ']') && (*format != '.'))
            {
                *ch++ = *format++;
            }
            if (*format == 0)
            {
                format_string_error_message = "'[' without closing ']'";
                deallocate_symbol_list_removing_references(thisAgent, path);
                return NIL;
            }
            if (ch == name)
            {
                format_string_error_message = "null attribute found in attribute path";
                deallocate_symbol_list_removing_references(thisAgent, path);
                return NIL;
            }
            *ch = 0;
            sym = make_str_constant(thisAgent, name);
            push(thisAgent, sym, path);
            if (*format == ']')
            {
                break;
            }
            format++;  /* skip past '.' */
        }
        path = destructively_reverse_list(path);
    }
    
    /* --- look for closing bracket --- */
    if (*format != ']')
    {