[BACK]Return to fault1.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / debug
File: [local] / OpenXM / src / k097 / debug / fault1.c (download)

Revision 1.2, Fri Aug 22 16:08:22 2003 UTC (20 years, 9 months ago) by ohara
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +1 -1 lines 

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 */
}