Function parser_ast_regvar

Src/Base/Parser/AMReX_Parser_Y.cpp:1809–1863

}

void
parser_ast_regvar (struct parser_node* node, char const* name, int i)
{
    switch (node->type)
    {
    case PARSER_NUMBER:
        break;
    case PARSER_SYMBOL:
        if (std::strcmp(name, ((struct parser_symbol*)node)->name) == 0) {
            ((struct parser_symbol*)node)->ip = i;
        }
        break;
    case PARSER_ADD:
    case PARSER_SUB:
    case PARSER_MUL:
    case PARSER_DIV:
    case PARSER_LIST:
        parser_ast_regvar(node->l, name, i);
        parser_ast_regvar(node->r, name, i);
        break;
    case PARSER_F1:
        parser_ast_regvar(((struct parser_f1*)node)->l, name, i);
        break;
    case PARSER_F2:
        parser_ast_regvar(((struct parser_f2*)node)->l, name, i);
        parser_ast_regvar(((struct parser_f2*)node)->r, name, i);
        break;
    case PARSER_F3:
        parser_ast_regvar(((struct parser_f3*)node)->n1, name, i);
        parser_ast_regvar(((struct parser_f3*)node)->n2, name, i);
        parser_ast_regvar(((struct parser_f3*)node)->n3, name, i);
        break;
    case PARSER_USRF1:
        parser_ast_regvar(((struct parser_usrf1*)node)->l, name, i);
        break;
    case PARSER_USRF2:
        parser_ast_regvar(((struct parser_usrf2*)node)->l, name, i);
        parser_ast_regvar(((struct parser_usrf2*)node)->r, name, i);
        break;
    case PARSER_USRFN:
    {
        parser_ast_regvar(((struct parser_usrfn*)node)->n1, name, i);
        short argc = ((struct parser_usrfn*)node)->argc;
        for (short iarg = 0; iarg < argc-1; ++iarg) {
            parser_ast_regvar(((struct parser_usrfn*)node)->others[iarg], name, i);
        }
        break;
    }
    case PARSER_ASSIGN:
        parser_ast_regvar(((struct parser_assign*)node)->v, name, i);
        break;
    default:
        amrex::Abort("parser_ast_regvar: unknown node type "+std::to_string(node->type));
    }
}

void parser_ast_setconst (struct parser_node* node, char const* name, double c)
{