From 98cab31fc3659e33aef260efca55bf9f1753164c Mon Sep 17 00:00:00 2001 From: Lars-Dominik Braun Date: Mon, 11 Feb 2019 11:49:19 +0100 Subject: Add source files from Michael --- system/base/unknown/src/init | 250 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 250 insertions(+) create mode 100644 system/base/unknown/src/init (limited to 'system/base/unknown/src/init') diff --git a/system/base/unknown/src/init b/system/base/unknown/src/init new file mode 100644 index 0000000..02b8e74 --- /dev/null +++ b/system/base/unknown/src/init @@ -0,0 +1,250 @@ + " Compiler Error : " +" " +" |" +" Fehler entdeckt " +"Keine Fehler gefunden, " +" Sekunden CPU-Zeit verbraucht" +" ******* ENDE DER UEBERSETZUNG *******" +"FEHLER bei >> " +" << " +"weiter bei " +" (" ") " +"EOF im Programm" +"EOF beim Skippen" +"EOF im TEXT Denoter" +"EOF im Kommentar" +"' nach Bold fehlt" +"das MAIN PACKET muss das letzte sein" +"ungueltiger Name fuer ein Interface Objekt" +"':' fehlt" +"nach ENDPACKET folgt nicht der Paketname" +"ENDPACKET fehlt" +"CONST oder VAR fehlt" +"ungueltiger Name" +" ',' in Deklarationsliste fehlt" +"ist nicht der PROC Name" +"fehlerhaftes Endes des MAIN PACKET" +"ENDPROC fehlt" +"PROC/OP Schachtelung unzulaessig" +"OP darf kein Parameter sein" +"steht mehrfach im PACKET Interface" +"Mehrfachdeklaration" +"ist schon als Datenobjekt deklariert" +"ist schon als PROC/OP deklariert" +"')' nach Parameterliste erwartet" +"Standard-Schluesselwort kann nicht redefiniert werden" +"ungueltig als BOLD" +"'(' fehlt" +"CONST bzw VAR nicht bei Strukturfeldern" +"'=' fehlt" +"Schluesselwort wird im Paket schon andersartig verwandt" +"Dieser Typ ist schon definiert" +"ungueltiger Deklarierer" +"ungueltiger OP Name" +"OP muss monadisch oder dyadisch sein" +"ist nicht der OP Name" +"ENDOP fehlt" +"Name nach ENDPROC fehlt" +"Name nach ENDOP fehlt" +"END END ist Unsinn" +"Diese END... kenne ich nicht" +"ROW Groesse ist kein INT" +"ROW Groesse ist kein Denoter" +"Ein ROW muss mindestens ein Element haben" +"ROW Groesse fehlt" +"Parameter kann man nicht initialisieren" +"Konstanten muessen initialisert werden" +"'::' verwenden" +"')' fehlt" +"Nachkommastellen fehlen" +"Exponent fehlt" +"Undefinierter Typ" +"Rekursiv definierter Typ" +"Mehrfach definierter Selektor" +"VARs koennen aus dem Paket nicht herausgereicht werden" +"NO SHORTHAND DECLARATION IN THIS SCOPE FOR ROW SIZE DENOTER." +"Typ Deklarationen nur im Paketrumpf" +"CONST bzw. VAR ohne Zusammenhang" +"ist nicht deklariert, steht aber in der Paket-Schnittstelle" +"ist nicht deklariert" +"Typ ist schon deklariert" +"THIS IS NO CORRECT EXTERNAL NUMBER." +" EXTERNAL und INTERNAL unzulaessig" +"Name erwartet" +"Denoter erwartet" +"ENDPROC ohne Zusammenhang" +"ENDOP ohne Zusammenhang" +"Refinement ohne Zusammenhang" +"Delimiter zwischen Paket-Refinement und Deklaration fehlt" +"unzulaessiges Selektor-Symbol (kein Name)" +"BOUND Schachtelungen unzulaessig" +"Textende fehlt" + +"Denoter-Wert wird fuer diese Maschine zu gross" +"NOBODY SHOULD EVER WRITE THAT, Uli ! " +"ist ein zusammenhangloses Schluesselwort" +"'::' nur fuer Initialisierungen, sonst ':='" +"welches Objekt soll verlassen werden?" +"du bist gar nicht innerhalb dieses Refinements" +"nur die eigene PROC / OP kann verlassen werden" +"THEN fehlt" +"FI fehlt" +"BOOL - Ausdruck erwartet" +"ELSE - Teil ist notwendig, da ein Wert geliefert wird" +"Mit ELIF kann kein IF-Statement beginnen" +"INT - Ausdruck erwartet" +"OF fehlt" +"Keine Typanpassung moeglich" +"CASE - Label fehlt" +"CASE - Label ist zu gross (skipped)" +"mehrfach definiertes CASE-Label" +"ungueltiges Zeichen nach CASE-Label" +" OTHERWISE PART fehlt" +"END SELECT fehlt" +"DEAR USER, PLEASE BE REMINDED OF NOT CALLING REFINEMENTS RECURSIVLY !" +"Dieses Refinement wird nicht benutzt" +"Zwischen diesen Symbolen fehlt ein Operator oder ein ';'" +"undefinierter monadischer Operator" +"undefinierter dyadischer Operator" +"Operator vor '(' fehlt" +"kann nicht redefiniert werden" +"Auf die Feinstruktur des Typs kann man nicht mehr zugreifen" +"fuer diesen Typ nicht definierter Selektor" +"Primitive Typen koennen nicht selektiert werden" +"bei ROWs nur Subscription" +"ungueltiger Selectand" +"unzulaessiger Index fuer Subscription" +"'[' ohne Zusammenhang" +"']' ohne Zusammenhang" +"']' nach Subscription fehlt" +"',' ungueltig zwischen UNITs" +"':' ungueltig zwischen UNITs" +"';' fehlt" +"nur die letzte UNIT einer SECTION darf einen Wert liefern" +"Der Paketrumpf kann keinen Wert liefern" +"anstelle des letzten Symbols wurde ein Operand erwartet" +"Der Schleifenrumpf darf keinen Wert liefern" +"INT VAR erwartet" +"wird schon in einer aeusseren Schleife als Laufvariable benutzt" +"FROM erwartet" +"UPTO bzw DOWNTO fehlt" +"REPEAT fehlt" +"END REP fehlt" +"UNTIL ohne Zusammenhang" +"Die Konstante darf nicht mit ':=' veraendert werden" +"In einer FOR-Schleife darf die Laufvariable nicht veraendert werden" +"falscher Typ des Resultats" +"ist CONST, es wird aber ein VAR Parameter verlangt" +"unbekannte Prozedur" +"Parameter-Prozedur liefert falsches Resultat" +"Es gibt keine Prozedur mit diesen Parametern" +"unbekannte Parameter-Prozedur" +"VIRTUAL PARAM MODE INCONSISTENCE" +"INCONSISTENCE BETWEEN THE PARAMETERS OF THE ACTUAL AND THE FORMAL PARAM PROC +EDURE " +"nicht deklariertes Objekt" +"THIS OBJECT IS USED OUTSIDE IT'S RANGE" +"Kein TYPE DISPLAY moeglich, da die Feinstruktur hier unbekannt ist" +"zu wenig Felder angegeben" +"zu viele Felder angegeben" +"unzulaessiger Trenner zwischen Feldern" +"Dies Feld hat einen falschen Typ" +"THIS ROW DISPLAY DOES NOT HAVE THE CORRECT NUMBER OF ELEMENTS." +"Dieser Typ kann nicht noch mehr konkretisiert werden" + +"Warnung in Zeile" +" Zeile " +"in Zeile " +"<----+--->" +" TYPE undefiniert " +" MODE undefiniert " +"Parameter spezifiziert " +"Parameter Typ(en) sind " +" B Code, " +" B Paketdaten generiert" +"Operandentyp" +"Typ des linken Operanden " +"Typ des rechten Operanden " +"erwartet " +"gefunden " + "NULL 1TEST 1NOT 2INCR 1DECR + 1MOV2 2MOV8 2MOVS 2EQI 2LSEQI + 2EQR 2LSEQR 2COMPLI 2COMPLR 2ADDI + 3SUBI 3MULTI 3DIVI 3ADDR 3SUBR + 3MULTR 3DIVR 3AND 2OR 2BRANCH +8BTRUE 8BFALSE 8ACCDS 2ALIAS 5RETURN +0MOVE 3CASE 3SUBS 5SUBS2 4SUBS8 + 4SUBS16 4SEL 3BSTL 6ESTL 7HEAD + 1PACKET 1BOOL 1NBOOL 1" + +(*000 *) END INTERNAL BOUND +(*001 *) PACKET +(*002 *) ENDPACKET +(*003 *) DEFINES +(*003 A*) LET +(*004 *) PROCEDURE +(*005 *) PROC +(*006 *) ENDPROC +(*006A *) ENDPROCEDURE +(*007 *) OPERATOR +(*008 *) OP +(*009 *) ENDOP +(*009A *) ENDOPERATOR +(*010 *) TYPE +(*011 *) INT +(*012 *) REAL +(*013 *) DATASPACE +(*015 *) TEXT +(*016 *) BOOL +(*017 *) CONST +(*018 *) VAR +(* INIT CONTROL *) INTERNAL +(*019 *) ROW +(*0191 *) STRUCT CONCR +(*0193*) ACTUAL +(*020 *) REP +(*020A *) REPEAT +(*021 *) ENDREP +(*021A *) ENDREPEAT PER +(*022 *) SELECT +(*023 *) ENDSELECT +(*0235 *) EXTERNAL +(*024 *) IF (*024A *) ENDIF +(*021 *) THEN +(*022 *) ELIF +(*023 *) ELSE +(*024 *) FI +(*026 *) OF +(*026A *) CASE +(*027 *) OTHERWISE +(*029 *) FOR +(*030 *) FROM +(*031 *) UPTO +(*032 *) DOWNTO +(*034 *) UNTIL +(*035 *) WHILE +(*036 *) LEAVE WITH +(*0361 *) TRUE +(*362 *) FALSE +(*038 *) :: SBL = := INCR DECR +(*039 *) + - * / DIV MOD ** AND CAND OR COR NOT <> > >= < <= +(*040 *) MAIN +(*043*) ENDOFFILE + +PACKET a : + +PROC out (TEXT CONST t) : + EXTERNAL 60 +ENDPROC out ; + +PROC out text (TEXT CONST t, INT CONST typ) : + INTERNAL 257 ; + out (t) +ENDPROC out text ; + +PROC out line (INT CONST typ) : + INTERNAL 258 ; + out (""13""10"") +ENDPROC out line ; + +ENDPACKET a ; -- cgit v1.2.3