My Project  UNKNOWN_GIT_VERSION
Functions
singext.cc File Reference
#include "config.h"
#include "cf_assert.h"
#include "cf_defs.h"
#include "singext.h"
#include "int_cf.h"
#include "int_int.h"
#include "int_rat.h"
#include "imm.h"
#include "cf_factory.h"
#include "factory/cf_gmp.h"

Go to the source code of this file.

Functions

void gmp_numerator (const CanonicalForm &f, mpz_ptr result)
 
void gmp_denominator (const CanonicalForm &f, mpz_ptr result)
 
int gf_value (const CanonicalForm &f)
 
CanonicalForm make_cf (const mpz_ptr n)
 
CanonicalForm make_cf (const mpz_ptr n, const mpz_ptr d, bool normalize)
 
CanonicalForm make_cf_from_gf (const int z)
 

Function Documentation

◆ gf_value()

int gf_value ( const CanonicalForm f)

Definition at line 60 of file singext.cc.

61 {
62  InternalCF * ff = f.getval();
63  return ((intptr_t)ff) >>2;
64 }

◆ gmp_denominator()

void gmp_denominator ( const CanonicalForm f,
mpz_ptr  result 
)

Definition at line 40 of file singext.cc.

41 {
42  InternalCF * ff = f.getval();
43  ASSERT( ! is_imm( ff ), "illegal type" );
44  if ( ff->levelcoeff() == IntegerDomain )
45  {
46  mpz_init_set_si( result, 1 );
47  ff->deleteObject();
48  }
49  else if ( ff->levelcoeff() == RationalDomain )
50  {
51  mpz_init_set( result, (InternalRational::MPQDEN( ff )) );
52  ff->deleteObject();
53  }
54  else
55  {
56  ASSERT( 0, "illegal type" );
57  }
58 }

◆ gmp_numerator()

void gmp_numerator ( const CanonicalForm f,
mpz_ptr  result 
)

Definition at line 20 of file singext.cc.

21 {
22  InternalCF * ff = f.getval();
23  ASSERT( ! is_imm( ff ), "illegal type" );
24  if ( ff->levelcoeff() == IntegerDomain )
25  {
26  mpz_init_set( result, (InternalInteger::MPI( ff )) );
27  ff->deleteObject();
28  }
29  else if ( ff->levelcoeff() == RationalDomain )
30  {
31  mpz_init_set( result, (InternalRational::MPQNUM( ff )) );
32  ff->deleteObject();
33  }
34  else
35  {
36  ASSERT( 0, "illegal type" );
37  }
38 }

◆ make_cf() [1/2]

CanonicalForm make_cf ( const mpz_ptr  n)

Definition at line 66 of file singext.cc.

67 {
68  return CanonicalForm( CFFactory::basic( n ) );
69 }

◆ make_cf() [2/2]

CanonicalForm make_cf ( const mpz_ptr  n,
const mpz_ptr  d,
bool  normalize 
)

Definition at line 71 of file singext.cc.

72 {
73  return CanonicalForm( CFFactory::rational( n, d, normalize ) );
74 }

◆ make_cf_from_gf()

CanonicalForm make_cf_from_gf ( const int  z)

Definition at line 76 of file singext.cc.

77 {
78  return CanonicalForm(int2imm_gf(z));
79 }
f
FILE * f
Definition: checklibs.c:9
result
return result
Definition: facAbsBiFact.cc:76
RationalDomain
#define RationalDomain
Definition: cf_defs.h:24
InternalCF
virtual class for internal CanonicalForm's
Definition: int_cf.h:47
InternalRational::MPQNUM
static mpz_ptr MPQNUM(const InternalCF *const c)
Definition: int_rat.h:119
CanonicalForm
factory's main class
Definition: canonicalform.h:83
InternalCF::levelcoeff
virtual int levelcoeff() const
Definition: int_cf.h:68
ASSERT
#define ASSERT(expression, message)
Definition: cf_assert.h:99
CFFactory::basic
static InternalCF * basic(long value)
Definition: cf_factory.cc:30
CFFactory::rational
static InternalCF * rational(long num, long den)
Definition: cf_factory.cc:225
InternalCF::deleteObject
int deleteObject()
Definition: int_cf.h:61
InternalInteger::MPI
static mpz_ptr MPI(const InternalCF *const c)
MPI() - return underlying mpz_t of ā€˜c’.
Definition: int_int.h:232
normalize
static poly normalize(poly next_p, ideal add_generators, syStrategy syzstr, int *g_l, int *p_l, int crit_comp)
Definition: syz3.cc:1027
is_imm
int is_imm(const InternalCF *const ptr)
Definition: canonicalform.h:62
int2imm_gf
InternalCF * int2imm_gf(long i)
Definition: imm.h:106
IntegerDomain
#define IntegerDomain
Definition: cf_defs.h:25
InternalRational::MPQDEN
static mpz_ptr MPQDEN(const InternalCF *const c)
Definition: int_rat.h:124