types.c

int check_arg_type(object_t *obj, int n, ...)
{
  va_list args;
  type_t type;
  int i;
  
  va_start(args, n);
  for (i = 0; i < n; i++) {
    type = va_arg(args, type_t);
    if (obj->type != type) {
      fprintf(stderr, "Wrong argument type - %s (wanted %s).",
              strtype(obj->type),
              strtype(type));
      va_end(args);
      return 1;
    }
  }
  va_end(args);
  return 0;
}