OpenXM/src/ox_pari/convert.c - diff

Return to convert.c CVS log

Up to [local] / OpenXM / src / ox_pari

version 1.5, 2018/03/29 02:14:30

version 1.6, 2020/08/26 06:03:31

Line 117 GEN cmo_up_to_GEN(cmo_polynomial_in_one_variable *c)

z = cgetg(d+3,t_POL);

setsigne(z,1);

setvarn(z,c->var);

setlgef(z,d+3);

setlg(z,d+3);

for ( i = 2; i <= d+2; i++ )

z[i] = (long)gen_0;

for ( cell = c->head->next; cell != c->head; cell = cell->next ) {

Line 158 cmo_zz *GEN_to_cmo_string(GEN z)

cmo_string *c;

c = new_cmo_string(GSTR(z));

return c;

return (cmo_zz *)c;

}

cmo_zz *GEN_to_cmo_zz(GEN z)

Line 166 cmo_zz *GEN_to_cmo_zz(GEN z)

cmo_zz *c;

c = new_cmo_zz();

mpz_import(c->mpz,lgef(z)-2,1,sizeof(long),0,0,&z[2]);

mpz_import(c->mpz,lg(z)-2,1,sizeof(long),0,0,&z[2]);

if ( signe(z) < 0 )

mpz_neg(c->mpz,c->mpz);

return c;

Line 180 cmo_qq *GEN_to_cmo_qq(GEN z)

num = (GEN)z[1];

den = (GEN)z[2];

c = new_cmo_qq();

mpz_import(mpq_numref(c->mpq),lgef(num)-2,1,sizeof(long),0,0,&num[2]);

mpz_import(mpq_numref(c->mpq),lg(num)-2,1,sizeof(long),0,0,&num[2]);

mpz_import(mpq_denref(c->mpq),lgef(den)-2,1,sizeof(long),0,0,&den[2]);

mpz_import(mpq_denref(c->mpq),lg(den)-2,1,sizeof(long),0,0,&den[2]);

if ( signe(num)*signe(den) < 0 )

mpz_neg(mpq_numref(c->mpq),mpq_numref(c->mpq));

return c;