version 1.9, 2015/08/20 07:45:12 |
version 1.11, 2015/08/21 00:53:53 |
|
|
/* $OpenXM: OpenXM/src/ox_pari/ox_pari.c,v 1.8 2015/08/20 01:38:34 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> |
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); |