![]() ![]() | ![]() |
File: [local] / OpenXM / src / k097 / debug / fault1.c (download)
Revision 1.2, Fri Aug 22 16:08:22 2003 UTC (21 years ago) by ohara
The exit(3) requires one argument. |
/* callasir.c */ char *KasirKanExecuteString(char *s) { FNODE expr; Obj val; int n; char *ans; s="fctr(x^50-100*x^49+4900*x^48-156800*x^47+3684800*x^46-67800320*x^45+1017004800*x^44-12785203200*x^43+137440934400*x^42-1282782054400*x^41+10518812846080*x^40-76500457062400*x^39+497252970905600*x^38-2907017368371200*x^37+15365663232819200*x^36-73755183517532160*x^35+322678927889203200*x^34-1290715711556812800*x^33+4732624275708313600*x^32-15941471244491161600*x^31+49418560857922600960*x^30-141195888165493145600*x^29+372243705163572838400*x^28-906332499528699084800*x^27+2039248123939572940800*x^26-4241636097794311716864*x^25+8156992495758291763200*x^24-14501319992459185356800*x^23+23823597130468661657600*x^22-36146147370366245273600*x^21+50604606318512743383040*x^20-65296266217435797913600*x^19+77539316133205010022400*x^18-84588344872587283660800*x^17+84588344872587283660800*x^16-77337915312079802204160*x^15+64448262760066501836800*x^14-48771658304915190579200*x^13+33370081998099867238400*x^12-20535435075753764454400*x^11+11294489291664570449920*x^10-5509506971543692902400*x^9+2361217273518725529600*x^8-878592473867432755200*x^7+279552150776001331200*x^6-74547240206933688320*x^5+16205921784116019200*x^4-2758454771764428800*x^3+344806846470553600*x^2-28147497671065600*x+1125899906842624);"; printf("1.\n"); exprparse(0,s,&expr); printf("2.\n"); /* OMIT */ } /* k2.c */ main() { /* OMIT */ #ifdef CALLASIR GC_init(); KasirKanAsirInit(); printf("%s\n",KasirKanExecuteString((char *)NULL)); exit(0); #endif /* OMIT */ }