AST_exp_n_t * AST_exp_identifier(NAMETABLE_id_t name) {
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = NULL;
exp->exp.constant.name = name;
return exp;
}
AST_exp_n_t * AST_exp_integer_constant(long value, int int_signed)
{
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_int_const_k;
exp->exp.constant.val.integer = value;
exp->exp.constant.int_signed = int_signed;
return exp;
}
AST_exp_n_t * AST_expression(unsigned long long exp_type, AST_exp_n_t * oper1, AST_exp_n_t * oper2, AST_exp_n_t * oper3)
{
AST_exp_n_t * exp = AST_exp_new(exp_type);
exp->exp.expression.oper1 = oper1;
exp->exp.expression.oper2 = oper2;
exp->exp.expression.oper3 = oper3;
return exp;
}
AST_exp_n_t * AST_exp_null_constant
(
parser_location_p location
)
{
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = AST_null_constant(location);
return exp;
}
AST_exp_n_t * AST_exp_boolean_constant
(
parser_location_p location,
boolean value
)
{
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = AST_boolean_constant(location, value);
return exp;
}
AST_exp_n_t * AST_exp_string_constant
(
parser_location_p location,
STRTAB_str_t string
)
{
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = AST_string_constant(location, string);
return exp;
}
AST_exp_n_t * AST_exp_identifier
(
parser_location_p location ATTRIBUTE_UNUSED,
NAMETABLE_id_t name
)
{
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = NULL;
exp->exp.constant.name = name;
return exp;
}
AST_exp_n_t * AST_exp_integer_constant
(
parser_location_p location ATTRIBUTE_UNUSED,
long value,
int int_signed
)
{
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_int_const_k;
exp->exp.constant.val.integer = value;
exp->exp.constant.int_signed = int_signed;
return exp;
}
AST_exp_n_t * AST_expression
(
parser_location_p location ATTRIBUTE_UNUSED,
unsigned long exp_type,
AST_exp_n_t * oper1,
AST_exp_n_t * oper2,
AST_exp_n_t * oper3
)
{
AST_exp_n_t * exp = AST_exp_new(exp_type);
exp->exp.expression.oper1 = oper1;
exp->exp.expression.oper2 = oper2;
exp->exp.expression.oper3 = oper3;
return exp;
}
AST_exp_n_t * AST_exp_boolean_constant(boolean value) {
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = AST_boolean_constant(value);
return exp;
}
AST_exp_n_t * AST_exp_null_constant(void) {
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = AST_null_constant();
return exp;
}
AST_exp_n_t * AST_exp_string_constant(STRTAB_str_t string) {
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = AST_string_constant(string);
return exp;
}
AST_exp_n_t * AST_exp_char_constant(char value) {
AST_exp_n_t * exp = AST_exp_new(AST_EXP_CONSTANT);
exp->exp.constant.type = AST_nil_const_k;
exp->exp.constant.val.other = AST_char_constant(value);
return exp;
}
