compile_to_c43.c

This is compile_to_c43.c in view mode; [Download] [Up]
/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.91)    --      FRANCE
-- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN 
-- University Henri Poincare' - Nancy 1 - email colnet@loria.fr 
-- CRIN (Centre de Recherche en Informatique de Nancy)
-- FRANCE 
*/
#include "compile_to_c.h"
void se_manifest_strings(void){
ms61_27=e2s("argument");
ms62_27=e2s("argument_count");
ms94_27=e2s("with_capacity");
ms64_27=e2s("blank");
ms79_27=e2s("make");
ms1_114=e2s("Cannot use NONE to type an attribute.");
ms2_291=e2s(")->_");
ms2_290=e2s(");\n");
ms1_290=e2s(");\n");
ms4_289=e2s("/*)*/");
ms3_289=e2s("(T0 *)");
ms2_289=e2s("/*(IRF4*/");
ms4_288=e2s(");\n");
ms18_288=e2s("sizeof(char *)");
ms17_288=e2s("((int)");
ms15_288=e2s("((unsigned char)");
ms13_288=e2s(")&&(");
ms12_288=e2s(")\174""\174""(");
ms11_288=e2s("))\174""\174""(");
ms10_288=e2s("(!(");
ms25_288=e2s("(float)");
ms24_288=e2s("to_real");
ms26_288=e2s("sin");
ms27_288=e2s("cos");
ms28_288=e2s("tan");
ms29_288=e2s("asin");
ms30_288=e2s("acos");
ms31_288=e2s("atan");
ms32_288=e2s("sinh");
ms33_288=e2s("cosh");
ms34_288=e2s("tanh");
ms35_288=e2s("exp");
ms36_288=e2s("log");
ms37_288=e2s("log10");
ms38_288=e2s("sqrt");
ms39_288=e2s("ceil");
ms40_288=e2s("floor");
ms23_288=e2s("pow(");
ms22_288=e2s("^");
ms91_27=e2s("to_character");
ms21_288=e2s("//");
ms20_288=e2s("%");
ms19_288=e2s("\\\\");
ms213_44=e2s("))");
ms212_44=e2s("),sizeof(T");
ms211_44=e2s("((");
ms210_44=e2s(")->id]");
ms209_44=e2s("vc(");
ms208_44=e2s("s[(");
ms207_44=e2s("((void *)");
ms206_44=e2s("]))");
ms205_44=e2s("))");
ms204_44=e2s(")->id)");
ms203_44=e2s("((T0 *)(g[((");
ms202_44=e2s("]))");
ms201_44=e2s(")->id");
ms200_44=e2s("((T0 *)(gt[(");
ms2_287=e2s(");\n");
ms1_287=e2s(");\n");
ms8_287=e2s(");\n");
ms70_27=e2s("c_inline_h");
ms519_44=e2s("Bad usage of C inlining.");
ms1_285=e2s("(T0 *)");
ms6_281=e2s(";\175""\n");
ms5_281=e2s("return ");
ms4_281=e2s("=R;\175""\n");
ms3_281=e2s("=1;\n");
ms2_281=e2s("==0)\173""\n");
ms1_281=e2s("if (");
ms10_281=e2s(";\n");
ms9_281=e2s("0*");
ms8_281=e2s("extern ");
ms11_281=e2s("std_output");
ms12_281=e2s("std_input");
ms13_281=e2s("std_error");
ms14_281=e2s("io");
ms66_27=e2s("command_arguments");
ms6_290=e2s("\175""\175""\n");
ms5_290=e2s("=1;\n");
ms4_290=e2s("==0)\173""\n");
ms3_290=e2s("if (");
ms29_268=e2s("=0;\n");
ms28_268=e2s("int ");
ms27_268=e2s(";\n");
ms26_268=e2s("extern int ");
ms1_289=e2s("return R;\n\175""\n");
ms9_288=e2s("return R;\n\175""\n");
ms8_288=e2s("]);\n");
ms7_288=e2s("-(C->_lower)");
ms6_288=e2s("*)(C->_storage))[a1");
ms5_288=e2s("R=(((");
ms25_268=e2s(");\n");
ms24_268=e2s("void");
ms23_268=e2s(" C");
ms22_268=e2s("void ");
ms21_268=e2s("/*external*/");
ms7_287=e2s("\175""\n");
ms6_287=e2s("]=a1;\n");
ms5_287=e2s("-(C->_lower)");
ms4_287=e2s("*)(C->_storage))[a2");
ms3_287=e2s("((");
ms3_291=e2s("&(C->_");
ms2_286=e2s(" is a deferred feature in ");
ms2_285=e2s("Cannot access address of a constant (VZAA).");
ms69_27=e2s("c_inline_c");
ms5_173=e2s(";\n");
ms4_173=e2s("0*");
ms1_71=e2s("FEATURE_NAME/Should never be called.");
ms85_27=e2s("put");
ms76_27=e2s("item");
ms80_27=e2s("object_size");
ms92_27=e2s("to_pointer");
ms73_27=e2s("generator");
ms72_27=e2s("generating_type");
ms2_261=e2s("A once routine must not be undefined (VDUS).");
ms1_150=e2s("An attribute must not be undefined (VDUS).");
ms2_98=e2s("Same name appears twice.");
ms1_117=e2s("typedef struct sTstring T7;\n");
ms1_116=e2s("typedef float T4;\n");
ms4_115=e2s("typedef void * T8;\n");
ms1_113=e2s("typedef int T2;\n");
ms1_112=e2s("typedef double T5;\n");
ms1_111=e2s("typedef char T3;\n");
ms1_109=e2s("typedef int T6;\n");
ms11_107=e2s(";\n");
ms10_107=e2s(" T");
ms9_107=e2s("array");
ms8_107=e2s("typedef struct sT");
ms4_104=e2s(";\n");
ms3_104=e2s(" T");
ms2_104=e2s("typedef struct sT");
ms3_119=e2s("T0*");
ms2_118=e2s("T0*");
ms2_116=e2s("float");
ms2_113=e2s("int");
ms2_112=e2s("double");
ms2_111=e2s("char");
ms2_109=e2s("int");
ms2_114=e2s("No creation for NONE.");
ms1_110=e2s("Such a simple Type has no creation clause.");
ms1_91=e2s("No creation for ANY.");
ms2_119=e2s(" (TYPE_GENERIC).");
ms5_120=e2s("Bad number of generic arguments.");
ms1_115=e2s(" does not match with ");
ms3_107=e2s(". It must not be so. SmallEiffel limitation :-(.");
ms2_107=e2s(" is a subclass of ");
ms8_104=e2s(" (VNCB).");
ms105_27=e2s(" is not a kind of ");
ms7_107=e2s("*_storage;\175"";\n");
ms6_107=e2s("\173""int id;int _capacity;int _lower;int _upper;T");
ms5_107=e2s("struct sT");
ms7_104=e2s("];\175"";\n");
ms6_104=e2s("\173""char storage[");
ms5_104=e2s("struct sT");
ms4_105=e2s("BIT ");
ms1_103=e2s("BIT ");
ms1_95=e2s("like Current");
ms1_119=e2s("Internal Error #1 in TYPE_GENERIC.");
ms1_118=e2s("Internal Error #3 in TYPE_CLASS.");
ms1_107=e2s("Internal Error #1 in TYPE_ARRAY.");
ms2_102=e2s("Internal Error #1 in TYPE_EXPANDED.");
ms3_116=e2s("float");
ms5_115=e2s("T8");
ms3_113=e2s("int");
ms3_112=e2s("double");
ms3_111=e2s("char");
ms3_109=e2s("int");
ms1_104=e2s("BIT_N");
ms2_110=e2s("item");
ms3_114=e2s("Internal Error #1 in TYPE_NONE.");
ms6_119=e2s("Invalid Generic type.");
ms5_119=e2s("Bad number of generic arguments.");
ms4_119=e2s(" is not a generic class.");
ms2_117=e2s("STRING must not be expanded.");
ms4_116=e2s("REAL must be expanded.");
ms3_115=e2s("void *");
ms2_115=e2s("char *");
ms7_115=e2s("POINTER must be expanded.");
ms4_113=e2s("INTEGER must be expanded.");
ms4_112=e2s("DOUBLE must be expanded.");
ms4_111=e2s("CHARACTER must be expanded.");
ms4_109=e2s("BOOLEAN must be expanded.");
ms98_27=e2s("Bad generic argument.");
ms1_62=e2s(" is (not) generic ?");
ms3_105=e2s(" must be a positive INTEGER.");
ms2_105=e2s("TYPE_BIT_2/NYI");
ms1_105=e2s("Is not an INTEGER constant.");
ms108_27=e2s(" Not found.");
ms5_134=e2s("Procedure found has arguments. ");
ms4_134=e2s("Feature found is not a procedure.");
ms3_134=e2s(" not found.");
ms2_134=e2s("Creation procedure for ");
ms9_27=e2s("Expanded class must have no creation procedure, or only one creation procedure with no arguments (VTEC.2).");
ms101_27=e2s(" cannot be expanded. ");
ms1_53=e2s(" A deferred class must not be expanded (VTEC.1).");
ms106_27=e2s(" is invalid.");
ms4_101=e2s("Bad anchor.");
ms3_101=e2s("Bad anchor. Feature found cannot be an anchor.");
ms2_101=e2s("Bad anchor. Feature not found.");
ms4_100=e2s("Anchor must not be expanded.");
ms3_100=e2s("Only one level of anchoring allowed.");
ms2_100=e2s("Bad anchor.");
ms2_91=e2s("ANY must not be expanded.");
ms9_104=e2s("BIT ");
ms3_118=e2s("NULL");
ms11_104=e2s("\175""\175""");
ms10_104=e2s("\173""\173""");
ms14_62=e2s("0/*dummy*/");
ms2_274=e2s(");\n");
ms1_274=e2s(");\n");
ms10_274=e2s("/*]*/\n");
ms199_44=e2s(";\n");
ms198_44=e2s(",\n");
ms197_44=e2s("(/*UT*/(void)");
ms9_274=e2s(");");
ms16_277=e2s("Internal Error #2 in SWITCH.");
ms15_277=e2s("Internal Error #1 in SWITCH.");
ms14_277=e2s(")->_item");
ms8_274=e2s("(T0 *)");
ms7_274=e2s("=(");
ms6_274=e2s("->_");
ms444_44=e2s("evobt(");
ms443_44=e2s("(rsp();exit(1);)");
ms11_27=e2s("Compiler (SmallEiffel/cc/gcc) may fail because of System Validity Problem. Sorry.");
ms10_27=e2s(" is concerned. ");
ms442_44=e2s("Call on a Void or a bad target.");
ms196_44=e2s("->_");
ms13_277=e2s(" *)C");
ms12_277=e2s("(T");
ms459_44=e2s("))");
ms458_44=e2s(" *)ci(");
ms457_44=e2s("((T");
ms5_274=e2s("/*AW*/");
ms4_274=e2s("*/");
ms3_274=e2s("/*[IRF3:");
ms447_44=e2s("rs_unlink();\n");
ms449_44=e2s("R");
ms448_44=e2s("C");
ms471_44=e2s(");\n");
ms470_44=e2s("EXP");
ms469_44=e2s("BIT");
ms468_44=e2s("REF((void **)");
ms467_44=e2s("rs_p");
ms446_44=e2s(");\n");
ms445_44=e2s("rs_link(t");
ms20_268=e2s(";\n");
ms19_268=e2s(" R=");
ms3_97=e2s(" a");
ms18_268=e2s("void");
ms17_268=e2s("/*C*/");
ms16_268=e2s("rT");
ms15_268=e2s("void ");
ms14_268=e2s("*/");
ms13_268=e2s("/*");
ms12_268=e2s("[];\n");
ms11_268=e2s("extern char trT");
ms10_268=e2s("\";\n");
ms9_268=e2s(" of ");
ms8_268=e2s("prefix ");
ms7_268=e2s("infix ");
ms6_268=e2s("[]=\"");
ms5_268=e2s("char trT");
ms4_241=e2s("Bad CHARACTER value.");
ms3_241=e2s("Bad CHARACTER value.");
ms2_235=e2s("Bad CHARACTER value.");
ms13_234=e2s("Not a good slice.");
ms2_241=e2s("Bad INTEGER value.");
ms1_241=e2s("Bad INTEGER value.");
ms1_235=e2s("Bad INTEGER value.");
ms15_234=e2s(") in the same inspect.");
ms14_234=e2s("Second occurrence for this value (");
ms11_257=e2s(" = NULL;\n\175"";");
ms10_257=e2s("\nbreak;\ndefault:\n");
ms9_257=e2s(": ");
ms8_257=e2s("case ");
ms7_257=e2s("id) \173""\n");
ms6_257=e2s(")->");
ms5_257=e2s(") switch (((T0 *)");
ms4_257=e2s(";\nif ((int)");
ms3_257=e2s("REVERSE_ASSIGNMENT Not Yet Implemented.");
ms2_257=e2s("(T0 *)");
ms1_257=e2s("=NULL;\n");
ms6_256=e2s(";\n");
ms5_256=e2s("Not Yet Implemented (ASSIGNMENT/Reference into Expanded).");
ms4_256=e2s(");\n");
ms3_256=e2s(";\n");
ms2_256=e2s("(T0 *)");
ms1_256=e2s("(T0 *)");
ms5_255=e2s("=(T0 *)n;\175""");
ms4_255=e2s("n");
ms3_255=e2s(";\n");
ms2_255=e2s(" *n=");
ms1_255=e2s("\173""T");
ms5_253=e2s("=(T0 *)n;\175""\n");
ms4_253=e2s("n");
ms3_253=e2s(";\n");
ms2_253=e2s(" *n=");
ms1_253=e2s("\173""T");
ms2_251=e2s(");\n");
ms1_251=e2s("=((T0 *)");
ms479_44=e2s("ivT");
ms2_248=e2s(");\n");
ms1_248=e2s("=((T0 *)");
ms5_245=e2s("\175""\n");
ms4_245=e2s("\175""\n");
ms466_44=e2s(");\n");
ms465_44=e2s("v=lvc(c++,v,");
ms3_245=e2s(")) \173""\n");
ms2_245=e2s("while (!(");
ms2_244=e2s("liv");
ms1_245=e2s("\173""int c=0;int v=0;\n");
ms4_233=e2s("\175""\n");
ms3_233=e2s("Invalid inspect (nothing selected).");
ms254_44=e2s(");\n");
ms253_44=e2s("error1(");
ms217_44=e2s(": ;\n");
ms216_44=e2s(" l");
ms8_234=e2s(")) ");
ms7_234=e2s("<=");
ms6_234=e2s(")&&(");
ms5_234=e2s("<=");
ms4_234=e2s("if ((");
ms215_44=e2s(";\n");
ms214_44=e2s("goto l");
ms3_234=e2s(") ");
ms2_234=e2s(" == ");
ms1_234=e2s("if (");
ms2_233=e2s(";\n");
ms453_44=e2s("iv");
ms1_233=e2s("\173""int ");
ms1_232=e2s("E_RETRY/nyi.");
ms5_226=e2s("/*FI*/");
ms4_226=e2s("\175""\n");
ms3_226=e2s("else \173""\n");
ms2_226=e2s("/*AE*/\n");
ms6_229=e2s("\175""\n");
ms5_229=e2s(") \173""\n");
ms439_44=e2s(",rs_pop_int(");
ms4_229=e2s("if (");
ms3_229=e2s("/*AF*/");
ms2_229=e2s("\175""\n");
ms1_229=e2s("\173""/*AT*/");
ms10_229=e2s(" else ");
ms1_226=e2s("/*IF*/");
ms1_222=e2s("civ");
ms452_44=e2s("rs-=8;\n");
ms16_257=e2s(" Invalid reverse assignment (VJRV).");
ms15_257=e2s(" is not a reference Type.");
ms14_257=e2s(" (\"?=\" is not necessary).");
ms13_257=e2s(". Simple assignment is allowed");
ms12_257=e2s(" is a ");
ms12_256=e2s("ASSIGNMENT/Not Yet Implemented.");
ms11_256=e2s(".");
ms10_256=e2s("Void may not be assigned to an expanded entity. Left hand side is ");
ms9_256=e2s("Bad assignment.");
ms2_72=e2s("Type mismatch.");
ms100_27=e2s("Bad right hand side of assignment.");
ms99_27=e2s("Bad left hand side of assignment.");
ms4_254=e2s("Bad arguments.");
ms3_254=e2s("Procedure found has argument(s).");
ms2_254=e2s("Feature found is not a procedure.");
ms1_254=e2s(" is not in the creation list of ");
ms5_254=e2s("Creation procedure not found.");
ms2_252=e2s(" Bad explicit type mark.");
ms1_252=e2s("Invalid explicit type.");
ms3_249=e2s("You must use a constructor.");
ms2_249=e2s(". ");
ms1_249=e2s("Creation clause exists for ");
ms7_250=e2s(").");
ms6_250=e2s("Creation call on formal generic type (");
ms5_250=e2s(").");
ms4_250=e2s("Creation call on expanded target (");
ms3_250=e2s("Cannot create object.");
ms2_250=e2s(" is deferred. ");
ms1_250=e2s("Bad writable target for creation.");
ms13_245=e2s("Invalid loop body.");
ms12_245=e2s("This loop has an invalid expression.");
ms11_245=e2s("Expression of until must be BOOLEAN.");
ms10_245=e2s("Bad variant for this loop.");
ms2_243=e2s("Expression of variant must be INTEGER.");
ms1_243=e2s("Bad loop variant.");
ms9_245=e2s("Bad invariant.");
ms8_245=e2s("Bad initialisation part.");
ms6_233=e2s(" is not allowed.");
ms5_233=e2s("Expression must be INTEGER or CHARACTER.");
ms11_234=e2s("Empty when clause in inspect.");
ms10_233=e2s("Bad inspect.");
ms1_239=e2s("Bad when list.");
ms16_234=e2s("Bad when clause.");
ms12_234=e2s("Empty when clause in inspect.");
ms9_229=e2s("Expression of if/elseif must be BOOLEAN. ");
ms8_229=e2s("Bad BOOLEAN expression.");
ms1_224=e2s("Bad instruction.");
ms1_221=e2s("Bad check list.");
ms1_185=e2s("Bad arguments.");
ms1_184=e2s("Bad argument.");
ms1_183=e2s("Feature found has argument(s).");
ms1_182=e2s("Feature found is not a procedure.");
ms3_206=e2s("))");
ms2_206=e2s(")\174""\174""(");
ms1_206=e2s("((");
ms3_203=e2s("))");
ms2_203=e2s(")&&(");
ms1_203=e2s("((");
ms2_197=e2s(")>(");
ms2_199=e2s(")<(");
ms2_198=e2s(")>=(");
ms2_200=e2s(")<=(");
ms10_201=e2s(")!=((T0 *)");
ms9_201=e2s("((T0 *)");
ms8_201=e2s("((int)");
ms7_201=e2s("((int)");
ms15_201=e2s("),1)");
ms14_201=e2s("),(");
ms13_201=e2s("((");
ms12_201=e2s("),1)");
ms11_201=e2s("((");
ms6_201=e2s("])");
ms5_201=e2s("),s[");
ms4_201=e2s("),&(");
ms3_201=e2s("memcmp(&(");
ms2_201=e2s(")!=(");
ms10_202=e2s(")==((T0 *)");
ms9_202=e2s("((T0 *)");
ms8_202=e2s("!(");
ms7_202=e2s("!(");
ms15_202=e2s("),0)");
ms14_202=e2s("),(");
ms13_202=e2s("((");
ms12_202=e2s("),0)");
ms11_202=e2s("((");
ms6_202=e2s("])");
ms5_202=e2s("),s[");
ms4_202=e2s("),&(");
ms3_202=e2s("!memcmp(&(");
ms2_202=e2s(")==(");
ms4_268=e2s("rT");
ms2_178=e2s("((void *)");
ms1_177=e2s("NULL");
ms1_174=e2s("E_STRIP/nyi.");
ms1_170=e2s("-(");
ms74_27=e2s("is_basic_expanded_type");
ms8_175=e2s("(T0 *)");
ms250_44=e2s("XrT");
ms249_44=e2s("*/");
ms248_44=e2s("/*XrT*");
ms1_172=e2s("!(");
ms2_164=e2s("0,");
ms1_164=e2s("ma(");
ms1_83=e2s("((float)");
ms2_81=e2s("BIT_N Not Yet Implemented.");
ms10_71=e2s("C->_");
ms1_81=e2s("BIT_CONSTANT/nyi.");
ms7_189=e2s("Expanded/Reference");
ms6_189=e2s("Expanded/Expanded");
ms5_189=e2s("Expanded/Expanded");
ms4_189=e2s("Reference/Expanded");
ms3_189=e2s("Reference/Reference");
ms9_189=e2s(" Not Valid. Context of Types interpretation is ");
ms8_189=e2s(" Comparison ");
ms2_189=e2s("Bad target.");
ms1_173=e2s("Bad old expression.");
ms1_180=e2s("Bad arguments.");
ms6_175=e2s("Real/Formal argument mismatch (3).");
ms5_175=e2s(" It is not Like <argument>.");
ms4_175=e2s("It is not Like <feature>.");
ms9_175=e2s(" It is not Like Current.");
ms3_175=e2s("Cannot pass Void for expanded argument.");
ms2_175=e2s("Bad number of arguments.");
ms1_175=e2s("Bad number of arguments.");
ms1_179=e2s("Bad argument.");
ms7_175=e2s("Bad expression.");
ms3_178=e2s("Feature not found.");
ms3_174=e2s("E_STRIP/nyi.");
ms1_167=e2s("Feature found has arguments.");
ms1_168=e2s("Feature found has no result.");
ms4_269=e2s("\" here.");
ms3_269=e2s(" Cannot use feature \"");
ms6_125=e2s("Don\'t know how to compute client list  for this feature (internal error). Bad undefine ? Inheritance clash ?");
ms5_125=e2s("Don\'t know how to merge two clients list (internal error).");
ms6_120=e2s("NYI");
ms2_51=e2s("Unable to load ");
ms1_51=e2s("Unable to load ");
ms2_268=e2s(". RUN_FEATURE information.");
ms1_268=e2s(" is not a subclass of ");
ms2_269=e2s(" not found when starting look up from ");
ms1_269=e2s("Feature ");
ms1_169=e2s("Bad target.");
ms4_107=e2s("Bad type of element for type ARRAY.");
ms3_164=e2s("Bad expression in manifest array.");
ms7_71=e2s(" 2.");
ms6_71=e2s(" 1.");
ms5_71=e2s("C\'est possible ca (2) ?");
ms4_71=e2s("Bad feature name.");
ms3_71=e2s("Feature found is not writable.");
ms2_71=e2s("Feature not found.");
ms75_27=e2s("is_expanded_type");
ms47_55=e2s("Cannot produce C code.");
ms509_44=e2s("Done.\n");
ms512_44=e2s("a.out");
ms511_44=e2s("strip ");
ms510_44=e2s("emxbind -qs ");
ms513_44=e2s("-o ");
ms508_44=e2s("-c ");
ms507_44=e2s("\" saved.\n");
ms506_44=e2s("File \"");
ms505_44=e2s("\" file.\n");
ms504_44=e2s("Writing \"");
ms482_44=e2s("\175""\n");
ms81_55=e2s(";\n");
ms80_55=e2s("g[");
ms79_55=e2s("e2s(");
ms78_55=e2s("]=");
ms77_55=e2s("gt[");
ms76_55=e2s("];\n");
ms75_55=e2s("]=g[");
ms74_55=e2s("g[");
ms73_55=e2s(");\n");
ms72_55=e2s("]=e2s(");
ms71_55=e2s("g[");
ms70_55=e2s("];\n");
ms69_55=e2s("]=p[");
ms68_55=e2s("p[");
ms67_55=e2s(";\n");
ms66_55=e2s("]=");
ms65_55=e2s("p[");
ms64_55=e2s("p[0]=\"???\";\n");
ms84_55=e2s(");\n");
ms83_55=e2s("]=sizeof(T");
ms82_55=e2s("s[");
ms481_44=e2s("void se_sz_initialize(void)");
ms62_55=e2s("char *");
ms63_55=e2s("p");
ms60_55=e2s("Tstring *");
ms61_55=e2s("g");
ms58_55=e2s("Tstring *");
ms59_55=e2s("gt");
ms56_55=e2s("size_t");
ms57_55=e2s("s");
ms187_44=e2s("[];\n");
ms186_44=e2s("extern ");
ms185_44=e2s("];\n");
ms480_44=e2s("Define initialize stuff.\n");
ms435_44=e2s("Internal stacks size used : ");
ms434_44=e2s("Pre-Computed Once Function Call");
ms433_44=e2s("Function");
ms432_44=e2s("Procedure");
ms431_44=e2s("Real Function");
ms430_44=e2s("Real Procedure");
ms429_44=e2s("Static Expression");
ms428_44=e2s("Inlined Function");
ms427_44=e2s("Inlined Procedure");
ms426_44=e2s("Switched Call");
ms425_44=e2s("Check Id Call");
ms424_44=e2s("Direct Call");
ms423_44=e2s(" (yes it is dangerous).\n");
ms422_44=e2s("Calls with a Void target : ");
ms239_44=e2s("));\nd->_item=s;\nreturn (T0 *)d;\175""\n");
ms238_44=e2s("*)se_new(");
ms237_44=e2s(" *d=((");
ms236_44=e2s("\173""\n");
ms235_44=e2s(";\n");
ms234_44=e2s(" s)");
ms233_44=e2s("T0*");
ms232_44=e2s(" to ");
ms244_44=e2s("\175""\n");
ms243_44=e2s("\173""\n");
ms242_44=e2s(";\n");
ms241_44=e2s("(T0*s)");
ms231_44=e2s("toT");
ms527_44=e2s(" type conversion.\n");
ms240_44=e2s(" to ");
ms528_44=e2s("Automatic ");
ms456_44=e2s("Defined Switche");
ms478_44=e2s(".\n");
ms477_44=e2s("No ");
ms476_44=e2s(".\n");
ms475_44=e2s(": ");
ms474_44=e2s("Total ");
ms11_277=e2s("\175""\n");
ms21_277=e2s("\175""");
ms20_277=e2s("\175"" else \173""\n");
ms19_277=e2s(") \173""\n");
ms18_277=e2s("if (id <= ");
ms17_277=e2s("return ");
ms10_277=e2s("vc(C,l,c,f)->id;\n");
ms9_277=e2s("((T0*)C)->id;\n");
ms8_277=e2s("int id=");
ms7_277=e2s(" a");
ms6_277=e2s("(int l,int c,int f, void *C");
ms5_277=e2s("(void *C");
ms4_277=e2s(" XrT");
ms3_277=e2s("void ");
ms2_277=e2s("*/");
ms1_277=e2s("/*");
ms418_44=e2s("void sigrsp(int sig)");
ms419_44=e2s("printf(\"Received signal %d (man signal).\\n\",sig);");
ms420_44=e2s("rsp();");
ms421_44=e2s("exit(1);");
ms415_44=e2s("void evobt(void *o,int l,int c,int f)");
ms416_44=e2s("if (!o) error1(\"Target is Void.\",l,c,f);");
ms417_44=e2s("else error2(o,l,c,f);");
ms406_44=e2s("T0 *ci(int id,void *o,int l,int c,int f)");
ms407_44=e2s("if (id == (vc(o,l,c,f)->id)) return o;");
ms408_44=e2s("rsp();");
ms409_44=e2s("printf(\"Line : %d column %d in %s.\\n\",l,c,p[f]);");
ms410_44=e2s("printf(\"*** Error at Run Time *** : \");");
ms411_44=e2s("printf(\"Target is not valid (not the good type).\\n\");");
ms412_44=e2s("printf(\"Expected :%s, Actual :%s.\\n\",");
ms413_44=e2s("s2e(gt[id]),s2e(gt[((T0 *)o)->id]));");
ms414_44=e2s("exit(1);");
ms403_44=e2s("T0 *vc(void *o,int l,int c,int f)");
ms404_44=e2s("if (!o) error1(\"Call with a Void target.\",l,c,f);");
ms405_44=e2s("return o;");
ms400_44=e2s("void error2(T0 *o,int l,int c,int f)");
ms401_44=e2s("printf(\"Target Type %s not legal.\\n\",s2e(gt[o->id]));");
ms402_44=e2s("error1(\"Bad target.\",l,c,f);");
ms395_44=e2s("void error1(char *m,int l,int c,int f)");
ms396_44=e2s("rsp();");
ms397_44=e2s("printf(\"Line : %d column %d in %s.\\n\",l,c,p[f]);");
ms398_44=e2s("printf(\"*** Error at Run Time *** : %s\\n\",m);");
ms399_44=e2s("exit(1);");
ms391_44=e2s("void error0(char *m)");
ms392_44=e2s("rsp();");
ms393_44=e2s("printf(\"*** Error at Run Time *** : %s\\n\",m);");
ms394_44=e2s("exit(1);");
ms387_44=e2s("void rsp(void)");
ms388_44=e2s("printf(\"Eiffel program crash at run time.\\n\");");
ms389_44=e2s("printf(\"No trace when using option \\\"-boost\\\"\\n\");");
ms390_44=e2s("exit(1);");
ms328_44=e2s("void rsp(void)");
ms329_44=e2s("AF_1;");
ms330_44=e2s("printf(\"Eiffel program crash at run time.\\n\");");
ms331_44=e2s("printf(\"Final Run Stack :\\n\");");
ms332_44=e2s("\173""void **sp=(rs_bot-1);");
ms333_44=e2s("while (1) \173""");
ms334_44=e2s("sp++;");
ms335_44=e2s("if (sp >= rs) break;");
ms336_44=e2s("if (sp > rs_top) break;");
ms337_44=e2s("switch ((int)*sp++)\173""");
ms338_44=e2s("case linkId: continue;");
ms339_44=e2s("case featureTagId:\173""");
ms340_44=e2s("printf(\"==============================================================\\n\");");
ms341_44=e2s("printf(\"------ %s\\n\",(char *)*sp);");
ms342_44=e2s("continue;\175""");
ms343_44=e2s("case nameId:\173""");
ms344_44=e2s("printf(\"%s = \",(char *)*sp);");
ms345_44=e2s("continue;\175""");
ms346_44=e2s("case pointerId:\173""");
ms347_44=e2s("printf(\"External POINTER `%p\'.\\n\",**(void ***)sp);");
ms348_44=e2s("continue;\175""");
ms349_44=e2s("case bitId:\173""");
ms350_44=e2s("printf(\"BIT_N `%p\'.\\n\",*(void **)sp);");
ms351_44=e2s("continue;\175""");
ms352_44=e2s("case referenceId:\173""void *o=(**(T0 ***)sp);");
ms353_44=e2s("if (o) \173""ANYprint(o,o); printf(\"\\n\");\175""");
ms354_44=e2s("else printf(\"Void\\n\");continue;\175""");
ms355_44=e2s("case expandedId:\173""");
ms356_44=e2s("printf(\"expanded object\\n\");continue;\175""");
ms357_44=e2s("case integerId:\173""");
ms358_44=e2s("printf(\"%d\\n\",**(int **)sp);continue;\175""");
ms359_44=e2s("case characterId:\173""");
ms360_44=e2s("printf(\"\'%c\'\\n\",**(char **)sp);continue;\175""");
ms361_44=e2s("case booleanId:\173""");
ms362_44=e2s("if (**(int **)sp) printf(\"true\\n\");");
ms363_44=e2s("else printf(\"false\\n\");continue;\175""");
ms364_44=e2s("case realId:\173""");
ms365_44=e2s("printf(\"%f\\n\",(double)**(float **)sp);");
ms366_44=e2s("continue;\175""");
ms367_44=e2s("case doubleId:\173""");
ms368_44=e2s("printf(\"%f\\n\",**(double **)sp);continue;\175""");
ms369_44=e2s("case lineId:\173""");
ms370_44=e2s("printf(\"line %d \",*(int *)sp);");
ms371_44=e2s("continue;\175""");
ms372_44=e2s("case columnId:\173""");
ms373_44=e2s("printf(\"column %d \",*(int *)sp);");
ms374_44=e2s("continue;\175""");
ms375_44=e2s("case pathId:\173""");
ms376_44=e2s("printf(\"file %s \",p[*(int *)sp]);");
ms377_44=e2s("continue;\175""");
ms378_44=e2s("case doingWhatId:\173""");
ms379_44=e2s("printf(\"(%s)\\n\",*(char **)sp);continue;\175""");
ms380_44=e2s("case doingInvariantId:\173""");
ms381_44=e2s("printf(\"Class Invariant of %s\\n\",*(char **)sp);");
ms382_44=e2s("continue;\175""");
ms383_44=e2s("default:\173""");
ms384_44=e2s("printf(\"Stack Damaged ... Sorry.\\n\");");
ms385_44=e2s("exit(1);\175""\175""\175""");
ms386_44=e2s("printf(\"===================== End of Run Stack ==========================\\n\\n\");AF_0;\175""");
ms295_44=e2s("T0 *ma(int aid,int eid,int argc,...)");
ms296_44=e2s("va_list pa;");
ms297_44=e2s("Tarray *a=((Tarray *)se_new(aid));");
ms298_44=e2s("char* store=0;");
ms299_44=e2s("a->_capacity=argc;");
ms300_44=e2s("a->_lower=1;");
ms301_44=e2s("a->_upper=argc;");
ms302_44=e2s("a->_storage=NULL;");
ms303_44=e2s("if (argc) \173""va_start(pa,argc);");
ms304_44=e2s("if (eid) store=(char*)malloc(((size_t)argc*(s[eid])));");
ms305_44=e2s("else store=(char*)malloc(((size_t)argc*(sizeof(char*))));");
ms306_44=e2s("a->_storage=(T0**)store;");
ms307_44=e2s("switch (eid)\173""");
ms308_44=e2s("case 0:case 8:");
ms309_44=e2s("while (argc--)\173""*((char**)store)=va_arg(pa,char*);");
ms310_44=e2s("store+=sizeof(char*);\175""break;");
ms311_44=e2s("case 2:case 6:");
ms312_44=e2s("while (argc--)\173""*((int*)store)=va_arg(pa,int);");
ms313_44=e2s("store+=sizeof(int);\175""break;");
ms314_44=e2s("case 3:");
ms315_44=e2s("while (argc--)\173""*((char*)store)=((char)va_arg(pa,int));");
ms316_44=e2s("store+=sizeof(char);\175""break;");
ms317_44=e2s("case 4:");
ms318_44=e2s("while (argc--)\173""*((float*)store)=va_arg(pa,double);");
ms319_44=e2s("store+=sizeof(float);\175""break;");
ms320_44=e2s("case 5:");
ms321_44=e2s("while (argc--)\173""*((double*)store)=va_arg(pa,double);");
ms322_44=e2s("store+=sizeof(double);\175""break;");
ms323_44=e2s("while (argc--)\173""");
ms324_44=e2s("memcpy(*((char**)va_arg(pa,T0 *)),store,s[eid]);");
ms325_44=e2s("store+=s[eid];\175""\175""");
ms326_44=e2s("va_end(pa);\175""");
ms327_44=e2s("return ((T0*)a);");
ms287_44=e2s("Tstring *e2s(char *e)");
ms288_44=e2s("Tstring *s=(Tstring*)se_new(7);");
ms289_44=e2s("if (e!=NULL) \173""");
ms290_44=e2s("s->_capacity=strlen(e)+1;");
ms291_44=e2s("s->_count=(s->_capacity)-1;");
ms292_44=e2s("s->_storage=(char *)malloc(((size_t)sizeof(char)*s->_capacity));");
ms293_44=e2s("strcpy(s->_storage,e);\175""");
ms294_44=e2s("return s;");
ms282_44=e2s("char *s2e(Tstring *s)");
ms283_44=e2s("char *e=(char*)malloc(((size_t)(s->_count)+1));");
ms284_44=e2s("memcpy(e,s->_storage,s->_count);");
ms285_44=e2s("e[s->_count]=\'\\0\';");
ms286_44=e2s("return e;");
ms281_44=e2s("Define used basics.\n");
ms455_44=e2s(".\n");
ms454_44=e2s("Order of includes : ");
ms526_44=e2s("\175""\n");
ms525_44=e2s(");\n");
ms464_44=e2s("\"\"");
ms4_7=e2s("\" is not an INTEGER.\n");
ms3_7=e2s("STRING.to_integer: \"");
ms463_44=e2s("\\\'");
ms462_44=e2s("\\\"");
ms461_44=e2s("\\\\");
ms460_44=e2s("\\n");
ms524_44=e2s("=e2s(");
ms523_44=e2s("void se_manifest_strings(void)");
ms522_44=e2s("Tstring *");
ms521_44=e2s(".\n");
ms520_44=e2s("Manifest string used: ");
ms280_44=e2s("exit(0);\175""\175""\n");
ms277_44=e2s("if (rs != rs_bot)\173""");
ms278_44=e2s("printf(\"\\n***Internal SmallEiffel Stack Error.\\n\");");
ms279_44=e2s("rsp();\175""");
ms276_44=e2s("(n);\n");
ms275_44=e2s("ivT");
ms473_44=e2s("\nTotal: ");
ms16_281=e2s("=R;\175""/*PCO*/\n");
ms7_281=e2s("oR");
ms3_161=e2s("ens");
ms3_141=e2s(";\n");
ms13_62=e2s("NULL");
ms2_141=e2s(" _");
ms15_281=e2s(" R;\n");
ms7_275=e2s("req_last_chance=1;\n");
ms6_275=e2s("\175""\n");
ms5_275=e2s("req_last_result=1;\n");
ms4_275=e2s("if (!req_last_result) \173""");
ms3_275=e2s("req_last_result=1;\n");
ms2_275=e2s("req_last_chance=0;\n");
ms3_139=e2s("req");
ms1_275=e2s("req_last_chance=1;\n");
ms472_44=e2s("Pre-Computed Once Function(s) :");
ms274_44=e2s("n");
ms270_44=e2s("#define rs_init_size 16384");
ms271_44=e2s("rs=rs_bot=(void **)malloc(((size_t)rs_init_size*sizeof(void **)));");
ms272_44=e2s("rs_top=rs_bot+rs_init_size-1;");
ms273_44=e2s("rs_lb=NULL;");
ms269_44=e2s("se_manifest_strings();\n");
ms268_44=e2s("signal(SIGKILL,sigrsp);\n");
ms267_44=e2s("signal(SIGQUIT,sigrsp);\n");
ms266_44=e2s("signal(SIGINT,sigrsp);\n");
ms264_44=e2s("se_argc=argc;");
ms265_44=e2s("se_argv=argv;");
ms263_44=e2s(";\n");
ms194_44=e2s("))");
ms193_44=e2s("*)se_new(");
ms192_44=e2s("((T");
ms262_44=e2s(" *n=");
ms260_44=e2s("void main(int argc,char *argv[])\173""");
ms261_44=e2s("se_sz_initialize();\173""");
ms259_44=e2s("char **se_argv");
ms258_44=e2s("int se_argc");
ms257_44=e2s("Define main function.\n");
ms222_44=e2s(".\n");
ms221_44=e2s("/* Cecil End */\n");
ms220_44=e2s(", ");
ms230_44=e2s("\175""\n");
ms191_44=e2s(";\n");
ms229_44=e2s(",a");
ms4_62=e2s("(T");
ms9_71=e2s("_px");
ms8_71=e2s("_ix");
ms228_44=e2s("rT");
ms227_44=e2s("return ");
ms226_44=e2s(".");
ms225_44=e2s("Empty Cecil function ");
ms224_44=e2s(" not created.");
ms223_44=e2s("void");
ms126_27=e2s("void *");
ms219_44=e2s("/* Cecil prototypes : */\n");
ms218_44=e2s("Define Cecil for : ");
ms9_267=e2s("rs-=2;return C;\175""\n");
ms5_140=e2s("=0;\175""\n");
ms4_140=e2s("af_");
ms441_44=e2s(");\n");
ms440_44=e2s("ac_");
ms451_44=e2s(";\n");
ms195_44=e2s("0,0,0");
ms450_44=e2s("rs_pPOS(tag_pos_");
ms3_140=e2s("=1;\n");
ms2_140=e2s(")\173""af_");
ms1_140=e2s("if (!af_");
ms2_267=e2s("inv");
ms8_267=e2s("];\n");
ms7_267=e2s("*rs++=(void *)doingInvariantId;*rs++=(void *)p[");
ms6_267=e2s(" *C)");
ms5_267=e2s("(T");
ms4_267=e2s(" *ivT");
ms3_267=e2s("T");
ms45_55=e2s("Compiling routines for :\n");
ms44_55=e2s("Reference Types:\n");
ms9_62=e2s("\175"";\n");
ms8_62=e2s(" _");
ms3_62=e2s("T0*");
ms7_62=e2s("int dummy;");
ms6_62=e2s("int id;");
ms5_62=e2s("struct sT");
ms43_55=e2s("Expanded Types:\n");
ms42_55=e2s(".\n");
ms41_55=e2s("Types really used (object created): ");
ms40_55=e2s(".\n");
ms39_55=e2s("Total Types defined : ");
ms12_62=e2s(";\n");
ms11_62=e2s(" T");
ms10_62=e2s("typedef struct sT");
ms256_44=e2s("*/");
ms255_44=e2s("/*");
ms38_55=e2s("Compiling to C Types :\n");
ms517_44=e2s(".\n");
ms516_44=e2s("/* User\'s Macro End */\n");
ms515_44=e2s("/* User\'s Macro-Definitions : */\n");
ms514_44=e2s("Define Users\'s C Macro.\n");
ms173_44=e2s("0 AF_CIV_0 AF_LIV_0 AF_INV_0 AF_ENS_0 AF_REQ_0");
ms172_44=e2s("1 AF_CIV_1 AF_LIV_1 AF_INV_1 AF_ENS_1 AF_REQ_1");
ms171_44=e2s("CIV_0 ");
ms170_44=e2s("CIV_1 ");
ms169_44=e2s("CIV_0 af_civ=0;");
ms168_44=e2s("CIV_1 af_civ=1;");
ms165_44=e2s("void ac_civ(int v)");
ms166_44=e2s("if (!v) error0(\"Check Assertion Violated.\");");
ms167_44=e2s("rs-=8;");
ms164_44=e2s("int af_civ");
ms163_44=e2s("LIV_0 ");
ms162_44=e2s("LIV_1 ");
ms161_44=e2s("LIV_0 af_liv=0;");
ms160_44=e2s("LIV_1 af_liv=1;");
ms149_44=e2s("int lvc(int lc,int lv1,int lv2)");
ms150_44=e2s("if (lc==0)\173""if (lv2 < 0)\173""");
ms151_44=e2s("rsp();");
ms152_44=e2s("printf(\"Bad First Variant Value = %d\\n\",lv2);\175""");
ms153_44=e2s("else \173""rs-=8;return lv2;\175""\175""");
ms154_44=e2s("else if ((lv2 < 0)\174""\174""(lv2 >= lv1))\173""");
ms155_44=e2s("rsp();");
ms156_44=e2s("printf(\"Loop Body Count = %d (done)\\nNew Variant = %d\\nPrevious Variant = %d\\n\",lc,lv2,lv1);\175""");
ms157_44=e2s("else \173""rs-=8;return lv2;\175""");
ms158_44=e2s("printf(\"*** Error at Run Time *** : Bad Loop Variant.\\n\");");
ms159_44=e2s("exit(1);");
ms146_44=e2s("void ac_liv(int v)");
ms147_44=e2s("if (!v) error0(\"Loop Invariant Violation.\");");
ms148_44=e2s("rs-=8;");
ms145_44=e2s("int af_liv");
ms144_44=e2s("INV_0 ");
ms143_44=e2s("INV_1 ");
ms142_44=e2s("INV_0 af_inv=0;");
ms141_44=e2s("INV_1 af_inv=1;");
ms138_44=e2s("void ac_inv(int v)");
ms139_44=e2s("if (!v) error0(\"Class Invariant Violation.\");");
ms140_44=e2s("rs-=8;");
ms137_44=e2s("int af_inv");
ms136_44=e2s("ENS_0 ");
ms135_44=e2s("ENS_1 ");
ms134_44=e2s("ENS_0 af_ens=0;");
ms133_44=e2s("ENS_1 af_ens=1;");
ms130_44=e2s("void ac_ens(int v)");
ms131_44=e2s("if (!v) error0(\"Ensure Assertion Violated.\");");
ms132_44=e2s("rs-=8;");
ms129_44=e2s("int af_ens");
ms128_44=e2s("REQ_0 ");
ms127_44=e2s("REQ_1 ");
ms126_44=e2s("REQ_0 af_req=0;");
ms125_44=e2s("REQ_1 af_req=1;");
ms518_44=e2s("#define AF_");
ms120_44=e2s("void ac_req(int v)");
ms121_44=e2s("if (!v && req_last_chance)");
ms122_44=e2s("error0(\"Require Assertion Violated.\");");
ms123_44=e2s("req_last_result=req_last_result&&v;");
ms124_44=e2s("rs-=8;");
ms119_44=e2s("int af_req");
ms179_44=e2s(";\n");
ms178_44=e2s(";\n");
ms177_44=e2s("extern ");
ms118_44=e2s("int req_last_result");
ms117_44=e2s("int req_last_chance");
ms114_44=e2s("void rs_pEXP(void *e,char *n)");
ms115_44=e2s("*rs++=(void *)expandedId;");
ms116_44=e2s("*rs++=(void *)e;");
ms112_44=e2s("void rs_pREF(void **r,char *n)");
ms113_44=e2s("*rs++=(void *)referenceId;");
ms110_44=e2s("void rs_pBIT(void*p,char *n)");
ms111_44=e2s("*rs++=(void *)bitId;");
ms108_44=e2s("void rs_pPOI(void*p,char *n)");
ms109_44=e2s("*rs++=(void *)pointerId;");
ms532_44=e2s("*rs++=(void *)p;");
ms105_44=e2s("void rs_pDOU(double *d,char *n)");
ms106_44=e2s("*rs++=(void *)doubleId;");
ms107_44=e2s("*rs++=(void *)d;");
ms103_44=e2s("void rs_pREA(float *r,char *n)");
ms104_44=e2s("*rs++=(void *)realId;");
ms533_44=e2s("*rs++=(void *)r;");
ms100_44=e2s("void rs_pBOO(int *b,char *n)");
ms101_44=e2s("*rs++=(void *)booleanId;");
ms102_44=e2s("*rs++=(void *)b;");
ms97_44=e2s("void rs_pCHA(char *c,char *n)");
ms98_44=e2s("*rs++=(void *)characterId;");
ms99_44=e2s("*rs++=(void *)c;");
ms94_44=e2s("void rs_pINT(int *i,char *n)");
ms531_44=e2s("*rs++=(void *)nameId;");
ms529_44=e2s("*rs++=(void *)n;");
ms95_44=e2s("*rs++=(void *)integerId;");
ms96_44=e2s("*rs++=(void *)i;");
ms91_44=e2s("int rs_pop_int(int e)");
ms92_44=e2s("rs-=8;");
ms93_44=e2s("return e;");
ms81_44=e2s("void rs_pPOS(char* tp,int l,int c,int f)");
ms82_44=e2s("rs_need(8);");
ms83_44=e2s("*rs++=(void *)lineId;");
ms84_44=e2s("*rs++=(void *)l;");
ms85_44=e2s("*rs++=(void *)columnId;");
ms86_44=e2s("*rs++=(void *)c;");
ms87_44=e2s("*rs++=(void *)pathId;");
ms88_44=e2s("*rs++=(void *)f;");
ms89_44=e2s("*rs++=(void *)doingWhatId;");
ms90_44=e2s("*rs++=(void *)tp;");
ms78_44=e2s("void rs_unlink(void)");
ms79_44=e2s("rs=rs_lb-1;");
ms80_44=e2s("rs_lb=rs_lb-(int)(*rs_lb);");
ms72_44=e2s("void rs_link(char *tag)");
ms530_44=e2s("rs_need(4);");
ms73_44=e2s("*rs++=(void *)linkId;");
ms74_44=e2s("*rs=(void *)(rs-rs_lb);");
ms75_44=e2s("rs_lb=rs++;");
ms76_44=e2s("*rs++=(void *)featureTagId;");
ms77_44=e2s("*rs++=(void *)tag;");
ms56_44=e2s("void rs_need(int size)");
ms57_44=e2s("if (rs+size < rs_top) return;");
ms58_44=e2s("printf(\"Stack must grow.\\n\");");
ms59_44=e2s("if ((rs_top-rs_bot)>262144) \173""");
ms60_44=e2s("error0(\"Stack Overflow.\");\175""");
ms61_44=e2s("\173""int new_size=(rs_top-rs_bot+1)*2;");
ms62_44=e2s("void **new_rs_bot=(void **)realloc(rs_bot,new_size*sizeof(void **));");
ms63_44=e2s("printf(\"New size for stack is %d\\n\",new_size);");
ms64_44=e2s("if (new_rs_bot==rs_bot) \173""");
ms65_44=e2s("rs_top=rs_bot+new_size-1;");
ms66_44=e2s("return;\175""");
ms67_44=e2s("if (new_rs_bot==NULL) error0(\"Stack Overflow.\");");
ms68_44=e2s("rs_top=new_rs_bot+new_size-1;");
ms69_44=e2s("rs=new_rs_bot+(rs-rs_bot);");
ms70_44=e2s("rs_lb=new_rs_bot+(rs_lb-rs_bot);");
ms71_44=e2s("rs_bot=new_rs_bot;\175""");
ms55_44=e2s("void **rs_top");
ms54_44=e2s("void **rs_lb");
ms53_44=e2s("void **rs");
ms52_44=e2s("void **rs_bot");
ms176_44=e2s(";\n");
ms175_44=e2s(";\n");
ms174_44=e2s("extern ");
ms50_44=e2s("tag_pos_6");
ms51_44=e2s("variant exp.");
ms48_44=e2s("tag_pos_5");
ms49_44=e2s("creation call");
ms46_44=e2s("tag_pos_4");
ms47_44=e2s("assertion");
ms44_44=e2s("tag_pos_3");
ms45_44=e2s("instruction");
ms42_44=e2s("tag_pos_2");
ms43_44=e2s("boolean exp.");
ms40_44=e2s("tag_pos_1");
ms41_44=e2s("assignment");
ms184_44=e2s("[];\n");
ms183_44=e2s("extern char ");
ms182_44=e2s("\";\n");
ms181_44=e2s("[]=\"");
ms180_44=e2s("char ");
ms39_44=e2s("bit");
ms38_44=e2s("doingInvariant");
ms37_44=e2s("doingWhat");
ms36_44=e2s("path");
ms35_44=e2s("line");
ms34_44=e2s("column");
ms33_44=e2s("name");
ms32_44=e2s("featureTag");
ms31_44=e2s("link");
ms30_44=e2s("reference");
ms29_44=e2s("expanded");
ms28_44=e2s("pointer");
ms27_44=e2s("double");
ms26_44=e2s("real");
ms25_44=e2s("boolean");
ms24_44=e2s("character");
ms23_44=e2s("integer");
ms22_44=e2s("general");
ms484_44=e2s("Id ");
ms483_44=e2s("#define ");
ms21_44=e2s("general");
ms486_44=e2s(" T");
ms485_44=e2s("#define T");
ms15_44=e2s("T0 *se_new(int id)");
ms16_44=e2s("int sz=s[id];");
ms17_44=e2s("T0 *n=malloc((size_t)sz);");
ms18_44=e2s("memset(n,0,sz);");
ms19_44=e2s("n->id=id;");
ms20_44=e2s("return n;");
ms190_44=e2s("\175""\n");
ms189_44=e2s("\173""\n");
ms188_44=e2s(";\n");
ms9_44=e2s("typedef struct sT0 T0;");
ms10_44=e2s("struct sT0\173""int id;\175"";");
ms11_44=e2s("typedef struct sTstring Tstring;");
ms12_44=e2s("struct sTstring\173""int id;int _count;int _capacity;char *_storage;\175"";");
ms13_44=e2s("typedef struct sTarray Tarray;");
ms14_44=e2s("struct sTarray\173""int id;int _capacity;int _lower;int _upper;T0**_storage;\175"";");
ms8_44=e2s("<float.h>");
ms7_44=e2s("<limits.h>");
ms6_44=e2s("<stdarg.h>");
ms5_44=e2s("<stddef.h>");
ms4_44=e2s("<signal.h>");
ms3_44=e2s("<stdlib.h>");
ms2_44=e2s("<string.h>");
ms1_44=e2s("<stdio.h>");
ms247_44=e2s("\n");
ms246_44=e2s("#include ");
ms245_44=e2s("-lm");
ms123_27=e2s("<math.h>");
ms489_44=e2s("\"\n");
ms488_44=e2s("#include \"");
ms501_44=e2s("*/\n");
ms500_44=e2s("/* ANSI C code generated by SmallEiffel. */\n/*\n");
ms6_27=e2s("\".\n");
ms5_27=e2s("Cannot write in file \"");
ms1_39=e2s("w");
ms131_27=e2s("\"\n");
ms130_27=e2s("\" as \"");
ms129_27=e2s("Renaming \"");
ms33_27=e2s(".make");
ms32_27=e2s(".CMD");
ms31_27=e2s(".BAT");
ms23_27=e2s("\".\nCurrently handled system :\n");
ms22_27=e2s("Unknow system name in file\n\"");
ms12_27=e2s("UNIX");
ms13_27=e2s("Windows");
ms14_27=e2s("Macintosh");
ms16_27=e2s("OS2");
ms17_27=e2s("Amiga");
ms21_27=e2s("\".\n");
ms20_27=e2s("Unable to find system name file\n\"");
ms19_27=e2s("system.se");
ms18_27=e2s("bin");
ms15_27=e2s("DOS");
ms26_27=e2s(".h");
ms487_44=e2s("No <root class>.");
ms128_27=e2s("\"\n");
ms127_27=e2s("Removing \"");
ms37_55=e2s("Base class parsed : ");
ms55_55=e2s("End of Falling Down (approx. ");
ms2_133=e2s("\" not found in parent list.");
ms1_133=e2s("Feature \"");
ms85_55=e2s(" features).\n");
ms54_55=e2s("Starting Falling Down (approx. ");
ms53_55=e2s("SMALL_EIFFEL/error handler not empty.\n");
ms52_55=e2s("print");
ms2_142=e2s(").");
ms1_142=e2s("Bad instruction (when interpreted in ");
ms1_186=e2s("Conflict between local/feature name (VRLE).");
ms1_92=e2s("Conflict between argument/feature name (VRFA).");
ms5_269=e2s("Internal Error #1 in RUN_CLASS.");
ms8_269=e2s(" in class ");
ms7_269=e2s(". There is no feature ");
ms6_269=e2s("Current type is ");
ms1_98=e2s("Bad declaration.");
ms1_93=e2s("Bad type.");
ms51_55=e2s(" must not have arguments.");
ms50_55=e2s("Creation procedure ");
ms10_53=e2s("Invalid Root (not a procedure).");
ms20_53=e2s(". Missing redefine ?");
ms19_53=e2s("Invalid redefinition in ");
ms18_53=e2s("Incompatible headings for redefinition.");
ms8_66=e2s(".");
ms7_66=e2s(".");
ms14_66=e2s(" Cannot inherit thoses features in ");
ms6_66=e2s("Incompatible number of arguments.");
ms5_66=e2s("One has argument(s) but not the other.");
ms4_66=e2s("One has Result but not the other.");
ms17_53=e2s("Cannot redefine a frozen feature.");
ms16_53=e2s("Constant feature cannot be redefined.");
ms9_133=e2s("Inheritance clash (or somthing is  Not Yet Implemented) ?");
ms8_133=e2s("Incompatible headings.");
ms7_133=e2s("Incompatible headings.");
ms6_133=e2s("Incompatible headings.");
ms5_97=e2s("Incompatible types in ");
ms4_97=e2s("Bad number of arguments.");
ms13_66=e2s(" Cannot merge thoses features.");
ms3_66=e2s("Incompatible number of arguments.");
ms2_66=e2s("One has argument(s) but not the other.");
ms1_66=e2s("One has Result but not the other.");
ms5_133=e2s("Multiple select for feature ");
ms3_120=e2s("It is not a feature of the parent.");
ms31_53=e2s("\".");
ms30_53=e2s("\" in \"");
ms29_53=e2s("Problem with undefine of \"");
ms12_71=e2s("A frozen feature must not be undefined (VDUS).");
ms11_53=e2s("BASE_CLASS / does_not_understand.");
ms107_27=e2s(" is not BOOLEAN.");
ms97_27=e2s("Bad Assertion.");
ms9_53=e2s(". Invalid Root.");
ms8_53=e2s(" has no feature ");
ms21_53=e2s("foo :-)");
ms7_53=e2s(" is not a Valid Root.");
ms4_53=e2s("Creation Call not allowed.");
ms4_125=e2s(" is not allowed to use feature.");
ms4_133=e2s(". Loop in ");
ms3_133=e2s("Cyclic inheritance graph. Start from ");
ms3_53=e2s(" does not belong to a creation clause of ");
ms2_53=e2s(" has no creation clause.");
ms22_53=e2s("make");
ms6_53=e2s(" cannot be a root class since it is a deferred class.");
ms5_53=e2s(" cannot be a root class since it is a generic class.");
ms49_55=e2s("Cannot load root class ");
ms19_55=e2s("Cannot load class.");
ms18_55=e2s("Cannot find class.");
ms35_55=e2s("Parsing :\n");
ms1_55=e2s("-- SmallEiffel  -- Release (- 0.91)    --      FRANCE\n-- Copyright (C), 1994 - Dominique COLNET and Suzanne COLLIN \n-- University Henri Poincare\' - Nancy 1 - email colnet@loria.fr \n-- CRIN (Centre de Recherche en Informatique de Nancy)\n-- FRANCE \n");
ms502_44=e2s("gcc");
ms17_26=e2s("compile_to_c: flag \"-o\" appear twice.");
ms16_26=e2s("-o");
ms15_26=e2s("-l");
ms14_26=e2s("-cc");
ms13_26=e2s("-no_strip");
ms12_26=e2s("-debug_check");
ms11_26=e2s("-all_check");
ms10_26=e2s("-loop_check");
ms9_26=e2s("-invariant_check");
ms8_26=e2s("-ensure_check");
ms7_26=e2s("-require_check");
ms6_26=e2s("-no_check");
ms6_48=e2s(").\n");
ms5_48=e2s("Too many errors (");
ms3_48=e2s("Error");
ms8_48=e2s("------\n");
ms10_49=e2s("\n");
ms9_49=e2s("SmallEiffel cannot load base class : ");
ms8_49=e2s("^\n");
ms7_49=e2s(" :\n");
ms6_49=e2s(" (");
ms17_55=e2s("\".");
ms16_55=e2s(" does not contains class \"");
ms15_55=e2s("File \"");
ms14_55=e2s("Unable to load class.");
ms2_63=e2s("Bad comment to end a class.");
ms14_120=e2s("Cannot redefine unexistant feature (VDRS.1).");
ms13_120=e2s("Parent have not this feature.");
ms12_120=e2s("Redefinition not found.");
ms11_120=e2s("Feature not found in corresponding parent.");
ms3_122=e2s("Feature not found in corresponding parent.");
ms1_48=e2s("Type ");
ms2_62=e2s("Cannot find Base Class for ");
ms12_66=e2s("Double definition of feature ");
ms2_49=e2s("Internal Error #2 in POSITION.");
ms1_49=e2s("Internal Error #1 in POSITION.");
ms6_54=e2s(" warning(s).\n");
ms5_54=e2s("\" aborted.\n");
ms4_54=e2s("Load class \"");
ms7_54=e2s(" error(s).\n");
ms65_54=e2s("Keyword \"end\" expected at the end of a class.");
ms64_54=e2s("End of text expected.");
ms63_54=e2s("invariant");
ms2_138=e2s("Attribute must not have formal arguments.");
ms1_138=e2s("Bad feature definition.");
ms163_54=e2s("A routine must be ended with \"end\".");
ms162_54=e2s("rescue");
ms8_160=e2s("Deferred feature must not have rescue compound.");
ms161_54=e2s("rescue");
ms160_54=e2s("ensure");
ms169_54=e2s("Routine body expected.");
ms168_54=e2s("once routine body");
ms167_54=e2s("once");
ms166_54=e2s("routine body");
ms41_54=e2s("Right hand side expression expected for assignment.");
ms40_54=e2s("Must not affect a formal argument.");
ms39_54=e2s("Must not affect `Void\'.");
ms38_54=e2s("Must not affect `Current\'.");
ms37_54=e2s("\')\' expected.");
ms82_54=e2s("Bad creation (procedure name expected).");
ms81_54=e2s("Bad creation (writable expected).");
ms80_54=e2s("A formal argument is not a writable variable.");
ms79_54=e2s("Current is not a writable variable.");
ms78_54=e2s("Bad creation (\'!\' expected).");
ms77_54=e2s("Bad creation (type or \'!\' expected).");
ms76_54=e2s("Explicit creation type mark must not be anchored.");
ms134_54=e2s("loop body");
ms133_54=e2s("Keyword \"loop\" expected (in a loop).");
ms132_54=e2s("loop");
ms131_54=e2s("Keyword \"until\" expected (in a loop).");
ms130_54=e2s("Boolean expression expected (until).");
ms129_54=e2s("until");
ms128_54=e2s("Variant (INTEGER) Expression Expected.");
ms127_54=e2s("variant");
ms126_54=e2s("invariant");
ms125_54=e2s("from part of a loop");
ms124_54=e2s("from");
ms123_54=e2s("Added \"end\" for inspect instruction.");
ms122_54=e2s("else of inspect");
ms196_54=e2s("when item");
ms195_54=e2s("when item");
ms201_54=e2s("Error in inspect.");
ms194_54=e2s("when item");
ms193_54=e2s("when");
ms121_54=e2s("Expression expected (\"inspect ... \").");
ms120_54=e2s("inspect");
ms32_54=e2s("\"retry\" cannot be outside of a rescue clause.");
ms31_54=e2s("retry");
ms75_54=e2s("Keyword \"end\".");
ms74_54=e2s("else part");
ms186_54=e2s("In \"elseif ... then ...\".");
ms185_54=e2s("elseif");
ms184_54=e2s("In \"if ... then ...\".");
ms188_54=e2s("then part");
ms187_54=e2s("Added \"then\".");
ms73_54=e2s("if");
ms87_54=e2s("debug");
ms72_54=e2s("\" expected.");
ms71_54=e2s("). Instruction or keyword \"");
ms70_54=e2s("In compound (");
ms86_54=e2s("\")\" expected to end debug string list.");
ms85_54=e2s("Empty debug key list (deleted).");
ms84_54=e2s("debug");
ms54_54=e2s("Keyword \"end\" expected at the end of check clause.");
ms53_54=e2s("Empty check instruction removed.");
ms165_54=e2s("do");
ms105_54=e2s("Alias name of external expected.");
ms104_54=e2s("alias");
ms103_54=e2s("External language name expected. Currently supported languages are \"C\", \"CWC\", \"IC\", \"ICWC\" and \"CSE\".");
ms102_54=e2s("\"ICWC\"");
ms101_54=e2s("\"IC\"");
ms100_54=e2s("\"C\"");
ms99_54=e2s("\"CWC\"");
ms98_54=e2s("\"CSE\"");
ms164_54=e2s("external");
ms20_54=e2s("Bad local variable list.");
ms19_54=e2s("Substitute with \";\".");
ms18_54=e2s("Same identifier appears twice (local/formal).");
ms17_54=e2s("Substitute with \",\".");
ms16_54=e2s("Same identifier appears twice (local/formal).");
ms159_54=e2s("local");
ms170_54=e2s("Expression expected after \'implies\'.");
ms176_54=e2s(">");
ms1_197=e2s(">");
ms175_54=e2s("<");
ms1_199=e2s("<");
ms174_54=e2s(">=");
ms1_198=e2s(">=");
ms173_54=e2s("<=");
ms1_200=e2s("<=");
ms172_54=e2s("/=");
ms1_201=e2s("/=");
ms171_54=e2s("=");
ms1_202=e2s("=");
ms179_54=e2s("\\\\");
ms1_192=e2s("\\\\");
ms178_54=e2s("//");
ms1_193=e2s("//");
ms177_54=e2s("*");
ms1_194=e2s("*");
ms180_54=e2s("^");
ms1_190=e2s("^");
ms1_189=e2s("Syntax Error.");
ms94_54=e2s("Expression expected after \"old\".");
ms97_54=e2s("Added brackets for manifest constant before dot.");
ms96_54=e2s("Expression expected.");
ms95_54=e2s("\')\' expected in expression.");
ms197_54=e2s("An expression has a result value. This is not an instruction.");
ms36_54=e2s("Identifier expected after a dot.");
ms34_54=e2s("\')\' expected to end arguments list.");
ms33_54=e2s("Empty argument list (deleted).");
ms35_54=e2s("This name must not appear after a dot.");
ms121_27=e2s("Void");
ms211_54=e2s("`Result\' must only be used inside a function.");
ms119_27=e2s("Result");
ms183_54=e2s("\'(\' expected to begin a strip list.");
ms182_54=e2s("\')\' expected to end a strip expression.");
ms181_54=e2s("strip");
ms93_54=e2s("Expression \"old\" can be used in ensure clause only.");
ms92_54=e2s("old");
ms91_54=e2s("Bad use of prefix operator. ");
ms90_54=e2s("- (prefix)");
ms89_54=e2s("+ (prefix)");
ms9_54=e2s("\" expected.");
ms8_54=e2s("Right hand side expression of \"");
ms88_54=e2s("End of manifest array expected.");
ms158_54=e2s("require");
ms157_54=e2s("Obsolete manifest string expected.");
ms156_54=e2s("obsolete");
ms7_138=e2s("This constant feature should have a result type (INTEGER).");
ms6_138=e2s("The type of this constant feature should be INTEGER  or REAL.");
ms1_84=e2s("INTEGER_CONSTANT/nyi.");
ms10_138=e2s("This constant feature should have a result type (REAL).");
ms9_138=e2s("The type of this constant feature should be REAL.");
ms2_83=e2s("REAL_CONSTANT/nyi.");
ms8_138=e2s("REAL truncated to INTEGER");
ms4_138=e2s("The type of this constant feature should be BIT.");
ms11_138=e2s("The type of this constant feature should be STRING.");
ms7_1=e2s("C=a1;");
ms5_138=e2s("The type of this constant feature should be CHARACTER.");
ms3_138=e2s("The type of this constant feature should be BOOLEAN.");
ms13_138=e2s("Unique feature must have INTEGER type.");
ms12_138=e2s("Unique feature must have a result type.");
ms112_54=e2s("unique");
ms111_54=e2s("is");
ms110_54=e2s("Type mark expected.");
ms1_97=e2s("Cyclic anchored definition.");
ms15_54=e2s("Empty formal argument list (deleted).");
ms14_54=e2s("Bad formal aguments list.");
ms13_54=e2s("Substitute with \";\".");
ms210_54=e2s("Deleted extra separator.");
ms109_54=e2s("Synonym feature name expected.");
ms108_54=e2s("Frozen feature name synonym expected.");
ms107_54=e2s("frozen");
ms106_54=e2s("frozen");
ms62_54=e2s("feature");
ms83_54=e2s("Empty creation list (deleted).");
ms148_54=e2s("Inheritance option not at a good place. The good order is: \"rename... export... undefine... redefine... select...\".");
ms147_54=e2s("select");
ms146_54=e2s("redefine");
ms145_54=e2s("undefine");
ms144_54=e2s("export");
ms143_54=e2s("rename");
ms142_54=e2s("select");
ms141_54=e2s("redefine");
ms140_54=e2s("undefine");
ms203_54=e2s("Added \";\".");
ms1_130=e2s("Same feature name appears twice.");
ms199_54=e2s("Feature name expected.");
ms136_54=e2s("all");
ms103_27=e2s("Deleted extra semi-colon.");
ms1_128=e2s("Same Class Name appears twice.");
ms208_54=e2s("Bad clients list.");
ms69_54=e2s("Unexpected bracket.");
ms204_54=e2s("Unexpected comma (deleted).");
ms135_54=e2s("export");
ms139_54=e2s("Unexpected \";\" to end rename list.");
ms155_54=e2s("Second identifier of a \"rename\" pair expected.");
ms154_54=e2s("New name and old name should be different.");
ms153_54=e2s("as");
ms138_54=e2s("rename");
ms2_120=e2s("\" because it is not yet implemented (sorry).");
ms1_120=e2s("You cannot inherit from \"");
ms137_54=e2s("A class cannot inherit itself.");
ms61_54=e2s("inherit");
ms60_54=e2s("Manifest string expected for \"obsolete\" clause.");
ms59_54=e2s("obsolete");
ms1_89=e2s("Class name appears twice in formal generic list (VCFG-2).");
ms114_54=e2s("Empty formal generic list (deleted).");
ms113_54=e2s("Constraint Class name expected.");
ms68_54=e2s("Bad generic list.");
ms202_54=e2s("Added \",\".");
ms67_54=e2s("Empty generic list (deleted).");
ms66_54=e2s("Type mark expected.");
ms209_54=e2s("Deleted extra coma.");
ms42_54=e2s("Bad use of predefined type ARRAY.");
ms192_54=e2s("Expected constant for BIT_N type declaration.");
ms191_54=e2s("Must find a class type after \"expanded\".");
ms1_102=e2s("expanded ");
ms190_54=e2s("Anchor expected. An anchor could be `Current\', a feature name or an argument name.");
ms1_101=e2s("like ");
ms1_100=e2s("like ");
ms111_27=e2s("Current");
ms189_54=e2s("like");
ms58_54=e2s("Name of the current class expected.");
ms57_54=e2s("Cannot write such a class.");
ms36_27=e2s("ANY");
ms37_27=e2s("ARRAY");
ms38_27=e2s("BIT");
ms39_27=e2s("BIT_N");
ms40_27=e2s("BOOLEAN");
ms41_27=e2s("BOOLEAN_REF");
ms42_27=e2s("CHARACTER");
ms43_27=e2s("CHARACTER_REF");
ms44_27=e2s("DICTIONARY");
ms45_27=e2s("DOUBLE");
ms46_27=e2s("DOUBLE_REF");
ms47_27=e2s("FIXED_ARRAY");
ms48_27=e2s("GENERAL");
ms49_27=e2s("INTEGER");
ms50_27=e2s("INTEGER_REF");
ms51_27=e2s("MEMORY");
ms52_27=e2s("NONE");
ms53_27=e2s("POINTER");
ms54_27=e2s("POINTER_REF");
ms55_27=e2s("REAL");
ms56_27=e2s("REAL_REF");
ms57_27=e2s("STRING");
ms58_27=e2s("STD_FILE_READ");
ms25_54=e2s("Class name should use only uppercase letters.");
ms56_54=e2s("Keyword \"class\" expected.");
ms55_54=e2s("class");
ms28_53=e2s("A class cannot be expanded and deferred.");
ms113_27=e2s("deferred");
ms200_54=e2s("Index value expected (\"indexing ...\").");
ms104_27=e2s("It is not an integer value.");
ms3_83=e2s("REAL_CONSTANT/nyi.");
ms30_54=e2s("Exponent of a real value expected.");
ms198_54=e2s("Underscore in fractionnal part must group 3 digits.");
ms206_54=e2s("Underscore in number must group 3 digits.");
ms29_54=e2s("In extended form of manifest string. Bad character before \'%\'.");
ms28_54=e2s("In extended form of manifest string.Bad character after \'%\'.");
ms27_54=e2s("Unknown special character.");
ms205_54=e2s("Unexpected new line in manifest string.");
ms1_80=e2s("ms");
ms24_54=e2s("Unknown special character.");
ms23_54=e2s("Three digit is enought for an ascii code.");
ms22_54=e2s("Bad (empty ?) ascii code.");
ms21_54=e2s("Unexpected character in ascii code.");
ms207_54=e2s("Bad character constant.");
ms52_54=e2s("false");
ms51_54=e2s("true");
ms26_54=e2s("Identifier should use only lowercase letters.");
ms2_73=e2s("alias");
ms3_73=e2s("all");
ms4_73=e2s("as");
ms110_27=e2s("check");
ms5_73=e2s("class");
ms112_27=e2s("creation");
ms6_73=e2s("debug");
ms7_73=e2s("deferred");
ms8_73=e2s("do");
ms9_73=e2s("elseif");
ms115_27=e2s("end");
ms10_73=e2s("ensure");
ms116_27=e2s("expanded");
ms11_73=e2s("export");
ms12_73=e2s("external");
ms13_73=e2s("false");
ms14_73=e2s("feature");
ms15_73=e2s("from");
ms16_73=e2s("frozen");
ms17_73=e2s("if");
ms18_73=e2s("indexing");
ms19_73=e2s("infix");
ms20_73=e2s("inherit");
ms21_73=e2s("inspect");
ms22_73=e2s("invariant");
ms23_73=e2s("is");
ms24_73=e2s("like");
ms25_73=e2s("local");
ms26_73=e2s("loop");
ms27_73=e2s("obsolete");
ms28_73=e2s("old");
ms29_73=e2s("once");
ms30_73=e2s("prefix");
ms31_73=e2s("redefine");
ms32_73=e2s("rename");
ms33_73=e2s("require");
ms34_73=e2s("rescue");
ms35_73=e2s("retry");
ms36_73=e2s("select");
ms37_73=e2s("separate");
ms38_73=e2s("strip");
ms39_73=e2s("then");
ms40_73=e2s("true");
ms41_73=e2s("undefine");
ms42_73=e2s("unique");
ms43_73=e2s("until");
ms44_73=e2s("variant");
ms45_73=e2s("when");
ms119_54=e2s("Character \'%\"\' inserted.");
ms118_54=e2s("Infix operator name expected.");
ms82_27=e2s("or else");
ms114_27=e2s("else");
ms81_27=e2s("or");
ms60_27=e2s("and then");
ms120_27=e2s("then");
ms59_27=e2s("and");
ms117_27=e2s("implies");
ms122_27=e2s("xor");
ms50_54=e2s("^");
ms49_54=e2s("<");
ms48_54=e2s(">");
ms125_27=e2s("/");
ms47_54=e2s("*");
ms46_54=e2s("\\\\");
ms45_54=e2s("//");
ms44_54=e2s(">=");
ms43_54=e2s("<=");
ms117_54=e2s("Character \'%\"\' inserted after \"infix\".");
ms116_54=e2s("infix");
ms152_54=e2s("Character \'%\"\' inserted.");
ms151_54=e2s("Prefix operator name expected.");
ms96_27=e2s("-");
ms95_27=e2s("+");
ms118_27=e2s("not");
ms150_54=e2s("Character \'%\"\' inserted after \"prefix\".");
ms2_48=e2s("Warning");
ms149_54=e2s("prefix");
ms115_54=e2s("indexing");
ms3_51=e2s("FOO");
ms2_64=e2s("\".");
ms1_64=e2s("Cannot read file : \"");
ms1_54=e2s("Correct previous error(s) first.");
ms12_55=e2s("\". ");
ms11_55=e2s("set to \"");
ms10_55=e2s("not set. ");
ms9_55=e2s("\" is\n");
ms8_55=e2s("Environment Variable \"");
ms7_55=e2s("\nLoading path is :\n");
ms25_55=e2s("\". ");
ms24_55=e2s("Unable to find file for class \"");
ms23_55=e2s("\".");
ms22_55=e2s("Bad \"rename.se\" file.\nCannot open \"");
ms30_55=e2s(".\n");
ms29_55=e2s("\" and \n\"");
ms28_55=e2s("\" in \"rename.se\" files.\nClash for \n\"");
ms27_55=e2s("Multiple entry for \"");
ms26_55=e2s("rename.se");
ms20_55=e2s("                                                    ");
ms3_55=e2s("lib_std");
ms4_55=e2s("lib_show");
ms5_55=e2s("lib_test");
ms8_27=e2s("\".\n");
ms7_27=e2s("Cannot read file \"");
ms2_55=e2s("loadpath.se");
ms24_27=e2s(".e");
ms21_55=e2s("                                                    ");
ms13_55=e2s("Internal Error #1 in SMALL_EIFFEL.");
ms4_48=e2s("Fatal Error");
ms5_49=e2s(" in ");
ms4_49=e2s(" column ");
ms1_2=e2s("0123456789");
ms3_49=e2s("Line ");
ms7_48=e2s(" : ");
ms109_27=e2s("**** ");
ms102_27=e2s(".");
ms19_26=e2s(". Bad flag ");
ms18_26=e2s("compile_to_c: level is already set to ");
ms5_26=e2s("-boost");
ms25_27=e2s(".c");
ms27_27=e2s(".o");
ms4_26=e2s("compile_to_c");
ms1_43=e2s("r");
ms4_27=e2s("\".\n");
ms3_27=e2s("Unable to find help file \"");
ms35_27=e2s(".hlp");
ms2_27=e2s("man");
ms1_27=e2s("/usr/local/logiciel/SmallEiffel");
ms124_27=e2s("SmallEiffel");
ms3_26=e2s("Bad use of command `compile_to_c\'.\n");
ms2_39=e2s("Error while writing character.");
}
char *s2e(Tstring *s){
char *e=(char*)malloc(((size_t)(s->_count)+1));
memcpy(e,s->_storage,s->_count);
e[s->_count]='\0';
return e;
}
Tstring *e2s(char *e){
Tstring *s=(Tstring*)se_new(7);
if (e!=NULL) {
s->_capacity=strlen(e)+1;
s->_count=(s->_capacity)-1;
s->_storage=(char *)malloc(((size_t)sizeof(char)*s->_capacity));
strcpy(s->_storage,e);}
return s;
}
T0 *ma(int aid,int eid,int argc,...){
va_list pa;
Tarray *a=((Tarray *)se_new(aid));
char* store=0;
a->_capacity=argc;
a->_lower=1;
a->_upper=argc;
a->_storage=NULL;
if (argc) {va_start(pa,argc);
if (eid) store=(char*)malloc(((size_t)argc*(s[eid])));
else store=(char*)malloc(((size_t)argc*(sizeof(char*))));
a->_storage=(T0**)store;
switch (eid){
case 0:case 8:
while (argc--){*((char**)store)=va_arg(pa,char*);
store+=sizeof(char*);}break;
case 2:case 6:
while (argc--){*((int*)store)=va_arg(pa,int);
store+=sizeof(int);}break;
case 3:
while (argc--){*((char*)store)=((char)va_arg(pa,int));
store+=sizeof(char);}break;
case 4:
while (argc--){*((float*)store)=va_arg(pa,double);
store+=sizeof(float);}break;
case 5:
while (argc--){*((double*)store)=va_arg(pa,double);
store+=sizeof(double);}break;
while (argc--){
memcpy(*((char**)va_arg(pa,T0 *)),store,s[eid]);
store+=s[eid];}}
va_end(pa);}
return ((T0*)a);
}
void rsp(void){
printf("Eiffel program crash at run time.\n");
printf("No trace when using option \"-boost\"\n");
exit(1);
}
void sigrsp(int sig){
printf("Received signal %d (man signal).\n",sig);
rsp();
exit(1);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.