1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-24 00:08:52 -05:00
Simba/Units/RUTIS/Rutis_Classes.pas

2115 lines
78 KiB
ObjectPascal

{/==============================================================================
//==============================================================================
RUTIS-Engine (RunTimeScript-Engine)
Rutis_Classes.pas (part of) RUTIS-Engine
--> This unit contains the basic classes of the RUTIS-Engine
//==============================================================================
Author : Björn Zeutzheim
E-Mail : bjoern@zeutzheim-boppard.de
//==============================================================================
License: Dieses Projekt (RUTIS-Engine) steht unter einer /
This project is licensed under the
Creative Commons 3.0 BY-NC-SA (German) License
Diese Lizens beinhaltet / This license includes:
-> Namensnennung / Attribution
-> Keine kommerzielle Nutzung / Noncommercial
-> Weitergabe unter gleichen Bedingungen / Share Alike
Ein ausformulierter Lizensvertrag ist über folgende Adresse erreichbar:
The Legal Code (the full license) can be read at the following adress:
> http: //creativecommons.org/licenses/by-nc-sa/3.0/de/
//==============================================================================
//==============================================================================}
Unit Rutis_Classes;
Interface
{$i Delphi_Versions.inc}
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
Uses
lclintf, Forms, Classes,
{$ifdef DELPHI_7_UP}Variants,{$endif}
SysUtils,
Rutis_Defs, File_Manager;
Type
TRutisCompiler = Class;
TRutisEngineBase = Class
Private
fCompilerLine : Integer;
Function GetCompilerError : Boolean;
Protected
fCompilerError : ERutisCompilerError;
fScriptError : Boolean;
//================================================
Function GetStackBase : Integer;
//================================================
Function CheckStackIndex(Address : Integer) : Boolean;
Public
ScriptData : TRutisScriptData;
StaticDeclarations : TRutisDeclArray;
//================================================
Compiler : TRutisCompiler;
UnitFileManager : TFileManager;
ScriptCode : TStrings;
ScriptFilePath : String;
//================================================
OnError : TErrorProcedure;
OnCodeTimer : TNotifyEvent;
OptProcessTimer : Boolean;
OptProcessTimerCount : Integer;
//================================================
decl_BYTE : TRutisVarType;
decl_Word : TRutisVarType;
decl_Cardinal : TRutisVarType;
decl_ShortInt : TRutisVarType;
decl_SmallInt : TRutisVarType;
decl_Integer : TRutisVarType;
decl_Single : TRutisVarType;
decl_Double : TRutisVarType;
decl_Extended : TRutisVarType;
decl_Boolean : TRutisVarType;
decl_Enum : TRutisVarType;
decl_Set4 : TRutisVarType;
decl_Pointer : TRutisVarType;
decl_Method : TRutisVarType;
decl_ObjMethod : TRutisVarType;
decl_ShortString : TRutisVarType;
decl_AChar : TRutisVarType;
decl_AString : TRutisVarType;
decl_WChar : TRutisVarType;
decl_WString : TRutisVarType;
decl_PShortString : TRutisPointerType;
decl_TClass : TRutisPointerType;
decl_TObject : TRutisClassType;
//================================================
Constructor Create(StackBlockSize: Cardinal);
Destructor Destroy; Override;
Procedure ClearAll; Virtual;
//================================================
Procedure CompilerMessage(Msg : String; ErrorCode : TRutisErrorType = etHint);
Procedure ScriptMessage(Msg : String; ErrorType : TRutisErrorType = etHint);
Procedure AddStaticDeclaration(Decl : TRutisDecl);
Function GetStackLvlAddress(Address, Level : Integer) : Integer;
//================================================
Procedure RegExtMethodV(AName : String; AMethod : TExtVariMethod; AParams : Array Of String; AResult : String; ADescription : String = ''); Overload;
Procedure RegExtMethod(AName : String; AMethod : TExtStackMethod; AParams : Array Of String; AResult : String; ADescription : String = ''); Overload;
//================================================
Procedure LoadFromStream(Stream : TStream; CanReadProtected : Boolean = False);
//================================================
Procedure LoadScriptFromStream(Stream : TStream; CanReadProtected : Boolean = False);
Procedure SaveScriptToStream(Stream : TStream; SaveProtected : Boolean = False);
Procedure CodeUnProtect(val : Integer);
Procedure CodeProtect(val : Integer);
Procedure CodeProtego(val : Integer);
//================================================
Procedure LoadBCodeFromStream(Stream : TStream);
Procedure SaveBCodeToStream(Stream : TStream);
//================================================
Procedure LoadFromFile(FileName : String; CanReadProtected : Boolean = False);
Procedure LoadScriptFromFile(FileName : String; CanReadProtected : Boolean = False);
Procedure SaveScriptToFile(FileName : String; SaveProtected : Boolean = False);
Procedure LoadBCodeFromFile(FileName : String);
Procedure SaveBCodeToFile(FileName : String);
//================================================
Procedure Compile; Overload;
Procedure Compile(AScriptCode : TStrings); Overload;
Procedure Compile(FileName : String); Overload;
//================================================
Property CompilerError : Boolean Read GetCompilerError;
Property Error : ERutisCompilerError Read fCompilerError;
End;
TRutisCompiler = Class
Constructor Create(AOwner : TRutisEngineBase);
Private
Protected
//CurrStatementID : Cardinal;
Public
Owner : TRutisEngineBase;
ScriptData : TRutisScriptData;
ScriptCode : TStrings;
//========================
//Options
optArrayRangeCheck : Boolean;
optArrangeFields : Boolean;
optArrangeSize : Integer;
optCanCompileUnits : Boolean;
//========================
Procedure Compile; Virtual;
Procedure Optimize; Virtual;
End;
//==============================================================================
Procedure StreamWriteString(s : String; Stream : TStream);
Function StreamReadString(Stream : TStream) : String;
//==============================================================================
Implementation
//==============================================================================
//==============================================================================
Procedure StreamWriteString(s : String; Stream : TStream);
Var Len : Integer;
Begin
Len := Length(s);
Stream.Write(Len, SizeOf(Len));
Stream.Write(PChar(s)^, Len);
End;
Function StreamReadString(Stream : TStream) : String;
Var Len : Integer;
Begin
Stream.Read(Len, SizeOf(Len));
If len > 20000 Then exit;
SetLength(Result, Len);
Stream.Read(PChar(Result)^, Len);
End;
//==============================================================================
//==============================================================================
{ TRutisEngineBase }
Constructor TRutisEngineBase.Create(StackBlockSize: Cardinal);
Var
Decl_Copy : TRutisTypeCopy;
Decl_Ptr : TRutisPointerType;
Decl_Struct : TRutisStructType;
Begin
ScriptCode := TStringList.Create;
ScriptData := TRutisScriptData.Create(StackBlockSize);
UnitFileManager := TFileManager.Create;
{$REGION 'Default Types'}
// UNSIGNED INTEGERS
decl_BYTE := TRutisVarType.Create;
decl_Byte.Name := 'Byte';
decl_Byte.Size := 1;
decl_Byte.IntType := intByte;
AddStaticDeclaration(Decl_Byte);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PByte';
Decl_Ptr.PointerType := Decl_Byte;
AddStaticDeclaration(Decl_Ptr);
decl_Word := TRutisVarType.Create;
decl_Word.Name := 'Word';
decl_Word.Size := 2;
decl_Word.IntType := intWord;
AddStaticDeclaration(Decl_Word);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PWord';
Decl_Ptr.PointerType := Decl_Word;
AddStaticDeclaration(Decl_Ptr);
decl_Cardinal := TRutisVarType.Create;
decl_Cardinal.Name := 'Cardinal';
decl_Cardinal.Size := 4;
decl_Cardinal.IntType := intCardinal;
AddStaticDeclaration(decl_Cardinal);
Decl_Copy := TRutisTypeCopy.Create;
Decl_Copy.Name := 'LongWord';
Decl_Copy.Size := decl_Cardinal.size;
Decl_Copy.CopyType := decl_Cardinal;
AddStaticDeclaration(Decl_Copy);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PCardinal';
Decl_Ptr.PointerType := decl_Cardinal;
AddStaticDeclaration(Decl_Ptr);
// SIGNED INTEGERS
decl_ShortInt := TRutisVarType.Create;
decl_ShortInt.Name := 'ShortInt';
decl_ShortInt.Size := 1;
decl_ShortInt.IntType := intShortInt;
AddStaticDeclaration(decl_ShortInt);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PShortInt';
Decl_Ptr.PointerType := decl_ShortInt;
AddStaticDeclaration(Decl_Ptr);
decl_SmallInt := TRutisVarType.Create;
decl_SmallInt.Name := 'SmallInt';
decl_SmallInt.Size := 2;
decl_SmallInt.IntType := intSmallInt;
AddStaticDeclaration(decl_SmallInt);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PSmallInt';
Decl_Ptr.PointerType := decl_SmallInt;
AddStaticDeclaration(Decl_Ptr);
decl_Integer := TRutisVarType.Create;
decl_Integer.Name := 'Integer';
decl_Integer.Size := 4;
decl_Integer.IntType := intInteger;
AddStaticDeclaration(decl_Integer);
Decl_Copy := TRutisTypeCopy.Create;
Decl_Copy.Name := 'LongInt';
Decl_Copy.Size := decl_Integer.size;
Decl_Copy.CopyType := decl_Integer;
AddStaticDeclaration(Decl_Copy);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PInteger';
Decl_Ptr.PointerType := decl_Integer;
AddStaticDeclaration(Decl_Ptr);
// FLOATS
decl_Single := TRutisVarType.Create;
decl_Single.Name := 'Single';
decl_Single.Size := 4;
decl_Single.IntType := intSingle;
AddStaticDeclaration(decl_Single);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PSingle';
Decl_Ptr.PointerType := decl_Single;
AddStaticDeclaration(Decl_Ptr);
decl_Double := TRutisVarType.Create;
decl_Double.Name := 'Double';
decl_Double.Size := 8;
decl_Double.IntType := intDouble;
AddStaticDeclaration(decl_Double);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PDouble';
Decl_Ptr.PointerType := decl_Double;
AddStaticDeclaration(Decl_Ptr);
Decl_Copy := TRutisTypeCopy.Create;
Decl_Copy.Name := 'Real';
Decl_Copy.Size := decl_Double.size;
Decl_Copy.CopyType := decl_Double;
AddStaticDeclaration(Decl_Copy);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PReal';
Decl_Ptr.PointerType := decl_Double;
AddStaticDeclaration(Decl_Ptr);
decl_Extended := TRutisVarType.Create;
decl_Extended.Name := 'Extended';
decl_Extended.Size := 10;
decl_Extended.IntType := intExtended;
AddStaticDeclaration(decl_Extended);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PExtended';
Decl_Ptr.PointerType := decl_Extended;
AddStaticDeclaration(Decl_Ptr);
// OTHER
decl_Boolean := TRutisVarType.Create;
decl_Boolean.Name := 'Boolean';
decl_Boolean.Size := 1;
decl_Boolean.IntType := intBoolean;
AddStaticDeclaration(decl_Boolean);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PExtended';
Decl_Ptr.PointerType := decl_Extended;
AddStaticDeclaration(Decl_Ptr);
decl_Enum := TRutisVarType.Create;
decl_Enum.Name := '$Enum';
decl_Enum.Size := 1;
decl_Enum.IntType := intEnum;
AddStaticDeclaration(decl_Enum);
decl_Set4 := TRutisVarType.Create;
decl_Set4.Name := '$Set4';
decl_Set4.Size := 4;
decl_Set4.IntType := intSet;
AddStaticDeclaration(decl_Set4);
decl_Pointer := TRutisVarType.Create;
decl_Pointer.Name := 'Pointer';
decl_Pointer.Size := 4;
decl_Pointer.IntType := intPointer;
AddStaticDeclaration(decl_Pointer);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PPointer';
Decl_Ptr.PointerType := decl_Pointer;
AddStaticDeclaration(Decl_Ptr);
// STRINGS AND CHARS
decl_ShortString := TRutisVarType.Create;
decl_ShortString.Name := 'ShortString';
decl_ShortString.Size := 256;
decl_ShortString.IntType := intShortString;
AddStaticDeclaration(decl_ShortString);
decl_PShortString := TRutisPointerType.Create;
decl_PShortString.Name := 'PShortString';
decl_PShortString.PointerType := decl_ShortString;
AddStaticDeclaration(decl_PShortString);
decl_AChar := TRutisVarType.Create;
decl_AChar.Name := 'AnsiChar';
decl_AChar.Size := 1;
decl_AChar.IntType := intAChar;
AddStaticDeclaration(decl_AChar);
Decl_Copy := TRutisTypeCopy.Create;
Decl_Copy.Name := 'Char';
Decl_Copy.Size := decl_AChar.size;
Decl_Copy.CopyType := decl_AChar;
AddStaticDeclaration(Decl_Copy);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PAnsiChar';
Decl_Ptr.PointerType := decl_AChar;
AddStaticDeclaration(Decl_Ptr);
Decl_Copy := TRutisTypeCopy.Create;
Decl_Copy.Name := 'PChar';
Decl_Copy.Size := Decl_Ptr.size;
Decl_Copy.CopyType := Decl_Ptr;
AddStaticDeclaration(Decl_Copy);
decl_AString := TRutisVarType.Create;
decl_AString.Name := 'AnsiString';
decl_AString.Size := 4;
decl_AString.IntType := intAString;
AddStaticDeclaration(decl_AString);
Decl_Copy := TRutisTypeCopy.Create;
Decl_Copy.Name := 'String';
Decl_Copy.Size := decl_AString.size;
Decl_Copy.CopyType := decl_AString;
AddStaticDeclaration(Decl_Copy);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PAnsiString';
Decl_Ptr.PointerType := decl_AString;
AddStaticDeclaration(Decl_Ptr);
Decl_Copy := TRutisTypeCopy.Create;
Decl_Copy.Name := 'PString';
Decl_Copy.Size := Decl_Ptr.size;
Decl_Copy.CopyType := Decl_Ptr;
AddStaticDeclaration(Decl_Copy);
decl_WChar := TRutisVarType.Create;
decl_WChar.Name := 'WideChar';
decl_WChar.Size := 1;
decl_WChar.IntType := intWChar;
AddStaticDeclaration(decl_WChar);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PWideChar';
Decl_Ptr.PointerType := decl_WChar;
AddStaticDeclaration(Decl_Ptr);
decl_WString := TRutisVarType.Create;
decl_WString.Name := 'WideString';
decl_WString.Size := 4;
decl_WString.IntType := intWString;
AddStaticDeclaration(decl_WString);
Decl_Ptr := TRutisPointerType.Create;
Decl_Ptr.Name := 'PWideString';
Decl_Ptr.PointerType := decl_WString;
AddStaticDeclaration(Decl_Ptr);
{$ENDREGION}
{$REGION 'Spezial Types'}
//==================================================================
decl_Method := TRutisVarType.Create;
decl_Method.Name := 'Method';
decl_Method.Size := 4;
decl_Method.IntType := intMethod;
AddStaticDeclaration(decl_Method);
//==================================================================
decl_ObjMethod := TRutisVarType.Create;
decl_ObjMethod.Name := 'MethodOfObject';
decl_ObjMethod.Size := 8;
decl_ObjMethod.IntType := intObjMethod;
AddStaticDeclaration(decl_ObjMethod);
//==================================================================
Decl_Struct := TRutisStructType.Create;
Decl_Struct.Name := 'TClass_OBJDATA';
AddStaticDeclaration(Decl_Struct);
SetLength(Decl_Struct.StructTypes, 3);
Decl_Struct.StructTypes[0] := TRutisVarDecl.Create;
Decl_Struct.StructTypes[0].VarType := decl_PShortString;
Decl_Struct.StructTypes[0].Address := vmtClassName;
Decl_Struct.StructTypes[0].isConst := False;
Decl_Struct.StructTypes[0].Level := 0;
Decl_Struct.StructTypes[0].Name := 'CLASSNAME';
Decl_Struct.StructTypes[1] := TRutisVarDecl.Create;
Decl_Struct.StructTypes[1].VarType := decl_Cardinal;
Decl_Struct.StructTypes[1].Address := vmtInstanceSize;
Decl_Struct.StructTypes[1].isConst := False;
Decl_Struct.StructTypes[1].Level := 0;
Decl_Struct.StructTypes[1].Name := 'INSTANCESIZE';
Decl_Struct.StructTypes[2] := TRutisVarDecl.Create;
Decl_Struct.StructTypes[2].VarType := decl_Cardinal;
Decl_Struct.StructTypes[2].Address := vmtParent;
Decl_Struct.StructTypes[2].isConst := False;
Decl_Struct.StructTypes[2].Level := 0;
Decl_Struct.StructTypes[2].Name := 'CLASSPARENT';
//==================================================================
decl_TClass := TRutisPointerType.Create;
decl_TClass.Name := 'TClass';
decl_TClass.PointerType := Decl_Struct;
AddStaticDeclaration(decl_TClass);
//==================================================================
Decl_Struct := TRutisStructType.Create;
Decl_Struct.Name := 'TObject_CLASSDATA';
Decl_Struct.Size := 4;
Decl_Struct.IsPacked := False;
AddStaticDeclaration(Decl_Struct);
SetLength(Decl_Struct.StructTypes, 1);
Decl_Struct.StructTypes[0] := TRutisVarDecl.Create;
Decl_Struct.StructTypes[0].VarType := decl_TClass;
Decl_Struct.StructTypes[0].Address := 0;
Decl_Struct.StructTypes[0].isConst := False;
Decl_Struct.StructTypes[0].Level := 0;
Decl_Struct.StructTypes[0].Name := 'CLASSTYPE';
//==================================================================
decl_TObject := TRutisClassType.Create;
decl_TObject.Name := 'TObject';
decl_TObject.ClassStruct := Decl_Struct;
decl_TObject.IsExternal := True;
AddStaticDeclaration(decl_TObject);
{$ENDREGION}
{$REGION 'Test'}
(* {$REGION 'Byte ConvertTable'}
i := 0;
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_Word;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Word.IntType);
decl_Byte.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_Byte.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_ShortInt;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_ShortInt.IntType);
decl_Byte.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_SmallInt;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_SmallInt.IntType);
decl_Byte.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_Integer;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Integer.IntType);
decl_Byte.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_Single;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Single.IntType);
decl_Byte.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_Double;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Double.IntType);
decl_Byte.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_Extended;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Extended.IntType);
decl_Byte.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_Boolean;
SetLength(decl_Byte.ConvertTable[i].ConvSeq, 1);
decl_Byte.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Byte.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Byte.IntType);
decl_Byte.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Boolean.IntType);
decl_Byte.ConvertTable[i].Explicit := true;
inc(i);
SetLength(decl_Byte.ConvertTable, i+1);
decl_Byte.ConvertTable[i].ConvType := decl_AnsiChar;
decl_Byte.ConvertTable[i].Explicit := true;
inc(i);
{$ENDREGION}
{$REGION 'Word ConvertTable'}
i := 0;
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_Byte;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Byte.IntType);
decl_Word.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_Word.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_ShortInt;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_ShortInt.IntType);
decl_Word.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_SmallInt;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_SmallInt.IntType);
decl_Word.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_Integer;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Integer.IntType);
decl_Word.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_Single;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Single.IntType);
decl_Word.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_Double;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Double.IntType);
decl_Word.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_Extended;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Extended.IntType);
decl_Word.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_Boolean;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Boolean.IntType);
decl_Word.ConvertTable[i].Explicit := true;
inc(i);
SetLength(decl_Word.ConvertTable, i+1);
decl_Word.ConvertTable[i].ConvType := decl_AnsiChar;
SetLength(decl_Word.ConvertTable[i].ConvSeq, 1);
decl_Word.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Word.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Word.IntType);
decl_Word.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_AnsiChar.IntType);
decl_Word.ConvertTable[i].Explicit := true;
inc(i);
{$ENDREGION}
{$REGION 'Cardinal ConvertTable'}
i := 0;
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_Byte;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Byte.IntType);
decl_Cardinal.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_Word;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Word.IntType);
decl_Cardinal.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_ShortInt;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_ShortInt.IntType);
decl_Cardinal.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_SmallInt;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_SmallInt.IntType);
decl_Cardinal.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_Integer;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Integer.IntType);
decl_Cardinal.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_Single;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Single.IntType);
decl_Cardinal.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_Double;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Double.IntType);
decl_Cardinal.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_Extended;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Extended.IntType);
decl_Cardinal.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_Boolean;
SetLength(decl_Cardinal.ConvertTable[i].ConvSeq, 1);
decl_Cardinal.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_Cardinal.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_Cardinal.IntType);
decl_Cardinal.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Boolean.IntType);
decl_Cardinal.ConvertTable[i].Explicit := true;
inc(i);
SetLength(decl_Cardinal.ConvertTable, i+1);
decl_Cardinal.ConvertTable[i].ConvType := decl_AnsiChar;
decl_Cardinal.ConvertTable[i].Explicit := true;
inc(i);
{$ENDREGION}
{$REGION 'XXXX ConvertTable'}
i := 0;
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Byte;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Byte.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Word;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Word.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_ShortInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_ShortInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_SmallInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_SmallInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Integer;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Integer.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Single;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Single.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Double;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Double.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Extended;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Extended.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Boolean;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Boolean.IntType);
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_AnsiChar;
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
{$ENDREGION}
{$REGION 'XXXX ConvertTable'}
i := 0;
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Byte;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Byte.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Word;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Word.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_ShortInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_ShortInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_SmallInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_SmallInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Integer;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Integer.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Single;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Single.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Double;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Double.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Extended;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Extended.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Boolean;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Boolean.IntType);
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_AnsiChar;
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
{$ENDREGION}
{$REGION 'XXXX ConvertTable'}
i := 0;
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Byte;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Byte.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Word;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Word.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_ShortInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_ShortInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_SmallInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_SmallInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Integer;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Integer.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Single;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Single.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Double;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Double.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Extended;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Extended.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Boolean;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Boolean.IntType);
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_AnsiChar;
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
{$ENDREGION}
{$REGION 'XXXX ConvertTable'}
i := 0;
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Byte;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Byte.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Word;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Word.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_ShortInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_ShortInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_SmallInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_SmallInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Integer;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Integer.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Single;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Single.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Double;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Double.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Extended;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Extended.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Boolean;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Boolean.IntType);
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_AnsiChar;
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
{$ENDREGION}
{$REGION 'XXXX ConvertTable'}
i := 0;
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Byte;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Byte.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Word;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Word.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Cardinal;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Cardinal.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_ShortInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_ShortInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_SmallInt;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_SmallInt.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Integer;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Integer.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Single;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Single.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Double;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Double.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Extended;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Extended.IntType);
decl_XXXX.ConvertTable[i].Explicit := false;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_Boolean;
SetLength(decl_XXXX.ConvertTable[i].ConvSeq, 1);
decl_XXXX.ConvertTable[i].ConvSeq[0] := CONV_CMD;
decl_XXXX.ConvertTable[i].ConvSeq[0].P1 := Integer(decl_XXXX.IntType);
decl_XXXX.ConvertTable[i].ConvSeq[0].P2 := Integer(decl_Boolean.IntType);
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
SetLength(decl_XXXX.ConvertTable, i+1);
decl_XXXX.ConvertTable[i].ConvType := decl_AnsiChar;
decl_XXXX.ConvertTable[i].Explicit := true;
inc(i);
{$ENDREGION}
*)
{$ENDREGION}
End;
Destructor TRutisEngineBase.Destroy;
Var i : Integer;
Begin
For i := 0 To high(StaticDeclarations) Do
StaticDeclarations[i].Free;
SetLength(StaticDeclarations, 0);
FreeAndNil(ScriptData);
FreeAndNil(Compiler);
FreeAndNil(ScriptCode);
FreeAndNil(fCompilerError);
Inherited;
End;
Procedure TRutisEngineBase.ClearAll;
Begin
ScriptData.Clear;
ScriptData.Stack.Clear;
End;
//==============================================================================
Procedure TRutisEngineBase.ScriptMessage(Msg : String; ErrorType : TRutisErrorType = etHint);
Begin
Msg := 'Runtime Error: (' + ScriptData.ScriptName + ') ' + Msg;
fScriptError := fScriptError or (ErrorType = etRuntimeError);
{$ifdef DEBUG}OutputDebugString(PChar(Msg));{$endif}
If Assigned(OnError) Then
OnError(Msg, ErrorType)
Else
{$ifdef WINCE}
MessageBox(0, PWideChar(Msg), 'Error!', 0);
{$else WINCE}
MessageBox(0, PChar(Msg), 'Error!', 0);
{$endif}
End;
Procedure TRutisEngineBase.AddStaticDeclaration(Decl : TRutisDecl);
Begin
If Decl = nil Then exit;
SetLength(StaticDeclarations, length(StaticDeclarations) + 1);
StaticDeclarations[high(StaticDeclarations)] := Decl;
Decl.Name := UpperCase(Decl.Name);
{$ifdef DEBUG}OutputDebugString(PChar('TRutisEngineBase.AddStaticDeclaration - Added Declaration : ' + Decl.Name));{$endif}
End;
//==============================================================================
Procedure TRutisEngineBase.RegExtMethodV(AName : String; AMethod : TExtVariMethod; AParams : Array Of String; AResult : String; ADescription : String = '');
Var
i : Integer;
Dat : TRutisExtMethodType;
MethodVar : TRutisVarDecl;
DoOverload : Boolean;
Begin
DoOverload := False;
Dat := TRutisExtMethodType(FindDeclaration(AName, @StaticDeclarations));
If Dat <> nil Then
Begin
If Dat is TRutisExtMethodType Then
Begin
Dat.Overloaded := True;
DoOverload := True;
End
Else
exit;
End;
Dat := TRutisExtMethodType.Create;
With Dat Do
Begin
Name := '$ExtVariantMethod';
Description := ADescription;
Method_Name := AName;
VariMethod := AMethod;
StackMethod := nil;
ParamsSize := 0;
Overloaded := DoOverload;
MethodResult.Name := AResult;
IsFunction := AResult <> '';
SetLength(Params, Length(AParams));
For i := 0 To high(AParams) Do
Begin
Params[i].Name := AParams[i];
Params[i].isVarParam := False;
{id := FindDeclarationID(AParams[i], @StaticDeclarations);
If (id < 0) or
(not (StaticDeclarations[id] is TRutisTypeDecl)) Then
Begin
Dat.Free;
exit;
End;
Params[i].TypeData := TRutisTypeDecl(StaticDeclarations[id]);
ParamsSize := ParamsSize + TRutisTypeDecl(StaticDeclarations[id]).Size; }
End;
{
If IsFunction Then
Begin
id := FindDeclarationID(AResult, @StaticDeclarations);
If (id < 0) or
//false then
(not (StaticDeclarations[id] is TRutisTypeDecl)) Then
Begin
Dat.Free;
exit;
End;
ResultType := TRutisTypeDecl(StaticDeclarations[id]);
End;
}
End;
MethodVar := TRutisVarDecl.Create;
MethodVar.Name := UpperCase(AName);
MethodVar.IsConst := True;
MethodVar.Level := 0;
MethodVar.VarType := dat;
SetLength(StaticDeclarations, length(StaticDeclarations) + 1);
StaticDeclarations[high(StaticDeclarations)] := MethodVar;
SetLength(StaticDeclarations, length(StaticDeclarations) + 1);
StaticDeclarations[high(StaticDeclarations)] := dat;
{$ifdef DEBUG}OutputDebugString(PChar('TRutisEngine.RegExtMethod - Added Ext-Variant-Method : ' + AName));{$endif}
End;
Procedure TRutisEngineBase.RegExtMethod(AName : String; AMethod : TExtStackMethod; AParams : Array Of String; AResult : String; ADescription : String = '');
Var
i : Integer;
Dat : TRutisExtMethodType;
MethodVar : TRutisVarDecl;
DoOverload : Boolean;
Begin
DoOverload := False;
Dat := TRutisExtMethodType(FindDeclaration(AName, @StaticDeclarations));
If Dat <> nil Then
Begin
If Dat is TRutisExtMethodType Then
Begin
Dat.Overloaded := True;
DoOverload := True;
End
Else
exit;
End;
Dat := TRutisExtMethodType.Create;
With Dat Do
Begin
Name := '$ExtMethod';
Description := ADescription;
Method_Name := AName;
VariMethod := nil;
StackMethod := AMethod;
ParamsSize := 0;
Overloaded := DoOverload;
MethodResult.Name := AResult;
IsFunction := AResult <> '';
SetLength(Params, Length(AParams));
For i := 0 To high(AParams) Do
Begin
if (Pos('var ', Lowercase(AParams[i])) = 1) then
begin
Delete(AParams[i], 1, 4);
Params[i].Name := AParams[i];
Params[i].isVarParam := True;
end
else
begin
Params[i].Name := AParams[i];
Params[i].isVarParam := False;
end;
{id := FindDeclarationID(AParams[i], @StaticDeclarations);
If (id < 0) or
(not (StaticDeclarations[id] is TRutisTypeDecl)) Then
Begin
Dat.Free;
exit;
End;
Params[i].TypeData := TRutisTypeDecl(StaticDeclarations[id]);
ParamsSize := ParamsSize + TRutisTypeDecl(StaticDeclarations[id]).Size; }
End;
{
If IsFunction Then
Begin
id := FindDeclarationID(AResult, @StaticDeclarations);
If (id < 0) or
//false then
(not (StaticDeclarations[id] is TRutisTypeDecl)) Then
Begin
Dat.Free;
exit;
End;
ResultType := TRutisTypeDecl(StaticDeclarations[id]);
End;
}
End;
MethodVar := TRutisVarDecl.Create;
MethodVar.Name := UpperCase(AName);
MethodVar.IsConst := True;
MethodVar.Level := 0;
MethodVar.VarType := dat;
SetLength(StaticDeclarations, length(StaticDeclarations) + 1);
StaticDeclarations[high(StaticDeclarations)] := MethodVar;
SetLength(StaticDeclarations, length(StaticDeclarations) + 1);
StaticDeclarations[high(StaticDeclarations)] := dat;
{$ifdef DEBUG}OutputDebugString(PChar('TRutisEngine.RegExtMethod - Added Ext-Stack-Method : ' + AName));{$endif}
End;
//==============================================================================
//==============================================================================
Function TRutisEngineBase.GetStackBase : Integer;
Begin
Result := 0;
If length(ScriptData.CallStack) = 0 Then exit;
Result := ScriptData.CallStack[high(ScriptData.CallStack)].StackBase;
End;
Function TRutisEngineBase.CheckStackIndex(Address : Integer) : Boolean;
Begin
Result := (Address < 0) or (Address > ScriptData.Stack.Top);
If Result Then
ScriptMessage('Address Error (Address ID = ' + IntToStr(Address) + ')');
End;
Function TRutisEngineBase.GetStackLvlAddress(Address, Level : Integer) : Integer;
Var
i : Integer;
Begin
If (Level <= 0) Then
If Address < 0 Then
Result := ScriptData.Stack.Top + Address
Else
Result := Address
Else
Begin
i := high(ScriptData.CallStack);
If i < 0 Then
Begin
Result := -1;
exit;
End;
While ScriptData.CallStack[i].Level > Level Do
Dec(i);
Result := ScriptData.CallStack[i].StackBase + Address;
End;
End;
//==============================================================================
Function TRutisEngineBase.GetCompilerError : Boolean;
Begin
Result := fCompilerError <> nil;
End;
//==============================================================================
Procedure TRutisEngineBase.CompilerMessage(Msg : String; ErrorCode : TRutisErrorType = etHint);
Begin
If Assigned(OnError) Then
OnError(Msg, ErrorCode)
Else
{$ifdef WINCE}
MessageBox(0, PWideChar(Msg), 'Error!', 0);
{$else WINCE}
MessageBox(0, PChar(Msg), 'Error!', 0);
{$endif}
End;
//==============================================================================
Procedure TRutisEngineBase.Compile;
Var
i : Integer;
Msg : String;
Begin
If Compiler = nil Then exit;
Compiler.ScriptCode := ScriptCode;
UnitFileManager.AddPath(ScriptFilePath);
ScriptData.Clear;
For i := 0 To high(StaticDeclarations) Do
ScriptData.AddDeclaration(StaticDeclarations[i], '$STATIC');
FreeAndNil(fCompilerError);
Try
Compiler.Compile;
Except
On E : ERutisCompilerError Do
Begin
SetLength(ScriptData.Code, 0);
fCompilerError := ERutisCompilerError.Create('');
fCompilerError.Assign(E);
Msg := Format('Error: %s (%d; %d): %s', [E.ENamespace, E.ELine + 1, E.EChrPos, E.Message]);
//Msg := Format('Error: %s : %s', [E.ENamespace, E.Message]);
CompilerMessage(Msg, etCompilerError);
End;
//on E: EAccessViolation do
// CompilerMessage(Format('Error: Access Violation at %p', [E.ExceptionRecord.ExceptionAddress]), etCompilerError);
Else
Begin
SetLength(ScriptData.Code, 0);
Raise;
{fCompilerError := ERutisCompilerError.Create('');
fCompilerError.Assign(E);
Msg := Format('Error: %s (%d; %d): %s', [E.ENamespace, E.ELine + 1, E.EChrPos, E.Message]);
//Msg := Format('Error: %s : %s', [E.ENamespace, E.Message]);
CompilerMessage(Msg, 0);}
End;
End;
{$ifdef DEBUG}OutputDebugString('TRutisEngineBase.Compile - Finished compiling');{$endif}
fCompilerLine := ScriptData.CompilerLine;
End;
Procedure TRutisEngineBase.Compile(AScriptCode : TStrings);
Begin
If Compiler = nil Then exit;
ScriptCode.Clear;
ScriptCode.AddStrings(AScriptCode);
Compile;
End;
Procedure TRutisEngineBase.Compile(FileName : String);
Begin
LoadFromFile(FileName);
Compile;
End;
//==============================================================================
//==============================================================================
Procedure TRutisEngineBase.LoadFromStream(Stream : TStream; CanReadProtected : Boolean = False);
Var
ln : String;
ProtCode : Integer;
StreamPos : Int64;
Begin
StreamPos := Stream.Position;
If StreamReadString(Stream) = 'Compiled RUTIS-Engine Script - (c) Björn Zeutzheim' Then
Begin
Stream.Position := StreamPos;
LoadBCodeFromStream(Stream);
exit;
End;
Stream.Position := StreamPos;
ScriptCode.LoadFromStream(Stream);
If ScriptCode.Count <= 0 Then exit;
ln := ScriptCode.Strings[0];
If ln = 'protego' Then
Begin
If not CanReadProtected Then
Begin
ScriptCode.Clear;
exit;
End;
ln := ScriptCode.Strings[1];
ln := copy(ln, 1, pos(' ', ln) - 1);
ProtCode := StrToInt(ln);
ScriptCode.Delete(0);
ScriptCode.Delete(0);
CodeUnProtect(ProtCode);
End;
End;
//==============================================================================
Procedure TRutisEngineBase.LoadScriptFromStream(Stream : TStream; CanReadProtected : Boolean = False);
Var
ln : String;
ProtCode : Integer;
Begin
ScriptCode.LoadFromStream(Stream);
If ScriptCode.Count <= 0 Then exit;
ln := ScriptCode.Strings[0];
If ln = 'protego' Then
Begin
If not CanReadProtected Then
Begin
ScriptCode.Clear;
exit;
End;
ln := ScriptCode.Strings[1];
ln := copy(ln, 1, pos(' ', ln) - 1);
ProtCode := StrToInt(ln);
ScriptCode.Delete(0);
ScriptCode.Delete(0);
CodeUnProtect(ProtCode);
End;
End;
Procedure TRutisEngineBase.SaveScriptToStream(Stream : TStream; SaveProtected : Boolean = False);
Var CodeSave : TStringList;
Begin
If SaveProtected Then
Begin
CodeSave := TStringList.Create;
CodeSave.Assign(ScriptCode);
Try
CodeProtego(random(255));
ScriptCode.SaveToStream(Stream);
Finally
ScriptCode.Assign(CodeSave);
CodeSave.Free;
End;
End
Else
ScriptCode.SaveToStream(Stream);
End;
Procedure TRutisEngineBase.CodeProtego(val : Integer);
Var
ln, ln2 : String;
i : Integer;
Begin
ln := ScriptCode.Text;
ln := ln + ' ';
ln2 := '';
For I := 1 To length(ln) - 1 Do
If (not ((ln[i] = ' ') and (ln[i + 1] = ' '))) and (ln[i] <> #13) Then
ln2 := ln2 + ln[i];
{ln := '';
for I := 0 to ScriptCode.Count - 1 do
ln := ln + ScriptCode[i]; }
ScriptCode.Text := ln2;
CodeProtect(val);
ScriptCode.Insert(0, IntToStr(val) + ' ');
ScriptCode.Insert(0, 'protego');
End;
Procedure TRutisEngineBase.CodeProtect(val : Integer);
Var
i : Integer;
ln : String;
Begin
ln := ScriptCode.Text;
If length(ln) > 4 Then
Begin
If (ln[length(ln) - 1] = #13) and (ln[length(ln)] = #10) Then
ln := copy(ln, 1, length(ln) - 2);
End;
For I := 1 To length(ln) Do
Begin
ln[i] := Chr(Ord(ln[i]) + val);
End;
ScriptCode.Text := ln;
End;
Procedure TRutisEngineBase.CodeUnProtect(val : Integer);
Begin
CodeProtect(-val);
End;
//==============================================================================
Procedure TRutisEngineBase.LoadBCodeFromStream(Stream : TStream);
Var
i, j, k : Integer;
IsExtMethod : Boolean;
DllMethod : TRutisDllMethodType;
TempSize : Word;
TempStr : String;
IntType : TRutisIntType;
Begin
{$ifdef DEBUG}OutputDebugString(PChar('TRutisEngine.LoadCodeFromStream - Loading compiled Script'));{$endif}
If StreamReadString(Stream) <> 'Compiled RUTIS-Engine Script - (c) Björn Zeutzheim' Then exit;
ScriptCode.Clear;
ClearAll;
ScriptData.ScriptName := StreamReadString(Stream);
//===========================================
If StreamReadString(Stream) <> '#CODEDATA#' Then exit;
Stream.Read(i, sizeof(i));
SetLength(ScriptData.Code, i);
For i := 0 To high(ScriptData.Code) Do
Stream.Read(ScriptData.Code[i], sizeof(TRutisScriptCmd));
//===========================================
If StreamReadString(Stream) <> '#METHODINFOTABLE#' Then exit;
Stream.Read(i, sizeof(i));
SetLength(ScriptData.MethodTable, i);
For i := 0 To high(ScriptData.MethodTable) Do
Begin
Stream.Read(IsExtMethod, sizeof(IsExtMethod));
If IsExtMethod Then
Begin
TempStr := StreamReadString(Stream);
For j := 0 To high(StaticDeclarations) Do
If StaticDeclarations[j] is TRutisExtMethodType Then
If LowerCase(TRutisExtMethodType(StaticDeclarations[j]).Method_Name) = LowerCase(TempStr) Then
Begin
ScriptData.MethodTable[i] := TRutisExtMethodType(StaticDeclarations[j]);
With ScriptData.MethodTable[i] Do
Begin
MethodTableID := i;
ParamsSize := 0;
Stream.Read(MethodResult.Size, SizeOf(MethodResult.Size));
Stream.Read(MethodResult.InternalType, SizeOf(MethodResult.InternalType));
Stream.Read(k, SizeOf(k));
SetLength(Params, k);
For k := 0 To high(Params) Do
Begin
Stream.Read(Params[k].Size, SizeOf(Params[k].Size));
Stream.Read(Params[k].InternalType, SizeOf(Params[k].InternalType));
ParamsSize := ParamsSize + Params[k].Size;
End;
End;
break;
End;
End
Else
Begin
DllMethod := TRutisDllMethodType.Create;
ScriptData.AddDeclaration(DllMethod, '$SYSTEM');
ScriptData.MethodTable[i] := DllMethod;
DllMethod.MethodTableID := i;
DllMethod.DllName := StreamReadString(Stream);
DllMethod.ProcName := StreamReadString(Stream);
Stream.Read(DllMethod.ParamsSize, SizeOf(Word));
Stream.Read(DllMethod.IsFunction, SizeOf(Boolean));
Stream.Read(j, sizeof(j));
SetLength(DllMethod.Params, j);
For j := 0 To high(DllMethod.Params) Do
Begin
Stream.Read(TempSize, SizeOf(TempSize));
Stream.Read(IntType, SizeOf(IntType));
DllMethod.Params[j].TypeData := TRutisVarType.Create;
ScriptData.AddDeclaration(DllMethod.Params[j].TypeData, '$SYSTEM');
DllMethod.Params[j].TypeData.Size := TempSize;
TRutisVarType(DllMethod.Params[j].TypeData).IntType := IntType;
End;
Stream.Read(TempSize, SizeOf(TempSize));
Stream.Read(IntType, SizeOf(IntType));
If TempSize > 0 Then
Begin
DllMethod.MethodResult.TypeData := TRutisVarType.Create;
ScriptData.AddDeclaration(DllMethod.MethodResult.TypeData, '$SYSTEM');
DllMethod.MethodResult.TypeData.Size := TempSize;
TRutisVarType(DllMethod.MethodResult.TypeData).IntType := IntType;
End;
End;
End;
//===========================================
If StreamReadString(Stream) <> '#RESOURCES#' Then exit;
ScriptData.Ressources.Free;
Stream.Read(i, 4);
ScriptData.Ressources := TRutisStack.Create(i);
Stream.Read(i, 4);
SetLength(ScriptData.Ressources.Blocks, i);
With ScriptData.Ressources Do
For i := 0 To high(Blocks) Do
Begin
If Blocks[i].Data = nil Then
Blocks[i].Data := AllocMem(StackBlockSize);
Stream.Read(Blocks[i].Data^, StackBlockSize);
Stream.Read(Blocks[i].Top, 4);
End;
ScriptData.Ressources.TopBlock := high(ScriptData.Ressources.Blocks);
Stream.Read(ScriptData.Ressources.Top, sizeof(ScriptData.Ressources.Top));
Stream.Read(ScriptData.Ressources.DecTop, sizeof(ScriptData.Ressources.DecTop));
{$ifdef DEBUG}OutputDebugString(PChar('TRutisEngine.SaveCodeToStream - Loaded compiled Script'));{$endif}
End;
Procedure TRutisEngineBase.SaveBCodeToStream(Stream : TStream);
Var
i, j : Integer;
IsExtMethod : Boolean;
DllMethod : TRutisDllMethodType;
IntType : TRutisIntType;
Begin
{$ifdef DEBUG}OutputDebugString(PChar('TRutisEngine.SaveCodeToStream - Saving compiled Script'));{$endif}
StreamWriteString('Compiled RUTIS-Engine Script - (c) Björn Zeutzheim', Stream);
StreamWriteString(ScriptData.ScriptName, Stream);
//===========================================
StreamWriteString('#CODEDATA#', Stream);
i := length(ScriptData.Code);
Stream.Write(i, sizeof(i));
For i := 0 To high(ScriptData.Code) Do
Stream.Write(ScriptData.Code[i], sizeof(TRutisScriptCmd));
//===========================================
StreamWriteString('#METHODINFOTABLE#', Stream);
i := length(ScriptData.MethodTable);
Stream.Write(i, sizeof(i));
For i := 0 To high(ScriptData.MethodTable) Do
Begin
IsExtMethod := (ScriptData.MethodTable[i] is TRutisExtMethodType);
Stream.Write(IsExtMethod, sizeof(IsExtMethod));
If IsExtMethod Then
With ScriptData.MethodTable[i] Do
Begin
StreamWriteString(Method_Name, Stream);
Stream.Write(MethodResult.Size, SizeOf(MethodResult.Size));
Stream.Write(MethodResult.InternalType, SizeOf(MethodResult.InternalType));
j := length(Params);
Stream.Write(j, SizeOf(j));
For j := 0 To high(Params) Do
Begin
Stream.Write(Params[j].Size, SizeOf(Params[j].Size));
Stream.Write(Params[j].InternalType, SizeOf(Params[j].InternalType));
End;
End
Else
Begin
DllMethod := TRutisDllMethodType(ScriptData.MethodTable[i]);
StreamWriteString(DllMethod.DllName, Stream);
StreamWriteString(DllMethod.ProcName, Stream);
Stream.Write(DllMethod.ParamsSize, SizeOf(Word));
Stream.Write(DllMethod.IsFunction, SizeOf(Boolean));
j := length(DllMethod.Params);
Stream.Write(j, sizeof(j));
For j := 0 To high(DllMethod.Params) Do
Begin
Stream.Write(DllMethod.Params[j].TypeData.Size, SizeOf(Word));
IntType := DllMethod.Params[j].TypeData.InternalType;
Stream.Write(IntType, SizeOf(IntType));
End;
Stream.Write(DllMethod.MethodResult.TypeData.Size, SizeOf(Word));
IntType := DllMethod.MethodResult.TypeData.InternalType;
Stream.Write(IntType, SizeOf(IntType));
End;
End;
//===========================================
StreamWriteString('#RESOURCES#', Stream);
Stream.Write(ScriptData.Ressources.StackBlockSize, 4);
i := length(ScriptData.Ressources.Blocks);
Stream.Write(i, 4);
With ScriptData Do
For i := 0 To high(ScriptData.Ressources.Blocks) Do
begin
Stream.Write(ScriptData.Ressources.Blocks[i].Data^, ScriptData.Ressources.StackBlockSize);
Stream.Write(ScriptData.Ressources.Blocks[i].Top, 4);
end;
Stream.Write(ScriptData.Ressources.Top, sizeof(ScriptData.Ressources.Top));
Stream.Write(ScriptData.Ressources.DecTop, sizeof(ScriptData.Ressources.DecTop));
{$ifdef DEBUG}OutputDebugString(PChar('TRutisEngine.SaveCodeToStream - Saved compiled Script'));{$endif}
End;
//==============================================================================
Procedure TRutisEngineBase.LoadFromFile(FileName : String; CanReadProtected : Boolean = False);
Var
FS : TFileStream;
Begin
If not FileExists(FileName) Then exit;
FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
Try
LoadFromStream(FS, CanReadProtected);
Finally
FS.Free;
End;
End;
Procedure TRutisEngineBase.LoadScriptFromFile(FileName : String; CanReadProtected : Boolean = False);
Var
FS : TFileStream;
Begin
If not FileExists(FileName) Then exit;
FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
Try
LoadScriptFromStream(FS, CanReadProtected);
Finally
FS.Free;
End;
End;
Procedure TRutisEngineBase.SaveScriptToFile(FileName : String; SaveProtected : Boolean = False);
Var
FS : TFileStream;
Begin
FS := TFileStream.Create(FileName, fmCreate or fmShareExclusive);
Try
SaveScriptToStream(FS, SaveProtected);
Finally
FS.Free;
End;
End;
Procedure TRutisEngineBase.LoadBCodeFromFile(FileName : String);
Var
FS : TFileStream;
Begin
If not FileExists(FileName) Then exit;
FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
Try
LoadBCodeFromStream(FS);
Finally
FS.Free;
End;
End;
Procedure TRutisEngineBase.SaveBCodeToFile(FileName : String);
Var
FS : TFileStream;
Begin
FS := TFileStream.Create(FileName, fmCreate or fmShareExclusive);
Try
SaveBCodeToStream(FS);
Finally
FS.Free;
End;
End;
//==============================================================================
//==============================================================================
{ TRutisCompiler }
Constructor TRutisCompiler.Create(AOwner : TRutisEngineBase);
Begin
Owner := AOwner;
optArrayRangeCheck := True;
optArrangeFields := True;
optArrangeSize := 4;
Owner.UnitFileManager.AddExtension('.rutis');
//Owner.UnitFileManager.AddExtension('.pas');
End;
//==============================================================================
Procedure TRutisCompiler.Compile;
Begin
ScriptData := Owner.ScriptData;
ScriptData.CompilerLine := 0;
ScriptData.CodeInsertPos := -1;
End;
Procedure TRutisCompiler.Optimize;
Var
i : Integer;
// j,k : Integer;
// sng : Single;
Begin
i := 0;
//exit;
While i <= high(ScriptData.Code) Do
Begin
If (i >= 0) and (i < high(ScriptData.Code)) and
(ScriptData.Code[i].Cmd = _jmp) and
(ScriptData.Code[i].P1 = i + 1) Then
Begin
ScriptData.DeleteInstruction(i);
Dec(i);
Continue;
End;
{
//There are Problems with In ... then structs
//If this optimizatiion occurs at the end of an If-Block with the last
//Action of the If and he first after the IF, the Stack changes size
If (i > 0) and (i < high(ScriptData.Code)) and
(ScriptData.Code[i-1].Cmd = _sto) and (ScriptData.Code[i].Cmd = _lod) and
(ScriptData.Code[i-1].P1 = ScriptData.Code[i].P1) and
(ScriptData.Code[i-1].P2 = ScriptData.Code[i].P2) and
(ScriptData.Code[i-1].P3 = ScriptData.Code[i].P3) then
begin
ScriptData.Code[i-1].Cmd := _Mov;
ScriptData.DeleteInstruction(i);
dec(i);
Continue;
end;
//}
If (i >= 0) and (i < high(ScriptData.Code) - 2) and
(ScriptData.Code[i].Cmd = _gen4) and
(ScriptData.Code[i].P1 = 0) and
(ScriptData.Code[i + 1].Cmd = _gen4) and
(ScriptData.Code[i + 2].Cmd = _sub) Then
Begin
If TRutisIntType(ScriptData.Code[i + 2].P1) = intInteger Then
ScriptData.Code[i + 1].P1 := -ScriptData.Code[i + 1].P1;
If TRutisIntType(ScriptData.Code[i + 2].P1) = intSingle Then
PSingle(@ScriptData.Code[i + 1].P1)^ := -PSingle(@ScriptData.Code[i + 1].P1)^;
//Delete [gen4 0]
ScriptData.DeleteInstruction(i);
//Delete [sub]
ScriptData.DeleteInstruction(i + 1);
Dec(i);
Continue;
End;
//}
{
//BUG with SetLength(TestArray[Index], Count)
If (i > 0) and
(ScriptData.Code[i - 1].Cmd = _lod) and
(ScriptData.Code[i].Cmd = _lodp) and
(ScriptData.Code[i].P1 = -4) and
(ScriptData.Code[i].P2 = -1) Then
Begin
ScriptData.Code[i - 1].Cmd := _lodp;
ScriptData.Code[i - 1].P3 := ScriptData.Code[i].P3;
ScriptData.DeleteInstruction(i);
Dec(i);
Continue;
End;
//}
{
//Not needed any more
If (ScriptData.Code[i].Cmd = _gen) and
(ScriptData.Code[i+1].Cmd = _gen) and
(ScriptData.Code[i+1].P1 = ScriptData.Code[i].P1) and
(ScriptData.Code[i+1].P2 = ScriptData.Code[i].P2) then
begin
j := 1;
k := ScriptData.Code[i+1].P3;
while (ScriptData.Code[i+j+1].Cmd = _gen) and
(ScriptData.Code[i+j+1].P1 = ScriptData.Code[i].P1) and
(ScriptData.Code[i+j+1].P2 = ScriptData.Code[i].P2) do
begin
k := k + ScriptData.Code[i+j+1].P3;
inc(j);
end;
ScriptData.Code[i].P3 := ScriptData.Code[i].P3+k;
for k := i+1 to i+j do
ScriptData.DeleteInstruction(i+1);
i := i + j;
end;
//}
Inc(i);
End;
End;
//==============================================================================
End.