static ast_value* parser_create_array_setter_proto(parser_t *parser, ast_value *array, const char *funcname);
static ast_value* parser_create_array_getter_proto(parser_t *parser, ast_value *array, const ast_expression *elemtype, const char *funcname);
static ast_value *parse_typename(parser_t *parser, ast_value **storebase, ast_value *cached_typedef);
+
static ast_expression *parser_builtin_pow(parser_t *);
static ast_expression *parser_builtin_exp(parser_t *);
+static ast_expression *parser_builtin_mod(parser_t *);
static void parseerror(parser_t *parser, const char *fmt, ...)
{
return false;
}
break;
+
case opid1('%'):
+ if (NotSameType(TYPE_FLOAT)) {
+ compile_error(ctx, "invalid types used in expression: cannot perform modulo operation between types %s and %s",
+ type_name[exprs[0]->expression.vtype],
+ type_name[exprs[1]->expression.vtype]);
+ return false;
+ }
+ if (CanConstFold(exprs[0], exprs[1])) {
+ out = (ast_expression*)parser_const_float(parser,
+ (float)(((qcint)ConstF(0)) % ((qcint)ConstF(1))));
+ } else {
+ /* generate a call to __builtin_mod */
+ ast_expression *mod = parser_builtin_mod(parser);
+ ast_call *call = NULL;
+ if (!mod) return false; /* can return null for missing floor */
+
+ call = ast_call_new(parser_ctx(parser), mod);
+ vec_push(call->params, exprs[0]);
+ vec_push(call->params, exprs[1]);
+
+ out = (ast_expression*)call;
+ }
+ break;
+
case opid2('%','='):
- compile_error(ctx, "qc does not have a modulo operator");
+ compile_error(ctx, "%= is unimplemented");
return false;
+
case opid1('|'):
case opid1('&'):
if (NotSameType(TYPE_FLOAT)) {
var = parser_builtin_pow(parser);
if (!strcmp(parser_tokval(parser), "__builtin_exp"))
var = parser_builtin_exp(parser);
+ if (!strcmp(parser_tokval(parser), "__builtin_mod"))
+ var = parser_builtin_mod(parser);
if (!var) {
char *correct = NULL;
return (ast_expression*)exp_func_val;
}
+static ast_expression *parser_builtin_mod(parser_t *parser) {
+ /*
+ * float __builtin_mod(float x, float y) {
+ * return x - y * floor(x / y);
+ * }
+ */
+ static ast_value *mod_func_val = NULL;
+ static ast_expression *mod_floor = NULL;
+
+ if (!mod_floor) {
+ if (!(mod_floor = parser_find_global(parser, "floor"))) {
+ parseerror(parser,
+ "internal error: no suitable definition found for `floor`"
+ "(required for `%%` operator and `__builtin_mod` intrinsic)"
+ );
+ return NULL;
+ }
+ }
+
+ if (!mod_func_val) {
+ ast_value *mod_args[2];
+ ast_function *mod_func = NULL;
+ ast_block *mod_body = ast_block_new (parser_ctx(parser));
+ ast_call *mod_call = ast_call_new (parser_ctx(parser), mod_floor);
+ mod_func_val = ast_value_new (parser_ctx(parser), "__builtin_mod", TYPE_FUNCTION);
+ mod_func_val->expression.next = (ast_expression*)ast_value_new(parser_ctx(parser), "<float>", TYPE_FLOAT);
+ mod_func = ast_function_new(parser_ctx(parser), "__builtin_mod", mod_func_val);
+ mod_args[0] = ast_value_new (parser_ctx(parser), "x", TYPE_FLOAT);
+ mod_args[1] = ast_value_new (parser_ctx(parser), "x", TYPE_FLOAT);
+
+ /* floor(x/y) */
+ vec_push(mod_call->params,
+ (ast_expression*)ast_binary_new(
+ parser_ctx(parser),
+ INSTR_DIV_F,
+ (ast_expression*)mod_args[0],
+ (ast_expression*)mod_args[1]
+ )
+ );
+
+ vec_push(mod_body->exprs,
+ (ast_expression*)ast_return_new(
+ parser_ctx(parser),
+ (ast_expression*)ast_binary_new(
+ parser_ctx(parser),
+ INSTR_SUB_F,
+ (ast_expression*)mod_args[0],
+ (ast_expression*)ast_binary_new(
+ parser_ctx(parser),
+ INSTR_MUL_F,
+ (ast_expression*)mod_args[1],
+ (ast_expression*)mod_call
+ )
+ )
+ )
+ );
+
+ vec_push(mod_func_val->expression.params, mod_args[0]);
+ vec_push(mod_func_val->expression.params, mod_args[1]);
+
+ vec_push(mod_func->blocks, mod_body);
+
+ vec_push(parser->functions, mod_func);
+ vec_push(parser->globals, (ast_expression*)mod_func_val);
+ }
+
+ return (ast_expression*)mod_func_val;
+}
+
/* parse computed goto sides */
static ast_expression *parse_goto_computed(parser_t *parser, ast_expression **side) {
ast_expression *on_true;
static bool parse_enum(parser_t *parser)
{
+ bool flag = false;
+ bool reverse = false;
qcfloat num = 0;
ast_value **values = NULL;
ast_value *var = NULL;
ast_expression *old;
- if (!parser_next(parser) || parser->tok != '{') {
- parseerror(parser, "expected `{` after `enum` keyword");
+ if (!parser_next(parser) || (parser->tok != '{' && parser->tok != ':')) {
+ parseerror(parser, "expected `{` or `:` after `enum` keyword");
return false;
}
+ /* enumeration attributes (can add more later) */
+ if (parser->tok == ':') {
+ if (!parser_next(parser) || parser->tok != TOKEN_IDENT){
+ parseerror(parser, "expected `flag` or `reverse` for enumeration attribute");
+ return false;
+ }
+
+ /* attributes? */
+ if (!strcmp(parser_tokval(parser), "flag")) {
+ num = 1;
+ flag = true;
+ }
+ else if (!strcmp(parser_tokval(parser), "reverse")) {
+ reverse = true;
+ }
+ else {
+ parseerror(parser, "invalid attribute `%s` for enumeration", parser_tokval(parser));
+ return false;
+ }
+
+ if (!parser_next(parser) || parser->tok != '{') {
+ parseerror(parser, "expected `{` after enum attribute ");
+ return false;
+ }
+ }
+
while (true) {
if (!parser_next(parser) || parser->tok != TOKEN_IDENT) {
if (parser->tok == '}') {
vec_push(values, var);
var->cvq = CV_CONST;
var->hasvalue = true;
- var->constval.vfloat = num++;
+ /* for flagged enumerations increment in POTs of TWO */
+ var->constval.vfloat = (flag) ? (num *= 2) : (num ++);
parser_addglobal(parser, var->name, (ast_expression*)var);
if (!parser_next(parser)) {
}
}
+ /* patch them all (for reversed attribute) */
+ if (reverse) {
+ size_t i;
+ for (i = 0; i < vec_size(values); i++)
+ values[i]->constval.vfloat = vec_size(values) - i - 1;
+ }
+
if (parser->tok != '}') {
parseerror(parser, "internal error: breaking without `}`");
goto onerror;