/************************************************************** * * Licensed to the Apache Software Foundation (ASF) under one * or more contributor license agreements. See the NOTICE file * distributed with this work for additional information * regarding copyright ownership. The ASF licenses this file * to you under the Apache License, Version 2.0 (the * "License"); you may not use this file except in compliance * with the License. You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, * software distributed under the License is distributed on an * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY * KIND, either express or implied. See the License for the * specific language governing permissions and limitations * under the License. * *************************************************************/ #ifndef _OPCODES_HXX #define _OPCODES_HXX #include "sbintern.hxx" #ifdef MTW #undef _NUMBER #endif // Ein Opcode ist entweder 1, 3 oder 5 Bytes lang, je nach numerischen // Wert des Opcodes (s.u.). enum SbiOpcode { // Alle Opcodes ohne Operanden _NOP = 0, SbOP0_START = _NOP, // Operatoren // die folgenden Operatoren sind genauso angeordnet // wie der enum SbxVarOp _EXP, _MUL, _DIV, _MOD, _PLUS, _MINUS, _NEG, _EQ, _NE, _LT, _GT, _LE, _GE, _IDIV, _AND, _OR, _XOR, _EQV, _IMP, _NOT, _CAT, // Ende enum SbxVarOp _LIKE, _IS, // Laden/speichern _ARGC, // neuen Argv einrichten _ARGV, // TOS ==> aktueller Argv _INPUT, // Input ==> TOS _LINPUT, // Line Input ==> TOS _GET, // TOS anfassen _SET, // Speichern Objekt TOS ==> TOS-1 _PUT, // TOS ==> TOS-1 _PUTC, // TOS ==> TOS-1, dann ReadOnly _DIM, // DIM _REDIM, // REDIM _REDIMP, // REDIM PRESERVE _ERASE, // TOS loeschen // Verzweigen _STOP, // Programmende _INITFOR, // FOR-Variable initialisieren _NEXT, // FOR-Variable inkrementieren _CASE, // Anfang CASE _ENDCASE, // Ende CASE _STDERROR, // Standard-Fehlerbehandlung _NOERROR, // keine Fehlerbehandlung _LEAVE, // UP verlassen // E/A _CHANNEL, // TOS = Kanalnummer _BPRINT, // print TOS _PRINTF, // print TOS in field _BWRITE, // write TOS _RENAME, // Rename Tos+1 to Tos _PROMPT, // TOS = Prompt for Input _RESTART, // Restartpunkt definieren _CHAN0, // I/O-Kanal 0 // Sonstiges _EMPTY, // Leeren Ausdruck auf Stack _ERROR, // TOS = Fehlercode _LSET, // Speichern Objekt TOS ==> TOS-1 _RSET, // Speichern Objekt TOS ==> TOS-1 _REDIMP_ERASE, // Copies array to be later used by REDIM PRESERVE before erasing it _INITFOREACH, _VBASET, // VBA-like Set _ERASE_CLEAR, // Erase array and clear variable _ARRAYACCESS, // Assign parameters to TOS and get value, used for array of arrays _BYVAL, // byref -> byval for lvalue parameter passed in call SbOP0_END, // Alle Opcodes mit einem Operanden _NUMBER = 0x40, // Laden einer numerischen Konstanten (+ID) SbOP1_START = _NUMBER, _SCONST, // Laden einer Stringkonstanten (+ID) _CONST, // Immediate Load (+Wert) _ARGN, // Speichern eines named Args in Argv (+StringID) _PAD, // String auf feste Laenge bringen (+Laenge) // Verzweigungen _JUMP, // Sprung (+Target) _JUMPT, // TOS auswerten, bedingter Sprung (+Target) _JUMPF, // TOS auswerten, bedingter Sprung (+Target) _ONJUMP, // TOS auswerten, Sprung in JUMP-Tabelle (+MaxVal) _GOSUB, // UP-Aufruf (+Target) _RETURN, // UP-Return (+0 oder Target) _TESTFOR, // FOR-Variable testen, inkrementieren (+Endlabel) _CASETO, // Tos+1 <= Case <= Tos, 2xremove (+Target) _ERRHDL, // Fehler-Handler (+Offset) _RESUME, // Resume nach Fehlern (+0 or 1 or Label) // E/A _CLOSE, // (+Kanal/0) _PRCHAR, // (+char) // Verwaltung _SETCLASS, // Set + Klassennamen testen (+StringId) _TESTCLASS, // Check TOS class (+StringId) _LIB, // Libnamen fuer Declare-Procs setzen (+StringId) _BASED, // TOS wird um BASE erhoeht, BASE davor gepusht (+base) // Typanpassung im Argv _ARGTYP, // Letzten Parameter in Argv konvertieren (+Typ) _VBASETCLASS, // VBA-like Set SbOP1_END, // Alle Opcodes mit zwei Operanden _RTL = 0x80, // Laden aus RTL (+StringID+Typ) SbOP2_START = _RTL, _FIND, // Laden (+StringID+Typ) _ELEM, // Laden Element (+StringID+Typ) _PARAM, // Parameter (+Offset+Typ) // Verzweigen _CALL, // DECLARE-Methode rufen (+StringID+Typ) _CALLC, // Cdecl-DECLARE-Methode rufen (+StringID+Typ) _CASEIS, // Case-Test (+Test-Opcode+True-Target) // Verwaltung _STMNT, // Beginn eines Statements (+Line+Col) // E/A _OPEN, // (+SvStreamFlags+Flags) // Objekte _LOCAL, // Lokale Variable definieren (+StringID+Typ) _PUBLIC, // Modulglobale Variable (+StringID+Typ) _GLOBAL, // Globale Variable definieren, public-Anweisung (+StringID+Typ) _CREATE, // Objekt kreieren (+StringId+StringID) _STATIC, // Statische Variabl (+StringID+Typ) JSM _TCREATE, // User Defined Objekt kreieren _DCREATE, // Objekt-Array kreieren (+StringId+StringID) _GLOBAL_P, // Globale Variable definieren, die beim Neustart von Basic // nicht ueberschrieben wird, P=PERSIST (+StringID+Typ) _FIND_G, // Sucht globale Variable mit Spezialbehandlung wegen _GLOBAL_P _DCREATE_REDIMP, // Objekt-Array redimensionieren (+StringId+StringID) _FIND_CM, // Search inside a class module (CM) to enable global search in time _PUBLIC_P, // Module global Variable (persisted between calls)(+StringID+Typ) _FIND_STATIC, // local static var lookup (+StringID+Typ) SbOP2_END }; #endif