Method funcall

expr.cc:210–261

}

funcall::funcall(prod *p, sqltype *type_constraint, bool agg)
  : value_expr(p), is_aggregate(agg)
{
  if (type_constraint == scope->schema->internaltype)
    fail("cannot call functions involving internal type");

  auto &idx = agg ? p->scope->schema->aggregates_returning_type
    : (4 < d6()) ?
    p->scope->schema->routines_returning_type
    : p->scope->schema->parameterless_routines_returning_type;

 retry:
  
  if (!type_constraint) {
    proc = random_pick(random_pick(idx.begin(), idx.end())->second);
  } else {
    auto iters = idx.equal_range(type_constraint);
    proc = random_pick(random_pick(iters)->second);
    if (proc && !type_constraint->consistent(proc->restype)) {
      retry();
      goto retry;
    }
  }

  if (!proc) {
    retry();
    goto retry;
  }

  if (type_constraint)
    type = type_constraint;
  else
    type = proc->restype;

  if (type == scope->schema->internaltype) {
    retry();
    goto retry;
  }

  for (auto type : proc->argtypes)
    if (type == scope->schema->internaltype
	|| type == scope->schema->arraytype) {
      retry();
      goto retry;
    }
  
  for (auto argtype : proc->argtypes) {
    assert(argtype);
    auto expr = value_expr::factory(this, argtype);
    parms.push_back(expr);
  }
}

void funcall::out(std::ostream &out)
{