toInteger()

__mpz_struct toInteger ( CanonicalForm h )

static

we don't have access to int_cf.h and int_int.h from factory, so the following commented-out code won't compile; but it might have worked.

Definition at line 170 of file factory.cpp.

{
  //     struct enter_factory foo;
  //     assert(h.inZ());
  //     InternalCF *value = h.getval();
  //     MP_INT y = value->MPI();
  //     mpz_t x;
  //     mpz_init(x);
  //     mpz_set(x,y);
  //     return *x;
  static const unsigned int base = 1 << 16;
  gc_vector<int> vec;
  int sign;
  {
    struct enter_factory foo;
    int RationalMode = isOn(SW_RATIONAL) ? (Off(SW_RATIONAL), 1) : 0;
    if (h < 0)
      {
        sign = -1;
        h = -h;
      }
    else
      sign = 1;
    while (h != 0)
      {
        CanonicalForm k = h % (int)base;
        vec.push_back(static_cast<int>(k.intval()));
        h = h / (int)base;
      }
    if (RationalMode) On(SW_RATIONAL);
  }
  mpz_t x;
  mpz_init(x);
  for (int i = vec.size() - 1; i >= 0; i--)
    {
      mpz_mul_ui(x, x, base);  // x = x * base;
      mpz_add_ui(x, x, static_cast<unsigned>(vec[i]));
    }
  if (sign == -1) mpz_neg(x, x);  // x = -x;
  return x[0];
}

References base, and x.

Referenced by convertToM2().