language/expressions/parse.c

197       for (i = 0; i < n->composite.arg_cnt; i++)
519 check_operator (const struct operator *op, int arg_cnt, atom_type arg_type)
526   assert (o->arg_cnt == arg_cnt);
528   for (i = 0; i < arg_cnt; i++)
1064   assert (arg_idx < f->arg_cnt || (f->flags & OPF_ARRAY_OPERAND));
1066   return f->args[arg_idx < f->arg_cnt ? arg_idx : f->arg_cnt - 1];
1070 match_function (union any_node **args, int arg_cnt, const struct operation *f)
1074   if (arg_cnt < f->arg_cnt
1075       || (arg_cnt > f->arg_cnt && (f->flags & OPF_ARRAY_OPERAND) == 0)
1076       || arg_cnt - (f->arg_cnt - 1) < f->array_min_elems)
1079   for (i = 0; i < arg_cnt; i++)
1088                       union any_node **args, size_t arg_cnt)
1092   for (i = 0; i < arg_cnt; i++)
1097 validate_function_args (const struct operation *f, int arg_cnt, int min_valid)
1099   int array_arg_cnt = arg_cnt - (f->arg_cnt - 1);
1153 add_arg (union any_node ***args, int *arg_cnt, int *arg_cap,
1156   if (*arg_cnt >= *arg_cap)
1162   (*args)[(*arg_cnt)++] = arg;
1167                 const char *func_name, union any_node **args, size_t arg_cnt)
1172   for (i = 0; i < arg_cnt; i++)
1183           union any_node **args, size_t arg_cnt,
1194       put_invocation (&s, func_name, args, arg_cnt);
1199       put_invocation (&s, func_name, args, arg_cnt);
1219   int arg_cnt = 0;
1243   arg_cnt = arg_cap = 0;
1257               add_arg (&args, &arg_cnt, &arg_cap,
1267             add_arg (&args, &arg_cnt, &arg_cap, arg);
1279     if (match_function (args, arg_cnt, f))
1283       no_match (ds_cstr (&func_name), args, arg_cnt, first, last);
1287   coerce_function_args (e, f, args, arg_cnt);
1288   if (!validate_function_args (f, arg_cnt, min_valid))
1306   n = expr_allocate_composite (e, f - operations, args, arg_cnt);
1314       assert (n->composite.arg_cnt == 2);
1404       assert (c->arg_cnt >= op->arg_cnt);
1405       for (i = 0; i < op->arg_cnt; i++)
1407       if (c->arg_cnt > op->arg_cnt && !is_operator (n->type))
1410           for (i = 0; i < c->arg_cnt; i++)
1411             assert (is_compatible (op->args[op->arg_cnt - 1],
1421                          union any_node **args, size_t arg_cnt)
1428   n->composite.arg_cnt = arg_cnt;
1430                                   sizeof *n->composite.args * arg_cnt);
1431   for (i = 0; i < arg_cnt; i++)
1437   memcpy (n->composite.args, args, sizeof *n->composite.args * arg_cnt);
1563   return op->arg_cnt;