version 1.4, 2017/02/22 04:53:13 |
version 1.5, 2018/03/29 02:14:30 |
Line 19 GEN cmo_int32_to_GEN(cmo_int32 *c) |
|
Line 19 GEN cmo_int32_to_GEN(cmo_int32 *c) |
|
return z; |
return z; |
} |
} |
|
|
|
GEN cmo_string_to_GEN(cmo_string *c) |
|
{ |
|
GEN z; |
|
int l; |
|
|
|
l = strlen(c->s); |
|
z = cgetg(l+1,t_STR); |
|
strcpy(GSTR(z),c->s); |
|
return z; |
|
} |
|
|
GEN cmo_zz_to_GEN(cmo_zz *c) |
GEN cmo_zz_to_GEN(cmo_zz *c) |
{ |
{ |
mpz_ptr mpz; |
mpz_ptr mpz; |
Line 142 GEN cmo_rp_to_GEN(cmo_recursive_polynomial *c) |
|
Line 153 GEN cmo_rp_to_GEN(cmo_recursive_polynomial *c) |
|
} |
} |
} |
} |
|
|
|
cmo_zz *GEN_to_cmo_string(GEN z) |
|
{ |
|
cmo_string *c; |
|
|
|
c = new_cmo_string(GSTR(z)); |
|
return c; |
|
} |
|
|
cmo_zz *GEN_to_cmo_zz(GEN z) |
cmo_zz *GEN_to_cmo_zz(GEN z) |
{ |
{ |
cmo_zz *c; |
cmo_zz *c; |
Line 266 GEN cmo_to_GEN(cmo *c) |
|
Line 285 GEN cmo_to_GEN(cmo *c) |
|
return cmo_rp_to_GEN((cmo_recursive_polynomial *)c); |
return cmo_rp_to_GEN((cmo_recursive_polynomial *)c); |
case CMO_POLYNOMIAL_IN_ONE_VARIABLE: |
case CMO_POLYNOMIAL_IN_ONE_VARIABLE: |
return cmo_up_to_GEN((cmo_polynomial_in_one_variable *)c); |
return cmo_up_to_GEN((cmo_polynomial_in_one_variable *)c); |
|
case CMO_STRING: |
|
return cmo_string_to_GEN((cmo_string *)c); |
default: |
default: |
return 0; |
return 0; |
} |
} |
Line 292 cmo *GEN_to_cmo(GEN z) |
|
Line 313 cmo *GEN_to_cmo(GEN z) |
|
return (cmo *)GEN_to_cmo_list(z); |
return (cmo *)GEN_to_cmo_list(z); |
case t_MAT: /* matrix */ |
case t_MAT: /* matrix */ |
return (cmo *)GEN_to_cmo_list(shallowtrans(z)); |
return (cmo *)GEN_to_cmo_list(shallowtrans(z)); |
|
case t_STR: /* string */ |
|
return (cmo *)GEN_to_cmo_string(z); |
default: |
default: |
sprintf(buf,"GEN_to_cmo : unsupported type=%d",(int)typ(z)); |
sprintf(buf,"GEN_to_cmo : unsupported type=%d",(int)typ(z)); |
return (cmo *)make_error2(buf); |
return (cmo *)make_error2(buf); |