version 1.8, 2015/08/20 01:38:34 |
version 1.11, 2015/08/21 00:53:53 |
|
|
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.7 2015/08/18 05:04:35 noro Exp $ */ |
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.10 2015/08/20 08:56:30 noro Exp $ */ |
|
|
#include <stdio.h> |
#include <stdio.h> |
#include <stdlib.h> |
#include <stdlib.h> |
|
|
|
|
cmo_error2 *make_error2(char *message) |
cmo_error2 *make_error2(char *message) |
{ |
{ |
return (cmo_error2 *) new_cmo_string(message); |
return new_cmo_error2((cmo *)new_cmo_string(message)); |
} |
} |
|
|
int get_i() |
int get_i() |
Line 407 GEN cmo_to_GEN(cmo *c) |
|
Line 407 GEN cmo_to_GEN(cmo *c) |
|
return gen_0; |
return gen_0; |
case CMO_ZZ: /* int */ |
case CMO_ZZ: /* int */ |
return cmo_zz_to_GEN((cmo_zz *)c); |
return cmo_zz_to_GEN((cmo_zz *)c); |
|
case CMO_COMPLEX: /* complex */ |
|
return cmo_complex_to_GEN((cmo_complex *)c); |
case CMO_IEEE_DOUBLE_FLOAT: |
case CMO_IEEE_DOUBLE_FLOAT: |
return dbltor(((cmo_double *)c)->d); |
return dbltor(((cmo_double *)c)->d); |
case CMO_BIGFLOAT: /* bigfloat */ |
case CMO_BIGFLOAT: /* bigfloat */ |
Line 652 int receive_and_execute_sm_command() |
|
Line 654 int receive_and_execute_sm_command() |
|
break; |
break; |
case SM_setMathCap: |
case SM_setMathCap: |
pop(); |
pop(); |
|
break; |
|
case SM_shutdown: |
|
exit(0); |
break; |
break; |
default: |
default: |
printf("receive_and_execute_sm_command : code=%d\n",code);fflush(stdout); |
printf("receive_and_execute_sm_command : code=%d\n",code);fflush(stdout); |