ftp.nice.ch/pub/next/developer/languages/eiffel/SmallEiffel.0.95.N.bs.tar.gz#/SmallEiffel/bin_c/pretty12.c

This is pretty12.c in view mode; [Download] [Up]

/* ANSI C code generated by SmallEiffel. */
/*
-- SmallEiffel  -- Release (- 0.95)    --      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){
ms565=e2s(": ");
ms564=e2s(": ");
ms563=e2s(", ");
ms562=e2s(": ");
ms561=e2s("C");
ms560=e2s("CWC");
ms559=e2s("CSE");
ms558=e2s("..");
ms557=e2s("?=");
ms556=e2s(":=");
ms555=e2s("!!");
ms554=e2s("!!");
ms553=e2s("loop");
ms552=e2s("end;");
ms551=e2s("loop");
ms550=e2s("until");
ms549=e2s("variant");
ms548=e2s("invariant");
ms547=e2s("from");
ms546=e2s("inspect");
ms545=e2s("end;");
ms544=e2s("then");
ms543=e2s("when");
ms542=e2s("inspect");
ms541=e2s("retry");
ms540=e2s("if");
ms539=e2s("end;");
ms538=e2s("else");
ms537=e2s("elseif");
ms536=e2s("then");
ms535=e2s("if");
ms534=e2s("debug");
ms533=e2s("end;");
ms532=e2s("debug");
ms531=e2s("check");
ms530=e2s("-- ");
ms529=e2s("end;");
ms528=e2s("once");
ms527=e2s("do");
ms526=e2s("local");
ms525=e2s("alias");
ms524=e2s("external");
ms523=e2s("infix");
ms522=e2s("prefix");
ms521=e2s("-- ");
ms520=e2s("COMMENT/nyi.");
ms519=e2s("end;");
ms518=e2s("rescue");
ms517=e2s("ensure");
ms516=e2s("ensure then");
ms515=e2s("\ndeferred\n");
ms514=e2s("require");
ms513=e2s("require else");
ms512=e2s("obsolete");
ms511=e2s("is");
ms510=e2s("; ");
ms509=e2s(" is ");
ms508=e2s(" is unique");
ms507=e2s(": ");
ms506=e2s(", ");
ms505=e2s("frozen");
ms504=e2s("Same name appears twice.");
ms503=e2s("BIT_N");
ms502=e2s("BIT ");
ms501=e2s("BIT ");
ms500=e2s("like Current");
ms499=e2s("ADDRESS_OF/does_not_understand");
ms498=e2s("Internal Error #1 in E_VOID.");
ms497=e2s("old ");
ms496=e2s(")");
ms495=e2s("strip (");
ms494=e2s(">>");
ms493=e2s("<<");
ms492=e2s("false");
ms491=e2s("true");
ms490=e2s("infix");
ms489=e2s("prefix");
ms488=e2s("\" not removed.");
ms487=e2s("Error during `pretty\' printing.\nCannot parse output of pretty.\nBackup \"");
ms486=e2s("-- class ");
ms485=e2s("end");
ms484=e2s("; ");
ms483=e2s(": ");
ms482=e2s("invariant");
ms481=e2s("feature");
ms480=e2s("creation");
ms479=e2s("end;");
ms478=e2s("select");
ms477=e2s("redefine");
ms476=e2s("undefine");
ms475=e2s(", ");
ms474=e2s("all");
ms473=e2s(", ");
ms472=e2s("\173""NONE\175""");
ms471=e2s("\173""\175""");
ms470=e2s("\173""ANY\175""");
ms469=e2s("export");
ms468=e2s(", ");
ms467=e2s("as");
ms466=e2s("rename");
ms465=e2s("inherit");
ms464=e2s("                                             ");
ms463=e2s("%/");
ms462=e2s("");
ms461=e2s("%\n");
ms460=e2s("obsolete");
ms459=e2s(",");
ms458=e2s("->");
ms457=e2s("class");
ms456=e2s("deferred");
ms455=e2s("--");
ms454=e2s(";\n");
ms453=e2s(", ");
ms452=e2s(": ");
ms451=e2s("indexing");
ms450=e2s("\".\n");
ms449=e2s("Cannot write in file \"");
ms448=e2s("w");
ms447=e2s("\".");
ms446=e2s("Cannot rename \"");
ms444=e2s("\" already exists.");
ms443=e2s("Old backup file \"");
ms442=e2s(".bak");
ms441=e2s("\".");
ms440=e2s("No pretty printing done for \"");
ms439=e2s("Cannot load class.");
ms438=e2s("Cannot find class.");
ms437=e2s("No Class to Pretty Print.");
ms436=e2s("No pretty printing done.");
ms435=e2s("\n");
ms434=e2s("Unknow flag : ");
ms433=e2s("-parano");
ms432=e2s("-end");
ms431=e2s("-zen");
ms430=e2s(").\n");
ms429=e2s("****** Too many errors (");
ms428=e2s("Error");
ms427=e2s("------\n");
ms426=e2s("\n");
ms425=e2s("SmallEiffel cannot load base class : ");
ms424=e2s("^\n");
ms423=e2s(" :\n");
ms422=e2s(" (");
ms421=e2s("\".");
ms420=e2s(" does not contains class \"");
ms419=e2s("File \"");
ms418=e2s("Unable to load class.");
ms417=e2s("Cannot redefine unexistant feature (VDRS.1).");
ms416=e2s("Parent have not this feature.");
ms415=e2s("Redefinition not found.");
ms414=e2s("Feature not found in corresponding parent.");
ms413=e2s("Feature not found in corresponding parent.");
ms412=e2s("Double definition of feature ");
ms411=e2s("Internal Error #2 in POSITION.");
ms410=e2s("Internal Error #1 in POSITION.");
ms409=e2s(" warning(s).\n");
ms408=e2s("*** ");
ms407=e2s("\" aborted.\n");
ms406=e2s("Load class \"");
ms405=e2s(" error(s). ");
ms404=e2s("*** ");
ms403=e2s("Keyword \"end\" expected at the end of a class.");
ms402=e2s("Must not put important comment after end of a class.");
ms401=e2s("End of text expected.");
ms400=e2s("invariant");
ms399=e2s("Attribute must not have formal arguments.");
ms398=e2s("Bad feature definition.");
ms397=e2s("A routine must be ended with \"end\".");
ms396=e2s("rescue");
ms395=e2s("Deferred feature must not have rescue compound.");
ms394=e2s("rescue");
ms393=e2s("ensure");
ms392=e2s("Routine body expected.");
ms391=e2s("once routine body");
ms390=e2s("once");
ms389=e2s("routine body");
ms388=e2s("Right hand side expression expected for assignment.");
ms387=e2s("Must not affect a formal argument.");
ms386=e2s("Must not affect `Void\'.");
ms385=e2s("Must not affect `Current\'.");
ms384=e2s("\')\' expected.");
ms383=e2s("Bad creation (procedure name expected).");
ms382=e2s("Bad creation (writable expected).");
ms381=e2s("A formal argument is not a writable variable.");
ms380=e2s("Current is not a writable variable.");
ms379=e2s("Bad creation (\'!\' expected).");
ms378=e2s("Bad creation (type or \'!\' expected).");
ms377=e2s("Explicit creation type mark must not be anchored.");
ms376=e2s("loop body");
ms375=e2s("Keyword \"loop\" expected (in a loop).");
ms374=e2s("loop");
ms373=e2s("Keyword \"until\" expected (in a loop).");
ms372=e2s("Boolean expression expected (until).");
ms371=e2s("until");
ms370=e2s("Variant (INTEGER) Expression Expected.");
ms369=e2s("variant");
ms368=e2s("invariant");
ms367=e2s("from part of a loop");
ms366=e2s("from");
ms365=e2s("Added \"end\" for inspect instruction.");
ms364=e2s("else of inspect");
ms363=e2s("when item");
ms362=e2s("when item");
ms361=e2s("Error in inspect.");
ms360=e2s("when item");
ms359=e2s("when");
ms358=e2s("Expression expected (\"inspect ... \").");
ms357=e2s("inspect");
ms356=e2s("\"retry\" cannot be outside of a rescue clause.");
ms355=e2s("retry");
ms354=e2s("Keyword \"end\".");
ms353=e2s("else part");
ms352=e2s("In \"elseif ... then ...\".");
ms351=e2s("elseif");
ms350=e2s("In \"if ... then ...\".");
ms349=e2s("then part");
ms348=e2s("Added \"then\".");
ms347=e2s("if");
ms346=e2s("debug");
ms345=e2s("\" expected.");
ms344=e2s("). Instruction or keyword \"");
ms343=e2s("In compound (");
ms342=e2s("\")\" expected to end debug string list.");
ms341=e2s("Empty debug key list (deleted).");
ms340=e2s("debug");
ms339=e2s("Keyword \"end\" expected at the end of check clause.");
ms338=e2s("Empty check instruction removed.");
ms337=e2s("do");
ms336=e2s("Alias name of external expected.");
ms335=e2s("alias");
ms334=e2s("\" not yet implemented.");
ms333=e2s("Interface with langage \"");
ms332=e2s("C");
ms331=e2s("CWC");
ms330=e2s("CSE");
ms329=e2s("External langage name expected.");
ms328=e2s("external");
ms327=e2s("deferred");
ms326=e2s("Bad local variable list.");
ms325=e2s("Substitute with \";\".");
ms324=e2s("Same identifier appears twice (local/formal).");
ms323=e2s("Substitute with \",\".");
ms322=e2s("Same identifier appears twice (local/formal).");
ms321=e2s("local");
ms320=e2s("Expression expected after \'implies\'.");
ms319=e2s(">");
ms318=e2s(">");
ms317=e2s("<");
ms316=e2s("<");
ms315=e2s(">=");
ms314=e2s(">=");
ms313=e2s("<=");
ms312=e2s("<=");
ms311=e2s("/=");
ms310=e2s("/=");
ms309=e2s("=");
ms308=e2s("=");
ms307=e2s("\\\\");
ms306=e2s("\\\\");
ms305=e2s("//");
ms304=e2s("//");
ms303=e2s("*");
ms302=e2s("*");
ms301=e2s("^");
ms300=e2s("^");
ms299=e2s("Syntax Error.");
ms298=e2s("Expression expected after \"old\".");
ms297=e2s("Added brackets for manifest constant before dot.");
ms296=e2s("Expression expected.");
ms295=e2s("\')\' expected in expression.");
ms294=e2s("An expression has a result value. This is not an instruction.");
ms293=e2s("Identifier expected after a dot.");
ms292=e2s("\')\' expected to end arguments list.");
ms291=e2s("Empty argument list (deleted).");
ms290=e2s("This name must not appear after a dot.");
ms289=e2s("Void");
ms288=e2s("`Result\' must only be used inside a function.");
ms287=e2s("Result");
ms286=e2s("\'(\' expected to begin a strip list.");
ms285=e2s("\')\' expected to end a strip expression.");
ms284=e2s("strip");
ms283=e2s("Expression \"old\" can be used in ensure clause only.");
ms282=e2s("old");
ms281=e2s("Bad use of prefix operator. ");
ms280=e2s("- (prefix)");
ms279=e2s("+ (prefix)");
ms278=e2s("\" expected.");
ms277=e2s("Right hand side expression of \"");
ms276=e2s("End of manifest array expected.");
ms275=e2s("require");
ms274=e2s("Obsolete manifest string expected.");
ms273=e2s("obsolete");
ms272=e2s("This constant feature should have a result type (INTEGER).");
ms271=e2s("The type of this constant feature should be INTEGER  or REAL.");
ms270=e2s("INTEGER_CONSTANT/nyi.");
ms269=e2s("This constant feature should have a result type (REAL).");
ms268=e2s("The type of this constant feature should be REAL.");
ms267=e2s("REAL_CONSTANT/nyi.");
ms266=e2s("REAL truncated to INTEGER");
ms265=e2s("The type of this constant feature should be BIT.");
ms264=e2s("The type of this constant feature should be STRING.");
ms262=e2s("C=a1;");
ms261=e2s("The type of this constant feature should be CHARACTER.");
ms260=e2s("The type of this constant feature should be BOOLEAN.");
ms259=e2s("Unique feature must have INTEGER type.");
ms258=e2s("Unique feature must have a result type.");
ms257=e2s("unique");
ms256=e2s("is");
ms255=e2s("Type mark expected.");
ms254=e2s("Circular anchored definition.");
ms253=e2s("Empty formal argument list (deleted).");
ms252=e2s("Bad formal aguments list.");
ms251=e2s("Substitute with \";\".");
ms250=e2s("Deleted extra separator.");
ms249=e2s("Synonym feature name expected.");
ms248=e2s("Frozen feature name synonym expected.");
ms247=e2s("frozen");
ms246=e2s("frozen");
ms245=e2s("feature");
ms244=e2s("Empty creation list (deleted).");
ms243=e2s("Inheritance option not at a good place. The good order is: \"rename... export... undefine... redefine... select...\".");
ms242=e2s("select");
ms241=e2s("redefine");
ms240=e2s("undefine");
ms239=e2s("export");
ms238=e2s("rename");
ms237=e2s("select");
ms236=e2s("redefine");
ms235=e2s("undefine");
ms234=e2s("Added \";\".");
ms233=e2s("Same feature name appears twice.");
ms232=e2s("Feature name expected.");
ms231=e2s("all");
ms230=e2s("Deleted extra semi-colon.");
ms229=e2s("Same Class Name appears twice.");
ms228=e2s("Bad clients list.");
ms227=e2s("Unexpected bracket.");
ms226=e2s("Unexpected comma (deleted).");
ms225=e2s("export");
ms224=e2s("Unexpected \";\" to end rename list.");
ms223=e2s("Second identifier of a \"rename\" pair expected.");
ms222=e2s("New name and old name should be different.");
ms221=e2s("as");
ms220=e2s("rename");
ms219=e2s("\" because it is not yet implemented (sorry).");
ms218=e2s("You cannot inherit from \"");
ms217=e2s("A class cannot inherit itself.");
ms216=e2s("inherit");
ms215=e2s("Manifest string expected for \"obsolete\" clause.");
ms214=e2s("obsolete");
ms213=e2s("Class name appears twice in formal generic list (VCFG-2).");
ms212=e2s("Empty formal generic list (deleted).");
ms211=e2s("Constraint Class name expected.");
ms210=e2s("Bad generic list.");
ms209=e2s("Added \",\".");
ms208=e2s("Empty generic list (deleted).");
ms207=e2s("Type mark expected.");
ms206=e2s("Deleted extra coma.");
ms205=e2s("Bad use of predefined type ARRAY.");
ms204=e2s("ARRAY[");
ms203=e2s("Expected constant for BIT_N type declaration.");
ms202=e2s("Must find a class type after \"expanded\".");
ms201=e2s("expanded ");
ms200=e2s("Anchor expected. An anchor could be `Current\', a feature name or an argument name.");
ms199=e2s("like ");
ms198=e2s("like ");
ms197=e2s("Current");
ms196=e2s("like");
ms195=e2s("Name of the current class expected.");
ms194=e2s("Cannot write such a class.");
ms193=e2s("BIT");
ms192=e2s("DOUBLE_REF");
ms191=e2s("DOUBLE");
ms190=e2s("REAL_REF");
ms189=e2s("REAL");
ms188=e2s("INTEGER_REF");
ms187=e2s("INTEGER");
ms186=e2s("FIXED_ARRAY");
ms185=e2s("CHARACTER_REF");
ms184=e2s("CHARACTER");
ms183=e2s("BOOLEAN_REF");
ms182=e2s("BOOLEAN");
ms181=e2s("STRING");
ms180=e2s("ARRAY");
ms179=e2s("POINTER_REF");
ms178=e2s("POINTER");
ms177=e2s("NONE");
ms176=e2s("GENERAL");
ms175=e2s("ANY");
ms174=e2s("Class name must use only uppercase letters.");
ms173=e2s("Keyword \"class\" expected.");
ms172=e2s("class");
ms171=e2s("deferred");
ms170=e2s("A class cannot be expanded and deferred.");
ms169=e2s("deferred");
ms168=e2s("Index value expected (\"indexing ...\").");
ms167=e2s("It is not an integer value.");
ms166=e2s("REAL_CONSTANT/nyi.");
ms165=e2s("Exponent of a real value expected.");
ms164=e2s("Underscore in fractionnal part must group 3 digits.");
ms163=e2s("Underscore in number must group 3 digits.");
ms162=e2s("In extended form of manifest string. Bad character before \'%\'.");
ms161=e2s("In extended form of manifest string.Bad character after \'%\'.");
ms160=e2s("Unknown special character.");
ms159=e2s("Unexpected new line in manifest string.");
ms158=e2s("Unknown special character.");
ms157=e2s("Three digit is enought for an ascii code.");
ms156=e2s("Bad (empty ?) ascii code.");
ms155=e2s("Unexpected character in ascii code.");
ms154=e2s("Bad character constant.");
ms153=e2s("false");
ms152=e2s("true");
ms151=e2s("Identifier must use only lowercase letters.");
ms150=e2s("when");
ms149=e2s("variant");
ms148=e2s("until");
ms147=e2s("unique");
ms146=e2s("undefine");
ms145=e2s("true");
ms144=e2s("then");
ms143=e2s("strip");
ms142=e2s("separate");
ms141=e2s("select");
ms140=e2s("retry");
ms139=e2s("rescue");
ms138=e2s("require");
ms137=e2s("rename");
ms136=e2s("redefine");
ms135=e2s("prefix");
ms134=e2s("once");
ms133=e2s("old");
ms132=e2s("obsolete");
ms131=e2s("loop");
ms130=e2s("local");
ms129=e2s("like");
ms128=e2s("is");
ms127=e2s("invariant");
ms126=e2s("inspect");
ms125=e2s("inherit");
ms124=e2s("infix");
ms123=e2s("indexing");
ms122=e2s("if");
ms121=e2s("frozen");
ms120=e2s("from");
ms119=e2s("feature");
ms118=e2s("false");
ms117=e2s("external");
ms116=e2s("export");
ms115=e2s("expanded");
ms114=e2s("ensure");
ms113=e2s("end");
ms112=e2s("elseif");
ms111=e2s("do");
ms110=e2s("deferred");
ms109=e2s("debug");
ms108=e2s("creation");
ms107=e2s("class");
ms106=e2s("check");
ms105=e2s("as");
ms104=e2s("all");
ms103=e2s("alias");
ms102=e2s("Character \'%\"\' inserted.");
ms101=e2s("Infix operator name expected.");
ms100=e2s("or else");
ms99=e2s("else");
ms98=e2s("or");
ms97=e2s("and then");
ms96=e2s("then");
ms95=e2s("and");
ms94=e2s("implies");
ms93=e2s("xor");
ms92=e2s("^");
ms91=e2s("<");
ms90=e2s(">");
ms89=e2s("/");
ms88=e2s("*");
ms87=e2s("\\\\");
ms86=e2s("//");
ms85=e2s(">=");
ms84=e2s("<=");
ms83=e2s("Character \'%\"\' inserted after \"infix\".");
ms82=e2s("infix");
ms81=e2s("Character \'%\"\' inserted.");
ms80=e2s("Prefix operator name expected.");
ms79=e2s("-");
ms78=e2s("+");
ms77=e2s("***");
ms76=e2s("not");
ms75=e2s("Character \'%\"\' inserted after \"prefix\".");
ms74=e2s("Warning");
ms73=e2s("prefix");
ms72=e2s("indexing");
ms71=e2s("FOO");
ms70=e2s("\".");
ms69=e2s("Cannot read file : \"");
ms68=e2s("Correct previous error(s) first.");
ms67=e2s("\". ");
ms66=e2s("set to \"");
ms65=e2s("not set. ");
ms64=e2s("\" is\n");
ms63=e2s("Environment Variable \"");
ms62=e2s("\nLoading path is :\n");
ms61=e2s("\". ");
ms60=e2s("Unable to find file for class \"");
ms59=e2s("\".");
ms58=e2s("Bad \"rename.se\" file.\nCannot open \"");
ms56=e2s(".\n");
ms55=e2s("\" and \n\"");
ms54=e2s("\" in \"rename.se\" files.\nClash for \n\"");
ms53=e2s("Multiple entry for \"");
ms52=e2s("rename.se");
ms51=e2s("                                                    ");
ms50=e2s("lib_test");
ms49=e2s("lib_show");
ms48=e2s("lib_std");
ms47=e2s("\".\n");
ms46=e2s("Cannot read file \"");
ms45=e2s("loadpath.se");
ms44=e2s(".e");
ms43=e2s("                                                    ");
ms42=e2s("Internal Error #1 in SMALL_EIFFEL.");
ms41=e2s("Fatal Error");
ms40=e2s(" in ");
ms39=e2s(" column ");
ms38=e2s("0123456789");
ms37=e2s("Line ");
ms36=e2s(" : ");
ms35=e2s("****** ");
ms34=e2s(".");
ms33=e2s(". Bad flag ");
ms32=e2s("pretty: format style is already set to ");
ms31=e2s("-default");
ms28=e2s("pretty");
ms25=e2s("r");
ms24=e2s("\".\n");
ms23=e2s("Unable to find help file \"");
ms21=e2s(".hlp");
ms20=e2s("man");
ms19=e2s("/usr/local/logiciel/SmallEiffel");
ms15=e2s("SmallEiffel");
ms9=e2s("Bad use of command `pretty\'.\n");
ms5=e2s("Error while writing character.");
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.