This is pretty35.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 "pretty.h"
void se_manifest_strings(void){
ms1_144=e2s(": ");
ms2_142=e2s(": ");
ms1_142=e2s(", ");
ms1_244=e2s(": ");
ms1_215=e2s("ICWC");
ms1_214=e2s("IC");
ms1_213=e2s("C");
ms1_212=e2s("CWC");
ms1_211=e2s("CSE");
ms5_239=e2s("..");
ms17_255=e2s("?=");
ms13_254=e2s(":=");
ms6_251=e2s("!!");
ms3_246=e2s("!!");
ms19_243=e2s("loop");
ms18_243=e2s("end;");
ms17_243=e2s("loop");
ms16_243=e2s("until");
ms15_243=e2s("variant");
ms1_242=e2s("invariant");
ms14_243=e2s("from");
ms9_231=e2s("inspect");
ms8_231=e2s("end;");
ms10_232=e2s("then");
ms9_232=e2s("when");
ms7_231=e2s("inspect");
ms3_230=e2s("retry");
ms9_224=e2s("if");
ms8_224=e2s("end;");
ms7_224=e2s("else");
ms1_228=e2s("elseif");
ms7_227=e2s("then");
ms6_224=e2s("if");
ms3_221=e2s("debug");
ms2_221=e2s("end;");
ms1_221=e2s("debug");
ms3_219=e2s("check");
ms1_267=e2s("-- ");
ms2_219=e2s("end;");
ms1_259=e2s("once");
ms1_256=e2s("do");
ms1_139=e2s("local");
ms2_216=e2s("alias");
ms1_216=e2s("external");
ms7_158=e2s("infix");
ms6_158=e2s("prefix");
ms5_158=e2s("-- ");
ms4_158=e2s("end;");
ms3_158=e2s("rescue");
ms2_159=e2s("ensure");
ms1_159=e2s("ensure then");
ms1_207=e2s("\ndeferred\n");
ms2_137=e2s("require");
ms1_137=e2s("require else");
ms2_158=e2s("obsolete");
ms1_158=e2s("is");
ms2_95=e2s("; ");
ms1_147=e2s(" is ");
ms1_146=e2s(" is unique");
ms9_64=e2s(": ");
ms10_64=e2s(", ");
ms11_64=e2s("frozen");
ms2_96=e2s("Same name appears twice.");
ms1_102=e2s("BIT_N");
ms4_103=e2s("BIT ");
ms1_101=e2s("BIT ");
ms1_93=e2s("like Current");
ms9_102=e2s("BIT ");
ms4_176=e2s("ADDRESS_OF/does_not_understand");
ms2_175=e2s("Internal Error #1 in E_VOID.");
ms3_171=e2s("old ");
ms5_172=e2s(")");
ms4_172=e2s("strip (");
ms5_162=e2s(">>");
ms4_162=e2s("<<");
ms1_76=e2s("false");
ms1_75=e2s("true");
ms1_72=e2s("infix");
ms1_68=e2s("prefix");
ms20_26=e2s("\" not removed.");
ms19_26=e2s("Error during `pretty\' printing.\nCannot parse output of pretty.\nBackup \"");
ms27_51=e2s("-- class ");
ms26_51=e2s("end");
ms2_66=e2s("; ");
ms1_66=e2s(": ");
ms1_265=e2s("invariant");
ms1_135=e2s("feature");
ms1_132=e2s("creation");
ms10_118=e2s("end;");
ms9_118=e2s("select");
ms8_118=e2s("redefine");
ms7_118=e2s("undefine");
ms2_128=e2s(", ");
ms1_122=e2s("all");
ms2_126=e2s(", ");
ms3_123=e2s("\173""NONE\175""");
ms2_123=e2s("\173""\175""");
ms1_123=e2s("\173""ANY\175""");
ms1_124=e2s("export");
ms2_120=e2s(", ");
ms1_119=e2s("as");
ms1_120=e2s("rename");
ms10_131=e2s("inherit");
ms2_267=e2s(" ");
ms3_78=e2s("%/");
ms2_78=e2s("%\n");
ms25_51=e2s("obsolete");
ms2_87=e2s(",");
ms1_86=e2s("->");
ms24_51=e2s("class");
ms23_51=e2s("deferred");
ms1_61=e2s("--");
ms2_84=e2s(";\n");
ms2_67=e2s(", ");
ms1_67=e2s(": ");
ms1_84=e2s("indexing");
ms6_27=e2s("\".\n");
ms5_27=e2s("Cannot write in file \"");
ms1_39=e2s("w");
ms18_26=e2s("\".");
ms17_26=e2s("Cannot rename \"");
ms16_26=e2s("\" already exists.");
ms15_26=e2s("Old backup file \"");
ms34_27=e2s(".bak");
ms14_26=e2s("\".");
ms13_26=e2s("No pretty printing done for \"");
ms19_53=e2s("Cannot load class.");
ms18_53=e2s("Cannot find class.");
ms10_26=e2s("No Class to Pretty Print.");
ms9_26=e2s("No pretty printing done.");
ms8_26=e2s("\n");
ms7_26=e2s("Unknow flag : ");
ms6_26=e2s("-parano");
ms5_26=e2s("-end");
ms4_26=e2s("-zen");
ms6_46=e2s(").\n");
ms5_46=e2s("Too many errors (");
ms3_46=e2s("Error");
ms8_46=e2s("------\n");
ms10_47=e2s("\n");
ms9_47=e2s("SmallEiffel cannot load base class : ");
ms8_47=e2s("^\n");
ms7_47=e2s(" :\n");
ms6_47=e2s(" (");
ms17_53=e2s("\".");
ms16_53=e2s(" does not contains class \"");
ms15_53=e2s("File \"");
ms14_53=e2s("Unable to load class.");
ms2_61=e2s("Bad comment to end a class.");
ms14_118=e2s("Cannot redefine unexistant feature (VDRS.1).");
ms13_118=e2s("Parent have not this feature.");
ms12_118=e2s("Redefinition not found.");
ms11_118=e2s("Feature not found in corresponding parent.");
ms3_120=e2s("Feature not found in corresponding parent.");
ms1_46=e2s("Type ");
ms2_60=e2s("Cannot find Base Class for ");
ms12_64=e2s("Double definition of feature ");
ms2_47=e2s("Internal Error #2 in POSITION.");
ms1_47=e2s("Internal Error #1 in POSITION.");
ms6_52=e2s(" warning(s).\n");
ms5_52=e2s("\" aborted.\n");
ms4_52=e2s("Load class \"");
ms7_52=e2s(" error(s).\n");
ms65_52=e2s("Keyword \"end\" expected at the end of a class.");
ms64_52=e2s("End of text expected.");
ms63_52=e2s("invariant");
ms2_136=e2s("Attribute must not have formal arguments.");
ms1_136=e2s("Bad feature definition.");
ms163_52=e2s("A routine must be ended with \"end\".");
ms162_52=e2s("rescue");
ms8_158=e2s("Deferred feature must not have rescue compound.");
ms161_52=e2s("rescue");
ms160_52=e2s("ensure");
ms169_52=e2s("Routine body expected.");
ms168_52=e2s("once routine body");
ms167_52=e2s("once");
ms166_52=e2s("routine body");
ms41_52=e2s("Right hand side expression expected for assignment.");
ms40_52=e2s("Must not affect a formal argument.");
ms39_52=e2s("Must not affect `Void\'.");
ms38_52=e2s("Must not affect `Current\'.");
ms37_52=e2s("\')\' expected.");
ms82_52=e2s("Bad creation (procedure name expected).");
ms81_52=e2s("Bad creation (writable expected).");
ms80_52=e2s("A formal argument is not a writable variable.");
ms79_52=e2s("Current is not a writable variable.");
ms78_52=e2s("Bad creation (\'!\' expected).");
ms77_52=e2s("Bad creation (type or \'!\' expected).");
ms76_52=e2s("Explicit creation type mark must not be anchored.");
ms134_52=e2s("loop body");
ms133_52=e2s("Keyword \"loop\" expected (in a loop).");
ms132_52=e2s("loop");
ms131_52=e2s("Keyword \"until\" expected (in a loop).");
ms130_52=e2s("Boolean expression expected (until).");
ms129_52=e2s("until");
ms128_52=e2s("Variant (INTEGER) Expression Expected.");
ms127_52=e2s("variant");
ms126_52=e2s("invariant");
ms125_52=e2s("from part of a loop");
ms124_52=e2s("from");
ms123_52=e2s("Added \"end\" for inspect instruction.");
ms122_52=e2s("else of inspect");
ms196_52=e2s("when item");
ms195_52=e2s("when item");
ms201_52=e2s("Error in inspect.");
ms194_52=e2s("when item");
ms193_52=e2s("when");
ms121_52=e2s("Expression expected (\"inspect ... \").");
ms120_52=e2s("inspect");
ms32_52=e2s("\"retry\" cannot be outside of a rescue clause.");
ms31_52=e2s("retry");
ms75_52=e2s("Keyword \"end\".");
ms74_52=e2s("else part");
ms186_52=e2s("In \"elseif ... then ...\".");
ms185_52=e2s("elseif");
ms184_52=e2s("In \"if ... then ...\".");
ms188_52=e2s("then part");
ms187_52=e2s("Added \"then\".");
ms73_52=e2s("if");
ms87_52=e2s("debug");
ms72_52=e2s("\" expected.");
ms71_52=e2s("). Instruction or keyword \"");
ms70_52=e2s("In compound (");
ms86_52=e2s("\")\" expected to end debug string list.");
ms85_52=e2s("Empty debug key list (deleted).");
ms84_52=e2s("debug");
ms54_52=e2s("Keyword \"end\" expected at the end of check clause.");
ms53_52=e2s("Empty check instruction removed.");
ms165_52=e2s("do");
ms105_52=e2s("Alias name of external expected.");
ms104_52=e2s("alias");
ms103_52=e2s("External language name expected. Currently supported languages are \"C\", \"CWC\", \"IC\", \"ICWC\" and \"CSE\".");
ms102_52=e2s("\"ICWC\"");
ms101_52=e2s("\"IC\"");
ms100_52=e2s("\"C\"");
ms99_52=e2s("\"CWC\"");
ms98_52=e2s("\"CSE\"");
ms164_52=e2s("external");
ms20_52=e2s("Bad local variable list.");
ms19_52=e2s("Substitute with \";\".");
ms18_52=e2s("Same identifier appears twice (local/formal).");
ms17_52=e2s("Substitute with \",\".");
ms16_52=e2s("Same identifier appears twice (local/formal).");
ms159_52=e2s("local");
ms170_52=e2s("Expression expected after \'implies\'.");
ms176_52=e2s(">");
ms1_195=e2s(">");
ms175_52=e2s("<");
ms1_197=e2s("<");
ms174_52=e2s(">=");
ms1_196=e2s(">=");
ms173_52=e2s("<=");
ms1_198=e2s("<=");
ms172_52=e2s("/=");
ms1_199=e2s("/=");
ms171_52=e2s("=");
ms1_200=e2s("=");
ms179_52=e2s("\\\\");
ms1_190=e2s("\\\\");
ms178_52=e2s("//");
ms1_191=e2s("//");
ms177_52=e2s("*");
ms1_192=e2s("*");
ms180_52=e2s("^");
ms1_188=e2s("^");
ms1_187=e2s("Syntax Error.");
ms94_52=e2s("Expression expected after \"old\".");
ms97_52=e2s("Added brackets for manifest constant before dot.");
ms96_52=e2s("Expression expected.");
ms95_52=e2s("\')\' expected in expression.");
ms197_52=e2s("An expression has a result value. This is not an instruction.");
ms36_52=e2s("Identifier expected after a dot.");
ms34_52=e2s("\')\' expected to end arguments list.");
ms33_52=e2s("Empty argument list (deleted).");
ms35_52=e2s("This name must not appear after a dot.");
ms121_27=e2s("Void");
ms211_52=e2s("`Result\' must only be used inside a function.");
ms119_27=e2s("Result");
ms183_52=e2s("\'(\' expected to begin a strip list.");
ms182_52=e2s("\')\' expected to end a strip expression.");
ms181_52=e2s("strip");
ms93_52=e2s("Expression \"old\" can be used in ensure clause only.");
ms92_52=e2s("old");
ms91_52=e2s("Bad use of prefix operator. ");
ms90_52=e2s("- (prefix)");
ms89_52=e2s("+ (prefix)");
ms9_52=e2s("\" expected.");
ms8_52=e2s("Right hand side expression of \"");
ms88_52=e2s("End of manifest array expected.");
ms158_52=e2s("require");
ms157_52=e2s("Obsolete manifest string expected.");
ms156_52=e2s("obsolete");
ms7_136=e2s("This constant feature should have a result type (INTEGER).");
ms6_136=e2s("The type of this constant feature should be INTEGER or REAL.");
ms1_82=e2s("INTEGER_CONSTANT/nyi.");
ms10_136=e2s("This constant feature should have a result type (REAL).");
ms9_136=e2s("The type of this constant feature should be REAL.");
ms2_81=e2s("REAL_CONSTANT/nyi.");
ms8_136=e2s("REAL truncated to INTEGER");
ms4_136=e2s("The type of this constant feature should be BIT.");
ms11_136=e2s("The type of this constant feature should be STRING.");
ms7_1=e2s("C=a1;");
ms5_136=e2s("The type of this constant feature should be CHARACTER.");
ms3_136=e2s("The type of this constant feature should be BOOLEAN.");
ms13_136=e2s("Unique feature must have INTEGER type.");
ms12_136=e2s("Unique feature must have a result type.");
ms112_52=e2s("unique");
ms111_52=e2s("is");
ms110_52=e2s("Type mark expected.");
ms1_95=e2s("Cyclic anchored definition.");
ms15_52=e2s("Empty formal argument list (deleted).");
ms14_52=e2s("Bad formal aguments list.");
ms13_52=e2s("Substitute with \";\".");
ms210_52=e2s("Deleted extra separator.");
ms109_52=e2s("Synonym feature name expected.");
ms108_52=e2s("Frozen feature name synonym expected.");
ms107_52=e2s("frozen");
ms106_52=e2s("frozen");
ms62_52=e2s("feature");
ms83_52=e2s("Empty creation list (deleted).");
ms148_52=e2s("Inheritance option not at a good place. The good order is: \"rename... export... undefine... redefine... select...\".");
ms147_52=e2s("select");
ms146_52=e2s("redefine");
ms145_52=e2s("undefine");
ms144_52=e2s("export");
ms143_52=e2s("rename");
ms142_52=e2s("select");
ms141_52=e2s("redefine");
ms140_52=e2s("undefine");
ms203_52=e2s("Added \";\".");
ms1_128=e2s("Same feature name appears twice.");
ms199_52=e2s("Feature name expected.");
ms136_52=e2s("all");
ms103_27=e2s("Deleted extra semi-colon.");
ms1_126=e2s("Same Class Name appears twice.");
ms208_52=e2s("Bad clients list.");
ms69_52=e2s("Unexpected bracket.");
ms204_52=e2s("Unexpected comma (deleted).");
ms135_52=e2s("export");
ms139_52=e2s("Unexpected \";\" to end rename list.");
ms155_52=e2s("Second identifier of a \"rename\" pair expected.");
ms154_52=e2s("New name and old name should be different.");
ms153_52=e2s("as");
ms138_52=e2s("rename");
ms2_118=e2s("\" because it is not yet implemented (sorry).");
ms1_118=e2s("You cannot inherit from \"");
ms137_52=e2s("A class cannot inherit itself.");
ms61_52=e2s("inherit");
ms60_52=e2s("Manifest string expected for \"obsolete\" clause.");
ms59_52=e2s("obsolete");
ms1_87=e2s("Class name appears twice in formal generic list (VCFG-2).");
ms114_52=e2s("Empty formal generic list (deleted).");
ms113_52=e2s("Constraint Class name expected.");
ms68_52=e2s("Bad generic list.");
ms202_52=e2s("Added \",\".");
ms67_52=e2s("Empty generic list (deleted).");
ms66_52=e2s("Type mark expected.");
ms209_52=e2s("Deleted extra coma.");
ms42_52=e2s("Bad use of predefined type ARRAY.");
ms192_52=e2s("Expected constant for BIT_N type declaration.");
ms191_52=e2s("Must find a class type after \"expanded\".");
ms1_100=e2s("expanded ");
ms190_52=e2s("Anchor expected. An anchor could be `Current\', a feature name or an argument name.");
ms1_99=e2s("like ");
ms1_98=e2s("like ");
ms111_27=e2s("Current");
ms189_52=e2s("like");
ms58_52=e2s("Name of the current class expected.");
ms57_52=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_52=e2s("Class name should use only uppercase letters.");
ms56_52=e2s("Keyword \"class\" expected.");
ms55_52=e2s("class");
ms28_51=e2s("A class cannot be expanded and deferred.");
ms113_27=e2s("deferred");
ms200_52=e2s("Index value expected (\"indexing ...\").");
ms104_27=e2s("It is not an integer value.");
ms3_81=e2s("REAL_CONSTANT/nyi.");
ms30_52=e2s("Exponent of a real value expected.");
ms198_52=e2s("Underscore in fractionnal part must group 3 digits.");
ms206_52=e2s("Underscore in number must group 3 digits.");
ms29_52=e2s("In extended form of manifest string. Bad character before \'%\'.");
ms28_52=e2s("In extended form of manifest string.Bad character after \'%\'.");
ms27_52=e2s("Unknown special character.");
ms205_52=e2s("Unexpected new line in manifest string.");
ms1_78=e2s("ms");
ms24_52=e2s("Unknown special character.");
ms23_52=e2s("Three digit is enought for an ascii code.");
ms22_52=e2s("Bad (empty ?) ascii code.");
ms21_52=e2s("Unexpected character in ascii code.");
ms207_52=e2s("Bad character constant.");
ms52_52=e2s("false");
ms51_52=e2s("true");
ms26_52=e2s("Identifier should use only lowercase letters.");
ms2_71=e2s("alias");
ms3_71=e2s("all");
ms4_71=e2s("as");
ms110_27=e2s("check");
ms5_71=e2s("class");
ms112_27=e2s("creation");
ms6_71=e2s("debug");
ms7_71=e2s("deferred");
ms8_71=e2s("do");
ms9_71=e2s("elseif");
ms115_27=e2s("end");
ms10_71=e2s("ensure");
ms116_27=e2s("expanded");
ms11_71=e2s("export");
ms12_71=e2s("external");
ms13_71=e2s("false");
ms14_71=e2s("feature");
ms15_71=e2s("from");
ms16_71=e2s("frozen");
ms17_71=e2s("if");
ms18_71=e2s("indexing");
ms19_71=e2s("infix");
ms20_71=e2s("inherit");
ms21_71=e2s("inspect");
ms22_71=e2s("invariant");
ms23_71=e2s("is");
ms24_71=e2s("like");
ms25_71=e2s("local");
ms26_71=e2s("loop");
ms27_71=e2s("obsolete");
ms28_71=e2s("old");
ms29_71=e2s("once");
ms30_71=e2s("prefix");
ms31_71=e2s("redefine");
ms32_71=e2s("rename");
ms33_71=e2s("require");
ms34_71=e2s("rescue");
ms35_71=e2s("retry");
ms36_71=e2s("select");
ms37_71=e2s("separate");
ms38_71=e2s("strip");
ms39_71=e2s("then");
ms40_71=e2s("true");
ms41_71=e2s("undefine");
ms42_71=e2s("unique");
ms43_71=e2s("until");
ms44_71=e2s("variant");
ms45_71=e2s("when");
ms119_52=e2s("Character \'%\"\' inserted.");
ms118_52=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_52=e2s("^");
ms49_52=e2s("<");
ms48_52=e2s(">");
ms125_27=e2s("/");
ms47_52=e2s("*");
ms46_52=e2s("\\\\");
ms45_52=e2s("//");
ms44_52=e2s(">=");
ms43_52=e2s("<=");
ms117_52=e2s("Character \'%\"\' inserted after \"infix\".");
ms116_52=e2s("infix");
ms152_52=e2s("Character \'%\"\' inserted.");
ms151_52=e2s("Prefix operator name expected.");
ms96_27=e2s("-");
ms95_27=e2s("+");
ms118_27=e2s("not");
ms150_52=e2s("Character \'%\"\' inserted after \"prefix\".");
ms2_46=e2s("Warning");
ms149_52=e2s("prefix");
ms115_52=e2s("indexing");
ms3_49=e2s("FOO");
ms2_62=e2s("\".");
ms1_62=e2s("Cannot read file : \"");
ms1_52=e2s("Correct previous error(s) first.");
ms12_53=e2s("\". ");
ms11_53=e2s("set to \"");
ms10_53=e2s("not set. ");
ms9_53=e2s("\" is\n");
ms8_53=e2s("Environment Variable \"");
ms7_53=e2s("\nLoading path is :\n");
ms25_53=e2s("\". ");
ms24_53=e2s("Unable to find file for class \"");
ms23_53=e2s("\".");
ms22_53=e2s("Bad \"rename.se\" file.\nCannot open \"");
ms30_53=e2s(".\n");
ms29_53=e2s("\" and \n\"");
ms28_53=e2s("\" in \"rename.se\" files.\nClash for \n\"");
ms27_53=e2s("Multiple entry for \"");
ms26_53=e2s("rename.se");
ms20_53=e2s(" ");
ms3_53=e2s("lib_std");
ms4_53=e2s("lib_show");
ms5_53=e2s("lib_test");
ms8_27=e2s("\".\n");
ms7_27=e2s("Cannot read file \"");
ms2_53=e2s("loadpath.se");
ms24_27=e2s(".e");
ms21_53=e2s(" ");
ms13_53=e2s("Internal Error #1 in SMALL_EIFFEL.");
ms4_46=e2s("Fatal Error");
ms5_47=e2s(" in ");
ms4_47=e2s(" column ");
ms1_2=e2s("0123456789");
ms3_47=e2s("Line ");
ms7_46=e2s(" : ");
ms109_27=e2s("**** ");
ms102_27=e2s(".");
ms12_26=e2s(". Bad flag ");
ms11_26=e2s("pretty: format style is already set to ");
ms3_26=e2s("-default");
ms2_26=e2s("pretty");
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");
ms1_26=e2s("Bad use of command `pretty\'.\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.