home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / dev / ppcsmalleiffel / source.lha / bin_c / compile_to_c48.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  51.3 KB  |  1,342 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_c.h"
  9. void se_msi20(void){
  10. ms3_355=se_ms(32,"Constraint genericity violation.");
  11. ms4_355=se_ms(21," Cannot use feature \"");
  12. ms5_355=se_ms(7,"\" here.");
  13. ms1_173=se_ms(33,"Feature found is not a procedure.");
  14. ms1_268=se_ms(30,"Feature found has argument(s).");
  15. ms1_126=se_ms(45,"Right-hand side expanded Not Yet Implemented.");
  16. ms3_126=se_ms(12,";\nif(NULL!=(");
  17. ms4_126=se_ms(15,"))switch(((T0*)");
  18. ms5_126=se_ms(3,")->");
  19. ms6_126=se_ms(6,"id) \173""\n");
  20. ms7_126=se_ms(5,"case ");
  21. ms8_126=se_ms(2,": ");
  22. ms9_126=se_ms(17,"\nbreak;\ndefault:\n");
  23. ms10_126=se_ms(9,"=NULL;\n\175"";");
  24. ms2_126=se_ms(7,"=NULL;\n");
  25. ms10_629=se_ms(8,"memset(&");
  26. ms11_629=se_ms(10,",0,sizeof(");
  27. ms9_629=se_ms(7,"memcpy(");
  28. ms7_629=se_ms(12,"=((unsigned)");
  29. ms8_629=se_ms(42,")<<((CHAR_BIT*sizeof(unsigned))-CHAR_BIT-(");
  30. }
  31. void se_msi21(void){
  32. ms96_470=se_ms(2,">>");
  33. ms1_629=se_ms(57,"Not Yet Implemented (ASSIGNMENT/Reference into Expanded).");
  34. ms85_470=se_ms(5,"(T0*)");
  35. ms1_880=se_ms(18,"\173""int c=0;int v=0;\n");
  36. ms2_880=se_ms(9,"while (!(");
  37. ms3_880=se_ms(5,")) \173""\n");
  38. ms162_324=se_ms(12,"v=lvc(c++,v,");
  39. ms2_213=se_ms(3,"liv");
  40. ms1_270=se_ms(5,"\173""int ");
  41. ms1_843=se_ms(4,"\nif(");
  42. ms3_843=se_ms(2,"<=");
  43. ms4_843=se_ms(4,")&&(");
  44. ms5_843=se_ms(2,"<=");
  45. ms2_843=se_ms(2,"==");
  46. ms6_843=se_ms(2,"\174""\174""");
  47. ms7_843=se_ms(3,")\173""\n");
  48. ms6_270=se_ms(35,"Invalid inspect (nothing selected).");
  49. ms96_324=se_ms(7,"error1(");
  50. ms1_526=se_ms(29,"retry is not yet implemented.");
  51. ms1_530=se_ms(6,"/*IF*/");
  52. }
  53. void se_msi22(void){
  54. ms4_809=se_ms(4,"if (");
  55. ms149_324=se_ms(12,",rs_pop_int(");
  56. ms5_809=se_ms(4,") \173""\n");
  57. ms6_809=se_ms(2,"\175""\n");
  58. ms3_809=se_ms(6,"/*AF*/");
  59. ms10_809=se_ms(6," else ");
  60. ms1_809=se_ms(7,"\173""/*AT*/");
  61. ms2_809=se_ms(2,"\175""\n");
  62. ms3_530=se_ms(7,"else \173""\n");
  63. ms4_530=se_ms(2,"\175""\n");
  64. ms2_530=se_ms(7,"/*AE*/\n");
  65. ms5_530=se_ms(6,"/*FI*/");
  66. ms1_623=se_ms(3,"civ");
  67. ms160_324=se_ms(7,"rs-=8;\n");
  68. ms2_535=se_ms(24,"Same name appears twice.");
  69. ms23_111=se_ms(2,"-o");
  70. ms22_111=se_ms(2,"-o");
  71. ms21_111=se_ms(2,"-l");
  72. ms20_111=se_ms(6,"-cecil");
  73. ms19_111=se_ms(3,"-cc");
  74. }
  75. void se_msi23(void){
  76. ms18_111=se_ms(6,"-trace");
  77. ms17_111=se_ms(9,"-no_split");
  78. ms16_111=se_ms(9,"-no_strip");
  79. ms15_111=se_ms(8,"-gc_info");
  80. ms14_111=se_ms(8,"-test_gc");
  81. ms13_111=se_ms(8,"-verbose");
  82. ms12_111=se_ms(11,"-no_warning");
  83. ms11_111=se_ms(17,"-case_insensitive");
  84. ms10_111=se_ms(12,"-debug_check");
  85. ms9_111=se_ms(10,"-all_check");
  86. ms8_111=se_ms(11,"-loop_check");
  87. ms7_111=se_ms(16,"-invariant_check");
  88. ms6_111=se_ms(13,"-ensure_check");
  89. ms5_111=se_ms(14,"-require_check");
  90. ms4_111=se_ms(9,"-no_check");
  91. ms1_765=se_ms(26,": level is already set to ");
  92. ms2_765=se_ms(11,". Bad flag ");
  93. ms3_111=se_ms(6,"-boost");
  94. ms28_604=se_ms(10,"Parsing :\n");
  95. ms9_604=se_ms(18,"Cannot find class.");
  96. }
  97. void se_msi24(void){
  98. ms8_604=se_ms(18,"Cannot load class.");
  99. ms10_605=se_ms(52," cannot be a root class since it is a generic class.");
  100. ms11_605=se_ms(53," cannot be a root class since it is a deferred class.");
  101. ms12_605=se_ms(21," is not a Valid Root.");
  102. ms4_636=se_ms(31," is not allowed to use feature.");
  103. ms8_605=se_ms(42,"\" does not belong to a creation clause of ");
  104. ms7_605=se_ms(24," has no creation clause.");
  105. ms9_605=se_ms(26,"Creation Call not allowed.");
  106. ms13_605=se_ms(16," has no feature ");
  107. ms14_605=se_ms(15,". Invalid Root.");
  108. ms28_605=se_ms(4,"make");
  109. ms15_605=se_ms(16,"Root procedure \"");
  110. ms16_605=se_ms(12,"\" not found.");
  111. ms17_605=se_ms(31,"Invalid Root (not a procedure).");
  112. ms29_604=se_ms(23,"Cannot load root class ");
  113. ms30_604=se_ms(19,"Creation procedure ");
  114. ms31_604=se_ms(25," must not have arguments.");
  115. ms18_605=se_ms(33,"BASE_CLASS / does_not_understand.");
  116. ms7_368=se_ms(28,"This feature is obsolete :\n\"");
  117. ms5_361=se_ms(13,"Bad argument.");
  118. }
  119. void se_msi25(void){
  120. ms1_873=se_ms(46,"Conflict between argument/feature name (VRFA).");
  121. ms6_361=se_ms(19,"Bad local variable.");
  122. ms3_535=se_ms(16,"Bad declaration.");
  123. ms1_447=se_ms(43,"Conflict between local/feature name (VRLE).");
  124. ms27_605=se_ms(7,"foo :-)");
  125. ms1_592=se_ms(37,"Bad instruction (when interpreted in ");
  126. ms2_592=se_ms(2,").");
  127. ms32_604=se_ms(23,"Starting Falling Down (");
  128. ms1_625=se_ms(8,"se_print");
  129. ms7_818=se_ms(21,"Parsing Cecil File : ");
  130. ms8_818=se_ms(55,"Cannot open Cecil file (use -verbose flag for details).");
  131. ms2_625=se_ms(24,"Loading cecil features.\n");
  132. ms33_604=se_ms(21,"End of Falling Down (");
  133. ms34_604=se_ms(20,"Starting AFD Check (");
  134. ms35_604=se_ms(18,"End of AFD Check (");
  135. ms61_604=se_ms(9," items).\n");
  136. ms39_604=se_ms(26," is a deferred feature in ");
  137. ms38_604=se_ms(16,"Deferred Routine");
  138. ms36_604=se_ms(48,"Internal Warning #1 (Error Handler Not Empty) : ");
  139. ms37_604=se_ms(13,"Loaded Classe");
  140. }
  141. void se_msi26(void){
  142. ms25_604=se_ms(22,"Cannot produce C code.");
  143. ms1_324=se_ms(395,"\n#include <stdio.h>\n#include <string.h>\n#include <math.h>\n#include <stdlib.h>\n#include <signal.h>\n#include <stddef.h>\n#include <stdarg.h>\n#include <limits.h>\n#include <float.h>\n#include <setjmp.h>\n#include <sys/types.h>\n#include <sys/stat.h>\n#include <fcntl.h>\n#ifndef O_RDONLY\n#include <sys/file.h>\n#endif\n#ifndef O_RDONLY\n#define O_RDONLY 0000\n#endif\ntypedef struct S0 T0;\nstruct S0\173""int id;\175"";\n");
  144. ms2_324=se_ms(3,"REF");
  145. ms3_324=se_ms(4,"LINK");
  146. ms4_324=se_ms(4,"FTAG");
  147. ms5_324=se_ms(4,"NAME");
  148. ms6_324=se_ms(6,"COLUMN");
  149. ms7_324=se_ms(4,"LINE");
  150. ms8_324=se_ms(4,"PATH");
  151. ms9_324=se_ms(5,"DOING");
  152. ms10_324=se_ms(3,"INV");
  153. ms100_470=se_ms(6,"define");
  154. ms170_324=se_ms(3,"id ");
  155. ms11_324=se_ms(9,"tag_pos_1");
  156. ms12_324=se_ms(10,"assignment");
  157. ms13_324=se_ms(9,"tag_pos_2");
  158. ms14_324=se_ms(12,"boolean exp.");
  159. ms15_324=se_ms(9,"tag_pos_3");
  160. ms16_324=se_ms(11,"instruction");
  161. ms17_324=se_ms(9,"tag_pos_4");
  162. }
  163. void se_msi27(void){
  164. ms18_324=se_ms(9,"assertion");
  165. ms19_324=se_ms(9,"tag_pos_5");
  166. ms20_324=se_ms(13,"creation call");
  167. ms21_324=se_ms(9,"tag_pos_6");
  168. ms22_324=se_ms(12,"variant exp.");
  169. ms76_324=se_ms(5,"char ");
  170. ms77_324=se_ms(4,"[]=\"");
  171. ms78_324=se_ms(3,"\";\n");
  172. ms79_324=se_ms(12,"extern char ");
  173. ms23_324=se_ms(13,"double*rs_bot");
  174. ms24_324=se_ms(9,"double*rs");
  175. ms25_324=se_ms(12,"double*rs_lb");
  176. ms26_324=se_ms(13,"double*rs_top");
  177. ms27_324=se_ms(19,"void se_rsg(int sz)");
  178. ms28_324=se_ms(420,"if(rs+sz<rs_top)return;\n\173""int osz=(rs_top-rs_bot+1);\nint nsz;\ndouble*nrs_bot;\nint msz=262144;\nnsz=osz*2;\nnrs_bot=(void*)malloc(nsz*sizeof(double));\nif((osz>msz)\174""\174""(nrs_bot==NULL))\173""\nprintf(\"Stack Overflow (limit = %d).\\n\",msz);\nrsp();if(!se_rspf)exit(0);\175""\n((void)memcpy(nrs_bot,rs_bot,osz*sizeof(double)));\nrs_lb=nrs_bot+(rs_lb-rs_bot);\nrs=nrs_bot+(rs-rs_bot);\nrs_top=nrs_bot+(nsz-1);\nfree(rs_bot);\nrs_bot=nrs_bot;\nreturn;\175""");
  179. ms29_324=se_ms(22,"void rs_link(char*tag)");
  180. ms30_324=se_ms(114,"se_rsg(1024);\n*((int*)rs++)=LINKid;\n*((int*)rs)=(rs-rs_lb);\nrs_lb=rs++;\n*((int*)rs++)=FTAGid;\n*((char**)rs++)=tag;");
  181. ms31_324=se_ms(20,"void rs_unlink(void)");
  182. ms32_324=se_ms(41,"rs=rs_lb-1;\nrs_lb=rs_lb-(*((int*)rs_lb));");
  183. ms33_324=se_ms(161,"*((int*)rs++)=LINEid;\n*((int*)rs++)=l;\n*((int*)rs++)=COLUMNid;\n*((int*)rs++)=c;\n*((int*)rs++)=PATHid;\n*((int*)rs++)=f;\n*((int*)rs++)=DOINGid;\n*((char**)rs++)=tp;");
  184. }
  185. void se_msi28(void){
  186. ms34_324=se_ms(104,"if (se_trace_flag)\173""\nfprintf(se_trace_file,\"line %d column %d in %s\\n\",l,c,p[f]);\nfflush(se_trace_file);\175""");
  187. ms35_324=se_ms(40,"void rs_pPOS(char* tp,int l,int c,int f)");
  188. ms36_324=se_ms(21,"int rs_pop_int(int e)");
  189. ms37_324=se_ms(16,"rs-=8;\nreturn e;");
  190. ms38_324=se_ms(26,"void rs_pINT(int*i,char*n)");
  191. ms39_324=se_ms(83,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=INTEGERid;\n*((int**)rs++)=i;");
  192. ms40_324=se_ms(27,"void rs_pCHA(char*c,char*n)");
  193. ms41_324=se_ms(86,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=CHARACTERid;\n*((char**)rs++)=c;");
  194. ms42_324=se_ms(26,"void rs_pBOO(int*b,char*n)");
  195. ms43_324=se_ms(83,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=BOOLEANid;\n*((int**)rs++)=b;");
  196. ms44_324=se_ms(28,"void rs_pREA(float*r,char*n)");
  197. ms45_324=se_ms(82,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=REALid;\n*((float**)rs++)=r;");
  198. ms46_324=se_ms(29,"void rs_pDOU(double*d,char*n)");
  199. ms47_324=se_ms(85,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=DOUBLEid;\n*((double**)rs++)=d;");
  200. ms48_324=se_ms(27,"void rs_pPOI(void*p,char*n)");
  201. ms49_324=se_ms(84,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=POINTERid;\n*((void**)rs++)=p;");
  202. ms50_324=se_ms(27,"void rs_pBIT(void*p,char*n)");
  203. ms51_324=se_ms(80,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=BITid;\n*((void**)rs++)=p;");
  204. ms52_324=se_ms(28,"void rs_pREF(void**r,char*n)");
  205. ms53_324=se_ms(81,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=REFid;\n*((void***)rs++)=r;");
  206. }
  207. void se_msi29(void){
  208. ms54_324=se_ms(27,"void rs_pEXP(void*e,char*n)");
  209. ms55_324=se_ms(85,"*((int*)rs++)=NAMEid;\n*((char**)rs++)=n;\n*((int*)rs++)=expandedid;\n*((void**)rs++)=e;");
  210. ms56_324=se_ms(9,"int se_af");
  211. ms57_324=se_ms(11,"int se_rspf");
  212. ms58_324=se_ms(13,"int se_af_rlc");
  213. ms59_324=se_ms(13,"int se_af_rlr");
  214. ms60_324=se_ms(18,"void ac_req(int v)");
  215. ms61_324=se_ms(90,"if (!v && se_af_rlc)\nerror0(\"Require Assertion Violated.\");\nse_af_rlr=se_af_rlr&&v;\nrs-=8;");
  216. ms62_324=se_ms(18,"void ac_ens(int v)");
  217. ms63_324=se_ms(52,"if (!v) error0(\"Ensure Assertion Violated.\");\nrs-=8;");
  218. ms64_324=se_ms(18,"void ac_inv(int v)");
  219. ms65_324=se_ms(52,"if (!v) error0(\"Class Invariant Violation.\");\nrs-=8;");
  220. ms66_324=se_ms(25,"int se_rciaux(double* sp)");
  221. ms67_324=se_ms(87,"if((*((char**)sp))!=Current) return 0;sp++; if((*((int*)sp))!=REFid) return 0;return 1;");
  222. ms68_324=se_ms(18,"int se_rci(void*C)");
  223. ms69_324=se_ms(316,"double*lb=rs_lb;\ndouble*sp;\nif(se_af)return 0;\nif(se_rspf)return 0;\nwhile(1)\173""\nif(lb==rs_bot)return 0;\nsp=lb+4;\nif(se_rciaux(sp))\173""\nsp+=2;\nif((**((void***)sp))==C)break;\175""\nlb=lb-(*((int*)lb));\175""\nwhile(1)\173""\nlb=lb-(*((int*)lb));\nif(lb==rs_bot)return 1;\nsp=lb+4;\nif(se_rciaux(sp))\173""\nsp+=2;\nif((**((void***)sp))==C)return 0;\175""\175""");
  224. ms70_324=se_ms(18,"void ac_liv(int v)");
  225. ms71_324=se_ms(51,"if (!v) error0(\"Loop Invariant Violation.\");\nrs-=8;");
  226. ms72_324=se_ms(31,"int lvc(int lc,int lv1,int lv2)");
  227. ms73_324=se_ms(345,"if (lc==0)\173""if (lv2 < 0)\173""\nrsp();\nprintf(\"Bad First Variant Value = %d\\n\",lv2);\175""\nelse \173""rs-=8;return lv2;\175""\175""\nelse if ((lv2 < 0)\174""\174""(lv2 >= lv1))\173""\nrsp();\nprintf(\"Loop Body Count = %d (done)\\nNew Variant = %d\\nPrevious Variant = %d\\n\",lc,lv2,lv1);\175""\nelse \173""rs-=8;return lv2;\175""\nprintf(\"*** Error at Run Time *** : Bad Loop Variant.\\n\");\nif(!se_rspf)exit(1);");
  228. }
  229. void se_msi30(void){
  230. ms74_324=se_ms(18,"void ac_civ(int v)");
  231. ms75_324=se_ms(51,"if (!v) error0(\"Check Assertion Violated.\");\nrs-=8;");
  232. ms18_604=se_ms(33,"\n/* --- Mangling Table Start ---\n");
  233. ms8_355=se_ms(0,"");
  234. ms19_604=se_ms(31," --- Mangling Table End --- */\n");
  235. ms20_604=se_ms(17,"C Header Pass 1 :");
  236. ms21_604=se_ms(17,"C Header Pass 2 :");
  237. ms22_604=se_ms(17,"C Header Pass 3 :");
  238. ms23_604=se_ms(17,"C Header Pass 4 :");
  239. ms1_548=se_ms(26,"Adding Garbage Collector.\n");
  240. ms2_548=se_ms(267,"#define GCFLAG_UNMARKED 1\n#define GCFLAG_MARKED 2\ntypedef union u_gcfsh gcfsh;\nunion u_gcfsh \173""gcfsh*next;int flag;\175"";\ntypedef struct s_gcnah gcnah;\nstruct s_gcnah\173""int size;\nvoid(*mfp)(gcnah*);\nunion \173""gcnah*next;int flag;double padding;\175""header;\n\175"";\nextern gcnah*nafl[];\n");
  241. ms3_548=se_ms(18,"void**gc_root_main");
  242. ms4_548=se_ms(14,"void**gcmt_fs1");
  243. ms5_548=se_ms(14,"void**gcmt_fs2");
  244. ms6_548=se_ms(29,"void(**gcmt_fsf)(void*,void*)");
  245. ms7_548=se_ms(15,"int gcmt_fs_max");
  246. ms8_548=se_ms(4,"1023");
  247. ms9_548=se_ms(16,"int gcmt_fs_used");
  248. ms10_548=se_ms(14,"gcnah**gcmt_na");
  249. ms11_548=se_ms(15,"int gcmt_na_max");
  250. }
  251. void se_msi31(void){
  252. ms12_548=se_ms(4,"1023");
  253. ms13_548=se_ms(16,"int gcmt_na_used");
  254. ms14_548=se_ms(11,"gcnah*nafl[");
  255. ms15_548=se_ms(9,"]=\173""\nNULL,");
  256. ms117_470=se_ms(4,"NULL");
  257. ms16_548=se_ms(18,"int gc_start_count");
  258. ms59_604=se_ms(31,"Compiling/Sorting routines for ");
  259. ms60_604=se_ms(15," run classes :\n");
  260. ms74_699=se_ms(38,"*((int*)rs++)=INVid;*((char**)rs++)=p[");
  261. ms73_699=se_ms(3,"inv");
  262. ms75_699=se_ms(17,"rs-=2;return C;\175""\n");
  263. ms3_625=se_ms(23,"Cecil (internal use) :\n");
  264. ms4_625=se_ms(19,"Cecil (for user) :\n");
  265. ms5_625=se_ms(33," not created (type is not alive).");
  266. ms6_625=se_ms(21,"Empty Cecil function ");
  267. ms7_625=se_ms(1,".");
  268. ms8_625=se_ms(7,"return ");
  269. ms151_470=se_ms(2,"((");
  270. ms151_324=se_ms(40,"Call on a Void or a bad target. Dynamic ");
  271. ms152_324=se_ms(15," is concerned. ");
  272. }
  273. void se_msi32(void){
  274. ms154_324=se_ms(6,"evobt(");
  275. ms153_324=se_ms(16,"(rsp();exit(1);)");
  276. ms17_548=se_ms(23,"void gc_mark_na(void*p)");
  277. ms18_548=se_ms(255,"gcnah*n=((gcnah*)p-1);\nif(gcmt_na_used==0)return;\nif(n<*gcmt_na)return;\nif(gcmt_na[gcmt_na_used-1]<n)return;\n\173""int i1=0;\nint i2=gcmt_na_used-1;\nint m=i2>>1;\nfor(;i1<i2;m=((i1+i2)>>1))\173""\nif(gcmt_na[m]<n)i1=m+1;\nelse i2=m;\175""\nif(n==gcmt_na[i2])(*(n->mfp))(n);\n\175""");
  278. ms19_548=se_ms(20,"void gc_mark(void*p)");
  279. ms20_548=se_ms(342,"if(p<=*gcmt_fs1)\173""\ngc_mark_na(p);\nreturn;\n\175""\nif(gcmt_fs2[gcmt_fs_used-1]<p)\173""\ngc_mark_na(p);\nreturn;\n\175""\n\173""int i1=0; int m;\nint i2=gcmt_fs_used-1;\nfor(;i1<i2;)\173""\nm=((i1+i2)>>1);\nif(gcmt_fs1[m]<=p)\ni1=m+1;\nelse\ni2=m;\n\175""\nif(p<gcmt_fs1[i2])\ni2--;\nif(gcmt_fs2[i2]<p)\173""\ngc_mark_na(p);\nreturn;\n\175""\nif(p==gcmt_fs1[i2])return;\n(*gcmt_fsf[i2])(p,gcmt_fs1[i2]);\n\175""");
  280. ms21_548=se_ms(19,"void gc_start(void)");
  281. ms22_548=se_ms(61,"jmp_buf env;\n(void)setjmp(env);\ngc_start_aux(((void**)&env));");
  282. ms23_548=se_ms(184,"if(sp>gc_root_main)\173""\nfor(sp+=(sizeof(jmp_buf)/sizeof(void*));sp>=gc_root_main;sp--)\ngc_mark(*sp);\175""\nelse \173""\nfor(sp-=(sizeof(jmp_buf)/sizeof(void*));sp<=gc_root_main;sp++)\ngc_mark(*sp);\175""\n");
  283. ms24_548=se_ms(18,"gc_start_count++;\n");
  284. ms88_470=se_ms(9,"if(NULL!=");
  285. ms86_470=se_ms(7,"(void*)");
  286. ms25_548=se_ms(191,"\173""int h;\ngcnah**p=gcmt_na+gcmt_na_used-1;\ngcnah*n;\nfor(;p>=gcmt_na;p--)\173""\nn=*p;\nswitch(n->header.flag)\173""\ncase GCFLAG_MARKED:n->header.flag=GCFLAG_UNMARKED;\nbreak;\ncase GCFLAG_UNMARKED:h=n->size&");
  287. ms26_548=se_ms(47,";\nn->header.next=nafl[h];\nnafl[h]=n;\nbreak;\n\175""\175""\175""");
  288. ms27_548=se_ms(27,"void gc_start_aux(void**sp)");
  289. ms38_548=se_ms(14,"\173""int i=o->id;\n");
  290. ms39_548=se_ms(9,"if (i <= ");
  291. ms40_548=se_ms(4,") \173""\n");
  292. ms41_548=se_ms(9,"\175"" else \173""\n");
  293. ms107_470=se_ms(7,"gc_mark");
  294. }
  295. void se_msi33(void){
  296. ms42_548=se_ms(221,"printf(\"gcmt_fs_used = %d\\n\",gcmt_fs_used);\nprintf(\"gcmt_fs_max = %d\\n\",gcmt_fs_max);\nprintf(\"gcmt_na_used = %d\\n\",gcmt_na_used);\nprintf(\"gcmt_na_max = %d\\n\",gcmt_na_max);\nprintf(\"GC called %d time(s)\\n\",gc_start_count);\n");
  297. ms97_324=se_ms(22,"Define main function.\n");
  298. ms98_324=se_ms(11,"int se_argc");
  299. ms99_324=se_ms(13,"char**se_argv");
  300. ms100_324=se_ms(19,"FILE *se_trace_file");
  301. ms101_324=se_ms(17,"int se_trace_flag");
  302. ms111_470=se_ms(3,"int");
  303. ms102_324=se_ms(29," main(int argc,char*argv[])\173""\n");
  304. ms28_548=se_ms(191,"gcmt_fs1=malloc((gcmt_fs_max+1)*sizeof(void*));\ngcmt_fs2=malloc((gcmt_fs_max+1)*sizeof(void*));\ngcmt_fsf=malloc((gcmt_fs_max+1)*sizeof(void*));\ngcmt_na=malloc((gcmt_na_max+1)*sizeof(void*));\n");
  305. ms103_324=se_ms(19,"se_initialize();\n\173""\n");
  306. ms104_324=se_ms(13,"jmp_buf env;\n");
  307. ms105_324=se_ms(50,"(void)setjmp(env);\ngc_root_main=((void**)(&env));\n");
  308. ms106_324=se_ms(258,"se_argc=argc; se_argv=argv;\n#ifdef SIGINT\nsignal(SIGINT,sigrsp);\n#endif\n#ifdef SIGQUIT\nsignal(SIGQUIT,sigrsp);\n#endif\n#ifdef SIGTERM\nsignal(SIGTERM,sigrsp);\n#endif\n#ifdef SIGBREAK\nsignal(SIGBREAK,sigrsp);\n#endif\n#ifdef SIGKILL\nsignal(SIGKILL,sigrsp);\n#endif\n");
  309. ms107_324=se_ms(116,"#define rs_isz 4096\nrs_bot=(void*)malloc(rs_isz*sizeof(double));\nrs=rs_bot;\nrs_top=rs_bot+(rs_isz-1);\nrs_lb=rs_bot;\n");
  310. ms108_324=se_ms(46,"_spfd=malloc(32);\n_spfd[0]=\'%\';\n_spfd[1]=\'.\';\n");
  311. ms139_470=se_ms(5,"(s):\n");
  312. ms9_868=se_ms(12,"=R;\175""/*PCO*/\n");
  313. ms138_470=se_ms(26,"Pre-Computed Once Function");
  314. ms109_324=se_ms(94,"printf(\"Writing \\\"trace.se\\\" file.\\n\");\nse_trace_file=fopen(\"trace.se\",\"w\");\nse_trace_flag=1;\n");
  315. ms1_832=se_ms(8,"/*[IRF3.");
  316. }
  317. void se_msi34(void){
  318. ms240_470=se_ms(4,")->_");
  319. ms83_324=se_ms(15,"((/*UA*/(void)(");
  320. ms85_324=se_ms(2,"*C");
  321. ms84_324=se_ms(8,"((T0*)C)");
  322. ms7_798=se_ms(8,")->_item");
  323. ms82_324=se_ms(15,"((/*UT*/(void)(");
  324. ms185_324=se_ms(5,"&n->_");
  325. ms161_324=se_ms(5,"*)ci(");
  326. ms147_470=se_ms(2,"))");
  327. ms1_39=se_ms(22,"Unused local variable.");
  328. ms155_324=se_ms(8,"rs_link(");
  329. ms1_496=se_ms(4," of ");
  330. ms157_324=se_ms(1,"C");
  331. ms158_324=se_ms(1,"R");
  332. ms163_324=se_ms(4,"rs_p");
  333. ms166_324=se_ms(3,"EXP");
  334. ms165_324=se_ms(3,"BIT");
  335. ms164_324=se_ms(12,"REF((void**)");
  336. ms7_567=se_ms(13,"se_af_rlc=0;\n");
  337. ms8_567=se_ms(13,"se_af_rlr=1;\n");
  338. }
  339. void se_msi35(void){
  340. ms9_567=se_ms(28,"if(!se_af_rlr)\173""se_af_rlr=1;\n");
  341. ms10_567=se_ms(13,"se_af_rlc=1;\n");
  342. ms6_567=se_ms(13,"se_af_rlc=1;\n");
  343. ms73_343=se_ms(3,"req");
  344. ms167_324=se_ms(13,"if(se_rci(C))");
  345. ms1_596=se_ms(20,"if(!se_af)\173""se_af=1;\n");
  346. ms75_633=se_ms(3,"ens");
  347. ms159_324=se_ms(16,"rs_pPOS(tag_pos_");
  348. ms81_324=se_ms(5,"0,0,0");
  349. ms150_324=se_ms(3,"ac_");
  350. ms2_596=se_ms(10,"se_af=0;\175""\n");
  351. ms156_324=se_ms(13,"rs_unlink();\n");
  352. ms2_832=se_ms(6,"/*]*/\n");
  353. ms110_324=se_ms(78,"if (rs != rs_bot)\173""\nprintf(\"\\n***Internal SmallEiffel Stack Error.\\n\");\nrsp();\175""");
  354. ms106_470=se_ms(7,"gc_info");
  355. ms93_470=se_ms(4,"();\n");
  356. ms111_324=se_ms(11,"exit(0);\175""\175""\n");
  357. ms112_324=se_ms(14,"Symbols used: ");
  358. ms10_340=se_ms(15,"Manifest String");
  359. ms12_340=se_ms(6,"se_msi");
  360. }
  361. void se_msi36(void){
  362. ms97_470=se_ms(6,"(void)");
  363. ms11_340=se_ms(7,"=se_ms(");
  364. ms113_324=se_ms(20,"Define used basics.\n");
  365. ms114_324=se_ms(10,"char*_spfd");
  366. ms1_340=se_ms(22,"T7*se_ms(int c,char*e)");
  367. ms2_340=se_ms(20,"malloc(sizeof(T7));\n");
  368. ms3_340=se_ms(9,"s->id=7;\n");
  369. ms1_355=se_ms(33,"Internal Warning #1 in RUN_CLASS.");
  370. ms2_355=se_ms(33,"Internal Warning #2 in RUN_CLASS.");
  371. ms72_470=se_ms(12," is invalid.");
  372. ms1_605=se_ms(48," A deferred class must not be expanded (VTEC.1).");
  373. ms6_583=se_ms(50,"Cannot create a class with an empty creation list.");
  374. ms7_583=se_ms(23,"Creation procedure for ");
  375. ms8_583=se_ms(11," not found.");
  376. ms9_583=se_ms(33,"Feature found is not a procedure.");
  377. ms65_470=se_ms(21," cannot be expanded. ");
  378. ms10_583=se_ms(31,"Procedure found has arguments. ");
  379. ms12_364=se_ms(106,"Expanded class must have no creation procedure, or only one creation procedure with no arguments (VTEC.2).");
  380. ms73_470=se_ms(16," is not BOOLEAN.");
  381. ms57_470=se_ms(14,"Bad Assertion.");
  382. }
  383. void se_msi37(void){
  384. ms4_340=se_ms(43,"s->_count=c;\ns->_capacity=c+1;\ns->_storage=");
  385. ms5_340=se_ms(41,"(c+1);\nmemcpy(s->_storage,e,c);\nreturn s;");
  386. ms6_340=se_ms(14,"T7*e2s(char*e)");
  387. ms7_340=se_ms(26,"return se_ms(strlen(e),e);");
  388. ms8_340=se_ms(14,"char*s2e(T7*s)");
  389. ms9_340=se_ms(89,"char*e=malloc(1+s->_count);\nmemcpy(e,s->_storage,s->_count);\ne[s->_count]=\'\\0\';\nreturn e;");
  390. ms1_94=se_ms(5,"se_ma");
  391. ms2_94=se_ms(14,"(int argc,...)");
  392. ms3_94=se_ms(16,"*m;\nva_list pa;\n");
  393. ms4_94=se_ms(6,"*s;\nm=");
  394. ms123_470=se_ms(6,"sizeof");
  395. ms115_470=se_ms(3,"new");
  396. ms5_94=se_ms(134,"if(argc)\173""\ns=malloc(argc*sizeof(*s));\nm->_storage=s;\nm->_capacity=argc;\nm->_lower=1;\nm->_upper=argc;\nva_start(pa,argc);\nwhile(argc--)\173""\n");
  397. ms9_94=se_ms(36,"*(s++)=((void*)(va_arg(pa,char*)));\n");
  398. ms8_94=se_ms(51,"memcpy(*((char**)va_arg(pa,T0*)),s++,size_of(*s));\n");
  399. ms7_94=se_ms(26,"*(s++)=va_arg(pa,double);\n");
  400. ms6_94=se_ms(23,"*(s++)=va_arg(pa,int);\n");
  401. ms10_94=se_ms(25,"\175""\nva_end(pa);\n\175""\nreturn m;");
  402. ms117_324=se_ms(14,"void rsp(void)");
  403. ms118_324=se_ms(97,"printf(\"Eiffel program crash at run time.\\n\");\nprintf(\"No trace when using option \\\"-boost\\\"\\n\");");
  404. }
  405. void se_msi38(void){
  406. ms115_324=se_ms(14,"void rsp(void)");
  407. ms116_324=se_ms(1504,"if(se_rspf)return;se_rspf=1;\nprintf(\"Eiffel program crash at run time.\\n\");\nprintf(\"Final Run Stack :\\n\");\n\173""double*sp=(rs_bot-1);\nwhile (1) \173""se_af=1;\nsp++;\nif (sp >= rs) break;\nif (sp > rs_top) break;\nswitch (*((int*)sp++))\173""\ncase LINKid: continue;\ncase FTAGid:\173""\nprintf(\"==============================================================\\n\");\nprintf(\"------ %s\\n\",*((char**)sp));\ncontinue;\175""\ncase NAMEid:\173""\nprintf(\"%s = \",*((char**)sp));\ncontinue;\175""\ncase POINTERid:\173""\nprintf(\"External POINTER `%p\'.\\n\",**(void***)sp);\ncontinue;\175""\ncase BITid:\173""\nprintf(\"BIT_N\\n\");\ncontinue;\175""\ncase REFid:\173""void*o=(**(T0***)sp);\nif (o) \173""se_print(o,o); printf(\"\\n\");\175""\nelse printf(\"Void\\n\");continue;\175""\ncase expandedid:\173""\nprintf(\"expanded object\\n\");continue;\175""\ncase INTEGERid:\173""\nprintf(\"%d\\n\",**(int**)sp);continue;\175""\ncase CHARACTERid:\173""\nprintf(\"\'%c\'\\n\",**(char**)sp);continue;\175""\ncase BOOLEANid:\173""\nif (**(int**)sp) printf(\"true\\n\");\nelse printf(\"false\\n\");continue;\175""\ncase REALid:\173""\nprintf(\"%f\\n\",(double)**(float**)sp);\ncontinue;\175""\ncase DOUBLEid:\173""\nprintf(\"%f\\n\",**(double**)sp);continue;\175""\ncase LINEid:\173""\nprintf(\"line %d \",*(int*)sp);\ncontinue;\175""\ncase COLUMNid:\173""\nprintf(\"column %d \",*(int*)sp);\ncontinue;\175""\ncase PATHid:\173""\nprintf(\"file %s \",p[*(int*)sp]);\ncontinue;\175""\ncase DOINGid:\173""\nprintf(\"(%s)\\n\",*(char**)sp);continue;\175""\ncase INVid:\173""\nprintf(\"Class Invariant of %s\\n\",*(char**)sp);\ncontinue;\175""\ndefault:\173""\nprintf(\"Stack Damaged ... Sorry.\\n\");\nexit(1);\175""\175""\175""\nprintf(\"===================== End of Run Stack ==========================\\n\\n\");se_af=0;se_rspf=0;\n\175""");
  408. ms119_324=se_ms(19,"void error0(char*m)");
  409. ms120_324=se_ms(73,"rsp();\nprintf(\"*** Error at Run Time *** : %s\\n\",m);\nif(!se_rspf)exit(1);");
  410. ms121_324=se_ms(37,"void error1(char*m,int l,int c,int f)");
  411. ms122_324=se_ms(122,"rsp();\nprintf(\"Line : %d column %d in %s.\\n\",l,c,p[f]);\nprintf(\"*** Error at Run Time *** : %s\\n\",m);\nif(!se_rspf)exit(1);");
  412. ms123_324=se_ms(35,"void error2(T0*o,int l,int c,int f)");
  413. ms124_324=se_ms(81,"printf(\"Target Type %s not legal.\\n\",s2e(t[o->id]));\nerror1(\"Bad target.\",l,c,f);");
  414. ms125_324=se_ms(31,"T0*vc(void*o,int l,int c,int f)");
  415. ms126_324=se_ms(59,"if (!o) error1(\"Call with a Void target.\",l,c,f);\nreturn o;");
  416. ms127_324=se_ms(38,"T0*ci(int id,void*o,int l,int c,int f)");
  417. ms128_324=se_ms(281,"if (id == (vc(o,l,c,f)->id)) return o;\nrsp();\nprintf(\"Line : %d column %d in %s.\\n\",l,c,p[f]);\nprintf(\"*** Error at Run Time *** : \");\nprintf(\"Target is not valid (not the good type).\\n\");\nprintf(\"Expected :%s, Actual :%s.\\n\",\ns2e(t[id]),s2e(t[((T0*)o)->id]));\nif(!se_rspf)exit(1);");
  418. ms129_324=se_ms(36,"void evobt(void*o,int l,int c,int f)");
  419. ms130_324=se_ms(62,"if (!o) error1(\"Target is Void.\",l,c,f);\nelse error2(o,l,c,f);");
  420. ms131_324=se_ms(20,"void sigrsp(int sig)");
  421. ms132_324=se_ms(65,"printf(\"Received signal %d (man signal).\\n\",sig);\nrsp();\nexit(1);");
  422. ms133_470=se_ms(4,"void");
  423. ms2_798=se_ms(27,"(int l,int c,int f, void *C");
  424. ms1_798=se_ms(8,"(void *C");
  425. ms3_798=se_ms(2," a");
  426. }
  427. void se_msi39(void){
  428. ms4_798=se_ms(7,"int id=");
  429. ms6_798=se_ms(17,"vc(C,l,c,f)->id;\n");
  430. ms5_798=se_ms(14,"((T0*)C)->id;\n");
  431. ms8_798=se_ms(10,"if (id <= ");
  432. ms9_798=se_ms(4,") \173""\n");
  433. ms10_798=se_ms(9,"\175"" else \173""\n");
  434. ms11_798=se_ms(12,"switch(id)\173""\n");
  435. ms2_605=se_ms(8,"\" from \"");
  436. ms3_605=se_ms(16,"\" not found in \"");
  437. ms4_605=se_ms(2,"\".");
  438. ms143_470=se_ms(9,"Feature \"");
  439. ms3_877=se_ms(33,"\" is not a feature of the parent.");
  440. ms1_776=se_ms(46,"A frozen feature must not be undefined (VDUS).");
  441. ms34_605=se_ms(26,"Problem with undefine of \"");
  442. ms35_605=se_ms(6,"\" in \"");
  443. ms36_605=se_ms(2,"\".");
  444. ms2_673=se_ms(18,"Inheritance clash.");
  445. ms70_470=se_ms(22,"Incompatible headings.");
  446. ms2_359=se_ms(33,"One has Result but not the other.");
  447. ms4_359=se_ms(33,"Incompatible number of arguments.");
  448. }
  449. void se_msi40(void){
  450. ms3_359=se_ms(38,"One has argument(s) but not the other.");
  451. ms12_359=se_ms(30," Cannot merge thoses features.");
  452. ms22_605=se_ms(37,"Constant feature cannot be redefined.");
  453. ms23_605=se_ms(33,"Cannot redefine a frozen feature.");
  454. ms24_605=se_ms(39,"Incompatible headings for redefinition.");
  455. ms5_359=se_ms(33,"One has Result but not the other.");
  456. ms7_359=se_ms(33,"Incompatible number of arguments.");
  457. ms6_359=se_ms(38,"One has argument(s) but not the other.");
  458. ms13_359=se_ms(35," Cannot inherit thoses features in ");
  459. ms8_31=se_ms(24,"Bad number of arguments.");
  460. ms9_31=se_ms(22,"Incompatible types in ");
  461. ms25_605=se_ms(24,"Invalid redefinition in ");
  462. ms26_605=se_ms(20,". Missing redefine ?");
  463. ms9_355=se_ms(16,"Current type is ");
  464. ms10_355=se_ms(22,". There is no feature ");
  465. ms11_355=se_ms(10," in class ");
  466. ms6_355=se_ms(8,"Feature ");
  467. ms7_355=se_ms(38," not found when starting look up from ");
  468. ms12_798=se_ms(5,"case ");
  469. ms120_470=se_ms(6,"return");
  470. }
  471. void se_msi41(void){
  472. ms1_861=se_ms(43,"Infinite inlining loop (bad recursion ??). ");
  473. ms2_861=se_ms(2,", ");
  474. ms3_861=se_ms(4,",...");
  475. ms150_470=se_ms(4,"));\n");
  476. ms13_798=se_ms(8,"\nbreak;\n");
  477. ms14_798=se_ms(26,"default: error2(C,l,c,f);\n");
  478. ms1_576=se_ms(15,"Defined Switche");
  479. ms93_324=se_ms(4," to ");
  480. ms94_324=se_ms(6,"(T0*s)");
  481. ms187_324=se_ms(10,"Automatic ");
  482. ms89_324=se_ms(4," to ");
  483. ms186_324=se_ms(18," type conversion.\n");
  484. ms128_470=se_ms(3,"T0*");
  485. ms130_470=se_ms(3,"toT");
  486. ms90_324=se_ms(3," s)");
  487. ms91_324=se_ms(34,"d;\nd=((void*)malloc(sizeof(*d)));\n");
  488. ms53_470=se_ms(4,"->id");
  489. ms92_324=se_ms(29,"\nd->_item=s;\nreturn (T0*)d;\175""\n");
  490. ms133_324=se_ms(27,"Calls with a Void target : ");
  491. ms134_324=se_ms(24," (yes it is dangerous).\n");
  492. }
  493. void se_msi42(void){
  494. ms135_324=se_ms(11,"Direct Call");
  495. ms136_324=se_ms(13,"Check Id Call");
  496. ms137_324=se_ms(13,"Switched Call");
  497. ms138_324=se_ms(17,"Inlined Procedure");
  498. ms139_324=se_ms(16,"Inlined Function");
  499. ms140_324=se_ms(17,"Static Expression");
  500. ms141_324=se_ms(14,"Real Procedure");
  501. ms142_324=se_ms(13,"Real Function");
  502. ms143_324=se_ms(9,"Procedure");
  503. ms144_324=se_ms(8,"Function");
  504. ms145_324=se_ms(31,"Pre-Computed Once Function Call");
  505. ms8_306=se_ms(3,"No ");
  506. ms6_306=se_ms(6,"Total ");
  507. ms7_306=se_ms(2,": ");
  508. ms241_470=se_ms(2,".\n");
  509. ms146_324=se_ms(28,"Internal stacks size used : ");
  510. ms168_324=se_ms(25,"Define initialize stuff.\n");
  511. ms40_604=se_ms(1,"g");
  512. ms129_470=se_ms(3,"T7*");
  513. ms41_604=se_ms(1,"t");
  514. }
  515. void se_msi43(void){
  516. ms42_604=se_ms(5,"char*");
  517. ms43_604=se_ms(1,"p");
  518. ms80_324=se_ms(3,"];\n");
  519. ms103_470=se_ms(7,"extern ");
  520. ms169_324=se_ms(24,"void se_initialize(void)");
  521. ms145_470=se_ms(2,"\173""\n");
  522. ms45_604=se_ms(2,"p[");
  523. ms46_604=se_ms(2,"]=");
  524. ms44_604=se_ms(12,"p[0]=\"???\";\n");
  525. ms47_604=se_ms(2,"p[");
  526. ms48_604=se_ms(4,"]=p[");
  527. ms49_604=se_ms(3,"];\n");
  528. ms50_604=se_ms(2,"g[");
  529. ms51_604=se_ms(6,"]=e2s(");
  530. ms148_470=se_ms(3,");\n");
  531. ms52_604=se_ms(2,"g[");
  532. ms53_604=se_ms(4,"]=g[");
  533. ms54_604=se_ms(3,"];\n");
  534. ms55_604=se_ms(2,"t[");
  535. ms56_604=se_ms(2,"]=");
  536. }
  537. void se_msi44(void){
  538. ms58_604=se_ms(2,"g[");
  539. ms57_604=se_ms(4,"e2s(");
  540. ms134_470=se_ms(2,";\n");
  541. ms146_470=se_ms(2,"\175""\n");
  542. ms41_364=se_ms(10,"Renaming \"");
  543. ms42_364=se_ms(6,"\" as \"");
  544. ms118_470=se_ms(2,"/*");
  545. ms173_324=se_ms(31,"\n-- ANSI C code generated by :\n");
  546. ms1_604=se_ms(268,"-- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --\n-- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --\n-- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --\n--                 http://www.loria.fr/SmallEiffel              --\n");
  547. ms81_470=se_ms(2,"*/");
  548. ms172_324=se_ms(10,"#include \"");
  549. ms152_470=se_ms(2,"\"\n");
  550. ms8_364=se_ms(19,"Cannot write file \"");
  551. ms6_364=se_ms(9,"Writing \"");
  552. ms7_364=se_ms(8,"\" file.\n");
  553. ms184_324=se_ms(3,"-c ");
  554. ms183_324=se_ms(9,"\" saved.\n");
  555. ms175_324=se_ms(7,"linker.");
  556. ms28_364=se_ms(9,"o_suffix.");
  557. ms174_324=se_ms(9,"compiler.");
  558. }
  559. void se_msi45(void){
  560. ms178_324=se_ms(3,"-o ");
  561. ms26_364=se_ms(2,".c");
  562. ms180_324=se_ms(6,"strip ");
  563. ms179_324=se_ms(12,"emxbind -qs ");
  564. ms181_324=se_ms(5,"a.out");
  565. ms177_324=se_ms(23,"Type inference score : ");
  566. ms171_324=se_ms(16,"No <root class>.");
  567. ms4_683=se_ms(11,"Fatal Error");
  568. ms6_683=se_ms(3," : ");
  569. ms3_627=se_ms(5,"Line ");
  570. ms4_627=se_ms(8," column ");
  571. ms5_627=se_ms(4," in ");
  572. ms6_627=se_ms(2," (");
  573. ms7_627=se_ms(3," :\n");
  574. ms1_818=se_ms(32,"Correct previous error(s) first.");
  575. ms3_451=se_ms(3,"FOO");
  576. ms141_818=se_ms(38,"Index value expected (\"indexing ...\").");
  577. ms50_818=se_ms(25,"Keyword \"class\" expected.");
  578. ms154_818=se_ms(35,"Name of the current class expected.");
  579. ms25_818=se_ms(26,"Cannot write such a class.");
  580. }
  581. void se_msi46(void){
  582. ms94_818=se_ms(31,"Constraint Class name expected.");
  583. ms1_881=se_ms(57,"Class name appears twice in formal generic list (VCFG-2).");
  584. ms95_818=se_ms(36,"Empty formal generic list (deleted).");
  585. ms51_818=se_ms(47,"Manifest string expected for \"obsolete\" clause.");
  586. ms1_877=se_ms(20,"You cannot inherit \"");
  587. ms2_877=se_ms(24,"\" (not yet implemented).");
  588. ms113_818=se_ms(46,"Second identifier of a \"rename\" pair expected.");
  589. ms1_498=se_ms(40,"New name and old name must be different.");
  590. ms108_818=se_ms(34,"Unexpected \";\" to end rename list.");
  591. ms109_818=se_ms(115,"Inheritance option not at a good place. The good order is: \"rename... export... undefine... redefine... select...\".");
  592. ms93_818=se_ms(30,"Synonym feature name expected.");
  593. ms92_818=se_ms(37,"Frozen feature name synonym expected.");
  594. ms13_818=se_ms(20,"Substitute with \";\".");
  595. ms64_470=se_ms(27,"Cyclic anchored definition.");
  596. ms15_818=se_ms(37,"Empty formal argument list (deleted).");
  597. ms14_818=se_ms(25,"Bad formal aguments list.");
  598. ms2_505=se_ms(41,"Attribute must not have formal arguments.");
  599. ms1_505=se_ms(23,"Bad feature definition.");
  600. ms114_818=se_ms(34,"Obsolete manifest string expected.");
  601. ms19_818=se_ms(20,"Substitute with \";\".");
  602. }
  603. void se_msi47(void){
  604. ms18_818=se_ms(45,"Same identifier appears twice (local/formal).");
  605. ms17_818=se_ms(20,"Substitute with \",\".");
  606. ms151_818=se_ms(24,"Deleted extra separator.");
  607. ms16_818=se_ms(45,"Same identifier appears twice (local/formal).");
  608. ms20_818=se_ms(24,"Bad local variable list.");
  609. ms118_818=se_ms(22,"Routine body expected.");
  610. ms117_818=se_ms(17,"once routine body");
  611. ms116_818=se_ms(12,"routine body");
  612. ms90_818=se_ms(170,"Unkown external specification. Currently supported  keywords are : \"C_WithCurrent\", \"C_InlineWithCurrent\", \"C_WithoutCurrent\", \"C_InlineWithoutCurrent\" and \"SmallEiffel\".");
  613. ms29_470=se_ms(17,"JVM_invokevirtual");
  614. ms28_470=se_ms(16,"JVM_invokestatic");
  615. ms89_818=se_ms(2,"IC");
  616. ms88_818=se_ms(2,"IC");
  617. ms87_818=se_ms(1,"C");
  618. ms86_818=se_ms(4,"ICWC");
  619. ms85_818=se_ms(4,"ICWC");
  620. ms84_818=se_ms(3,"CWC");
  621. ms83_818=se_ms(3,"CWC");
  622. ms82_818=se_ms(3,"CSE");
  623. ms136_818=se_ms(30,"For readability, the keyword \"");
  624. }
  625. void se_msi48(void){
  626. ms137_818=se_ms(10,"\" is now \"");
  627. ms138_818=se_ms(42,"\". You should update your Eiffel code now.");
  628. ms81_818=se_ms(3,"CSE");
  629. ms91_470=se_ms(22,"C_InlineWithoutCurrent");
  630. ms99_470=se_ms(16,"C_WithoutCurrent");
  631. ms90_470=se_ms(19,"C_InlineWithCurrent");
  632. ms98_470=se_ms(13,"C_WithCurrent");
  633. ms157_818=se_ms(13,"Added \" here.");
  634. ms91_818=se_ms(32,"Alias name of external expected.");
  635. ms33_605=se_ms(49,"A class cannot be expanded and deferred (VTEC.1).");
  636. ms115_818=se_ms(35,"A routine must be ended with \"end\".");
  637. ms39_818=se_ms(51,"Right hand side expression expected for assignment.");
  638. ms38_818=se_ms(34,"Must not affect a formal argument.");
  639. ms37_818=se_ms(23,"Must not affect `Void\'.");
  640. ms36_818=se_ms(26,"Must not affect `Current\'.");
  641. ms35_818=se_ms(13,"\')\' expected.");
  642. ms68_818=se_ms(39,"Bad creation (procedure name expected).");
  643. ms67_818=se_ms(33,"Bad creation (writable expected).");
  644. ms66_818=se_ms(45,"A formal argument is not a writable variable.");
  645. ms65_818=se_ms(35,"Current is not a writable variable.");
  646. }
  647. void se_msi49(void){
  648. ms64_818=se_ms(28,"Bad creation (\'!\' expected).");
  649. ms63_818=se_ms(36,"Bad creation (type or \'!\' expected).");
  650. ms62_818=se_ms(49,"Explicit creation type mark must not be anchored.");
  651. ms131_818=se_ms(45,"Expected constant for BIT_N type declaration.");
  652. ms78_470=se_ms(4,"BIT ");
  653. ms130_818=se_ms(40,"Must find a class type after \"expanded\".");
  654. ms55_818=se_ms(17,"Bad generic list.");
  655. ms54_818=se_ms(29,"Empty generic list (deleted).");
  656. ms156_818=se_ms(19,"Type mark expected.");
  657. ms43_818=se_ms(35,"Bad use of predefined type C_ARRAY.");
  658. ms44_818=se_ms(53,"For Java compatibility, the new name is NATIVE_ARRAY.");
  659. ms42_818=se_ms(7,"C_ARRAY");
  660. ms41_818=se_ms(40,"Bad use of predefined type NATIVE_ARRAY.");
  661. ms40_818=se_ms(33,"Bad use of predefined type ARRAY.");
  662. ms129_818=se_ms(82,"Anchor expected. An anchor could be `Current\', a feature name or an argument name.");
  663. ms113_470=se_ms(5,"like ");
  664. ms102_818=se_ms(19,"from part of a loop");
  665. ms103_818=se_ms(38,"Variant (INTEGER) Expression Expected.");
  666. ms105_818=se_ms(37,"Keyword \"until\" expected (in a loop).");
  667. ms104_818=se_ms(36,"Boolean expression expected (until).");
  668. }
  669. void se_msi50(void){
  670. ms106_818=se_ms(36,"Keyword \"loop\" expected (in a loop).");
  671. ms107_818=se_ms(9,"loop body");
  672. ms99_818=se_ms(37,"Expression expected (\"inspect ... \").");
  673. ms134_818=se_ms(9,"when item");
  674. ms133_818=se_ms(9,"when item");
  675. ms142_818=se_ms(17,"Error in inspect.");
  676. ms132_818=se_ms(9,"when item");
  677. ms101_818=se_ms(36,"Added \"end\" for inspect instruction.");
  678. ms100_818=se_ms(15,"else of inspect");
  679. ms30_818=se_ms(45,"\"retry\" cannot be outside of a rescue clause.");
  680. ms126_818=se_ms(25,"In \"elseif ... then ...\".");
  681. ms125_818=se_ms(21,"In \"if ... then ...\".");
  682. ms127_818=se_ms(13,"Added \"then\".");
  683. ms128_818=se_ms(9,"then part");
  684. ms144_818=se_ms(10,"Added \";\".");
  685. ms61_818=se_ms(20,"Keyword \"end\" added.");
  686. ms60_818=se_ms(9,"else part");
  687. ms69_818=se_ms(31,"Empty debug key list (deleted).");
  688. ms70_818=se_ms(38,"\")\" expected to end debug string list.");
  689. ms71_818=se_ms(5,"debug");
  690. }
  691. void se_msi51(void){
  692. ms48_818=se_ms(32,"Empty check instruction removed.");
  693. ms49_818=se_ms(50,"Keyword \"end\" expected at the end of check clause.");
  694. ms57_818=se_ms(13,"In compound (");
  695. ms58_818=se_ms(27,"). Instruction or keyword \"");
  696. ms59_818=se_ms(11,"\" expected.");
  697. ms6_368=se_ms(47,"Deferred feature must not have rescue compound.");
  698. ms7_505=se_ms(58,"This constant feature should have a result type (INTEGER).");
  699. ms6_505=se_ms(61,"The type of this constant feature should be INTEGER  or REAL.");
  700. ms9_505=se_ms(55,"This constant feature should have a result type (REAL).");
  701. ms8_505=se_ms(49,"The type of this constant feature should be REAL.");
  702. ms4_505=se_ms(48,"The type of this constant feature should be BIT.");
  703. ms10_505=se_ms(51,"The type of this constant feature should be STRING.");
  704. ms5_505=se_ms(54,"The type of this constant feature should be CHARACTER.");
  705. ms3_505=se_ms(52,"The type of this constant feature should be BOOLEAN.");
  706. ms11_505=se_ms(39,"Unique feature must have a result type.");
  707. ms12_505=se_ms(38,"Unique feature must have INTEGER type.");
  708. ms149_818=se_ms(17,"Bad clients list.");
  709. ms56_818=se_ms(19,"Unexpected bracket.");
  710. ms153_818=se_ms(45,"Class name should use only uppercase letters.");
  711. ms1_33=se_ms(30,"Same Class Name appears twice.");
  712. }
  713. void se_msi52(void){
  714. ms119_818=se_ms(36,"Expression expected after \'implies\'.");
  715. ms1_517=se_ms(2,"/=");
  716. ms121_818=se_ms(2,"\\\\");
  717. ms1_453=se_ms(2,"\\\\");
  718. ms120_818=se_ms(2,"//");
  719. ms1_460=se_ms(2,"//");
  720. ms122_818=se_ms(1,"^");
  721. ms1_618=se_ms(13,"Syntax Error.");
  722. ms76_818=se_ms(51,"Expression \"old\" can be used in ensure clause only.");
  723. ms77_818=se_ms(32,"Expression expected after \"old\".");
  724. ms80_818=se_ms(48,"Added brackets for manifest constant before dot.");
  725. ms69_470=se_ms(27,"It is not an integer value.");
  726. ms158_818=se_ms(21,"Unexpected character.");
  727. ms29_818=se_ms(34,"Exponent of a real value expected.");
  728. ms139_818=se_ms(51,"Underscore in fractionnal part must group 3 digits.");
  729. ms147_818=se_ms(41,"Underscore in number must group 3 digits.");
  730. ms185_470=se_ms(2,"0.");
  731. ms28_818=se_ms(62,"In extended form of manifest string. Bad character before \'%\'.");
  732. ms27_818=se_ms(60,"In extended form of manifest string.Bad character after \'%\'.");
  733. ms26_818=se_ms(26,"Unknown special character.");
  734. }
  735. void se_msi53(void){
  736. ms146_818=se_ms(39,"Unexpected new line in manifest string.");
  737. ms1_805=se_ms(2,"ms");
  738. ms24_818=se_ms(26,"Unknown special character.");
  739. ms21_818=se_ms(35,"Unexpected character in ascii code.");
  740. ms23_818=se_ms(41,"Three digit is enought for an ascii code.");
  741. ms22_818=se_ms(25,"Bad (empty ?) ascii code.");
  742. ms148_818=se_ms(23,"Bad character constant.");
  743. ms79_818=se_ms(20,"Expression expected.");
  744. ms78_818=se_ms(27,"\')\' expected in expression.");
  745. ms135_818=se_ms(61,"An expression has a result value. This is not an instruction.");
  746. ms34_818=se_ms(32,"Identifier expected after a dot.");
  747. ms33_818=se_ms(38,"This name must not appear after a dot.");
  748. ms155_818=se_ms(41,"Feature name expected after \'$\' (VUAR.4).");
  749. ms152_818=se_ms(45,"`Result\' must only be used inside a function.");
  750. ms31_818=se_ms(30,"Empty argument list (deleted).");
  751. ms32_818=se_ms(35,"\')\' expected to end arguments list.");
  752. ms124_818=se_ms(35,"\'(\' expected to begin a strip list.");
  753. ms140_818=se_ms(22,"Feature name expected.");
  754. ms150_818=se_ms(19,"Deleted extra coma.");
  755. ms143_818=se_ms(10,"Added \",\".");
  756. }
  757. void se_msi54(void){
  758. ms145_818=se_ms(27,"Unexpected comma (deleted).");
  759. ms96_818=se_ms(38,"Character \'%\"\' inserted after \"infix\".");
  760. ms97_818=se_ms(29,"Infix operator name expected.");
  761. ms47_818=se_ms(1,"^");
  762. ms46_818=se_ms(2,"\\\\");
  763. ms45_818=se_ms(2,"//");
  764. ms2_902=se_ms(4,"_px_");
  765. ms98_818=se_ms(24,"Character \'%\"\' inserted.");
  766. ms110_818=se_ms(39,"Character \'%\"\' inserted after \"prefix\".");
  767. ms111_818=se_ms(30,"Prefix operator name expected.");
  768. ms112_818=se_ms(24,"Character \'%\"\' inserted.");
  769. ms1_953=se_ms(32,"Same feature name appears twice.");
  770. ms123_818=se_ms(39,"\')\' expected to end a strip expression.");
  771. ms75_818=se_ms(28,"Bad use of prefix operator. ");
  772. ms74_818=se_ms(10,"- (prefix)");
  773. ms73_818=se_ms(10,"+ (prefix)");
  774. ms11_818=se_ms(31,"Right hand side expression of \"");
  775. ms12_818=se_ms(11,"\" expected.");
  776. ms1_902=se_ms(4,"_ix_");
  777. ms72_818=se_ms(31,"End of manifest array expected.");
  778. }
  779. void se_msi55(void){
  780. ms159_818=se_ms(45,"Identifier should use only lowercase letters.");
  781. ms52_470=se_ms(4,"when");
  782. ms51_470=se_ms(7,"variant");
  783. ms48_470=se_ms(8,"undefine");
  784. ms49_470=se_ms(6,"unique");
  785. ms50_470=se_ms(5,"until");
  786. ms46_470=se_ms(4,"then");
  787. ms47_470=se_ms(4,"true");
  788. ms43_470=se_ms(6,"select");
  789. ms44_470=se_ms(8,"separate");
  790. ms45_470=se_ms(5,"strip");
  791. ms38_470=se_ms(8,"redefine");
  792. ms39_470=se_ms(6,"rename");
  793. ms40_470=se_ms(7,"require");
  794. ms41_470=se_ms(6,"rescue");
  795. ms42_470=se_ms(5,"retry");
  796. ms37_470=se_ms(6,"prefix");
  797. ms33_470=se_ms(8,"obsolete");
  798. ms34_470=se_ms(3,"old");
  799. ms35_470=se_ms(4,"once");
  800. }
  801. void se_msi56(void){
  802. ms30_470=se_ms(4,"like");
  803. ms31_470=se_ms(5,"local");
  804. ms32_470=se_ms(4,"loop");
  805. ms21_470=se_ms(2,"if");
  806. ms22_470=se_ms(8,"indexing");
  807. ms23_470=se_ms(5,"infix");
  808. ms24_470=se_ms(7,"inherit");
  809. ms25_470=se_ms(7,"inspect");
  810. ms27_470=se_ms(2,"is");
  811. ms17_470=se_ms(5,"false");
  812. ms18_470=se_ms(7,"feature");
  813. ms19_470=se_ms(4,"from");
  814. ms20_470=se_ms(6,"frozen");
  815. ms10_470=se_ms(4,"else");
  816. ms11_470=se_ms(6,"elseif");
  817. ms13_470=se_ms(6,"ensure");
  818. ms14_470=se_ms(8,"expanded");
  819. ms15_470=se_ms(6,"export");
  820. ms16_470=se_ms(8,"external");
  821. ms7_470=se_ms(5,"debug");
  822. }
  823. void se_msi57(void){
  824. ms8_470=se_ms(8,"deferred");
  825. ms9_470=se_ms(2,"do");
  826. ms4_470=se_ms(5,"check");
  827. ms5_470=se_ms(5,"class");
  828. ms6_470=se_ms(8,"creation");
  829. ms1_470=se_ms(5,"alias");
  830. ms2_470=se_ms(3,"all");
  831. ms3_470=se_ms(2,"as");
  832. ms26_470=se_ms(9,"invariant");
  833. ms53_818=se_ms(45,"Keyword \"end\" expected at the end of a class.");
  834. ms68_470=se_ms(25,"Deleted extra semi-colon.");
  835. ms52_818=se_ms(21,"End of text expected.");
  836. ms12_470=se_ms(3,"end");
  837. ms4_818=se_ms(12,"Load class \"");
  838. ms5_818=se_ms(11,"\" aborted.\n");
  839. ms135_470=se_ms(6,"File \"");
  840. ms6_818=se_ms(27,"\" does not contains class \"");
  841. ms2_627=se_ms(30,"Internal Error #2 in POSITION.");
  842. ms1_627=se_ms(30,"Internal Error #1 in POSITION.");
  843. ms11_359=se_ms(29,"Double definition of feature ");
  844. }
  845. void se_msi58(void){
  846. ms3_683=se_ms(5,"Error");
  847. ms5_683=se_ms(17,"Too many errors.\n");
  848. ms3_644=se_ms(42,"Cannot rename inexistant feature (VHRC.1).");
  849. ms4_644=se_ms(46,"Multiple rename for the same feature (VHRC.2).");
  850. ms9_877=se_ms(44,"Cannot undefine unexistant feature (VDUS.1).");
  851. ms10_877=se_ms(23,"Redefinition not found.");
  852. ms11_877=se_ms(44,"Cannot redefine unexistant feature (VDRS.1).");
  853. ms16_877=se_ms(40,"Cannot select unexistant feature (VMSS).");
  854. ms15_877=se_ms(41,"Missing select clause for those features.");
  855. ms14_877=se_ms(35,"Select conflict for those features.");
  856. ms2_473=se_ms(5,"ARRAY");
  857. ms3_473=se_ms(3,"BIT");
  858. ms4_473=se_ms(5,"BIT_N");
  859. ms5_473=se_ms(9,"BIT_N_REF");
  860. ms6_473=se_ms(7,"BOOLEAN");
  861. ms7_473=se_ms(11,"BOOLEAN_REF");
  862. ms8_473=se_ms(9,"CHARACTER");
  863. ms9_473=se_ms(13,"CHARACTER_REF");
  864. ms10_473=se_ms(10,"DICTIONARY");
  865. ms11_473=se_ms(6,"DOUBLE");
  866. }
  867. void se_msi59(void){
  868. ms12_473=se_ms(10,"DOUBLE_REF");
  869. ms13_473=se_ms(11,"FIXED_ARRAY");
  870. ms14_473=se_ms(7,"GENERAL");
  871. ms15_473=se_ms(7,"INTEGER");
  872. ms16_473=se_ms(11,"INTEGER_REF");
  873. ms17_473=se_ms(6,"MEMORY");
  874. ms18_473=se_ms(12,"NATIVE_ARRAY");
  875. ms19_473=se_ms(4,"NONE");
  876. ms20_473=se_ms(8,"PLATFORM");
  877. ms21_473=se_ms(7,"POINTER");
  878. ms22_473=se_ms(11,"POINTER_REF");
  879. ms23_473=se_ms(4,"REAL");
  880. ms24_473=se_ms(8,"REAL_REF");
  881. ms25_473=se_ms(6,"STRING");
  882. ms26_473=se_ms(13,"STD_FILE_READ");
  883. ms27_473=se_ms(3,"and");
  884. ms28_473=se_ms(8,"and then");
  885. ms29_473=se_ms(1,"@");
  886. ms30_473=se_ms(2,"\\\\");
  887. ms31_473=se_ms(1,"=");
  888. }
  889. void se_msi60(void){
  890. ms32_473=se_ms(2,">=");
  891. ms33_473=se_ms(1,">");
  892. ms34_473=se_ms(7,"implies");
  893. ms35_473=se_ms(2,"<=");
  894. ms36_473=se_ms(1,"<");
  895. ms37_473=se_ms(1,"-");
  896. ms38_473=se_ms(1,"*");
  897. ms39_473=se_ms(2,"/=");
  898. ms40_473=se_ms(3,"not");
  899. ms41_473=se_ms(2,"or");
  900. ms42_473=se_ms(7,"or else");
  901. ms43_473=se_ms(1,"+");
  902. ms44_473=se_ms(1,"^");
  903. ms45_473=se_ms(3,"@<<");
  904. ms46_473=se_ms(3,"@>>");
  905. ms47_473=se_ms(1,"/");
  906. ms48_473=se_ms(2,"//");
  907. ms49_473=se_ms(1,"#");
  908. ms50_473=se_ms(3,"xor");
  909. ms51_473=se_ms(5,"blank");
  910. }
  911. void se_msi61(void){
  912. ms52_473=se_ms(5,"bit_n");
  913. ms53_473=se_ms(12,"Boolean_bits");
  914. ms54_473=se_ms(6,"calloc");
  915. ms55_473=se_ms(8,"capacity");
  916. ms56_473=se_ms(14,"Character_bits");
  917. ms57_473=se_ms(9,"clear_all");
  918. ms58_473=se_ms(12,"compile_to_c");
  919. ms59_473=se_ms(14,"compile_to_jvm");
  920. ms60_473=se_ms(5,"count");
  921. ms61_473=se_ms(5,"crash");
  922. ms62_473=se_ms(4,"code");
  923. ms63_473=se_ms(11,"conforms_to");
  924. ms64_473=se_ms(4,"copy");
  925. ms65_473=se_ms(10,"c_inline_c");
  926. ms66_473=se_ms(10,"c_inline_h");
  927. ms67_473=se_ms(11,"Double_bits");
  928. ms68_473=se_ms(12,"double_floor");
  929. ms69_473=se_ms(13,"die_with_code");
  930. ms70_473=se_ms(14,"element_sizeof");
  931. ms71_473=se_ms(8,"eof_code");
  932. }
  933. void se_msi62(void){
  934. ms72_473=se_ms(6,"fclose");
  935. ms73_473=se_ms(4,"feof");
  936. ms74_473=se_ms(5,"floor");
  937. ms75_473=se_ms(12,"flush_stream");
  938. ms76_473=se_ms(4,"free");
  939. ms77_473=se_ms(12,"from_pointer");
  940. ms78_473=se_ms(15,"generating_type");
  941. ms79_473=se_ms(9,"generator");
  942. ms80_473=se_ms(2,"io");
  943. ms81_473=se_ms(12,"Integer_bits");
  944. ms82_473=se_ms(22,"is_basic_expanded_type");
  945. ms83_473=se_ms(16,"is_expanded_type");
  946. ms84_473=se_ms(8,"is_equal");
  947. ms85_473=se_ms(11,"is_not_void");
  948. ms86_473=se_ms(4,"item");
  949. ms87_473=se_ms(5,"lower");
  950. ms88_473=se_ms(6,"malloc");
  951. ms89_473=se_ms(4,"make");
  952. ms90_473=se_ms(22,"Minimum_character_code");
  953. ms91_473=se_ms(14,"Minimum_double");
  954. }
  955. void se_msi63(void){
  956. ms92_473=se_ms(15,"Minimum_integer");
  957. ms93_473=se_ms(12,"Minimum_real");
  958. ms94_473=se_ms(22,"Maximum_character_code");
  959. ms95_473=se_ms(14,"Maximum_double");
  960. ms96_473=se_ms(15,"Maximum_integer");
  961. ms97_473=se_ms(12,"Maximum_real");
  962. ms98_473=se_ms(11,"object_size");
  963. ms99_473=se_ms(12,"Pointer_bits");
  964. ms100_473=se_ms(12,"pointer_size");
  965. ms101_473=se_ms(5,"print");
  966. ms102_473=se_ms(8,"print_on");
  967. ms103_473=se_ms(20,"print_run_time_stack");
  968. ms104_473=se_ms(3,"put");
  969. ms105_473=se_ms(5,"put_0");
  970. ms106_473=se_ms(5,"put_1");
  971. ms107_473=se_ms(9,"read_byte");
  972. ms108_473=se_ms(9,"Real_bits");
  973. ms109_473=se_ms(7,"realloc");
  974. ms110_473=se_ms(7,"se_argc");
  975. ms111_473=se_ms(7,"se_argv");
  976. }
  977. void se_msi64(void){
  978. ms112_473=se_ms(9,"se_getenv");
  979. ms113_473=se_ms(9,"se_remove");
  980. ms114_473=se_ms(9,"se_rename");
  981. ms115_473=se_ms(16,"se_string2double");
  982. ms116_473=se_ms(9,"se_system");
  983. ms117_473=se_ms(8,"sfr_open");
  984. ms118_473=se_ms(8,"sfw_open");
  985. ms119_473=se_ms(14,"sprintf_double");
  986. ms120_473=se_ms(15,"sprintf_pointer");
  987. ms121_473=se_ms(13,"standard_copy");
  988. ms122_473=se_ms(17,"standard_is_equal");
  989. ms123_473=se_ms(13,"standard_twin");
  990. ms124_473=se_ms(6,"stderr");
  991. ms125_473=se_ms(5,"stdin");
  992. ms126_473=se_ms(6,"stdout");
  993. ms127_473=se_ms(9,"std_error");
  994. ms128_473=se_ms(9,"std_input");
  995. ms129_473=se_ms(10,"std_output");
  996. ms130_473=se_ms(7,"storage");
  997. ms131_473=se_ms(6,"to_bit");
  998. }
  999. void se_msi65(void){
  1000. ms132_473=se_ms(12,"to_character");
  1001. ms133_473=se_ms(9,"to_double");
  1002. ms134_473=se_ms(10,"to_integer");
  1003. ms135_473=se_ms(10,"to_pointer");
  1004. ms136_473=se_ms(7,"to_real");
  1005. ms137_473=se_ms(12,"trace_switch");
  1006. ms138_473=se_ms(20,"truncated_to_integer");
  1007. ms139_473=se_ms(4,"twin");
  1008. ms140_473=se_ms(5,"upper");
  1009. ms141_473=se_ms(13,"with_capacity");
  1010. ms142_473=se_ms(10,"write_byte");
  1011. ms143_473=se_ms(7,"Current");
  1012. ms144_473=se_ms(23,"NATIVE_ARRAY[CHARACTER]");
  1013. ms145_473=se_ms(12,"like Current");
  1014. ms146_473=se_ms(6,"Result");
  1015. ms147_473=se_ms(4,"Void");
  1016. ms1_473=se_ms(3,"ANY");
  1017. ms10_393=se_ms(27,"Bad comment to end a class.");
  1018. ms3_291=se_ms(27,"Cannot find Base Class for ");
  1019. ms67_470=se_ms(1,".");
  1020. }
  1021. void se_msi66(void){
  1022. ms1_683=se_ms(5,"Type ");
  1023. ms19_605=se_ms(27,"Cyclic inheritance graph : ");
  1024. ms20_605=se_ms(2,", ");
  1025. ms21_605=se_ms(5,", ...");
  1026. ms66_470=se_ms(16,"Class not found.");
  1027. ms6_605=se_ms(56,"Deferred class should not have creation clause (VGCP.1).");
  1028. ms2_683=se_ms(7,"Warning");
  1029. ms10_604=se_ms(35,"Bad \"rename.se\" file.\nCannot open \"");
  1030. ms137_470=se_ms(2,"\".");
  1031. ms13_604=se_ms(9,"rename.se");
  1032. ms14_604=se_ms(20,"Multiple entry for \"");
  1033. ms15_604=se_ms(36,"\" in \"rename.se\" files.\nClash for \n\"");
  1034. ms16_604=se_ms(8,"\" and \n\"");
  1035. ms17_604=se_ms(2,".\n");
  1036. ms25_364=se_ms(2,".e");
  1037. ms11_604=se_ms(31,"Unable to find file for class \"");
  1038. ms12_604=se_ms(3,"\". ");
  1039. ms62_604=se_ms(19,"\nLoading path is :\n");
  1040. ms2_604=se_ms(11,"loadpath.se");
  1041. }
  1042. void se_msi67(void){
  1043. ms3_604=se_ms(9,"loadpath.");
  1044. ms4_604=se_ms(23,"No default path (file \"");
  1045. ms5_604=se_ms(14,"\" not found).\n");
  1046. ms63_604=se_ms(22,"Environment Variable \"");
  1047. ms64_604=se_ms(5,"\" is\n");
  1048. ms66_604=se_ms(8,"set to \"");
  1049. ms67_604=se_ms(3,"\". ");
  1050. ms65_604=se_ms(9,"not set. ");
  1051. ms7_604=se_ms(21,"Unable to load class.");
  1052. ms6_604=se_ms(34,"Internal Error #1 in SMALL_EIFFEL.");
  1053. ms9_627=se_ms(37,"SmallEiffel cannot load base class : ");
  1054. ms10_627=se_ms(1,"\n");
  1055. ms8_627=se_ms(2,"^\n");
  1056. ms7_683=se_ms(7,"------\n");
  1057. ms27_364=se_ms(2,".h");
  1058. ms37_364=se_ms(5,".make");
  1059. ms36_364=se_ms(4,".CMD");
  1060. ms35_364=se_ms(4,".COM");
  1061. ms34_364=se_ms(4,".bat");
  1062. ms33_364=se_ms(4,".BAT");
  1063. }
  1064. void se_msi68(void){
  1065. ms1_306=se_ms(10,"Removing \"");
  1066. ms2_306=se_ms(2,"\"\n");
  1067. ms9_818=se_ms(13," warning(s).\n");
  1068. ms10_818=se_ms(11," error(s).\n");
  1069. ms75_470=se_ms(7,"****** ");
  1070. ms136_470=se_ms(6,"Done.\n");
  1071. ms1_111=se_ms(35,"Bad use of command `compile_to_c\'.\n");
  1072. ms2_111=se_ms(12,"compile_to_c");
  1073. ms2_364=se_ms(3,"man");
  1074. ms126_470=se_ms(3,"sys");
  1075. ms3_306=se_ms(18,"Try to read file \"");
  1076. ms4_306=se_ms(3,"\".\n");
  1077. ms20_364=se_ms(21,"Unable to find file\n\"");
  1078. ms127_470=se_ms(9,"system.se");
  1079. ms21_364=se_ms(14,"\" using path \"");
  1080. ms121_470=se_ms(11,"SmallEiffel");
  1081. ms1_364=se_ms(31,"/usr/local/logiciel/SmallEiffel");
  1082. ms24_364=se_ms(11,"System is \"");
  1083. ms22_364=se_ms(29,"Unknown system name in file\n\"");
  1084. ms23_364=se_ms(36,"\".\nCurrently handled system names :\n");
  1085. }
  1086. void se_msi69(void){
  1087. ms13_364=se_ms(5,"Amiga");
  1088. ms14_364=se_ms(3,"DOS");
  1089. ms15_364=se_ms(9,"Macintosh");
  1090. ms16_364=se_ms(3,"OS2");
  1091. ms18_364=se_ms(3,"VMS");
  1092. ms19_364=se_ms(7,"Windows");
  1093. ms17_364=se_ms(4,"UNIX");
  1094. ms39_364=se_ms(4,".txt");
  1095. ms3_364=se_ms(26,"Unable to find help file \"");
  1096. ms242_470=se_ms(3,"\".\n");
  1097. }
  1098. char*_spfd;
  1099. T7*se_ms(int c,char*e){
  1100. T7*s=malloc(sizeof(T7));
  1101. s->_count=c;
  1102. s->_capacity=c+1;
  1103. s->_storage=malloc(c+1);
  1104. memcpy(s->_storage,e,c);
  1105. return s;}
  1106. T7*e2s(char*e){
  1107. return se_ms(strlen(e),e);}
  1108. char*s2e(T7*s){
  1109. char*e=malloc(1+s->_count);
  1110. memcpy(e,s->_storage,s->_count);
  1111. e[s->_count]='\0';
  1112. return e;}
  1113. void*se_ma65(int argc,...){
  1114. T65*m;
  1115. va_list pa;
  1116. T0**s;
  1117. m=malloc(sizeof(*m));
  1118. *m=M65;
  1119. if(argc){
  1120. s=malloc(argc*sizeof(*s));
  1121. m->_storage=s;
  1122. m->_capacity=argc;
  1123. m->_lower=1;
  1124. m->_upper=argc;
  1125. va_start(pa,argc);
  1126. while(argc--){
  1127. *(s++)=((void*)(va_arg(pa,char*)));
  1128. }
  1129. va_end(pa);
  1130. }
  1131. return m;}
  1132. void*se_ma901(int argc,...){
  1133. T901*m;
  1134. va_list pa;
  1135. T0**s;
  1136. m=malloc(sizeof(*m));
  1137. *m=M901;
  1138. if(argc){
  1139. s=malloc(argc*sizeof(*s));
  1140. m->_storage=s;
  1141. m->_capacity=argc;
  1142. m->_lower=1;
  1143. m->_upper=argc;
  1144. va_start(pa,argc);
  1145. while(argc--){
  1146. *(s++)=((void*)(va_arg(pa,char*)));
  1147. }
  1148. va_end(pa);
  1149. }
  1150. return m;}
  1151. void*se_ma263(int argc,...){
  1152. T263*m;
  1153. va_list pa;
  1154. T0**s;
  1155. m=malloc(sizeof(*m));
  1156. *m=M263;
  1157. if(argc){
  1158. s=malloc(argc*sizeof(*s));
  1159. m->_storage=s;
  1160. m->_capacity=argc;
  1161. m->_lower=1;
  1162. m->_upper=argc;
  1163. va_start(pa,argc);
  1164. while(argc--){
  1165. *(s++)=((void*)(va_arg(pa,char*)));
  1166. }
  1167. va_end(pa);
  1168. }
  1169. return m;}
  1170. void*se_ma522(int argc,...){
  1171. T522*m;
  1172. va_list pa;
  1173. T0**s;
  1174. m=malloc(sizeof(*m));
  1175. *m=M522;
  1176. if(argc){
  1177. s=malloc(argc*sizeof(*s));
  1178. m->_storage=s;
  1179. m->_capacity=argc;
  1180. m->_lower=1;
  1181. m->_upper=argc;
  1182. va_start(pa,argc);
  1183. while(argc--){
  1184. *(s++)=((void*)(va_arg(pa,char*)));
  1185. }
  1186. va_end(pa);
  1187. }
  1188. return m;}
  1189. void*se_ma587(int argc,...){
  1190. T587*m;
  1191. va_list pa;
  1192. T0**s;
  1193. m=malloc(sizeof(*m));
  1194. *m=M587;
  1195. if(argc){
  1196. s=malloc(argc*sizeof(*s));
  1197. m->_storage=s;
  1198. m->_capacity=argc;
  1199. m->_lower=1;
  1200. m->_upper=argc;
  1201. va_start(pa,argc);
  1202. while(argc--){
  1203. *(s++)=((void*)(va_arg(pa,char*)));
  1204. }
  1205. va_end(pa);
  1206. }
  1207. return m;}
  1208. void*se_ma396(int argc,...){
  1209. T396*m;
  1210. va_list pa;
  1211. T0**s;
  1212. m=malloc(sizeof(*m));
  1213. *m=M396;
  1214. if(argc){
  1215. s=malloc(argc*sizeof(*s));
  1216. m->_storage=s;
  1217. m->_capacity=argc;
  1218. m->_lower=1;
  1219. m->_upper=argc;
  1220. va_start(pa,argc);
  1221. while(argc--){
  1222. *(s++)=((void*)(va_arg(pa,char*)));
  1223. }
  1224. va_end(pa);
  1225. }
  1226. return m;}
  1227. void*se_ma848(int argc,...){
  1228. T848*m;
  1229. va_list pa;
  1230. T0**s;
  1231. m=malloc(sizeof(*m));
  1232. *m=M848;
  1233. if(argc){
  1234. s=malloc(argc*sizeof(*s));
  1235. m->_storage=s;
  1236. m->_capacity=argc;
  1237. m->_lower=1;
  1238. m->_upper=argc;
  1239. va_start(pa,argc);
  1240. while(argc--){
  1241. *(s++)=((void*)(va_arg(pa,char*)));
  1242. }
  1243. va_end(pa);
  1244. }
  1245. return m;}
  1246. void*se_ma147(int argc,...){
  1247. T147*m;
  1248. va_list pa;
  1249. T0**s;
  1250. m=malloc(sizeof(*m));
  1251. *m=M147;
  1252. if(argc){
  1253. s=malloc(argc*sizeof(*s));
  1254. m->_storage=s;
  1255. m->_capacity=argc;
  1256. m->_lower=1;
  1257. m->_upper=argc;
  1258. va_start(pa,argc);
  1259. while(argc--){
  1260. *(s++)=((void*)(va_arg(pa,char*)));
  1261. }
  1262. va_end(pa);
  1263. }
  1264. return m;}
  1265. void*se_ma855(int argc,...){
  1266. T855*m;
  1267. va_list pa;
  1268. T0**s;
  1269. m=malloc(sizeof(*m));
  1270. *m=M855;
  1271. if(argc){
  1272. s=malloc(argc*sizeof(*s));
  1273. m->_storage=s;
  1274. m->_capacity=argc;
  1275. m->_lower=1;
  1276. m->_upper=argc;
  1277. va_start(pa,argc);
  1278. while(argc--){
  1279. *(s++)=((void*)(va_arg(pa,char*)));
  1280. }
  1281. va_end(pa);
  1282. }
  1283. return m;}
  1284. void*se_ma280(int argc,...){
  1285. T280*m;
  1286. va_list pa;
  1287. T0**s;
  1288. m=malloc(sizeof(*m));
  1289. *m=M280;
  1290. if(argc){
  1291. s=malloc(argc*sizeof(*s));
  1292. m->_storage=s;
  1293. m->_capacity=argc;
  1294. m->_lower=1;
  1295. m->_upper=argc;
  1296. va_start(pa,argc);
  1297. while(argc--){
  1298. *(s++)=((void*)(va_arg(pa,char*)));
  1299. }
  1300. va_end(pa);
  1301. }
  1302. return m;}
  1303. void*se_ma26(int argc,...){
  1304. T26*m;
  1305. va_list pa;
  1306. T0**s;
  1307. m=malloc(sizeof(*m));
  1308. *m=M26;
  1309. if(argc){
  1310. s=malloc(argc*sizeof(*s));
  1311. m->_storage=s;
  1312. m->_capacity=argc;
  1313. m->_lower=1;
  1314. m->_upper=argc;
  1315. va_start(pa,argc);
  1316. while(argc--){
  1317. *(s++)=((void*)(va_arg(pa,char*)));
  1318. }
  1319. va_end(pa);
  1320. }
  1321. return m;}
  1322. void*se_ma733(int argc,...){
  1323. T733*m;
  1324. va_list pa;
  1325. T0**s;
  1326. m=malloc(sizeof(*m));
  1327. *m=M733;
  1328. if(argc){
  1329. s=malloc(argc*sizeof(*s));
  1330. m->_storage=s;
  1331. m->_capacity=argc;
  1332. m->_lower=1;
  1333. m->_upper=argc;
  1334. va_start(pa,argc);
  1335. while(argc--){
  1336. *(s++)=((void*)(va_arg(pa,char*)));
  1337. }
  1338. va_end(pa);
  1339. }
  1340. return m;}
  1341.  
  1342.