type TIFPSPascalCompiler = class
![]() |
constructor Create; |
![]() |
destructor Destroy; override; |
![]() |
function AddClass(InheritsFrom: TIFPSCompileTimeClass; aClass: TClass): TIFPSCompileTimeClass; |
![]() |
function AddClassN(InheritsFrom: TIFPSCompileTimeClass; const aClass: string): TIFPSCompileTimeClass; |
![]() |
function AddConstant(const Name: string; FType: Cardinal): TIFPSConstant; |
![]() |
function AddConstantN(const Name, FType: string): TIFPSConstant; |
![]() |
function AddDelphiFunction(const Decl: string): TIFPSRegProc; |
![]() |
function AddExportVariableN(const Name, FType: string): TIFPSVar; |
![]() |
function AddFunction(const Header: string): TIFPSRegProc; |
![]() |
procedure AddToFreeList(Obj: TObject); |
![]() |
function AddType(const Name: string; const BaseType: TIFPSBaseType): TIFPSType; |
![]() |
function AddTypeCopy(const Name: string; TypeNo: Cardinal): TIFPSType; |
![]() |
function AddTypeCopyN(const Name, FType: string): TIFPSType; |
![]() |
function AddTypeS(const Name, Decl: string): TIFPSType; |
![]() |
function AddUsedExportVariableN(const Name, FType: string): TIFPSVar; |
![]() |
function AddUsedFunction(var Proc: TIFPSInternalProcedure): Cardinal; |
![]() |
function AddUsedFunction2(var Proc: TIFPSExternalProcedure): Cardinal; |
![]() |
function AddUsedVariable(const Name: string; FType: Cardinal): TIFPSVar; |
![]() |
function AddUsedVariableN(const Name, FType: string): TIFPSVar; |
![]() |
function AddVariable(const Name: string; FType: Cardinal): TIFPSVar; |
![]() |
function AddVariableN(const Name, FType: string): TIFPSVar; |
![]() |
function AT2UT(L: Cardinal): Cardinal; |
![]() |
function CheckCompatProc(P: TIFPSType; ProcNo: Cardinal): Boolean; |
![]() |
procedure Clear; |
![]() |
function Compile(const s: string): Boolean; |
![]() |
procedure Debug_SavePosition(ProcNo: Cardinal; Proc: TIFPSInternalProcedure); |
![]() |
procedure Debug_WriteParams(ProcNo: Cardinal; Proc: TIFPSInternalProcedure); |
![]() |
procedure DefineStandardProcedures; |
![]() |
procedure DefineStandardTypes; |
![]() |
function DoTypeBlock(FParser: TIfPascalParser): Boolean; |
![]() |
function DoVarBlock(proc: TIFPSInternalProcedure): Boolean; |
![]() |
function FindClass(const aClass: string): TIFPSCompileTimeClass; |
![]() |
function FindProc(const Name: string): Cardinal; |
![]() |
function FindType(const Name: string): Cardinal; |
![]() |
function GetAvailableType(No: Cardinal): TIFPSType; |
![]() |
function GetAvailableTypeCount: Cardinal; |
![]() |
function GetDebugOutput(var s: string): Boolean; |
![]() |
function GetInt(FUseTypes: TIFList; Src: PIfRVariant; var s: Boolean): Longint; |
![]() |
function GetInt64(FUseTypes: TIfList; Src: PIfRVariant; var s: Boolean): Int64; |
![]() |
function GetMsg(l: Longint): TIFPSPascalCompilerMessage; |
![]() |
function GetMsgCount: Longint; |
![]() |
function GetOutput(var s: string): Boolean; |
![]() |
function GetReal(FUseTypes: TIFList; Src: PIfRVariant; var s: Boolean): Extended; |
![]() |
function GetString(FUseTypes: TIFList; Src: PIfRVariant; var s: Boolean): string; |
![]() |
function GetType(BaseType: TIFPSBaseType): Cardinal; |
![]() |
function GetTypeCopyLink(p: TIFPSType): TIFPSType; |
![]() |
function GetTypeCopyLinkInt(L: Cardinal): Cardinal; |
![]() |
function GetUInt(FUseTypes: TIFList; Src: PIfRVariant; var s: Boolean): Cardinal; |
![]() |
function GetUsedType(No: Cardinal): TIFPSType; |
![]() |
function GetUsedTypeCount: Cardinal; |
![]() |
function GetWideString(FUseTypes: TIfList; Src: PIfRVariant; var s: Boolean): WideString; |
![]() |
function IsDuplicate(const s: string): Boolean; |
![]() |
function IsIntBoolType(FTypeNo: Cardinal): Boolean; |
![]() |
function MakeDecl(decl: string): string; |
![]() |
function MakeError(const Module: string; E: TIFPSPascalCompilerErrorType; const Param: string): TIFPSPascalCompilerMessage; |
![]() |
function MakeExportDecl(decl: string): string; |
![]() |
function MakeHint(const Module: string; E: TIFPSPascalCompilerHintType; const Param: string): TIFPSPascalCompilerMessage; |
![]() |
function MakeWarning(const Module: string; E: TIFPSPascalCompilerWarningType; const Param: string): TIFPSPascalCompilerMessage; |
![]() |
function NewProc(const OriginalName, Name: string): TIFPSInternalProcedure; |
![]() |
procedure ParserError(Parser: TObject; Kind: TIFParserErrorKind); |
![]() |
function PreCalc(FUseTypes: TIFList; Var1Mod: Byte; var1: PIFRVariant; Var2Mod: Byte; Var2: PIfRVariant; Cmd: TIFPSBinOperatorType; Pos, Row, Col: Cardinal): Boolean; |
![]() |
function ProcessFunction(AlwaysForward: Boolean): Boolean; |
![]() |
function ProcessLabel(Proc: TIFPSInternalProcedure): Boolean; |
![]() |
function ProcessLabelForwards(Proc: TIFPSInternalProcedure): Boolean; |
![]() |
function ProcessSub(BlockInfo: TIFPSBlockInfo): Boolean; |
![]() |
function ReadConstant(FParser: TIfPascalParser; StopOn: TIfPasToken): PIfRVariant; |
![]() |
function ReadType(const Name: string; FParser: TIfPascalParser): Cardinal; |
![]() |
procedure ReplaceTypes(var s: string); |
![]() |
procedure UpdateRecordFields(r: TIFPSType); |
![]() |
function UseAvailableType(No: Cardinal): Cardinal; |
![]() |
procedure WriteDebugData(const s: string); |
![]() |
constructor Create; |
Create
![]() |
destructor Destroy; override; |
Destroy the current instance of the script compiler
![]() |
function AddClass(InheritsFrom: TIFPSCompileTimeClass; aClass: TClass): TIFPSCompileTimeClass; |
Add a class
![]() |
function AddClassN(InheritsFrom: TIFPSCompileTimeClass; const aClass: string): TIFPSCompileTimeClass; |
Add a class without using the actual class
![]() |
function AddConstant(const Name: string; FType: Cardinal): TIFPSConstant; |
Add a constant
![]() |
function AddConstantN(const Name, FType: string): TIFPSConstant; |
Add a constant
![]() |
function AddDelphiFunction(const Decl: string): TIFPSRegProc; |
Add a function and make it possible to directly call this function
![]() |
function AddExportVariableN(const Name, FType: string): TIFPSVar; |
Add a variable and export it
![]() |
function AddFunction(const Header: string): TIFPSRegProc; |
Add a function
![]() |
procedure AddToFreeList(Obj: TObject); |
Add an object to the auto-free list
![]() |
function AddType(const Name: string; const BaseType: TIFPSBaseType): TIFPSType; |
add a type
![]() |
function AddTypeCopy(const Name: string; TypeNo: Cardinal): TIFPSType; |
Add a type copy type
![]() |
function AddTypeCopyN(const Name, FType: string): TIFPSType; |
Add a type copy type
![]() |
function AddTypeS(const Name, Decl: string): TIFPSType; |
Add a type declared in a string
![]() |
function AddUsedExportVariableN(const Name, FType: string): TIFPSVar; |
Add an used variable and export it
![]() |
function AddUsedFunction(var Proc: TIFPSInternalProcedure): Cardinal; |
![]() |
function AddUsedFunction2(var Proc: TIFPSExternalProcedure): Cardinal; |
![]() |
function AddUsedVariable(const Name: string; FType: Cardinal): TIFPSVar; |
Add an used variable
![]() |
function AddUsedVariableN(const Name, FType: string): TIFPSVar; |
add an used variable (with named type)
![]() |
function AddVariable(const Name: string; FType: Cardinal): TIFPSVar; |
Add a variable
![]() |
function AddVariableN(const Name, FType: string): TIFPSVar; |
Add a variable
![]() |
function AT2UT(L: Cardinal): Cardinal; |
![]() |
function CheckCompatProc(P: TIFPSType; ProcNo: Cardinal): Boolean; |
![]() |
procedure Clear; |
Clear the current data
![]() |
function Compile(const s: string): Boolean; |
Compile a script (s)
![]() |
procedure Debug_SavePosition(ProcNo: Cardinal; Proc: TIFPSInternalProcedure); |
![]() |
procedure Debug_WriteParams(ProcNo: Cardinal; Proc: TIFPSInternalProcedure); |
![]() |
procedure DefineStandardProcedures; |
![]() |
procedure DefineStandardTypes; |
![]() |
function DoTypeBlock(FParser: TIfPascalParser): Boolean; |
![]() |
function DoVarBlock(proc: TIFPSInternalProcedure): Boolean; |
![]() |
function FindClass(const aClass: string): TIFPSCompileTimeClass; |
Find a class
![]() |
function FindProc(const Name: string): Cardinal; |
![]() |
function FindType(const Name: string): Cardinal; |
Search for a type
![]() |
function GetAvailableType(No: Cardinal): TIFPSType; |
![]() |
function GetAvailableTypeCount: Cardinal; |
![]() |
function GetDebugOutput(var s: string): Boolean; |
Return the debugger output
![]() |
function GetInt(FUseTypes: TIFList; Src: PIfRVariant; var s: Boolean): Longint; |
![]() |
function GetInt64(FUseTypes: TIfList; Src: PIfRVariant; var s: Boolean): Int64; |
![]() |
function GetMsg(l: Longint): TIFPSPascalCompilerMessage; |
![]() |
function GetMsgCount: Longint; |
![]() |
function GetOutput(var s: string): Boolean; |
Return the output
![]() |
function GetReal(FUseTypes: TIFList; Src: PIfRVariant; var s: Boolean): Extended; |
![]() |
function GetString(FUseTypes: TIFList; Src: PIfRVariant; var s: Boolean): string; |
![]() |
function GetType(BaseType: TIFPSBaseType): Cardinal; |
![]() |
function GetTypeCopyLink(p: TIFPSType): TIFPSType; |
![]() |
function GetTypeCopyLinkInt(L: Cardinal): Cardinal; |
![]() |
function GetUInt(FUseTypes: TIFList; Src: PIfRVariant; var s: Boolean): Cardinal; |
![]() |
function GetUsedType(No: Cardinal): TIFPSType; |
![]() |
function GetUsedTypeCount: Cardinal; |
![]() |
function GetWideString(FUseTypes: TIfList; Src: PIfRVariant; var s: Boolean): WideString; |
![]() |
function IsDuplicate(const s: string): Boolean; |
![]() |
function IsIntBoolType(FTypeNo: Cardinal): Boolean; |
![]() |
function MakeDecl(decl: string): string; |
![]() |
function MakeError(const Module: string; E: TIFPSPascalCompilerErrorType; const Param: string): TIFPSPascalCompilerMessage; |
Add an error the messages
![]() |
function MakeExportDecl(decl: string): string; |
![]() |
function MakeHint(const Module: string; E: TIFPSPascalCompilerHintType; const Param: string): TIFPSPascalCompilerMessage; |
Add a hint to the messages
![]() |
function MakeWarning(const Module: string; E: TIFPSPascalCompilerWarningType; const Param: string): TIFPSPascalCompilerMessage; |
Add a warning to the messages
![]() |
function NewProc(const OriginalName, Name: string): TIFPSInternalProcedure; |
![]() |
procedure ParserError(Parser: TObject; Kind: TIFParserErrorKind); |
![]() |
function PreCalc(FUseTypes: TIFList; Var1Mod: Byte; var1: PIFRVariant; Var2Mod: Byte; Var2: PIfRVariant; Cmd: TIFPSBinOperatorType; Pos, Row, Col: Cardinal): Boolean; |
![]() |
function ProcessFunction(AlwaysForward: Boolean): Boolean; |
![]() |
function ProcessLabel(Proc: TIFPSInternalProcedure): Boolean; |
![]() |
function ProcessLabelForwards(Proc: TIFPSInternalProcedure): Boolean; |
![]() |
function ProcessSub(BlockInfo: TIFPSBlockInfo): Boolean; |
![]() |
function ReadConstant(FParser: TIfPascalParser; StopOn: TIfPasToken): PIfRVariant; |
![]() |
function ReadType(const Name: string; FParser: TIfPascalParser): Cardinal; |
![]() |
procedure ReplaceTypes(var s: string); |
![]() |
procedure UpdateRecordFields(r: TIFPSType); |
![]() |
function UseAvailableType(No: Cardinal): Cardinal; |
![]() |
procedure WriteDebugData(const s: string); |
![]() |
property AllowNoBegin: Boolean; |
![]() |
property AllowNoEnd: Boolean; |
![]() |
property AllowUnit: Boolean; |
![]() |
property ID: Pointer; |
![]() |
property IsUnit: Boolean; |
![]() |
property Msg[l: Longint]: TIFPSPascalCompilerMessage; |
![]() |
property MsgCount: Longint; |
![]() |
property OnExportCheck: TIFPSOnExportCheck; |
![]() |
property OnExternalProc: TIFPSOnExternalProc; |
![]() |
property OnUses: TIFPSOnUses; |
![]() |
property OnUseVariable: TIFPSOnUseVariable; |
![]() |
property OnWriteLine: TIFPSOnWriteLineEvent; |
![]() |
property AllowNoBegin: Boolean; |
Allow no main begin/end
![]() |
property AllowNoEnd: Boolean; |
Allow it to have no END on the script (only works when AllowNoBegin is true)
![]() |
property AllowUnit: Boolean; |
Allow a unit instead of program
![]() |
property ID: Pointer; |
Tag for this object, use as you like
![]() |
property IsUnit: Boolean; |
contains true if the current file is a unit
![]() |
property Msg[l: Longint]: TIFPSPascalCompilerMessage; |
The messages/warnings/errors
![]() |
property MsgCount: Longint; |
contains the number of messages
![]() |
property OnExportCheck: TIFPSOnExportCheck; |
OnExportCheck is called for each function to check if it needs to be exported and has the correct parameters
![]() |
property OnExternalProc: TIFPSOnExternalProc; |
OnExternalProc is called when an external token is found after a procedure header
![]() |
property OnUses: TIFPSOnUses; |
OnUses i scalled for each Uses and always first with 'SYSTEM' parameters
![]() |
property OnUseVariable: TIFPSOnUseVariable; |
The OnUseVariant event is called when a variable is used by the script engine
![]() |
property OnWriteLine: TIFPSOnWriteLineEvent; |
OnWriteLine is called after each line