first preparation for new Delphi
git-svn-id: http://code.remobjects.com/svn/pascalscript@66 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok
parent
2e51c2669c
commit
6bc21c4d3d
@ -3,19 +3,19 @@
|
|||||||
{type: Delphi include file }
|
{type: Delphi include file }
|
||||||
{ }
|
{ }
|
||||||
{compiler: Borland Pascal 7, }
|
{compiler: Borland Pascal 7, }
|
||||||
{ Delphi 1-7, Delphi 2005 for Win32 }
|
{ Delphi 1-7, 2005-2007 for Win32 }
|
||||||
{ Kylix 1-3, }
|
{ Kylix 1-3, }
|
||||||
{ C++Builder 1-5 (Pascal Only) }
|
{ C++Builder 1-6, 2006-2007 }
|
||||||
|
{ Free Pascal Compiler 2.x }
|
||||||
{ }
|
{ }
|
||||||
{platforms: DOS, DPMI, Win16, Win32, Linux }
|
{platforms: DOS, DPMI, Win16, Win32, Win64, Linux, Mac OS X }
|
||||||
{ }
|
{ }
|
||||||
{author: mh@elitedev.com }
|
{author: mh@elitedev.com }
|
||||||
{date: 8/3/1997, last changed: 7/2/2002 for Delphi 7 and Kylix 3 }
|
|
||||||
{ }
|
{ }
|
||||||
{contents: Defines that can be flexibily used to determine the exact }
|
{contents: Defines that can be flexibily used to determine the exact }
|
||||||
{ compiler version used. }
|
{ compiler version used. }
|
||||||
{ }
|
{ }
|
||||||
{(c)opyright elitedevelopments. all rights reserved. }
|
{(c)opyright elitedevelopments software. all rights reserved. }
|
||||||
{ http://www.elitedev.com }
|
{ http://www.elitedev.com }
|
||||||
{ }
|
{ }
|
||||||
{ Third Party component developers are encouraged to use the set of defines }
|
{ Third Party component developers are encouraged to use the set of defines }
|
||||||
@ -43,6 +43,8 @@
|
|||||||
{ DELPHI7 Delphi 7.0 }
|
{ DELPHI7 Delphi 7.0 }
|
||||||
{ DELPHI9 Delphi 2005 }
|
{ DELPHI9 Delphi 2005 }
|
||||||
{ DELPHI2005 Delphi 2005 }
|
{ DELPHI2005 Delphi 2005 }
|
||||||
|
{ DELPHI2006 Delphi 2006 }
|
||||||
|
{ DELPHI2007 Delphi 2007 }
|
||||||
{ KYLIX1 Kylix 1.0 }
|
{ KYLIX1 Kylix 1.0 }
|
||||||
{ KYLIX2 Kylix 2.0 }
|
{ KYLIX2 Kylix 2.0 }
|
||||||
{ KYLIX3 Kylix 3.0 }
|
{ KYLIX3 Kylix 3.0 }
|
||||||
@ -61,12 +63,16 @@
|
|||||||
{ DELPHI5UP Delphi 5.0 and above }
|
{ DELPHI5UP Delphi 5.0 and above }
|
||||||
{ DELPHI6UP Delphi 6.0 and above }
|
{ DELPHI6UP Delphi 6.0 and above }
|
||||||
{ DELPHI7UP Delphi 7.0 and above }
|
{ DELPHI7UP Delphi 7.0 and above }
|
||||||
{ DELPHI9UP Delphi 9.0 and above }
|
{ DELPHI9UP Delphi 9.0 (2005) and above }
|
||||||
|
{ DELPHI10UP Delphi 10.0 (2006) and above }
|
||||||
|
{ DELPHI11UP Delphi 11.0 (2007) and above }
|
||||||
{ DELPHI2005UP Delphi 2005 and above }
|
{ DELPHI2005UP Delphi 2005 and above }
|
||||||
|
{ DELPHI2006UP Delphi 2006 and above }
|
||||||
|
{ DELPHI2007UP Delphi 2007 and above }
|
||||||
{ KYLIX1UP Kylix 1.0 and above (any Kylix) }
|
{ KYLIX1UP Kylix 1.0 and above (any Kylix) }
|
||||||
{ KYLIX2UP Kylix 2.0 and above (any Kylix) }
|
{ KYLIX2UP Kylix 2.0 and above (any Kylix) }
|
||||||
{ KYLIX3UP Kylix 3.0 and above (any Kylix) }
|
{ KYLIX3UP Kylix 3.0 and above (any Kylix) }
|
||||||
{ CBUILDER1UP C++Builder 1.0 and above or Delphi 2 and above (any C++Builder) }
|
{ CBUILDER1UP C++Builder 1.0 and above or Delphi 2 and above }
|
||||||
{ CBUILDER3UP C++Builder 3.0 and above or Delphi 3.0 and above }
|
{ CBUILDER3UP C++Builder 3.0 and above or Delphi 3.0 and above }
|
||||||
{ CBUILDER4UP C++Builder 4.0 and above or Delphi 4.0 and above }
|
{ CBUILDER4UP C++Builder 4.0 and above or Delphi 4.0 and above }
|
||||||
{ CBUILDER5UP C++Builder 5.0 and above or Delphi 5.0 and above }
|
{ CBUILDER5UP C++Builder 5.0 and above or Delphi 5.0 and above }
|
||||||
@ -89,6 +95,12 @@
|
|||||||
{ CBUILDER_32BIT 32bit C++Builer's Pascal (but not Delphi) }
|
{ CBUILDER_32BIT 32bit C++Builer's Pascal (but not Delphi) }
|
||||||
{ }
|
{ }
|
||||||
{ }
|
{ }
|
||||||
|
{ target cpu types }
|
||||||
|
{ }
|
||||||
|
{ CPU16 16bit Delphi or Borland Pascal }
|
||||||
|
{ CPU32 32bit Delphi or Free Pascal }
|
||||||
|
{ CPU64 64bit Free Pascal }
|
||||||
|
{ }
|
||||||
{ target platforms }
|
{ target platforms }
|
||||||
{ }
|
{ }
|
||||||
{ DOS any DOS (plain and DPMI) }
|
{ DOS any DOS (plain and DPMI) }
|
||||||
@ -98,10 +110,16 @@
|
|||||||
{ MSWINDOWS any Windows platform }
|
{ MSWINDOWS any Windows platform }
|
||||||
{ WIN16 16bit Windows }
|
{ WIN16 16bit Windows }
|
||||||
{ WIN32 32bit Windows }
|
{ WIN32 32bit Windows }
|
||||||
|
{ WIN64 64bit Windows }
|
||||||
{ DOTNET .NET }
|
{ DOTNET .NET }
|
||||||
{ }
|
{ }
|
||||||
{ LINUX any Linux platform }
|
{ LINUX any Linux platform }
|
||||||
{ LINUX32 32bit Linux }
|
{ LINUX32 32bit Linux }
|
||||||
|
{ LINUX64 64bit Linux }
|
||||||
|
{ }
|
||||||
|
{ DARWIN Any Mac OS X }
|
||||||
|
{ DARWIN32 32bit Mac OS X }
|
||||||
|
{ DARWIN64 64bit Mac OS X }
|
||||||
{----------------------------------------------------------------------------}
|
{----------------------------------------------------------------------------}
|
||||||
|
|
||||||
{ defines for Borland Pascal 7.0 }
|
{ defines for Borland Pascal 7.0 }
|
||||||
@ -109,6 +127,7 @@
|
|||||||
{$DEFINE BP}
|
{$DEFINE BP}
|
||||||
{$DEFINE BP7}
|
{$DEFINE BP7}
|
||||||
{$DEFINE 16BIT}
|
{$DEFINE 16BIT}
|
||||||
|
{$DEFINE CPU16}
|
||||||
|
|
||||||
{ defines for BP7 DOS real mode }
|
{ defines for BP7 DOS real mode }
|
||||||
{$IFDEF MSDOS}
|
{$IFDEF MSDOS}
|
||||||
@ -140,6 +159,7 @@
|
|||||||
{$DEFINE DELPHI_16BIT}
|
{$DEFINE DELPHI_16BIT}
|
||||||
{$DEFINE WIN16}
|
{$DEFINE WIN16}
|
||||||
{$DEFINE 16BIT}
|
{$DEFINE 16BIT}
|
||||||
|
{$DEFINE CPU16}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{ defines for Delphi 2.0 }
|
{ defines for Delphi 2.0 }
|
||||||
@ -279,6 +299,7 @@
|
|||||||
{$DEFINE VER140UP}
|
{$DEFINE VER140UP}
|
||||||
{$DEFINE DELPHI}
|
{$DEFINE DELPHI}
|
||||||
{$DEFINE DELPHI10}
|
{$DEFINE DELPHI10}
|
||||||
|
{$DEFINE DELPHI10A}
|
||||||
{$DEFINE DELPHI2006}
|
{$DEFINE DELPHI2006}
|
||||||
{$DEFINE DELPHI1UP}
|
{$DEFINE DELPHI1UP}
|
||||||
{$DEFINE DELPHI2UP}
|
{$DEFINE DELPHI2UP}
|
||||||
@ -288,7 +309,6 @@
|
|||||||
{$DEFINE DELPHI6UP}
|
{$DEFINE DELPHI6UP}
|
||||||
{$DEFINE DELPHI7UP}
|
{$DEFINE DELPHI7UP}
|
||||||
{$DEFINE DELPHI9UP}
|
{$DEFINE DELPHI9UP}
|
||||||
{$DEFINE DELPHI10A}
|
|
||||||
{$DEFINE DELPHI10UP}
|
{$DEFINE DELPHI10UP}
|
||||||
{$DEFINE DELPHI2005UP}
|
{$DEFINE DELPHI2005UP}
|
||||||
{$DEFINE DELPHI2006UP}
|
{$DEFINE DELPHI2006UP}
|
||||||
@ -305,16 +325,53 @@
|
|||||||
{$UNDEF BDS4} // declared in VER180
|
{$UNDEF BDS4} // declared in VER180
|
||||||
|
|
||||||
{$DEFINE DELPHI10B}
|
{$DEFINE DELPHI10B}
|
||||||
|
{$DEFINE DELPHI10BUP}
|
||||||
|
{$DEFINE DELPHI11}
|
||||||
|
{$DEFINE DELPHI11UP}
|
||||||
{$DEFINE DELPHI2007}
|
{$DEFINE DELPHI2007}
|
||||||
{$DEFINE DELPHI2007UP}
|
{$DEFINE DELPHI2007UP}
|
||||||
{$DEFINE BDS5}
|
{$DEFINE BDS5}
|
||||||
{$DEFINE BDS5UP}
|
{$DEFINE BDS5UP}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
{ defines for Delphi 2008 }
|
||||||
|
{$IFDEF VER200}
|
||||||
|
{$DEFINE VER140UP}
|
||||||
|
{$DEFINE DELPHI}
|
||||||
|
|
||||||
|
{$DEFINE DELPHI12}
|
||||||
|
{$DEFINE DELPHI1UP}
|
||||||
|
{$DEFINE DELPHI2UP}
|
||||||
|
{$DEFINE DELPHI3UP}
|
||||||
|
{$DEFINE DELPHI4UP}
|
||||||
|
{$DEFINE DELPHI5UP}
|
||||||
|
{$DEFINE DELPHI6UP}
|
||||||
|
{$DEFINE DELPHI7UP}
|
||||||
|
{$DEFINE DELPHI9UP}
|
||||||
|
{$DEFINE DELPHI10UP}
|
||||||
|
{$DEFINE DELPHI11UP}
|
||||||
|
{$DEFINE DELPHI12UP}
|
||||||
|
|
||||||
|
{$DEFINE DELPHI2008}
|
||||||
|
{$DEFINE DELPHI2005UP}
|
||||||
|
{$DEFINE DELPHI2006UP}
|
||||||
|
{$DEFINE DELPHI2007UP}
|
||||||
|
{$DEFINE DELPHI2008UP}
|
||||||
|
|
||||||
|
{$DEFINE BDS}
|
||||||
|
{$DEFINE BDS6}
|
||||||
|
{$DEFINE BDS3UP}
|
||||||
|
{$DEFINE BDS4UP}
|
||||||
|
{$DEFINE BDS5UP}
|
||||||
|
{$DEFINE BDS6UP}
|
||||||
|
{$DEFINE BDS6}
|
||||||
|
{$DEFINE BDS6UP}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
{$IFDEF WIN32}
|
{$IFDEF WIN32}
|
||||||
{$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
|
{$DEFINE MSWINDOWS} //not automatically defined for Delphi 2 thru 5
|
||||||
{$DEFINE 32BIT}
|
{$DEFINE 32BIT}
|
||||||
|
{$DEFINE CPU32}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{$ENDIF MSWINDOWS}
|
{$ENDIF MSWINDOWS}
|
||||||
@ -334,8 +391,10 @@
|
|||||||
{$DEFINE CBUILDER_32BIT}
|
{$DEFINE CBUILDER_32BIT}
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
{ defines for Kylix 1.0 thru 3.0 }
|
{$IFNDEF FPC}
|
||||||
{$IFDEF LINUX}
|
|
||||||
|
{ Kylix 1.0 thru 3.0 }
|
||||||
|
{$IFDEF LINUX}
|
||||||
|
|
||||||
{$DEFINE VER140UP}
|
{$DEFINE VER140UP}
|
||||||
|
|
||||||
@ -370,4 +429,31 @@
|
|||||||
{$IFEND}
|
{$IFEND}
|
||||||
{$ENDIF CONDITIONALEXPRESSIONS}
|
{$ENDIF CONDITIONALEXPRESSIONS}
|
||||||
|
|
||||||
{$ENDIF LINUX}
|
{$ENDIF LINUX}
|
||||||
|
{$ENDIF}
|
||||||
|
|
||||||
|
{ CPU }
|
||||||
|
|
||||||
|
{$IFDEF FPC}
|
||||||
|
{$IFDEF MSWINDOWS}
|
||||||
|
{$IFDEF CPU64}
|
||||||
|
{$DEFINE WIN64}
|
||||||
|
{$ENDIF}
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF LINUX}
|
||||||
|
{$IFDEF CPU32}
|
||||||
|
{$DEFINE LINUX32}
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF CPU64}
|
||||||
|
{$DEFINE LINUX64}
|
||||||
|
{$ENDIF}
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF DARWIN}
|
||||||
|
{$IFDEF CPU32}
|
||||||
|
{$DEFINE DARWIN32}
|
||||||
|
{$ENDIF}
|
||||||
|
{$IFDEF CPU64}
|
||||||
|
{$DEFINE DARWIN64}
|
||||||
|
{$ENDIF}
|
||||||
|
{$ENDIF}
|
||||||
|
{$ENDIF}
|
||||||
|
|||||||
@ -23,7 +23,7 @@ const
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
function DllExternalProc(Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const OriginalName, FExternal: string): TPSRegProc;
|
function DllExternalProc(Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const OriginalName, FExternal: tbtstring): TPSRegProc;
|
||||||
type
|
type
|
||||||
|
|
||||||
TDllCallingConvention = (clRegister
|
TDllCallingConvention = (clRegister
|
||||||
@ -56,7 +56,7 @@ begin
|
|||||||
if (Result <> '') and (Result[Length(result)] = '"') then delete(result, length(result), 1);
|
if (Result <> '') and (Result[Length(result)] = '"') then delete(result, length(result), 1);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function DllExternalProc(Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const OriginalName, FExternal: string): TPSRegProc;
|
function DllExternalProc(Sender: TPSPascalCompiler; Decl: TPSParametersDecl; const OriginalName, FExternal: tbtstring): TPSRegProc;
|
||||||
var
|
var
|
||||||
FuncName,
|
FuncName,
|
||||||
Name,
|
Name,
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -81,11 +81,11 @@ type
|
|||||||
TIFPS3CEPlugins = class(TPSPlugins);
|
TIFPS3CEPlugins = class(TPSPlugins);
|
||||||
|
|
||||||
|
|
||||||
TPSOnGetNotVariant = function (Sender: TPSScript; const Name: string): Variant of object;
|
TPSOnGetNotVariant = function (Sender: TPSScript; const Name: tbtstring): Variant of object;
|
||||||
TPSOnSetNotVariant = procedure (Sender: TPSScript; const Name: string; V: Variant) of object;
|
TPSOnSetNotVariant = procedure (Sender: TPSScript; const Name: tbtstring; V: Variant) of object;
|
||||||
TPSCompOptions = set of (icAllowNoBegin, icAllowUnit, icAllowNoEnd, icBooleanShortCircuit);
|
TPSCompOptions = set of (icAllowNoBegin, icAllowUnit, icAllowNoEnd, icBooleanShortCircuit);
|
||||||
|
|
||||||
TPSVerifyProc = procedure (Sender: TPSScript; Proc: TPSInternalProcedure; const Decl: string; var Error: Boolean) of object;
|
TPSVerifyProc = procedure (Sender: TPSScript; Proc: TPSInternalProcedure; const Decl: tbtstring; var Error: Boolean) of object;
|
||||||
|
|
||||||
TPSEvent = procedure (Sender: TPSScript) of object;
|
TPSEvent = procedure (Sender: TPSScript) of object;
|
||||||
|
|
||||||
@ -93,13 +93,13 @@ type
|
|||||||
|
|
||||||
TPSOnExecImport = procedure (Sender: TObject; se: TPSExec; x: TPSRuntimeClassImporter) of object;
|
TPSOnExecImport = procedure (Sender: TObject; se: TPSExec; x: TPSRuntimeClassImporter) of object;
|
||||||
{Script engine event function}
|
{Script engine event function}
|
||||||
TPSOnNeedFile = function (Sender: TObject; const OrginFileName: string; var FileName, Output: string): Boolean of object;
|
TPSOnNeedFile = function (Sender: TObject; const OrginFileName: tbtstring; var FileName, Output: tbtstring): Boolean of object;
|
||||||
|
|
||||||
TPSOnProcessDirective = procedure (
|
TPSOnProcessDirective = procedure (
|
||||||
Sender: TPSPreProcessor;
|
Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser;
|
Parser: TPSPascalPreProcessorParser;
|
||||||
const Active: Boolean;
|
const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: String;
|
const DirectiveName, DirectiveParam: tbtstring;
|
||||||
Var Continue: Boolean) of Object; // jgv
|
Var Continue: Boolean) of Object; // jgv
|
||||||
|
|
||||||
TPSScript = class(TComponent)
|
TPSScript = class(TComponent)
|
||||||
@ -120,7 +120,7 @@ type
|
|||||||
RI: TPSRuntimeClassImporter;
|
RI: TPSRuntimeClassImporter;
|
||||||
FPlugins: TPSPlugins;
|
FPlugins: TPSPlugins;
|
||||||
FPP: TPSPreProcessor;
|
FPP: TPSPreProcessor;
|
||||||
FMainFileName: string;
|
FMainFileName: tbtstring;
|
||||||
FOnNeedFile: TPSOnNeedFile;
|
FOnNeedFile: TPSOnNeedFile;
|
||||||
FUsePreProcessor: Boolean;
|
FUsePreProcessor: Boolean;
|
||||||
FDefines: TStrings;
|
FDefines: TStrings;
|
||||||
@ -132,17 +132,17 @@ type
|
|||||||
procedure SetScript(const Value: TStrings);
|
procedure SetScript(const Value: TStrings);
|
||||||
function GetCompMsg(i: Integer): TPSPascalCompilerMessage;
|
function GetCompMsg(i: Integer): TPSPascalCompilerMessage;
|
||||||
function GetCompMsgCount: Longint;
|
function GetCompMsgCount: Longint;
|
||||||
function GetAbout: string;
|
function GetAbout: tbtstring;
|
||||||
function ScriptUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
|
function ScriptUses(Sender: TPSPascalCompiler; const Name: tbtstring): Boolean;
|
||||||
function GetExecErrorByteCodePosition: Cardinal;
|
function GetExecErrorByteCodePosition: Cardinal;
|
||||||
function GetExecErrorCode: TIFError;
|
function GetExecErrorCode: TIFError;
|
||||||
function GetExecErrorParam: string;
|
function GetExecErrorParam: tbtstring;
|
||||||
function GetExecErrorProcNo: Cardinal;
|
function GetExecErrorProcNo: Cardinal;
|
||||||
function GetExecErrorString: string;
|
function GetExecErrorString: tbtstring;
|
||||||
function GetExecErrorPosition: Cardinal;
|
function GetExecErrorPosition: Cardinal;
|
||||||
function GetExecErrorCol: Cardinal;
|
function GetExecErrorCol: Cardinal;
|
||||||
function GetExecErrorRow: Cardinal;
|
function GetExecErrorRow: Cardinal;
|
||||||
function GetExecErrorFileName: string;
|
function GetExecErrorFileName: tbtstring;
|
||||||
procedure SetDefines(const Value: TStrings);
|
procedure SetDefines(const Value: TStrings);
|
||||||
protected
|
protected
|
||||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||||
@ -150,34 +150,34 @@ type
|
|||||||
protected
|
protected
|
||||||
//jgv move where private before - not very usefull
|
//jgv move where private before - not very usefull
|
||||||
procedure OnLineEvent; virtual;
|
procedure OnLineEvent; virtual;
|
||||||
procedure SetMainFileName(const Value: string); virtual;
|
procedure SetMainFileName(const Value: tbtstring); virtual;
|
||||||
|
|
||||||
//--jgv new
|
//--jgv new
|
||||||
function DoOnNeedFile (Sender: TObject; const OrginFileName: string; var FileName, Output: string): Boolean; virtual;
|
function DoOnNeedFile (Sender: TObject; const OrginFileName: tbtstring; var FileName, Output: tbtstring): Boolean; virtual;
|
||||||
function DoOnUnknowUses (Sender: TPSPascalCompiler; const Name: string): Boolean; virtual; // return true if processed
|
function DoOnUnknowUses (Sender: TPSPascalCompiler; const Name: tbtstring): Boolean; virtual; // return true if processed
|
||||||
procedure DoOnCompImport; virtual;
|
procedure DoOnCompImport; virtual;
|
||||||
procedure DoOnCompile; virtual;
|
procedure DoOnCompile; virtual;
|
||||||
function DoVerifyProc (Sender: TPSScript; Proc: TPSInternalProcedure; const Decl: string): Boolean; virtual;
|
function DoVerifyProc (Sender: TPSScript; Proc: TPSInternalProcedure; const Decl: tbtstring): Boolean; virtual;
|
||||||
|
|
||||||
procedure DoOnExecImport (RunTimeImporter: TPSRuntimeClassImporter); virtual;
|
procedure DoOnExecImport (RunTimeImporter: TPSRuntimeClassImporter); virtual;
|
||||||
procedure DoOnExecute (RunTimeImporter: TPSRuntimeClassImporter); virtual;
|
procedure DoOnExecute (RunTimeImporter: TPSRuntimeClassImporter); virtual;
|
||||||
procedure DoAfterExecute; virtual;
|
procedure DoAfterExecute; virtual;
|
||||||
function DoOnGetNotificationVariant (const Name: string): Variant; virtual;
|
function DoOnGetNotificationVariant (const Name: tbtstring): Variant; virtual;
|
||||||
procedure DoOnSetNotificationVariant (const Name: string; V: Variant); virtual;
|
procedure DoOnSetNotificationVariant (const Name: tbtstring; V: Variant); virtual;
|
||||||
|
|
||||||
procedure DoOnProcessDirective (Sender: TPSPreProcessor;
|
procedure DoOnProcessDirective (Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser;
|
Parser: TPSPascalPreProcessorParser;
|
||||||
const Active: Boolean;
|
const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: String;
|
const DirectiveName, DirectiveParam: tbtstring;
|
||||||
Var Continue: Boolean); virtual;
|
Var Continue: Boolean); virtual;
|
||||||
procedure DoOnProcessUnknowDirective (Sender: TPSPreProcessor;
|
procedure DoOnProcessUnknowDirective (Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser;
|
Parser: TPSPascalPreProcessorParser;
|
||||||
const Active: Boolean;
|
const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: String;
|
const DirectiveName, DirectiveParam: tbtstring;
|
||||||
Var Continue: Boolean); virtual;
|
Var Continue: Boolean); virtual;
|
||||||
public
|
public
|
||||||
|
|
||||||
function FindNamedType(const Name: string): TPSTypeRec;
|
function FindNamedType(const Name: tbtstring): TPSTypeRec;
|
||||||
|
|
||||||
function FindBaseType(Bt: TPSBaseType): TPSTypeRec;
|
function FindBaseType(Bt: TPSBaseType): TPSTypeRec;
|
||||||
|
|
||||||
@ -197,9 +197,9 @@ type
|
|||||||
|
|
||||||
property Running: Boolean read GetRunning;
|
property Running: Boolean read GetRunning;
|
||||||
|
|
||||||
procedure GetCompiled(var data: string);
|
procedure GetCompiled(var data: tbtstring);
|
||||||
|
|
||||||
procedure SetCompiled(const Data: string);
|
procedure SetCompiled(const Data: tbtstring);
|
||||||
|
|
||||||
property Comp: TPSPascalCompiler read FComp;
|
property Comp: TPSPascalCompiler read FComp;
|
||||||
|
|
||||||
@ -209,13 +209,13 @@ type
|
|||||||
|
|
||||||
property CompilerMessages[i: Longint]: TPSPascalCompilerMessage read GetCompMsg;
|
property CompilerMessages[i: Longint]: TPSPascalCompilerMessage read GetCompMsg;
|
||||||
|
|
||||||
function CompilerErrorToStr(I: Longint): string;
|
function CompilerErrorToStr(I: Longint): tbtstring;
|
||||||
|
|
||||||
property ExecErrorCode: TIFError read GetExecErrorCode;
|
property ExecErrorCode: TIFError read GetExecErrorCode;
|
||||||
|
|
||||||
property ExecErrorParam: string read GetExecErrorParam;
|
property ExecErrorParam: tbtstring read GetExecErrorParam;
|
||||||
|
|
||||||
property ExecErrorToString: string read GetExecErrorString;
|
property ExecErrorToString: tbtstring read GetExecErrorString;
|
||||||
|
|
||||||
property ExecErrorProcNo: Cardinal read GetExecErrorProcNo;
|
property ExecErrorProcNo: Cardinal read GetExecErrorProcNo;
|
||||||
|
|
||||||
@ -227,38 +227,38 @@ type
|
|||||||
|
|
||||||
property ExecErrorCol: Cardinal read GetExecErrorCol;
|
property ExecErrorCol: Cardinal read GetExecErrorCol;
|
||||||
|
|
||||||
property ExecErrorFileName: string read GetExecErrorFileName;
|
property ExecErrorFileName: tbtstring read GetExecErrorFileName;
|
||||||
|
|
||||||
function AddFunctionEx(Ptr: Pointer; const Decl: string; CallingConv: TDelphiCallingConvention): Boolean;
|
function AddFunctionEx(Ptr: Pointer; const Decl: tbtstring; CallingConv: TDelphiCallingConvention): Boolean;
|
||||||
|
|
||||||
function AddFunction(Ptr: Pointer; const Decl: string): Boolean;
|
function AddFunction(Ptr: Pointer; const Decl: tbtstring): Boolean;
|
||||||
|
|
||||||
|
|
||||||
function AddMethodEx(Slf, Ptr: Pointer; const Decl: string; CallingConv: TDelphiCallingConvention): Boolean;
|
function AddMethodEx(Slf, Ptr: Pointer; const Decl: tbtstring; CallingConv: TDelphiCallingConvention): Boolean;
|
||||||
|
|
||||||
function AddMethod(Slf, Ptr: Pointer; const Decl: string): Boolean;
|
function AddMethod(Slf, Ptr: Pointer; const Decl: tbtstring): Boolean;
|
||||||
|
|
||||||
function AddRegisteredVariable(const VarName, VarType: string): Boolean;
|
function AddRegisteredVariable(const VarName, VarType: tbtstring): Boolean;
|
||||||
function AddNotificationVariant(const VarName: string): Boolean;
|
function AddNotificationVariant(const VarName: tbtstring): Boolean;
|
||||||
|
|
||||||
function AddRegisteredPTRVariable(const VarName, VarType: string): Boolean;
|
function AddRegisteredPTRVariable(const VarName, VarType: tbtstring): Boolean;
|
||||||
|
|
||||||
function GetVariable(const Name: string): PIFVariant;
|
function GetVariable(const Name: tbtstring): PIFVariant;
|
||||||
|
|
||||||
function SetVarToInstance(const VarName: string; cl: TObject): Boolean;
|
function SetVarToInstance(const VarName: tbtstring; cl: TObject): Boolean;
|
||||||
|
|
||||||
procedure SetPointerToData(const VarName: string; Data: Pointer; aType: TIFTypeRec);
|
procedure SetPointerToData(const VarName: tbtstring; Data: Pointer; aType: TIFTypeRec);
|
||||||
|
|
||||||
function TranslatePositionPos(Proc, Position: Cardinal; var Pos: Cardinal; var fn: string): Boolean;
|
function TranslatePositionPos(Proc, Position: Cardinal; var Pos: Cardinal; var fn: tbtstring): Boolean;
|
||||||
|
|
||||||
function TranslatePositionRC(Proc, Position: Cardinal; var Row, Col: Cardinal; var fn: string): Boolean;
|
function TranslatePositionRC(Proc, Position: Cardinal; var Row, Col: Cardinal; var fn: tbtstring): Boolean;
|
||||||
|
|
||||||
function GetProcMethod(const ProcName: string): TMethod;
|
function GetProcMethod(const ProcName: tbtstring): TMethod;
|
||||||
|
|
||||||
function ExecuteFunction(const Params: array of Variant; const ProcName: string): Variant;
|
function ExecuteFunction(const Params: array of Variant; const ProcName: tbtstring): Variant;
|
||||||
published
|
published
|
||||||
|
|
||||||
property About: string read GetAbout stored false;
|
property About: tbtstring read GetAbout stored false;
|
||||||
|
|
||||||
property Script: TStrings read FScript write SetScript;
|
property Script: TStrings read FScript write SetScript;
|
||||||
|
|
||||||
@ -280,7 +280,7 @@ type
|
|||||||
|
|
||||||
property Plugins: TPSPlugins read FPlugins write FPlugins;
|
property Plugins: TPSPlugins read FPlugins write FPlugins;
|
||||||
|
|
||||||
property MainFileName: string read FMainFileName write SetMainFileName;
|
property MainFileName: tbtstring read FMainFileName write SetMainFileName;
|
||||||
|
|
||||||
property UsePreProcessor: Boolean read FUsePreProcessor write FUsePreProcessor;
|
property UsePreProcessor: Boolean read FUsePreProcessor write FUsePreProcessor;
|
||||||
|
|
||||||
@ -306,18 +306,18 @@ type
|
|||||||
private
|
private
|
||||||
FLine: Longint;
|
FLine: Longint;
|
||||||
FFileNameHash: Longint;
|
FFileNameHash: Longint;
|
||||||
FFileName: string;
|
FFileName: tbtstring;
|
||||||
procedure SetFileName(const Value: string);
|
procedure SetFileName(const Value: tbtstring);
|
||||||
public
|
public
|
||||||
|
|
||||||
property FileName: string read FFileName write SetFileName;
|
property FileName: tbtstring read FFileName write SetFileName;
|
||||||
|
|
||||||
property FileNameHash: Longint read FFileNameHash;
|
property FileNameHash: Longint read FFileNameHash;
|
||||||
|
|
||||||
property Line: Longint read FLine write FLine;
|
property Line: Longint read FLine write FLine;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TPSOnLineInfo = procedure (Sender: TObject; const FileName: string; Position, Row, Col: Cardinal) of object;
|
TPSOnLineInfo = procedure (Sender: TObject; const FileName: tbtstring; Position, Row, Col: Cardinal) of object;
|
||||||
|
|
||||||
TPSScriptDebugger = class(TPSScript)
|
TPSScriptDebugger = class(TPSScript)
|
||||||
private
|
private
|
||||||
@ -329,7 +329,7 @@ type
|
|||||||
function GetBreakPoint(I: Integer): TPSBreakPointInfo;
|
function GetBreakPoint(I: Integer): TPSBreakPointInfo;
|
||||||
function GetBreakPointCount: Longint;
|
function GetBreakPointCount: Longint;
|
||||||
protected
|
protected
|
||||||
procedure SetMainFileName(const Value: string); override;
|
procedure SetMainFileName(const Value: tbtstring); override;
|
||||||
public
|
public
|
||||||
constructor Create(AOwner: TComponent); override;
|
constructor Create(AOwner: TComponent); override;
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
@ -344,19 +344,19 @@ type
|
|||||||
|
|
||||||
procedure StepOver; virtual;
|
procedure StepOver; virtual;
|
||||||
|
|
||||||
procedure SetBreakPoint(const Fn: string; Line: Longint);
|
procedure SetBreakPoint(const Fn: tbtstring; Line: Longint);
|
||||||
|
|
||||||
procedure ClearBreakPoint(const Fn: string; Line: Longint);
|
procedure ClearBreakPoint(const Fn: tbtstring; Line: Longint);
|
||||||
|
|
||||||
property BreakPointCount: Longint read GetBreakPointCount;
|
property BreakPointCount: Longint read GetBreakPointCount;
|
||||||
|
|
||||||
property BreakPoint[I: Longint]: TPSBreakPointInfo read GetBreakPoint;
|
property BreakPoint[I: Longint]: TPSBreakPointInfo read GetBreakPoint;
|
||||||
|
|
||||||
function HasBreakPoint(const Fn: string; Line: Longint): Boolean;
|
function HasBreakPoint(const Fn: tbtstring; Line: Longint): Boolean;
|
||||||
|
|
||||||
procedure ClearBreakPoints;
|
procedure ClearBreakPoints;
|
||||||
|
|
||||||
function GetVarContents(const Name: string): string;
|
function GetVarContents(const Name: tbtstring): tbtstring;
|
||||||
published
|
published
|
||||||
|
|
||||||
property OnIdle: TNotifyEvent read FOnIdle write FOnIdle;
|
property OnIdle: TNotifyEvent read FOnIdle write FOnIdle;
|
||||||
@ -412,17 +412,17 @@ const
|
|||||||
RPS_UnknownIdentifier = 'Unknown Identifier';
|
RPS_UnknownIdentifier = 'Unknown Identifier';
|
||||||
RPS_NoScript = 'No script';
|
RPS_NoScript = 'No script';
|
||||||
|
|
||||||
function MyGetVariant(Sender: TPSExec; const Name: string): Variant;
|
function MyGetVariant(Sender: TPSExec; const Name: tbtstring): Variant;
|
||||||
begin
|
begin
|
||||||
Result := TPSScript (Sender.Id).DoOnGetNotificationVariant(Name);
|
Result := TPSScript (Sender.Id).DoOnGetNotificationVariant(Name);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure MySetVariant(Sender: TPSExec; const Name: string; V: Variant);
|
procedure MySetVariant(Sender: TPSExec; const Name: tbtstring; V: Variant);
|
||||||
begin
|
begin
|
||||||
TPSScript (Sender.Id).DoOnSetNotificationVariant(Name, V);
|
TPSScript (Sender.Id).DoOnSetNotificationVariant(Name, V);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function CompScriptUses(Sender: TPSPascalCompiler; const Name: string): Boolean;
|
function CompScriptUses(Sender: TPSPascalCompiler; const Name: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := TPSScript(Sender.ID).ScriptUses(Sender, Name);
|
Result := TPSScript(Sender.ID).ScriptUses(Sender, Name);
|
||||||
end;
|
end;
|
||||||
@ -435,7 +435,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function CompExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: string): Boolean;
|
function CompExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := TPSScript(Sender.ID).DoVerifyProc (Sender.ID, Proc, ProcDecl);
|
Result := TPSScript(Sender.ID).DoVerifyProc (Sender.ID, Proc, ProcDecl);
|
||||||
end;
|
end;
|
||||||
@ -445,7 +445,7 @@ procedure callObjectOnProcessDirective (
|
|||||||
Sender: TPSPreProcessor;
|
Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser;
|
Parser: TPSPascalPreProcessorParser;
|
||||||
const Active: Boolean;
|
const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: String;
|
const DirectiveName, DirectiveParam: tbtstring;
|
||||||
Var Continue: Boolean);
|
Var Continue: Boolean);
|
||||||
begin
|
begin
|
||||||
TPSScript (Sender.ID).DoOnProcessUnknowDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
|
TPSScript (Sender.ID).DoOnProcessUnknowDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
|
||||||
@ -455,7 +455,7 @@ procedure callObjectOnProcessUnknowDirective (
|
|||||||
Sender: TPSPreProcessor;
|
Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser;
|
Parser: TPSPascalPreProcessorParser;
|
||||||
const Active: Boolean;
|
const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: String;
|
const DirectiveName, DirectiveParam: tbtstring;
|
||||||
Var Continue: Boolean);
|
Var Continue: Boolean);
|
||||||
begin
|
begin
|
||||||
TPSScript (Sender.ID).DoOnProcessDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
|
TPSScript (Sender.ID).DoOnProcessDirective(Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
|
||||||
@ -497,12 +497,12 @@ end;
|
|||||||
{ TPSScript }
|
{ TPSScript }
|
||||||
|
|
||||||
function TPSScript.AddFunction(Ptr: Pointer;
|
function TPSScript.AddFunction(Ptr: Pointer;
|
||||||
const Decl: string): Boolean;
|
const Decl: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := AddFunctionEx(Ptr, Decl, cdRegister);
|
Result := AddFunctionEx(Ptr, Decl, cdRegister);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.AddFunctionEx(Ptr: Pointer; const Decl: string;
|
function TPSScript.AddFunctionEx(Ptr: Pointer; const Decl: tbtstring;
|
||||||
CallingConv: TDelphiCallingConvention): Boolean;
|
CallingConv: TDelphiCallingConvention): Boolean;
|
||||||
var
|
var
|
||||||
P: TPSRegProc;
|
P: TPSRegProc;
|
||||||
@ -517,7 +517,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.AddRegisteredVariable(const VarName,
|
function TPSScript.AddRegisteredVariable(const VarName,
|
||||||
VarType: string): Boolean;
|
VarType: tbtstring): Boolean;
|
||||||
var
|
var
|
||||||
FVar: TPSVar;
|
FVar: TPSVar;
|
||||||
begin
|
begin
|
||||||
@ -531,12 +531,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function CENeedFile(Sender: TPSPreProcessor; const callingfilename: string; var FileName, Output: string): Boolean;
|
function CENeedFile(Sender: TPSPreProcessor; const callingfilename: tbtstring; var FileName, Output: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := TPSScript (Sender.ID).DoOnNeedFile(Sender.ID, CallingFileName, FileName, Output);
|
Result := TPSScript (Sender.ID).DoOnNeedFile(Sender.ID, CallingFileName, FileName, Output);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure CompTranslateLineInfo(Sender: TPSPascalCompiler; var Pos, Row, Col: Cardinal; var Name: string);
|
procedure CompTranslateLineInfo(Sender: TPSPascalCompiler; var Pos, Row, Col: Cardinal; var Name: tbtstring);
|
||||||
var
|
var
|
||||||
res: TPSLineInfoResults;
|
res: TPSLineInfoResults;
|
||||||
begin
|
begin
|
||||||
@ -552,7 +552,7 @@ end;
|
|||||||
function TPSScript.Compile: Boolean;
|
function TPSScript.Compile: Boolean;
|
||||||
var
|
var
|
||||||
i: Longint;
|
i: Longint;
|
||||||
dta: string;
|
dta: tbtstring;
|
||||||
begin
|
begin
|
||||||
FExec.Clear;
|
FExec.Clear;
|
||||||
FExec.CMD_Err(erNoError);
|
FExec.CMD_Err(erNoError);
|
||||||
@ -623,7 +623,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.CompilerErrorToStr(I: Integer): string;
|
function TPSScript.CompilerErrorToStr(I: Integer): tbtstring;
|
||||||
begin
|
begin
|
||||||
Result := CompilerMessages[i].MessageToString;
|
Result := CompilerMessages[i].MessageToString;
|
||||||
end;
|
end;
|
||||||
@ -681,12 +681,12 @@ begin
|
|||||||
DoAfterExecute;
|
DoAfterExecute;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.GetAbout: string;
|
function TPSScript.GetAbout: tbtstring;
|
||||||
begin
|
begin
|
||||||
Result := TPSExec.About;
|
Result := TPSExec.About;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScript.GetCompiled(var data: string);
|
procedure TPSScript.GetCompiled(var data: tbtstring);
|
||||||
begin
|
begin
|
||||||
if not FComp.GetOutput(Data) then
|
if not FComp.GetOutput(Data) then
|
||||||
raise Exception.Create(RPS_ScriptNotCompiled);
|
raise Exception.Create(RPS_ScriptNotCompiled);
|
||||||
@ -712,7 +712,7 @@ begin
|
|||||||
Result := Exec.ExceptionCode;
|
Result := Exec.ExceptionCode;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.GetExecErrorParam: string;
|
function TPSScript.GetExecErrorParam: tbtstring;
|
||||||
begin
|
begin
|
||||||
Result := Exec.ExceptionString;
|
Result := Exec.ExceptionString;
|
||||||
end;
|
end;
|
||||||
@ -727,19 +727,19 @@ begin
|
|||||||
Result := Exec.ExceptionProcNo;
|
Result := Exec.ExceptionProcNo;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.GetExecErrorString: string;
|
function TPSScript.GetExecErrorString: tbtstring;
|
||||||
begin
|
begin
|
||||||
Result := TIFErrorToString(Exec.ExceptionCode, Exec.ExceptionString);
|
Result := TIFErrorToString(Exec.ExceptionCode, Exec.ExceptionString);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.GetVariable(const Name: string): PIFVariant;
|
function TPSScript.GetVariable(const Name: tbtstring): PIFVariant;
|
||||||
begin
|
begin
|
||||||
Result := FExec.GetVar2(name);
|
Result := FExec.GetVar2(name);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.LoadExec: Boolean;
|
function TPSScript.LoadExec: Boolean;
|
||||||
var
|
var
|
||||||
s: string;
|
s: tbtstring;
|
||||||
begin
|
begin
|
||||||
if (not FComp.GetOutput(s)) or (not FExec.LoadData(s)) then
|
if (not FComp.GetOutput(s)) or (not FExec.LoadData(s)) then
|
||||||
begin
|
begin
|
||||||
@ -755,7 +755,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.ScriptUses(Sender: TPSPascalCompiler;
|
function TPSScript.ScriptUses(Sender: TPSPascalCompiler;
|
||||||
const Name: string): Boolean;
|
const Name: tbtstring): Boolean;
|
||||||
var
|
var
|
||||||
i: Longint;
|
i: Longint;
|
||||||
begin
|
begin
|
||||||
@ -791,7 +791,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScript.SetCompiled(const Data: string);
|
procedure TPSScript.SetCompiled(const Data: tbtstring);
|
||||||
var
|
var
|
||||||
i: Integer;
|
i: Integer;
|
||||||
begin
|
begin
|
||||||
@ -827,7 +827,7 @@ begin
|
|||||||
raise Exception.Create(GetExecErrorString);
|
raise Exception.Create(GetExecErrorString);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.SetVarToInstance(const VarName: string; cl: TObject): Boolean;
|
function TPSScript.SetVarToInstance(const VarName: tbtstring; cl: TObject): Boolean;
|
||||||
var
|
var
|
||||||
p: PIFVariant;
|
p: PIFVariant;
|
||||||
begin
|
begin
|
||||||
@ -846,12 +846,12 @@ end;
|
|||||||
|
|
||||||
|
|
||||||
function TPSScript.AddMethod(Slf, Ptr: Pointer;
|
function TPSScript.AddMethod(Slf, Ptr: Pointer;
|
||||||
const Decl: string): Boolean;
|
const Decl: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := AddMethodEx(Slf, Ptr, Decl, cdRegister);
|
Result := AddMethodEx(Slf, Ptr, Decl, cdRegister);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.AddMethodEx(Slf, Ptr: Pointer; const Decl: string;
|
function TPSScript.AddMethodEx(Slf, Ptr: Pointer; const Decl: tbtstring;
|
||||||
CallingConv: TDelphiCallingConvention): Boolean;
|
CallingConv: TDelphiCallingConvention): Boolean;
|
||||||
var
|
var
|
||||||
P: TPSRegProc;
|
P: TPSRegProc;
|
||||||
@ -877,7 +877,7 @@ end;
|
|||||||
|
|
||||||
function TPSScript.GetExecErrorCol: Cardinal;
|
function TPSScript.GetExecErrorCol: Cardinal;
|
||||||
var
|
var
|
||||||
s: string;
|
s: tbtstring;
|
||||||
D1: Cardinal;
|
D1: Cardinal;
|
||||||
begin
|
begin
|
||||||
if not TranslatePositionRC(Exec.ExceptionProcNo, Exec.ExceptionPos, D1, Result, s) then
|
if not TranslatePositionRC(Exec.ExceptionProcNo, Exec.ExceptionPos, D1, Result, s) then
|
||||||
@ -885,7 +885,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.TranslatePositionPos(Proc, Position: Cardinal;
|
function TPSScript.TranslatePositionPos(Proc, Position: Cardinal;
|
||||||
var Pos: Cardinal; var fn: string): Boolean;
|
var Pos: Cardinal; var fn: tbtstring): Boolean;
|
||||||
var
|
var
|
||||||
D1, D2: Cardinal;
|
D1, D2: Cardinal;
|
||||||
begin
|
begin
|
||||||
@ -893,7 +893,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.TranslatePositionRC(Proc, Position: Cardinal;
|
function TPSScript.TranslatePositionRC(Proc, Position: Cardinal;
|
||||||
var Row, Col: Cardinal; var fn: string): Boolean;
|
var Row, Col: Cardinal; var fn: tbtstring): Boolean;
|
||||||
var
|
var
|
||||||
d1: Cardinal;
|
d1: Cardinal;
|
||||||
begin
|
begin
|
||||||
@ -904,7 +904,7 @@ end;
|
|||||||
function TPSScript.GetExecErrorRow: Cardinal;
|
function TPSScript.GetExecErrorRow: Cardinal;
|
||||||
var
|
var
|
||||||
D1: Cardinal;
|
D1: Cardinal;
|
||||||
s: string;
|
s: tbtstring;
|
||||||
begin
|
begin
|
||||||
if not TranslatePositionRC(Exec.ExceptionProcNo, Exec.ExceptionPos, Result, D1, s) then
|
if not TranslatePositionRC(Exec.ExceptionProcNo, Exec.ExceptionPos, Result, D1, s) then
|
||||||
Result := 0;
|
Result := 0;
|
||||||
@ -918,17 +918,17 @@ begin
|
|||||||
raise Exception.Create(RPS_NotRunning);
|
raise Exception.Create(RPS_NotRunning);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.GetProcMethod(const ProcName: string): TMethod;
|
function TPSScript.GetProcMethod(const ProcName: tbtstring): TMethod;
|
||||||
begin
|
begin
|
||||||
Result := FExec.GetProcAsMethodN(ProcName)
|
Result := FExec.GetProcAsMethodN(ProcName)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScript.SetMainFileName(const Value: string);
|
procedure TPSScript.SetMainFileName(const Value: tbtstring);
|
||||||
begin
|
begin
|
||||||
FMainFileName := Value;
|
FMainFileName := Value;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.GetExecErrorFileName: string;
|
function TPSScript.GetExecErrorFileName: tbtstring;
|
||||||
var
|
var
|
||||||
D1, D2: Cardinal;
|
D1, D2: Cardinal;
|
||||||
begin
|
begin
|
||||||
@ -936,7 +936,7 @@ begin
|
|||||||
Result := '';
|
Result := '';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScript.SetPointerToData(const VarName: string;
|
procedure TPSScript.SetPointerToData(const VarName: tbtstring;
|
||||||
Data: Pointer; aType: TIFTypeRec);
|
Data: Pointer; aType: TIFTypeRec);
|
||||||
var
|
var
|
||||||
v: PIFVariant;
|
v: PIFVariant;
|
||||||
@ -951,7 +951,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.AddRegisteredPTRVariable(const VarName,
|
function TPSScript.AddRegisteredPTRVariable(const VarName,
|
||||||
VarType: string): Boolean;
|
VarType: tbtstring): Boolean;
|
||||||
var
|
var
|
||||||
FVar: TPSVar;
|
FVar: TPSVar;
|
||||||
begin
|
begin
|
||||||
@ -972,7 +972,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.ExecuteFunction(const Params: array of Variant;
|
function TPSScript.ExecuteFunction(const Params: array of Variant;
|
||||||
const ProcName: string): Variant;
|
const ProcName: tbtstring): Variant;
|
||||||
begin
|
begin
|
||||||
if SuppressLoadData then
|
if SuppressLoadData then
|
||||||
LoadExec;
|
LoadExec;
|
||||||
@ -989,7 +989,7 @@ begin
|
|||||||
Result := Exec.FindType2(Bt);
|
Result := Exec.FindType2(Bt);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.FindNamedType(const Name: string): TPSTypeRec;
|
function TPSScript.FindNamedType(const Name: tbtstring): TPSTypeRec;
|
||||||
begin
|
begin
|
||||||
Result := Exec.GetTypeNo(Exec.GetType(Name));
|
Result := Exec.GetTypeNo(Exec.GetType(Name));
|
||||||
end;
|
end;
|
||||||
@ -1014,14 +1014,14 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.AddNotificationVariant(const VarName: string): Boolean;
|
function TPSScript.AddNotificationVariant(const VarName: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := AddRegisteredVariable(VarName, '!NOTIFICATIONVARIANT');
|
Result := AddRegisteredVariable(VarName, '!NOTIFICATIONVARIANT');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScript.DoOnProcessDirective(Sender: TPSPreProcessor;
|
procedure TPSScript.DoOnProcessDirective(Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: String; var Continue: Boolean);
|
const DirectiveName, DirectiveParam: tbtstring; var Continue: Boolean);
|
||||||
begin
|
begin
|
||||||
If Assigned (OnProcessDirective) then
|
If Assigned (OnProcessDirective) then
|
||||||
OnProcessDirective (Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
|
OnProcessDirective (Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
|
||||||
@ -1029,14 +1029,14 @@ end;
|
|||||||
|
|
||||||
procedure TPSScript.DoOnProcessUnknowDirective(Sender: TPSPreProcessor;
|
procedure TPSScript.DoOnProcessUnknowDirective(Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
Parser: TPSPascalPreProcessorParser; const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: String; var Continue: Boolean);
|
const DirectiveName, DirectiveParam: tbtstring; var Continue: Boolean);
|
||||||
begin
|
begin
|
||||||
If Assigned (OnProcessUnknowDirective) then
|
If Assigned (OnProcessUnknowDirective) then
|
||||||
OnProcessUnknowDirective (Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
|
OnProcessUnknowDirective (Sender, Parser, Active, DirectiveName, DirectiveParam, Continue);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.DoOnNeedFile(Sender: TObject;
|
function TPSScript.DoOnNeedFile(Sender: TObject;
|
||||||
const OrginFileName: string; var FileName, Output: string): Boolean;
|
const OrginFileName: tbtstring; var FileName, Output: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
If Assigned (OnNeedFile) then
|
If Assigned (OnNeedFile) then
|
||||||
Result := OnNeedFile(Sender, OrginFileName, FileName, Output)
|
Result := OnNeedFile(Sender, OrginFileName, FileName, Output)
|
||||||
@ -1045,10 +1045,10 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.DoOnUnknowUses(Sender: TPSPascalCompiler;
|
function TPSScript.DoOnUnknowUses(Sender: TPSPascalCompiler;
|
||||||
const Name: string): Boolean;
|
const Name: tbtstring): Boolean;
|
||||||
var
|
var
|
||||||
lPrevAllowUnit: Boolean;
|
lPrevAllowUnit: Boolean;
|
||||||
lData, lName: string;
|
lData, lName: tbtstring;
|
||||||
begin
|
begin
|
||||||
if assigned(FOnFindUnknownFile) then begin
|
if assigned(FOnFindUnknownFile) then begin
|
||||||
lName := Name;
|
lName := Name;
|
||||||
@ -1100,7 +1100,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.DoVerifyProc(Sender: TPSScript;
|
function TPSScript.DoVerifyProc(Sender: TPSScript;
|
||||||
Proc: TPSInternalProcedure; const Decl: string): Boolean;
|
Proc: TPSInternalProcedure; const Decl: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
if Assigned(OnVerifyProc) then begin
|
if Assigned(OnVerifyProc) then begin
|
||||||
Result := false;
|
Result := false;
|
||||||
@ -1118,14 +1118,14 @@ begin
|
|||||||
OnExecImport(Self, FExec, RunTimeImporter);
|
OnExecImport(Self, FExec, RunTimeImporter);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScript.DoOnGetNotificationVariant(const Name: string): Variant;
|
function TPSScript.DoOnGetNotificationVariant(const Name: tbtstring): Variant;
|
||||||
begin
|
begin
|
||||||
if Not Assigned (OnGetNotificationVariant) then
|
if Not Assigned (OnGetNotificationVariant) then
|
||||||
raise Exception.Create(RPS_UnableToReadVariant);
|
raise Exception.Create(RPS_UnableToReadVariant);
|
||||||
Result := OnGetNotificationVariant(Self, Name);
|
Result := OnGetNotificationVariant(Self, Name);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScript.DoOnSetNotificationVariant(const Name: string;
|
procedure TPSScript.DoOnSetNotificationVariant(const Name: tbtstring;
|
||||||
V: Variant);
|
V: Variant);
|
||||||
begin
|
begin
|
||||||
if Not Assigned (OnSetNotificationVariant) then
|
if Not Assigned (OnSetNotificationVariant) then
|
||||||
@ -1149,12 +1149,12 @@ end;
|
|||||||
|
|
||||||
{ TPS3DebugCompExec }
|
{ TPS3DebugCompExec }
|
||||||
|
|
||||||
procedure LineInfo(Sender: TPSDebugExec; const FileName: string; Position, Row, Col: Cardinal);
|
procedure LineInfo(Sender: TPSDebugExec; const FileName: tbtstring; Position, Row, Col: Cardinal);
|
||||||
var
|
var
|
||||||
Dc: TPSScriptDebugger;
|
Dc: TPSScriptDebugger;
|
||||||
h, i: Longint;
|
h, i: Longint;
|
||||||
bi: TPSBreakPointInfo;
|
bi: TPSBreakPointInfo;
|
||||||
lFileName: string;
|
lFileName: tbtstring;
|
||||||
begin
|
begin
|
||||||
Dc := Sender.Id;
|
Dc := Sender.Id;
|
||||||
if FileName = '' then
|
if FileName = '' then
|
||||||
@ -1194,7 +1194,7 @@ begin
|
|||||||
dc.Exec.Run;
|
dc.Exec.Run;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScriptDebugger.ClearBreakPoint(const Fn: string; Line: Integer);
|
procedure TPSScriptDebugger.ClearBreakPoint(const Fn: tbtstring; Line: Integer);
|
||||||
var
|
var
|
||||||
h, i: Longint;
|
h, i: Longint;
|
||||||
bi: TPSBreakPointInfo;
|
bi: TPSBreakPointInfo;
|
||||||
@ -1251,11 +1251,11 @@ begin
|
|||||||
Result := FBreakPoints.Count;
|
Result := FBreakPoints.Count;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScriptDebugger.GetVarContents(const Name: string): string;
|
function TPSScriptDebugger.GetVarContents(const Name: tbtstring): tbtstring;
|
||||||
var
|
var
|
||||||
i: Longint;
|
i: Longint;
|
||||||
pv: PIFVariant;
|
pv: PIFVariant;
|
||||||
s1, s: string;
|
s1, s: tbtstring;
|
||||||
begin
|
begin
|
||||||
s := Uppercase(Name);
|
s := Uppercase(Name);
|
||||||
if pos('.', s) > 0 then
|
if pos('.', s) > 0 then
|
||||||
@ -1303,7 +1303,7 @@ begin
|
|||||||
Result := PSVariantToString(NewTPSVariantIFC(pv, False), s);
|
Result := PSVariantToString(NewTPSVariantIFC(pv, False), s);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScriptDebugger.HasBreakPoint(const Fn: string; Line: Integer): Boolean;
|
function TPSScriptDebugger.HasBreakPoint(const Fn: tbtstring; Line: Integer): Boolean;
|
||||||
var
|
var
|
||||||
h, i: Longint;
|
h, i: Longint;
|
||||||
bi: TPSBreakPointInfo;
|
bi: TPSBreakPointInfo;
|
||||||
@ -1337,7 +1337,7 @@ begin
|
|||||||
raise Exception.Create(RPS_NotRunning);
|
raise Exception.Create(RPS_NotRunning);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScriptDebugger.SetBreakPoint(const fn: string; Line: Integer);
|
procedure TPSScriptDebugger.SetBreakPoint(const fn: tbtstring; Line: Integer);
|
||||||
var
|
var
|
||||||
i, h: Longint;
|
i, h: Longint;
|
||||||
BI: TPSBreakPointInfo;
|
BI: TPSBreakPointInfo;
|
||||||
@ -1355,9 +1355,9 @@ begin
|
|||||||
bi.Line := Line;
|
bi.Line := Line;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScriptDebugger.SetMainFileName(const Value: string);
|
procedure TPSScriptDebugger.SetMainFileName(const Value: tbtstring);
|
||||||
var
|
var
|
||||||
OldFn: string;
|
OldFn: tbtstring;
|
||||||
h1, h2,i: Longint;
|
h1, h2,i: Longint;
|
||||||
bi: TPSBreakPointInfo;
|
bi: TPSBreakPointInfo;
|
||||||
begin
|
begin
|
||||||
@ -1415,7 +1415,7 @@ end;
|
|||||||
function TPSPluginItem.GetDisplayName: string;
|
function TPSPluginItem.GetDisplayName: string;
|
||||||
begin
|
begin
|
||||||
if FPlugin <> nil then
|
if FPlugin <> nil then
|
||||||
Result := FPlugin.Name
|
Result := string(FPlugin.Name)
|
||||||
else
|
else
|
||||||
Result := '<nil>';
|
Result := '<nil>';
|
||||||
end;
|
end;
|
||||||
@ -1443,7 +1443,7 @@ end;
|
|||||||
|
|
||||||
{ TPSBreakPointInfo }
|
{ TPSBreakPointInfo }
|
||||||
|
|
||||||
procedure TPSBreakPointInfo.SetFileName(const Value: string);
|
procedure TPSBreakPointInfo.SetFileName(const Value: tbtstring);
|
||||||
begin
|
begin
|
||||||
FFileName := Value;
|
FFileName := Value;
|
||||||
FFileNameHash := MakeHash(Value);
|
FFileNameHash := MakeHash(Value);
|
||||||
|
|||||||
@ -31,28 +31,28 @@ type
|
|||||||
|
|
||||||
{Base class for all plugins for the component}
|
{Base class for all plugins for the component}
|
||||||
TPSOnCompCleanup = Function (Sender: TObject; aComp: TPSPascalCompiler):Boolean of object;
|
TPSOnCompCleanup = Function (Sender: TObject; aComp: TPSPascalCompiler):Boolean of object;
|
||||||
TPSOnInsertProcedure = Procedure (Sender: TObject; aProc: String; OnTop: Boolean) of object;
|
TPSOnInsertProcedure = Procedure (Sender: TObject; aProc: tbtstring; OnTop: Boolean) of object;
|
||||||
TPSOnException = procedure (Sender: TPSExec; ExError: TPSError; const ExParam: string;
|
TPSOnException = procedure (Sender: TPSExec; ExError: TPSError; const ExParam: tbtstring;
|
||||||
ExObject: TObject; ProcNo, Position: Cardinal) of object;
|
ExObject: TObject; ProcNo, Position: Cardinal) of object;
|
||||||
|
|
||||||
TMethodList = class;
|
TMethodList = class;
|
||||||
TProcObj = Class
|
TProcObj = Class
|
||||||
private
|
private
|
||||||
FName : String;
|
FName : tbtstring;
|
||||||
fOwner : TMethodList;
|
fOwner : TMethodList;
|
||||||
procedure SetName(const Value: String);
|
procedure SetName(const Value: tbtstring);
|
||||||
public
|
public
|
||||||
ProcType : TStringList;
|
ProcType : TStringList;
|
||||||
Method : TMethod;
|
Method : TMethod;
|
||||||
constructor create(aOwner: TMethodList);
|
constructor create(aOwner: TMethodList);
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
property Name: String read FName write SetName;
|
property Name: tbtstring read FName write SetName;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TMethodObj = Class
|
TMethodObj = Class
|
||||||
Instance : TPersistent;
|
Instance : TPersistent;
|
||||||
PropName : String;
|
PropName : tbtstring;
|
||||||
ProcName : String;
|
ProcName : tbtstring;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TMethodList = class
|
TMethodList = class
|
||||||
@ -62,18 +62,18 @@ type
|
|||||||
fEventList : TObjectList;
|
fEventList : TObjectList;
|
||||||
function GetObject(Index: Integer): TMethodObj; virtual;
|
function GetObject(Index: Integer): TMethodObj; virtual;
|
||||||
function GetProcObj(Index: Integer): TProcObj;
|
function GetProcObj(Index: Integer): TProcObj;
|
||||||
function GetMethodName(Instance: TObject; PropName: String): String;
|
function GetMethodName(Instance: TObject; PropName: tbtstring): tbtstring;
|
||||||
procedure SetMethodName(Instance: TObject; PropName: String; const Value: String);
|
procedure SetMethodName(Instance: TObject; PropName: tbtstring; const Value: tbtstring);
|
||||||
procedure CreateProc(ProcName: string; aPropType: TTypeData);
|
procedure CreateProc(ProcName: tbtstring; aPropType: TTypeData);
|
||||||
public
|
public
|
||||||
constructor create(aOwner: TPSScriptExtension);
|
constructor create(aOwner: TPSScriptExtension);
|
||||||
destructor Destroy; override;
|
destructor Destroy; override;
|
||||||
function methodIndexOf(Instance: TObject; PropName: String):Integer;
|
function methodIndexOf(Instance: TObject; PropName: tbtstring):Integer;
|
||||||
Function ProcIndexOf(Name: String): Integer;
|
Function ProcIndexOf(Name: tbtstring): Integer;
|
||||||
Procedure ListEventsName(EventType:string; List : TStrings);
|
Procedure ListEventsName(EventType:tbtstring; List : TStrings);
|
||||||
|
|
||||||
Procedure AddProcedure(ProcName, ProcType:String);
|
Procedure AddProcedure(ProcName, ProcType:tbtstring);
|
||||||
procedure InsertMethod(NewProc: String; OnTop: Boolean = false);
|
procedure InsertMethod(NewProc: tbtstring; OnTop: Boolean = false);
|
||||||
|
|
||||||
Procedure FillMethods;
|
Procedure FillMethods;
|
||||||
procedure ClearProcList;
|
procedure ClearProcList;
|
||||||
@ -82,7 +82,7 @@ type
|
|||||||
Function MethodCount :Integer;
|
Function MethodCount :Integer;
|
||||||
property Procs[Index: Integer]: TProcObj read GetProcObj ;
|
property Procs[Index: Integer]: TProcObj read GetProcObj ;
|
||||||
property Methods[Index: Integer]: TMethodObj read GetObject;
|
property Methods[Index: Integer]: TMethodObj read GetObject;
|
||||||
property ProcName[Instance: TObject; PropName:String]: String read GetMethodName write SetMethodName;
|
property ProcName[Instance: TObject; PropName:tbtstring]: tbtstring read GetMethodName write SetMethodName;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TPSScriptExtension = class(TPSScriptDebugger)
|
TPSScriptExtension = class(TPSScriptDebugger)
|
||||||
@ -96,17 +96,17 @@ type
|
|||||||
|
|
||||||
fItems, fInserts: TStrings;
|
fItems, fInserts: TStrings;
|
||||||
fScriptPos : Cardinal;
|
fScriptPos : Cardinal;
|
||||||
fObjectNest: STring;
|
fObjectNest: tbtstring;
|
||||||
|
|
||||||
Procedure GetCodeProps ;
|
Procedure GetCodeProps ;
|
||||||
function GetProcName(Instance: TObject; PropName: String): string;
|
function GetProcName(Instance: TObject; PropName: tbtstring): tbtstring;
|
||||||
procedure SetProcName(Instance: TObject; PropName: String; const Value: string);
|
procedure SetProcName(Instance: TObject; PropName: tbtstring; const Value: tbtstring);
|
||||||
|
|
||||||
protected
|
protected
|
||||||
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
||||||
|
|
||||||
procedure DoVerifyProc(Sender: TPSScript; Proc: TPSInternalProcedure;
|
procedure DoVerifyProc(Sender: TPSScript; Proc: TPSInternalProcedure;
|
||||||
const Decl: string; var Error: Boolean); reintroduce;
|
const Decl: tbtstring; var Error: Boolean); reintroduce;
|
||||||
Function DoBeforeCleanup(Sender: TObject; aComp: TPSPascalCompiler):Boolean;
|
Function DoBeforeCleanup(Sender: TObject; aComp: TPSPascalCompiler):Boolean;
|
||||||
procedure DoScriptChance(sender:TObject);
|
procedure DoScriptChance(sender:TObject);
|
||||||
|
|
||||||
@ -120,7 +120,7 @@ type
|
|||||||
function Compile: Boolean; Override;
|
function Compile: Boolean; Override;
|
||||||
function Execute: Boolean; Override;
|
function Execute: Boolean; Override;
|
||||||
{ Create a list of all var's, const's, Type's and functions }
|
{ Create a list of all var's, const's, Type's and functions }
|
||||||
Procedure GetValueDefs(aItems, aInserts: TStrings; Const aObjectNest: String=''; aScriptPos: Integer = 0);
|
Procedure GetValueDefs(aItems, aInserts: TStrings; Const aObjectNest: tbtstring=''; aScriptPos: Integer = 0);
|
||||||
|
|
||||||
{Compile the source only when the source is modified}
|
{Compile the source only when the source is modified}
|
||||||
procedure CompileIfNeeded;
|
procedure CompileIfNeeded;
|
||||||
@ -140,7 +140,7 @@ type
|
|||||||
Instance is the object where the Propname must be set.
|
Instance is the object where the Propname must be set.
|
||||||
You need te create the function yopur self in the script.
|
You need te create the function yopur self in the script.
|
||||||
When the new Procname dose not exists in the script, it is automatic created for you.}
|
When the new Procname dose not exists in the script, it is automatic created for you.}
|
||||||
property ProcName[Instance: TObject; PropName:String]: string read GetProcName write SetProcName;
|
property ProcName[Instance: TObject; PropName:tbtstring]: tbtstring read GetProcName write SetProcName;
|
||||||
property MethodList : TMethodList read FMethodList;
|
property MethodList : TMethodList read FMethodList;
|
||||||
|
|
||||||
published
|
published
|
||||||
@ -158,7 +158,7 @@ resourcestring
|
|||||||
sMissingEndStatment = 'Missing some ''End'' statments';
|
sMissingEndStatment = 'Missing some ''End'' statments';
|
||||||
|
|
||||||
|
|
||||||
function CompExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: string): Boolean;
|
function CompExportCheck(Sender: TPSPascalCompiler; Proc: TPSInternalProcedure; const ProcDecl: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
TPSScriptExtension(Sender.ID).DoVerifyProc(Sender.Id, Proc, ProcDecl, Result);
|
TPSScriptExtension(Sender.ID).DoVerifyProc(Sender.Id, Proc, ProcDecl, Result);
|
||||||
Result := not Result;
|
Result := not Result;
|
||||||
@ -169,7 +169,7 @@ begin
|
|||||||
result := TPSScriptExtension(Sender.ID).DoBeforeCleanUp(Sender.ID,Sender);
|
result := TPSScriptExtension(Sender.ID).DoBeforeCleanUp(Sender.ID,Sender);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure CEException(Sender: TPSExec; ExError: TIFError; const ExParam: string; ExObject: TObject; ProcNo, Position: Cardinal);
|
procedure CEException(Sender: TPSExec; ExError: TIFError; const ExParam: tbtstring; ExObject: TObject; ProcNo, Position: Cardinal);
|
||||||
begin
|
begin
|
||||||
if @TPSScriptExtension(Sender.ID).FOnException <> nil then
|
if @TPSScriptExtension(Sender.ID).FOnException <> nil then
|
||||||
TPSScriptExtension(Sender.ID).FOnException(Sender, ExError, ExParam, ExObject, ProcNo, Position);
|
TPSScriptExtension(Sender.ID).FOnException(Sender, ExError, ExParam, ExObject, ProcNo, Position);
|
||||||
@ -208,7 +208,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScriptExtension.DoVerifyProc(Sender: TPSScript;
|
procedure TPSScriptExtension.DoVerifyProc(Sender: TPSScript;
|
||||||
Proc: TPSInternalProcedure; const Decl: string; var Error: Boolean);
|
Proc: TPSInternalProcedure; const Decl: tbtstring; var Error: Boolean);
|
||||||
var
|
var
|
||||||
n{,m,p} : Integer;
|
n{,m,p} : Integer;
|
||||||
tstType : TPSProceduralType;
|
tstType : TPSProceduralType;
|
||||||
@ -232,16 +232,16 @@ end;
|
|||||||
type
|
type
|
||||||
TMyPascalCompiler = class(TPSPascalCompiler);
|
TMyPascalCompiler = class(TPSPascalCompiler);
|
||||||
const
|
const
|
||||||
sIFPSParameterMode : array [pmIn..pmInOut] of string = ('','\style{+B}out\style{-B} ','\style{+B}Var\style{-B} ');
|
sIFPSParameterMode : array [pmIn..pmInOut] of tbtstring = ('','\style{+B}out\style{-B} ','\style{+B}Var\style{-B} ');
|
||||||
|
|
||||||
Procedure TPSScriptExtension.GetCodeProps;
|
Procedure TPSScriptExtension.GetCodeProps;
|
||||||
|
|
||||||
Function existsItem(aName:String):Boolean;
|
Function existsItem(aName:tbtstring):Boolean;
|
||||||
Begin
|
Begin
|
||||||
result := FInserts.indexof(aName)<> -1;
|
result := FInserts.indexof(aName)<> -1;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Procedure addListItem(aType, aName:String; aDef:String='');
|
Procedure addListItem(aType, aName:tbtstring; aDef:tbtstring='');
|
||||||
var
|
var
|
||||||
x : LongInt;
|
x : LongInt;
|
||||||
begin
|
begin
|
||||||
@ -251,7 +251,7 @@ Procedure TPSScriptExtension.GetCodeProps;
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure Getdecl(decl : TPSParametersDecl; var T,v :string);
|
procedure Getdecl(decl : TPSParametersDecl; var T,v :tbtstring);
|
||||||
var
|
var
|
||||||
m : Integer;
|
m : Integer;
|
||||||
begin
|
begin
|
||||||
@ -271,15 +271,15 @@ Procedure TPSScriptExtension.GetCodeProps;
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Function getTypeDef(xr: TPSType; aZoek:string = ''):Boolean; forward;
|
Function getTypeDef(xr: TPSType; aZoek:tbtstring = ''):Boolean; forward;
|
||||||
|
|
||||||
Function getClassDef(xc: TPSCompileTimeClass; aZoek:string = ''):Boolean;
|
Function getClassDef(xc: TPSCompileTimeClass; aZoek:tbtstring = ''):Boolean;
|
||||||
var
|
var
|
||||||
Show : Boolean;
|
Show : Boolean;
|
||||||
Zoek,bZoek : String;
|
Zoek,bZoek : tbtstring;
|
||||||
tci : TPSDelphiClassItem;
|
tci : TPSDelphiClassItem;
|
||||||
n : Integer;
|
n : Integer;
|
||||||
T,v : String;
|
T,v : tbtstring;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
Show := aZoek='';
|
Show := aZoek='';
|
||||||
@ -321,10 +321,10 @@ Procedure TPSScriptExtension.GetCodeProps;
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Function getTypeDef(xr: TPSType; aZoek:string = ''):Boolean;
|
Function getTypeDef(xr: TPSType; aZoek:tbtstring = ''):Boolean;
|
||||||
var
|
var
|
||||||
Show : Boolean;
|
Show : Boolean;
|
||||||
Zoek : String;
|
Zoek : tbtstring;
|
||||||
xri : PIFPSRecordFieldTypeDef;
|
xri : PIFPSRecordFieldTypeDef;
|
||||||
n : Integer;
|
n : Integer;
|
||||||
begin
|
begin
|
||||||
@ -353,15 +353,15 @@ Procedure TPSScriptExtension.GetCodeProps;
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Function FindVarProc(aVarName:string; aZoek : string= ''):Boolean;
|
Function FindVarProc(aVarName:tbtstring; aZoek : tbtstring= ''):Boolean;
|
||||||
var
|
var
|
||||||
// cv : String;
|
// cv : tbtstring;
|
||||||
hh, h, i : Longint;
|
hh, h, i : Longint;
|
||||||
proc : TPSProcedure;
|
proc : TPSProcedure;
|
||||||
ip : TPSInternalProcedure;
|
ip : TPSInternalProcedure;
|
||||||
ipv : PIFPSProcVar;
|
ipv : PIFPSProcVar;
|
||||||
ipp : TPSParameterDecl;
|
ipp : TPSParameterDecl;
|
||||||
// t : String;
|
// t : tbtstring;
|
||||||
begin
|
begin
|
||||||
Hh := MakeHash(aVarName);
|
Hh := MakeHash(aVarName);
|
||||||
result := False;
|
result := False;
|
||||||
@ -395,13 +395,13 @@ Procedure TPSScriptExtension.GetCodeProps;
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
Function FindVarFunctType(aProcName:string): Boolean;
|
Function FindVarFunctType(aProcName:tbtstring): Boolean;
|
||||||
var
|
var
|
||||||
cv : String;
|
cv : tbtstring;
|
||||||
h, i : Longint;
|
h, i : Longint;
|
||||||
proc : TPSProcedure;
|
proc : TPSProcedure;
|
||||||
xr : TPSRegProc;
|
xr : TPSRegProc;
|
||||||
// t : String;
|
// t : tbtstring;
|
||||||
begin
|
begin
|
||||||
cv := aProcName;
|
cv := aProcName;
|
||||||
If Pos('.',aProcName)>0 then begin
|
If Pos('.',aProcName)>0 then begin
|
||||||
@ -441,7 +441,7 @@ Procedure TPSScriptExtension.GetCodeProps;
|
|||||||
|
|
||||||
Var
|
Var
|
||||||
n : Integer;
|
n : Integer;
|
||||||
s, t, v : String;
|
s, t, v : tbtstring;
|
||||||
proc : TPSProcedure;
|
proc : TPSProcedure;
|
||||||
xr : TPSRegProc;
|
xr : TPSRegProc;
|
||||||
|
|
||||||
@ -494,7 +494,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScriptExtension.GetValueDefs(aItems, aInserts: TStrings; const aObjectNest: STring; aScriptPos: Integer);
|
procedure TPSScriptExtension.GetValueDefs(aItems, aInserts: TStrings; const aObjectNest: tbtstring; aScriptPos: Integer);
|
||||||
begin
|
begin
|
||||||
fItems := aItems;
|
fItems := aItems;
|
||||||
fInserts := aInserts;
|
fInserts := aInserts;
|
||||||
@ -552,12 +552,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSScriptExtension.GetProcName(Instance: TObject; PropName: String): string;
|
function TPSScriptExtension.GetProcName(Instance: TObject; PropName: tbtstring): tbtstring;
|
||||||
begin
|
begin
|
||||||
Result := MethodList.ProcName[Instance, Propname];
|
Result := MethodList.ProcName[Instance, Propname];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSScriptExtension.SetProcName(Instance: TObject; PropName: String; const Value: string);
|
procedure TPSScriptExtension.SetProcName(Instance: TObject; PropName: tbtstring; const Value: tbtstring);
|
||||||
begin
|
begin
|
||||||
MethodList.ProcName[Instance, Propname] := Value;
|
MethodList.ProcName[Instance, Propname] := Value;
|
||||||
end;
|
end;
|
||||||
@ -579,7 +579,7 @@ end;
|
|||||||
|
|
||||||
{ TMethodList }
|
{ TMethodList }
|
||||||
|
|
||||||
procedure TMethodList.AddProcedure(ProcName, ProcType: String);
|
procedure TMethodList.AddProcedure(ProcName, ProcType: tbtstring);
|
||||||
var
|
var
|
||||||
po : TProcObj;
|
po : TProcObj;
|
||||||
x,y : Integer;
|
x,y : Integer;
|
||||||
@ -611,9 +611,9 @@ begin
|
|||||||
fEventList := TObjectList.create(true);
|
fEventList := TObjectList.create(true);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMethodList.CreateProc(ProcName:String; aPropType: TTypeData);
|
procedure TMethodList.CreateProc(ProcName:tbtstring; aPropType: TTypeData);
|
||||||
var
|
var
|
||||||
newProc: string;
|
newProc: tbtstring;
|
||||||
P: PByte;
|
P: PByte;
|
||||||
i: Integer;
|
i: Integer;
|
||||||
pf : TParamFlags;
|
pf : TParamFlags;
|
||||||
@ -671,16 +671,16 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMethodList.InsertMethod(NewProc: String; OnTop: Boolean = false);
|
procedure TMethodList.InsertMethod(NewProc: tbtstring; OnTop: Boolean = false);
|
||||||
var
|
var
|
||||||
x : Integer;
|
x : Integer;
|
||||||
sl : TStringList;
|
sl : TStringList;
|
||||||
nBegins : Integer;
|
nBegins : Integer;
|
||||||
nProcs : Integer;
|
nProcs : Integer;
|
||||||
line, test : String;
|
line, test : tbtstring;
|
||||||
|
|
||||||
|
|
||||||
function IsItem(line,item:String; First :Boolean = false):Boolean;
|
function IsItem(line,item:tbtstring; First :Boolean = false):Boolean;
|
||||||
var
|
var
|
||||||
nPos : Integer;
|
nPos : Integer;
|
||||||
begin
|
begin
|
||||||
@ -692,7 +692,7 @@ var
|
|||||||
until (Result) or (nPos = 0);
|
until (Result) or (nPos = 0);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function DelSpaces(AText: String): String;
|
function DelSpaces(AText: tbtstring): tbtstring;
|
||||||
var i: Integer;
|
var i: Integer;
|
||||||
begin
|
begin
|
||||||
Result := '';
|
Result := '';
|
||||||
@ -701,12 +701,12 @@ var
|
|||||||
Result := Result + AText[i];
|
Result := Result + AText[i];
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function IsProcDecl(AnOriginalProcDecl: String): Boolean;
|
function IsProcDecl(AnOriginalProcDecl: tbtstring): Boolean;
|
||||||
var
|
var
|
||||||
bIsFunc: Boolean;
|
bIsFunc: Boolean;
|
||||||
iLineNo: Integer;
|
iLineNo: Integer;
|
||||||
sProcKey: String;
|
sProcKey: tbtstring;
|
||||||
sProcDecl: String;
|
sProcDecl: tbtstring;
|
||||||
begin
|
begin
|
||||||
Result := false;
|
Result := false;
|
||||||
sProcDecl := Line;
|
sProcDecl := Line;
|
||||||
@ -821,7 +821,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TMethodList.GetMethodName(Instance: TObject; PropName: String): String;
|
function TMethodList.GetMethodName(Instance: TObject; PropName: tbtstring): tbtstring;
|
||||||
var
|
var
|
||||||
x : Integer;
|
x : Integer;
|
||||||
begin
|
begin
|
||||||
@ -841,7 +841,7 @@ begin
|
|||||||
result := TProcObj(fProcList.items[Index]);
|
result := TProcObj(fProcList.items[Index]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMethodList.ListEventsName(EventType: string; List: TStrings);
|
procedure TMethodList.ListEventsName(EventType: tbtstring; List: TStrings);
|
||||||
var
|
var
|
||||||
x : Integer;
|
x : Integer;
|
||||||
begin
|
begin
|
||||||
@ -861,7 +861,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
function TMethodList.methodIndexOf(Instance: TObject;
|
function TMethodList.methodIndexOf(Instance: TObject;
|
||||||
PropName: String): Integer;
|
PropName: tbtstring): Integer;
|
||||||
var x : integer;
|
var x : integer;
|
||||||
begin
|
begin
|
||||||
Result := -1;
|
Result := -1;
|
||||||
@ -879,7 +879,7 @@ begin
|
|||||||
result := fProcList.count;
|
result := fProcList.count;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TMethodList.ProcIndexOf(Name: String): Integer;
|
function TMethodList.ProcIndexOf(Name: tbtstring): Integer;
|
||||||
var x : integer;
|
var x : integer;
|
||||||
begin
|
begin
|
||||||
result := -1;
|
result := -1;
|
||||||
@ -892,12 +892,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TMethodList.SetMethodName(Instance: TObject; PropName: String;
|
procedure TMethodList.SetMethodName(Instance: TObject; PropName: tbtstring;
|
||||||
const Value: String);
|
const Value: tbtstring);
|
||||||
var
|
var
|
||||||
x, y : Integer;
|
x, y : Integer;
|
||||||
mo : TMethodObj;
|
mo : TMethodObj;
|
||||||
function TypeData(Instance: TObject; const PropName: string):PTypeData;
|
function TypeData(Instance: TObject; const PropName: tbtstring):PTypeData;
|
||||||
var
|
var
|
||||||
PropInfo: PPropInfo;
|
PropInfo: PPropInfo;
|
||||||
begin
|
begin
|
||||||
@ -982,7 +982,7 @@ begin
|
|||||||
inherited;
|
inherited;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TProcObj.SetName(const Value: String);
|
procedure TProcObj.SetName(const Value: tbtstring);
|
||||||
var
|
var
|
||||||
x : Integer;
|
x : Integer;
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -21,7 +21,7 @@ type
|
|||||||
FProcNames: TIFStringList;
|
FProcNames: TIFStringList;
|
||||||
FGlobalVarNames: TIfStringList;
|
FGlobalVarNames: TIfStringList;
|
||||||
FCurrentSourcePos, FCurrentRow, FCurrentCol: Cardinal;
|
FCurrentSourcePos, FCurrentRow, FCurrentCol: Cardinal;
|
||||||
FCurrentFile: string;
|
FCurrentFile: tbtstring;
|
||||||
|
|
||||||
function GetCurrentProcParams: TIfStringList;
|
function GetCurrentProcParams: TIfStringList;
|
||||||
|
|
||||||
@ -37,9 +37,9 @@ type
|
|||||||
|
|
||||||
function TranslatePosition(Proc, Position: Cardinal): Cardinal;
|
function TranslatePosition(Proc, Position: Cardinal): Cardinal;
|
||||||
|
|
||||||
function TranslatePositionEx(Proc, Position: Cardinal; var Pos, Row, Col: Cardinal; var Fn: string): Boolean;
|
function TranslatePositionEx(Proc, Position: Cardinal; var Pos, Row, Col: Cardinal; var Fn: tbtstring): Boolean;
|
||||||
|
|
||||||
procedure LoadDebugData(const Data: string);
|
procedure LoadDebugData(const Data: tbtstring);
|
||||||
|
|
||||||
procedure Clear; override;
|
procedure Clear; override;
|
||||||
|
|
||||||
@ -63,7 +63,7 @@ type
|
|||||||
end;
|
end;
|
||||||
TPSDebugExec = class;
|
TPSDebugExec = class;
|
||||||
|
|
||||||
TOnSourceLine = procedure (Sender: TPSDebugExec; const Name: string; Position, Row, Col: Cardinal);
|
TOnSourceLine = procedure (Sender: TPSDebugExec; const Name: tbtstring; Position, Row, Col: Cardinal);
|
||||||
|
|
||||||
TOnIdleCall = procedure (Sender: TPSDebugExec);
|
TOnIdleCall = procedure (Sender: TPSDebugExec);
|
||||||
|
|
||||||
@ -83,7 +83,7 @@ type
|
|||||||
public
|
public
|
||||||
constructor Create;
|
constructor Create;
|
||||||
|
|
||||||
function LoadData(const s: string): Boolean; override;
|
function LoadData(const s: tbtstring): Boolean; override;
|
||||||
|
|
||||||
procedure Pause; override;
|
procedure Pause; override;
|
||||||
|
|
||||||
@ -118,7 +118,7 @@ const
|
|||||||
type
|
type
|
||||||
PPositionData = ^TPositionData;
|
PPositionData = ^TPositionData;
|
||||||
TPositionData = packed record
|
TPositionData = packed record
|
||||||
FileName: string;
|
FileName: tbtstring;
|
||||||
Position,
|
Position,
|
||||||
Row,
|
Row,
|
||||||
Col,
|
Col,
|
||||||
@ -271,10 +271,10 @@ begin
|
|||||||
REsult := c;
|
REsult := c;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSCustomDebugExec.LoadDebugData(const Data: string);
|
procedure TPSCustomDebugExec.LoadDebugData(const Data: tbtstring);
|
||||||
var
|
var
|
||||||
CP, I: Longint;
|
CP, I: Longint;
|
||||||
c: char;
|
c: tbtchar;
|
||||||
CurrProcNo, LastProcNo: Cardinal;
|
CurrProcNo, LastProcNo: Cardinal;
|
||||||
LastProc: PFunctionInfo;
|
LastProc: PFunctionInfo;
|
||||||
NewLoc: PPositionData;
|
NewLoc: PPositionData;
|
||||||
@ -429,21 +429,21 @@ end;
|
|||||||
function TPSCustomDebugExec.TranslatePosition(Proc, Position: Cardinal): Cardinal;
|
function TPSCustomDebugExec.TranslatePosition(Proc, Position: Cardinal): Cardinal;
|
||||||
var
|
var
|
||||||
D1, D2: Cardinal;
|
D1, D2: Cardinal;
|
||||||
s: string;
|
s: tbtstring;
|
||||||
begin
|
begin
|
||||||
if not TranslatePositionEx(Proc, Position, Result, D1, D2, s) then
|
if not TranslatePositionEx(Proc, Position, Result, D1, D2, s) then
|
||||||
Result := 0;
|
Result := 0;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSCustomDebugExec.TranslatePositionEx(Proc, Position: Cardinal;
|
function TPSCustomDebugExec.TranslatePositionEx(Proc, Position: Cardinal;
|
||||||
var Pos, Row, Col: Cardinal; var Fn: string): Boolean;
|
var Pos, Row, Col: Cardinal; var Fn: tbtstring): Boolean;
|
||||||
// Made by Martijn Laan (mlaan@wintax.nl)
|
// Made by Martijn Laan (mlaan@wintax.nl)
|
||||||
var
|
var
|
||||||
i: LongInt;
|
i: LongInt;
|
||||||
fi: PFunctionInfo;
|
fi: PFunctionInfo;
|
||||||
pt: TIfList;
|
pt: TIfList;
|
||||||
r: PPositionData;
|
r: PPositionData;
|
||||||
lastfn: string;
|
lastfn: tbtstring;
|
||||||
LastPos, LastRow, LastCol: Cardinal;
|
LastPos, LastRow, LastCol: Cardinal;
|
||||||
pp: TPSProcRec;
|
pp: TPSProcRec;
|
||||||
begin
|
begin
|
||||||
@ -507,7 +507,7 @@ begin
|
|||||||
FDebugMode := dmRun;
|
FDebugMode := dmRun;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSDebugExec.LoadData(const s: string): Boolean;
|
function TPSDebugExec.LoadData(const s: tbtstring): Boolean;
|
||||||
begin
|
begin
|
||||||
Result := inherited LoadData(s);
|
Result := inherited LoadData(s);
|
||||||
FDebugMode := dmRun;
|
FDebugMode := dmRun;
|
||||||
|
|||||||
@ -13,12 +13,12 @@ type
|
|||||||
TPSPreProcessor = class;
|
TPSPreProcessor = class;
|
||||||
TPSPascalPreProcessorParser = class;
|
TPSPascalPreProcessorParser = class;
|
||||||
|
|
||||||
TPSOnNeedFile = function (Sender: TPSPreProcessor; const callingfilename: string; var FileName, Output: string): Boolean;
|
TPSOnNeedFile = function (Sender: TPSPreProcessor; const callingfilename: tbtstring; var FileName, Output: tbtstring): Boolean;
|
||||||
TPSOnProcessDirective = procedure (
|
TPSOnProcessDirective = procedure (
|
||||||
Sender: TPSPreProcessor;
|
Sender: TPSPreProcessor;
|
||||||
Parser: TPSPascalPreProcessorParser;
|
Parser: TPSPascalPreProcessorParser;
|
||||||
const Active: Boolean;
|
const Active: Boolean;
|
||||||
const DirectiveName, DirectiveParam: String;
|
const DirectiveName, DirectiveParam: tbtString;
|
||||||
Var Continue: Boolean); //- jgv - application set continue to false to stop the normal directive processing
|
Var Continue: Boolean); //- jgv - application set continue to false to stop the normal directive processing
|
||||||
|
|
||||||
TPSLineInfo = class(TObject)
|
TPSLineInfo = class(TObject)
|
||||||
@ -28,11 +28,11 @@ type
|
|||||||
protected
|
protected
|
||||||
FEndPos: Cardinal;
|
FEndPos: Cardinal;
|
||||||
FStartPos: Cardinal;
|
FStartPos: Cardinal;
|
||||||
FFileName: string;
|
FFileName: tbtstring;
|
||||||
FLineOffsets: TIfList;
|
FLineOffsets: TIfList;
|
||||||
public
|
public
|
||||||
|
|
||||||
property FileName: string read FFileName;
|
property FileName: tbtstring read FFileName;
|
||||||
|
|
||||||
property StartPos: Cardinal read FStartPos;
|
property StartPos: Cardinal read FStartPos;
|
||||||
|
|
||||||
@ -54,7 +54,7 @@ type
|
|||||||
Col,
|
Col,
|
||||||
Pos: Cardinal;
|
Pos: Cardinal;
|
||||||
|
|
||||||
Name: string;
|
Name: tbtstring;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
TPSLineInfoList = class(TObject)
|
TPSLineInfoList = class(TObject)
|
||||||
@ -74,7 +74,7 @@ type
|
|||||||
|
|
||||||
procedure Clear;
|
procedure Clear;
|
||||||
|
|
||||||
function GetLineInfo(const ModuleName: string; Pos: Cardinal; var Res: TPSLineInfoResults): Boolean;
|
function GetLineInfo(const ModuleName: tbtstring; Pos: Cardinal; var Res: TPSLineInfoResults): Boolean;
|
||||||
|
|
||||||
property Current: Longint read FCurrent write FCurrent;
|
property Current: Longint read FCurrent write FCurrent;
|
||||||
|
|
||||||
@ -94,12 +94,12 @@ type
|
|||||||
FAddedPosition: Cardinal;
|
FAddedPosition: Cardinal;
|
||||||
FDefineState: TPSDefineStates;
|
FDefineState: TPSDefineStates;
|
||||||
FMaxLevel: Longint;
|
FMaxLevel: Longint;
|
||||||
FMainFileName: string;
|
FMainFileName: tbtstring;
|
||||||
FMainFile: string;
|
FMainFile: tbtstring;
|
||||||
FOnProcessDirective: TPSOnProcessDirective;
|
FOnProcessDirective: TPSOnProcessDirective;
|
||||||
FOnProcessUnknowDirective: TPSOnProcessDirective;
|
FOnProcessUnknowDirective: TPSOnProcessDirective;
|
||||||
procedure ParserNewLine(Sender: TPSPascalPreProcessorParser; Row, Col, Pos: Cardinal);
|
procedure ParserNewLine(Sender: TPSPascalPreProcessorParser; Row, Col, Pos: Cardinal);
|
||||||
procedure IntPreProcess(Level: Integer; const OrgFileName: string; FileName: string; Dest: TStream);
|
procedure IntPreProcess(Level: Integer; const OrgFileName: tbtstring; FileName: tbtstring; Dest: TStream);
|
||||||
protected
|
protected
|
||||||
procedure doAddStdPredefines; virtual; // jgv
|
procedure doAddStdPredefines; virtual; // jgv
|
||||||
public
|
public
|
||||||
@ -111,16 +111,16 @@ type
|
|||||||
|
|
||||||
property Defines: TStringList read FDefines write FDefines;
|
property Defines: TStringList read FDefines write FDefines;
|
||||||
|
|
||||||
property MainFile: string read FMainFile write FMainFile;
|
property MainFile: tbtstring read FMainFile write FMainFile;
|
||||||
|
|
||||||
property MainFileName: string read FMainFileName write FMainFileName;
|
property MainFileName: tbtstring read FMainFileName write FMainFileName;
|
||||||
|
|
||||||
property ID: Pointer read FID write FID;
|
property ID: Pointer read FID write FID;
|
||||||
|
|
||||||
procedure AdjustMessages(Comp: TPSPascalCompiler);
|
procedure AdjustMessages(Comp: TPSPascalCompiler);
|
||||||
procedure AdjustMessage(Msg: TPSPascalCompilerMessage); //-jgv
|
procedure AdjustMessage(Msg: TPSPascalCompilerMessage); //-jgv
|
||||||
|
|
||||||
procedure PreProcess(const Filename: string; var Output: string);
|
procedure PreProcess(const Filename: tbtstring; var Output: tbtstring);
|
||||||
|
|
||||||
procedure Clear;
|
procedure Clear;
|
||||||
|
|
||||||
@ -139,19 +139,19 @@ type
|
|||||||
|
|
||||||
TPSPascalPreProcessorParser = class(TObject)
|
TPSPascalPreProcessorParser = class(TObject)
|
||||||
private
|
private
|
||||||
FData: string;
|
FData: tbtstring;
|
||||||
FText: Pchar;
|
FText: Pchar;
|
||||||
FToken: string;
|
FToken: tbtstring;
|
||||||
FTokenId: TPSPascalPreProcessorType;
|
FTokenId: TPSPascalPreProcessorType;
|
||||||
FLastEnterPos, FLen, FRow, FCol, FPos: Cardinal;
|
FLastEnterPos, FLen, FRow, FCol, FPos: Cardinal;
|
||||||
FOnNewLine: TPSOnNewLine;
|
FOnNewLine: TPSOnNewLine;
|
||||||
public
|
public
|
||||||
|
|
||||||
procedure SetText(const dta: string);
|
procedure SetText(const dta: tbtstring);
|
||||||
|
|
||||||
procedure Next;
|
procedure Next;
|
||||||
|
|
||||||
property Token: string read FToken;
|
property Token: tbtstring read FToken;
|
||||||
|
|
||||||
property TokenId: TPSPascalPreProcessorType read FTokenId;
|
property TokenId: TPSPascalPreProcessorType read FTokenId;
|
||||||
|
|
||||||
@ -258,12 +258,12 @@ begin
|
|||||||
Result := TPSLineInfo(FItems[i]);
|
Result := TPSLineInfo(FItems[i]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TPSLineInfoList.GetLineInfo(const ModuleName: string; Pos: Cardinal; var Res: TPSLineInfoResults): Boolean;
|
function TPSLineInfoList.GetLineInfo(const ModuleName: tbtstring; Pos: Cardinal; var Res: TPSLineInfoResults): Boolean;
|
||||||
var
|
var
|
||||||
i,j: Longint;
|
i,j: Longint;
|
||||||
linepos: Cardinal;
|
linepos: Cardinal;
|
||||||
Item: TPSLineInfo;
|
Item: TPSLineInfo;
|
||||||
lModuleName: string;
|
lModuleName: tbtstring;
|
||||||
begin
|
begin
|
||||||
lModuleName := FastUpperCase(lModuleName);
|
lModuleName := FastUpperCase(lModuleName);
|
||||||
|
|
||||||
@ -472,7 +472,7 @@ begin
|
|||||||
FToken := Copy(FData, FPos +1, FLen);
|
FToken := Copy(FData, FPos +1, FLen);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSPascalPreProcessorParser.SetText(const dta: string);
|
procedure TPSPascalPreProcessorParser.SetText(const dta: tbtstring);
|
||||||
begin
|
begin
|
||||||
FData := dta;
|
FData := dta;
|
||||||
FText := pchar(FData);
|
FText := pchar(FData);
|
||||||
@ -554,12 +554,12 @@ begin
|
|||||||
{$ENDIF }
|
{$ENDIF }
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSPreProcessor.IntPreProcess(Level: Integer; const OrgFileName: string; FileName: string; Dest: TStream);
|
procedure TPSPreProcessor.IntPreProcess(Level: Integer; const OrgFileName: tbtstring; FileName: tbtstring; Dest: TStream);
|
||||||
var
|
var
|
||||||
Parser: TPSPascalPreProcessorParser;
|
Parser: TPSPascalPreProcessorParser;
|
||||||
dta: string;
|
dta: tbtstring;
|
||||||
item: TPSLineInfo;
|
item: TPSLineInfo;
|
||||||
s, name: string;
|
s, name: tbtstring;
|
||||||
current, i: Longint;
|
current, i: Longint;
|
||||||
ds: TPSDefineState;
|
ds: TPSDefineState;
|
||||||
AppContinue: Boolean;
|
AppContinue: Boolean;
|
||||||
@ -702,7 +702,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSPreProcessor.PreProcess(const Filename: string; var Output: string);
|
procedure TPSPreProcessor.PreProcess(const Filename: tbtstring; var Output: tbtstring);
|
||||||
var
|
var
|
||||||
Stream: TMemoryStream;
|
Stream: TMemoryStream;
|
||||||
begin
|
begin
|
||||||
|
|||||||
@ -2,7 +2,7 @@
|
|||||||
Unit uPSR_DB;
|
Unit uPSR_DB;
|
||||||
{$I PascalScript.inc}
|
{$I PascalScript.inc}
|
||||||
Interface
|
Interface
|
||||||
Uses uPSRuntime;
|
Uses uPSRuntime, uPSUtils, SysUtils;
|
||||||
|
|
||||||
procedure RIRegisterTDATASET(Cl: TPSRuntimeClassImporter);
|
procedure RIRegisterTDATASET(Cl: TPSRuntimeClassImporter);
|
||||||
procedure RIRegisterTPARAMS(Cl: TPSRuntimeClassImporter);
|
procedure RIRegisterTPARAMS(Cl: TPSRuntimeClassImporter);
|
||||||
@ -232,10 +232,10 @@ begin Self.FILTERED := T; end;
|
|||||||
procedure TDATASETFILTERED_R(Self: TDATASET; var T: BOOLEAN);
|
procedure TDATASETFILTERED_R(Self: TDATASET; var T: BOOLEAN);
|
||||||
begin T := Self.FILTERED; end;
|
begin T := Self.FILTERED; end;
|
||||||
|
|
||||||
procedure TDATASETFILTER_W(Self: TDATASET; const T: STRING);
|
procedure TDATASETFILTER_W(Self: TDATASET; const T: tbtstring);
|
||||||
begin Self.FILTER := T; end;
|
begin Self.FILTER := T; end;
|
||||||
|
|
||||||
procedure TDATASETFILTER_R(Self: TDATASET; var T: STRING);
|
procedure TDATASETFILTER_R(Self: TDATASET; var T: tbtstring);
|
||||||
begin T := Self.FILTER; end;
|
begin T := Self.FILTER; end;
|
||||||
|
|
||||||
procedure TDATASETSTATE_R(Self: TDATASET; var T: TDATASETSTATE);
|
procedure TDATASETSTATE_R(Self: TDATASET; var T: TDATASETSTATE);
|
||||||
@ -280,10 +280,10 @@ begin T := Self.ISUNIDIRECTIONAL; end;
|
|||||||
procedure TDATASETFOUND_R(Self: TDATASET; var T: BOOLEAN);
|
procedure TDATASETFOUND_R(Self: TDATASET; var T: BOOLEAN);
|
||||||
begin T := Self.FOUND; end;
|
begin T := Self.FOUND; end;
|
||||||
|
|
||||||
procedure TDATASETFIELDVALUES_W(Self: TDATASET; const T: VARIANT; const t1: STRING);
|
procedure TDATASETFIELDVALUES_W(Self: TDATASET; const T: VARIANT; const t1: tbtstring);
|
||||||
begin Self.FIELDVALUES[t1] := T; end;
|
begin Self.FIELDVALUES[t1] := T; end;
|
||||||
|
|
||||||
procedure TDATASETFIELDVALUES_R(Self: TDATASET; var T: VARIANT; const t1: STRING);
|
procedure TDATASETFIELDVALUES_R(Self: TDATASET; var T: VARIANT; const t1: tbtstring);
|
||||||
begin T := Self.FIELDVALUES[t1]; end;
|
begin T := Self.FIELDVALUES[t1]; end;
|
||||||
|
|
||||||
procedure TDATASETFIELDS_R(Self: TDATASET; var T: TFIELDS);
|
procedure TDATASETFIELDS_R(Self: TDATASET; var T: TFIELDS);
|
||||||
@ -357,10 +357,10 @@ begin T := Self.CANMODIFY; end;
|
|||||||
procedure TDATASETBOF_R(Self: TDATASET; var T: BOOLEAN);
|
procedure TDATASETBOF_R(Self: TDATASET; var T: BOOLEAN);
|
||||||
begin T := Self.BOF; end;
|
begin T := Self.BOF; end;
|
||||||
|
|
||||||
procedure TPARAMSPARAMVALUES_W(Self: TPARAMS; const T: VARIANT; const t1: STRING);
|
procedure TPARAMSPARAMVALUES_W(Self: TPARAMS; const T: VARIANT; const t1: tbtstring);
|
||||||
begin Self.PARAMVALUES[t1] := T; end;
|
begin Self.PARAMVALUES[t1] := T; end;
|
||||||
|
|
||||||
procedure TPARAMSPARAMVALUES_R(Self: TPARAMS; var T: VARIANT; const t1: STRING);
|
procedure TPARAMSPARAMVALUES_R(Self: TPARAMS; var T: VARIANT; const t1: tbtstring);
|
||||||
begin T := Self.PARAMVALUES[t1]; end;
|
begin T := Self.PARAMVALUES[t1]; end;
|
||||||
|
|
||||||
procedure TPARAMSITEMS_W(Self: TPARAMS; const T: TPARAM; const t1: INTEGER);
|
procedure TPARAMSITEMS_W(Self: TPARAMS; const T: TPARAM; const t1: INTEGER);
|
||||||
@ -390,10 +390,10 @@ begin Self.PARAMTYPE := T; end;
|
|||||||
procedure TPARAMPARAMTYPE_R(Self: TPARAM; var T: TPARAMTYPE);
|
procedure TPARAMPARAMTYPE_R(Self: TPARAM; var T: TPARAMTYPE);
|
||||||
begin T := Self.PARAMTYPE; end;
|
begin T := Self.PARAMTYPE; end;
|
||||||
|
|
||||||
procedure TPARAMNAME_W(Self: TPARAM; const T: STRING);
|
procedure TPARAMNAME_W(Self: TPARAM; const T: tbtstring);
|
||||||
begin Self.NAME := T; end;
|
begin Self.NAME := T; end;
|
||||||
|
|
||||||
procedure TPARAMNAME_R(Self: TPARAM; var T: STRING);
|
procedure TPARAMNAME_R(Self: TPARAM; var T: tbtstring);
|
||||||
begin T := Self.NAME; end;
|
begin T := Self.NAME; end;
|
||||||
|
|
||||||
{$IFDEF DELPHI6UP}
|
{$IFDEF DELPHI6UP}
|
||||||
@ -417,16 +417,16 @@ begin Self.DATATYPE := T; end;
|
|||||||
procedure TPARAMDATATYPE_R(Self: TPARAM; var T: TFIELDTYPE);
|
procedure TPARAMDATATYPE_R(Self: TPARAM; var T: TFIELDTYPE);
|
||||||
begin T := Self.DATATYPE; end;
|
begin T := Self.DATATYPE; end;
|
||||||
|
|
||||||
procedure TPARAMTEXT_W(Self: TPARAM; const T: STRING);
|
procedure TPARAMTEXT_W(Self: TPARAM; const T: tbtstring);
|
||||||
begin Self.TEXT := T; end;
|
begin Self.TEXT := T; end;
|
||||||
|
|
||||||
procedure TPARAMTEXT_R(Self: TPARAM; var T: STRING);
|
procedure TPARAMTEXT_R(Self: TPARAM; var T: tbtstring);
|
||||||
begin T := Self.TEXT; end;
|
begin T := Self.TEXT; end;
|
||||||
|
|
||||||
procedure TPARAMNATIVESTR_W(Self: TPARAM; const T: STRING);
|
procedure TPARAMNATIVESTR_W(Self: TPARAM; const T: tbtstring);
|
||||||
begin Self.NATIVESTR := T; end;
|
begin Self.NATIVESTR := T; end;
|
||||||
|
|
||||||
procedure TPARAMNATIVESTR_R(Self: TPARAM; var T: STRING);
|
procedure TPARAMNATIVESTR_R(Self: TPARAM; var T: tbtstring);
|
||||||
begin T := Self.NATIVESTR; end;
|
begin T := Self.NATIVESTR; end;
|
||||||
|
|
||||||
procedure TPARAMISNULL_R(Self: TPARAM; var T: BOOLEAN);
|
procedure TPARAMISNULL_R(Self: TPARAM; var T: BOOLEAN);
|
||||||
@ -450,16 +450,16 @@ begin Self.ASTIME := T; end;
|
|||||||
procedure TPARAMASTIME_R(Self: TPARAM; var T: TDATETIME);
|
procedure TPARAMASTIME_R(Self: TPARAM; var T: TDATETIME);
|
||||||
begin T := Self.ASTIME; end;
|
begin T := Self.ASTIME; end;
|
||||||
|
|
||||||
procedure TPARAMASSTRING_W(Self: TPARAM; const T: STRING);
|
procedure TPARAMASSTRING_W(Self: TPARAM; const T: tbtstring);
|
||||||
begin Self.ASSTRING := T; end;
|
begin Self.ASSTRING := T; end;
|
||||||
|
|
||||||
procedure TPARAMASSTRING_R(Self: TPARAM; var T: STRING);
|
procedure TPARAMASSTRING_R(Self: TPARAM; var T: tbtstring);
|
||||||
begin T := Self.ASSTRING; end;
|
begin T := Self.ASSTRING; end;
|
||||||
|
|
||||||
procedure TPARAMASMEMO_W(Self: TPARAM; const T: STRING);
|
procedure TPARAMASMEMO_W(Self: TPARAM; const T: tbtstring);
|
||||||
begin Self.ASMEMO := T; end;
|
begin Self.ASMEMO := T; end;
|
||||||
|
|
||||||
procedure TPARAMASMEMO_R(Self: TPARAM; var T: STRING);
|
procedure TPARAMASMEMO_R(Self: TPARAM; var T: tbtstring);
|
||||||
begin T := Self.ASMEMO; end;
|
begin T := Self.ASMEMO; end;
|
||||||
|
|
||||||
procedure TPARAMASSMALLINT_W(Self: TPARAM; const T: LONGINT);
|
procedure TPARAMASSMALLINT_W(Self: TPARAM; const T: LONGINT);
|
||||||
@ -525,10 +525,10 @@ begin Self.ASBCD := T; end;
|
|||||||
procedure TPARAMASBCD_R(Self: TPARAM; var T: CURRENCY);
|
procedure TPARAMASBCD_R(Self: TPARAM; var T: CURRENCY);
|
||||||
begin T := Self.ASBCD; end;
|
begin T := Self.ASBCD; end;
|
||||||
|
|
||||||
procedure TREFERENCEFIELDREFERENCETABLENAME_W(Self: TREFERENCEFIELD; const T: STRING);
|
procedure TREFERENCEFIELDREFERENCETABLENAME_W(Self: TREFERENCEFIELD; const T: tbtstring);
|
||||||
begin Self.REFERENCETABLENAME := T; end;
|
begin Self.REFERENCETABLENAME := T; end;
|
||||||
|
|
||||||
procedure TREFERENCEFIELDREFERENCETABLENAME_R(Self: TREFERENCEFIELD; var T: STRING);
|
procedure TREFERENCEFIELDREFERENCETABLENAME_R(Self: TREFERENCEFIELD; var T: tbtstring);
|
||||||
begin T := Self.REFERENCETABLENAME; end;
|
begin T := Self.REFERENCETABLENAME; end;
|
||||||
|
|
||||||
|
|
||||||
@ -541,10 +541,10 @@ begin T := Self.INCLUDEOBJECTFIELD; end;
|
|||||||
procedure TDATASETFIELDNESTEDDATASET_R(Self: TDATASETFIELD; var T: TDATASET);
|
procedure TDATASETFIELDNESTEDDATASET_R(Self: TDATASETFIELD; var T: TDATASET);
|
||||||
begin T := Self.NESTEDDATASET; end;
|
begin T := Self.NESTEDDATASET; end;
|
||||||
|
|
||||||
procedure TOBJECTFIELDOBJECTTYPE_W(Self: TOBJECTFIELD; const T: STRING);
|
procedure TOBJECTFIELDOBJECTTYPE_W(Self: TOBJECTFIELD; const T: tbtstring);
|
||||||
begin Self.OBJECTTYPE := T; end;
|
begin Self.OBJECTTYPE := T; end;
|
||||||
|
|
||||||
procedure TOBJECTFIELDOBJECTTYPE_R(Self: TOBJECTFIELD; var T: STRING);
|
procedure TOBJECTFIELDOBJECTTYPE_R(Self: TOBJECTFIELD; var T: tbtstring);
|
||||||
begin T := Self.OBJECTTYPE; end;
|
begin T := Self.OBJECTTYPE; end;
|
||||||
|
|
||||||
procedure TOBJECTFIELDUNNAMED_R(Self: TOBJECTFIELD; var T: BOOLEAN);
|
procedure TOBJECTFIELDUNNAMED_R(Self: TOBJECTFIELD; var T: BOOLEAN);
|
||||||
@ -586,11 +586,29 @@ begin Self.TRANSLITERATE := T; end;
|
|||||||
procedure TBLOBFIELDTRANSLITERATE_R(Self: TBLOBFIELD; var T: BOOLEAN);
|
procedure TBLOBFIELDTRANSLITERATE_R(Self: TBLOBFIELD; var T: BOOLEAN);
|
||||||
begin T := Self.TRANSLITERATE; end;
|
begin T := Self.TRANSLITERATE; end;
|
||||||
|
|
||||||
procedure TBLOBFIELDVALUE_W(Self: TBLOBFIELD; const T: STRING);
|
procedure TBLOBFIELDVALUE_W(Self: TBLOBFIELD; const T: tbtstring);
|
||||||
begin Self.VALUE := T; end;
|
{$IFDEF DELPHI2008UP}
|
||||||
|
var
|
||||||
|
b: TBytes;
|
||||||
|
begin
|
||||||
|
setLEngth(b, Length(T));
|
||||||
|
Move(T[1], b[0], Length(T));
|
||||||
|
self.Value := b;
|
||||||
|
{$ELSE}
|
||||||
|
begin
|
||||||
|
Self.VALUE := T;
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBLOBFIELDVALUE_R(Self: TBLOBFIELD; var T: STRING);
|
procedure TBLOBFIELDVALUE_R(Self: TBLOBFIELD; var T: tbtstring);
|
||||||
begin T := Self.VALUE; end;
|
begin
|
||||||
|
{$IFDEF DELPHI2008UP}
|
||||||
|
SetLength(t, Length(SElf.Value));
|
||||||
|
Move(Self.Value[0], t[1], LEngth(T));
|
||||||
|
{$ELSE}
|
||||||
|
T := Self.VALUE;
|
||||||
|
{$ENDIF}
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TBLOBFIELDMODIFIED_W(Self: TBLOBFIELD; const T: BOOLEAN);
|
procedure TBLOBFIELDMODIFIED_W(Self: TBLOBFIELD; const T: BOOLEAN);
|
||||||
begin Self.MODIFIED := T; end;
|
begin Self.MODIFIED := T; end;
|
||||||
@ -609,16 +627,16 @@ begin Self.PRECISION := T; end;
|
|||||||
procedure TFMTBCDFIELDPRECISION_R(Self: TFMTBCDFIELD; var T: INTEGER);
|
procedure TFMTBCDFIELDPRECISION_R(Self: TFMTBCDFIELD; var T: INTEGER);
|
||||||
begin T := Self.PRECISION; end;
|
begin T := Self.PRECISION; end;
|
||||||
|
|
||||||
procedure TFMTBCDFIELDMINVALUE_W(Self: TFMTBCDFIELD; const T: STRING);
|
procedure TFMTBCDFIELDMINVALUE_W(Self: TFMTBCDFIELD; const T: tbtstring);
|
||||||
begin Self.MINVALUE := T; end;
|
begin Self.MINVALUE := T; end;
|
||||||
|
|
||||||
procedure TFMTBCDFIELDMINVALUE_R(Self: TFMTBCDFIELD; var T: STRING);
|
procedure TFMTBCDFIELDMINVALUE_R(Self: TFMTBCDFIELD; var T: tbtstring);
|
||||||
begin T := Self.MINVALUE; end;
|
begin T := Self.MINVALUE; end;
|
||||||
|
|
||||||
procedure TFMTBCDFIELDMAXVALUE_W(Self: TFMTBCDFIELD; const T: STRING);
|
procedure TFMTBCDFIELDMAXVALUE_W(Self: TFMTBCDFIELD; const T: tbtstring);
|
||||||
begin Self.MAXVALUE := T; end;
|
begin Self.MAXVALUE := T; end;
|
||||||
|
|
||||||
procedure TFMTBCDFIELDMAXVALUE_R(Self: TFMTBCDFIELD; var T: STRING);
|
procedure TFMTBCDFIELDMAXVALUE_R(Self: TFMTBCDFIELD; var T: tbtstring);
|
||||||
begin T := Self.MAXVALUE; end;
|
begin T := Self.MAXVALUE; end;
|
||||||
|
|
||||||
procedure TFMTBCDFIELDCURRENCY_W(Self: TFMTBCDFIELD; const T: BOOLEAN);
|
procedure TFMTBCDFIELDCURRENCY_W(Self: TFMTBCDFIELD; const T: BOOLEAN);
|
||||||
@ -666,10 +684,10 @@ begin T := Self.VALUE; end;
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
procedure TDATETIMEFIELDDISPLAYFORMAT_W(Self: TDATETIMEFIELD; const T: STRING);
|
procedure TDATETIMEFIELDDISPLAYFORMAT_W(Self: TDATETIMEFIELD; const T: tbtstring);
|
||||||
begin Self.DISPLAYFORMAT := T; end;
|
begin Self.DISPLAYFORMAT := T; end;
|
||||||
|
|
||||||
procedure TDATETIMEFIELDDISPLAYFORMAT_R(Self: TDATETIMEFIELD; var T: STRING);
|
procedure TDATETIMEFIELDDISPLAYFORMAT_R(Self: TDATETIMEFIELD; var T: tbtstring);
|
||||||
begin T := Self.DISPLAYFORMAT; end;
|
begin T := Self.DISPLAYFORMAT; end;
|
||||||
|
|
||||||
procedure TDATETIMEFIELDVALUE_W(Self: TDATETIMEFIELD; const T: TDATETIME);
|
procedure TDATETIMEFIELDVALUE_W(Self: TDATETIMEFIELD; const T: TDATETIME);
|
||||||
@ -678,10 +696,10 @@ begin Self.VALUE := T; end;
|
|||||||
procedure TDATETIMEFIELDVALUE_R(Self: TDATETIMEFIELD; var T: TDATETIME);
|
procedure TDATETIMEFIELDVALUE_R(Self: TDATETIMEFIELD; var T: TDATETIME);
|
||||||
begin T := Self.VALUE; end;
|
begin T := Self.VALUE; end;
|
||||||
|
|
||||||
procedure TBOOLEANFIELDDISPLAYVALUES_W(Self: TBOOLEANFIELD; const T: STRING);
|
procedure TBOOLEANFIELDDISPLAYVALUES_W(Self: TBOOLEANFIELD; const T: tbtstring);
|
||||||
begin Self.DISPLAYVALUES := T; end;
|
begin Self.DISPLAYVALUES := T; end;
|
||||||
|
|
||||||
procedure TBOOLEANFIELDDISPLAYVALUES_R(Self: TBOOLEANFIELD; var T: STRING);
|
procedure TBOOLEANFIELDDISPLAYVALUES_R(Self: TBOOLEANFIELD; var T: tbtstring);
|
||||||
begin T := Self.DISPLAYVALUES; end;
|
begin T := Self.DISPLAYVALUES; end;
|
||||||
|
|
||||||
procedure TBOOLEANFIELDVALUE_W(Self: TBOOLEANFIELD; const T: BOOLEAN);
|
procedure TBOOLEANFIELDVALUE_W(Self: TBOOLEANFIELD; const T: BOOLEAN);
|
||||||
@ -764,16 +782,16 @@ begin Self.VALUE := T; end;
|
|||||||
procedure TINTEGERFIELDVALUE_R(Self: TINTEGERFIELD; var T: LONGINT);
|
procedure TINTEGERFIELDVALUE_R(Self: TINTEGERFIELD; var T: LONGINT);
|
||||||
begin T := Self.VALUE; end;
|
begin T := Self.VALUE; end;
|
||||||
|
|
||||||
procedure TNUMERICFIELDEDITFORMAT_W(Self: TNUMERICFIELD; const T: STRING);
|
procedure TNUMERICFIELDEDITFORMAT_W(Self: TNUMERICFIELD; const T: tbtstring);
|
||||||
begin Self.EDITFORMAT := T; end;
|
begin Self.EDITFORMAT := T; end;
|
||||||
|
|
||||||
procedure TNUMERICFIELDEDITFORMAT_R(Self: TNUMERICFIELD; var T: STRING);
|
procedure TNUMERICFIELDEDITFORMAT_R(Self: TNUMERICFIELD; var T: tbtstring);
|
||||||
begin T := Self.EDITFORMAT; end;
|
begin T := Self.EDITFORMAT; end;
|
||||||
|
|
||||||
procedure TNUMERICFIELDDISPLAYFORMAT_W(Self: TNUMERICFIELD; const T: STRING);
|
procedure TNUMERICFIELDDISPLAYFORMAT_W(Self: TNUMERICFIELD; const T: tbtstring);
|
||||||
begin Self.DISPLAYFORMAT := T; end;
|
begin Self.DISPLAYFORMAT := T; end;
|
||||||
|
|
||||||
procedure TNUMERICFIELDDISPLAYFORMAT_R(Self: TNUMERICFIELD; var T: STRING);
|
procedure TNUMERICFIELDDISPLAYFORMAT_R(Self: TNUMERICFIELD; var T: tbtstring);
|
||||||
begin T := Self.DISPLAYFORMAT; end;
|
begin T := Self.DISPLAYFORMAT; end;
|
||||||
|
|
||||||
{$IFNDEF FPC}
|
{$IFNDEF FPC}
|
||||||
@ -797,10 +815,10 @@ begin T := Self.FIXEDCHAR; end;
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
|
|
||||||
procedure TSTRINGFIELDVALUE_W(Self: TSTRINGFIELD; const T: STRING);
|
procedure TSTRINGFIELDVALUE_W(Self: TSTRINGFIELD; const T: tbtstring);
|
||||||
begin Self.VALUE := T; end;
|
begin Self.VALUE := T; end;
|
||||||
|
|
||||||
procedure TSTRINGFIELDVALUE_R(Self: TSTRINGFIELD; var T: STRING);
|
procedure TSTRINGFIELDVALUE_R(Self: TSTRINGFIELD; var T: tbtstring);
|
||||||
begin T := Self.VALUE; end;
|
begin T := Self.VALUE; end;
|
||||||
|
|
||||||
procedure TFIELDONVALIDATE_W(Self: TFIELD; const T: TFIELDNOTIFYEVENT);
|
procedure TFIELDONVALIDATE_W(Self: TFIELD; const T: TFIELDNOTIFYEVENT);
|
||||||
@ -851,10 +869,10 @@ begin Self.PROVIDERFLAGS := T; end;
|
|||||||
procedure TFIELDPROVIDERFLAGS_R(Self: TFIELD; var T: TPROVIDERFLAGS);
|
procedure TFIELDPROVIDERFLAGS_R(Self: TFIELD; var T: TPROVIDERFLAGS);
|
||||||
begin T := Self.PROVIDERFLAGS; end;
|
begin T := Self.PROVIDERFLAGS; end;
|
||||||
|
|
||||||
procedure TFIELDORIGIN_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDORIGIN_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.ORIGIN := T; end;
|
begin Self.ORIGIN := T; end;
|
||||||
|
|
||||||
procedure TFIELDORIGIN_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDORIGIN_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.ORIGIN; end;
|
begin T := Self.ORIGIN; end;
|
||||||
|
|
||||||
procedure TFIELDLOOKUPCACHE_W(Self: TFIELD; const T: BOOLEAN);
|
procedure TFIELDLOOKUPCACHE_W(Self: TFIELD; const T: BOOLEAN);
|
||||||
@ -863,22 +881,22 @@ begin Self.LOOKUPCACHE := T; end;
|
|||||||
procedure TFIELDLOOKUPCACHE_R(Self: TFIELD; var T: BOOLEAN);
|
procedure TFIELDLOOKUPCACHE_R(Self: TFIELD; var T: BOOLEAN);
|
||||||
begin T := Self.LOOKUPCACHE; end;
|
begin T := Self.LOOKUPCACHE; end;
|
||||||
|
|
||||||
procedure TFIELDKEYFIELDS_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDKEYFIELDS_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.KEYFIELDS := T; end;
|
begin Self.KEYFIELDS := T; end;
|
||||||
|
|
||||||
procedure TFIELDKEYFIELDS_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDKEYFIELDS_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.KEYFIELDS; end;
|
begin T := Self.KEYFIELDS; end;
|
||||||
|
|
||||||
procedure TFIELDLOOKUPRESULTFIELD_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDLOOKUPRESULTFIELD_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.LOOKUPRESULTFIELD := T; end;
|
begin Self.LOOKUPRESULTFIELD := T; end;
|
||||||
|
|
||||||
procedure TFIELDLOOKUPRESULTFIELD_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDLOOKUPRESULTFIELD_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.LOOKUPRESULTFIELD; end;
|
begin T := Self.LOOKUPRESULTFIELD; end;
|
||||||
|
|
||||||
procedure TFIELDLOOKUPKEYFIELDS_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDLOOKUPKEYFIELDS_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.LOOKUPKEYFIELDS := T; end;
|
begin Self.LOOKUPKEYFIELDS := T; end;
|
||||||
|
|
||||||
procedure TFIELDLOOKUPKEYFIELDS_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDLOOKUPKEYFIELDS_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.LOOKUPKEYFIELDS; end;
|
begin T := Self.LOOKUPKEYFIELDS; end;
|
||||||
|
|
||||||
procedure TFIELDLOOKUPDATASET_W(Self: TFIELD; const T: TDATASET);
|
procedure TFIELDLOOKUPDATASET_W(Self: TFIELD; const T: TDATASET);
|
||||||
@ -887,10 +905,10 @@ begin Self.LOOKUPDATASET := T; end;
|
|||||||
procedure TFIELDLOOKUPDATASET_R(Self: TFIELD; var T: TDATASET);
|
procedure TFIELDLOOKUPDATASET_R(Self: TFIELD; var T: TDATASET);
|
||||||
begin T := Self.LOOKUPDATASET; end;
|
begin T := Self.LOOKUPDATASET; end;
|
||||||
|
|
||||||
procedure TFIELDIMPORTEDCONSTRAINT_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDIMPORTEDCONSTRAINT_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.IMPORTEDCONSTRAINT := T; end;
|
begin Self.IMPORTEDCONSTRAINT := T; end;
|
||||||
|
|
||||||
procedure TFIELDIMPORTEDCONSTRAINT_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDIMPORTEDCONSTRAINT_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.IMPORTEDCONSTRAINT; end;
|
begin T := Self.IMPORTEDCONSTRAINT; end;
|
||||||
|
|
||||||
procedure TFIELDINDEX_W(Self: TFIELD; const T: INTEGER);
|
procedure TFIELDINDEX_W(Self: TFIELD; const T: INTEGER);
|
||||||
@ -902,10 +920,10 @@ begin T := Self.INDEX; end;
|
|||||||
procedure TFIELDHASCONSTRAINTS_R(Self: TFIELD; var T: BOOLEAN);
|
procedure TFIELDHASCONSTRAINTS_R(Self: TFIELD; var T: BOOLEAN);
|
||||||
begin T := Self.HASCONSTRAINTS; end;
|
begin T := Self.HASCONSTRAINTS; end;
|
||||||
|
|
||||||
procedure TFIELDFIELDNAME_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDFIELDNAME_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.FIELDNAME := T; end;
|
begin Self.FIELDNAME := T; end;
|
||||||
|
|
||||||
procedure TFIELDFIELDNAME_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDFIELDNAME_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.FIELDNAME; end;
|
begin T := Self.FIELDNAME; end;
|
||||||
|
|
||||||
procedure TFIELDFIELDKIND_W(Self: TFIELD; const T: TFIELDKIND);
|
procedure TFIELDFIELDKIND_W(Self: TFIELD; const T: TFIELDKIND);
|
||||||
@ -920,28 +938,28 @@ begin Self.DISPLAYWIDTH := T; end;
|
|||||||
procedure TFIELDDISPLAYWIDTH_R(Self: TFIELD; var T: INTEGER);
|
procedure TFIELDDISPLAYWIDTH_R(Self: TFIELD; var T: INTEGER);
|
||||||
begin T := Self.DISPLAYWIDTH; end;
|
begin T := Self.DISPLAYWIDTH; end;
|
||||||
|
|
||||||
procedure TFIELDDISPLAYLABEL_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDDISPLAYLABEL_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.DISPLAYLABEL := T; end;
|
begin Self.DISPLAYLABEL := T; end;
|
||||||
|
|
||||||
procedure TFIELDDISPLAYLABEL_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDDISPLAYLABEL_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.DISPLAYLABEL; end;
|
begin T := Self.DISPLAYLABEL; end;
|
||||||
|
|
||||||
procedure TFIELDDEFAULTEXPRESSION_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDDEFAULTEXPRESSION_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.DEFAULTEXPRESSION := T; end;
|
begin Self.DEFAULTEXPRESSION := T; end;
|
||||||
|
|
||||||
procedure TFIELDDEFAULTEXPRESSION_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDDEFAULTEXPRESSION_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.DEFAULTEXPRESSION; end;
|
begin T := Self.DEFAULTEXPRESSION; end;
|
||||||
|
|
||||||
procedure TFIELDCONSTRAINTERRORMESSAGE_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDCONSTRAINTERRORMESSAGE_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.CONSTRAINTERRORMESSAGE := T; end;
|
begin Self.CONSTRAINTERRORMESSAGE := T; end;
|
||||||
|
|
||||||
procedure TFIELDCONSTRAINTERRORMESSAGE_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDCONSTRAINTERRORMESSAGE_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.CONSTRAINTERRORMESSAGE; end;
|
begin T := Self.CONSTRAINTERRORMESSAGE; end;
|
||||||
|
|
||||||
procedure TFIELDCUSTOMCONSTRAINT_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDCUSTOMCONSTRAINT_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.CUSTOMCONSTRAINT := T; end;
|
begin Self.CUSTOMCONSTRAINT := T; end;
|
||||||
|
|
||||||
procedure TFIELDCUSTOMCONSTRAINT_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDCUSTOMCONSTRAINT_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.CUSTOMCONSTRAINT; end;
|
begin T := Self.CUSTOMCONSTRAINT; end;
|
||||||
|
|
||||||
{$IFNDEF FPC}
|
{$IFNDEF FPC}
|
||||||
@ -980,10 +998,10 @@ begin Self.VALUE := T; end;
|
|||||||
procedure TFIELDVALUE_R(Self: TFIELD; var T: VARIANT);
|
procedure TFIELDVALUE_R(Self: TFIELD; var T: VARIANT);
|
||||||
begin T := Self.VALUE; end;
|
begin T := Self.VALUE; end;
|
||||||
|
|
||||||
procedure TFIELDTEXT_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDTEXT_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.TEXT := T; end;
|
begin Self.TEXT := T; end;
|
||||||
|
|
||||||
procedure TFIELDTEXT_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDTEXT_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.TEXT; end;
|
begin T := Self.TEXT; end;
|
||||||
|
|
||||||
procedure TFIELDSIZE_W(Self: TFIELD; const T: INTEGER);
|
procedure TFIELDSIZE_W(Self: TFIELD; const T: INTEGER);
|
||||||
@ -1014,17 +1032,17 @@ begin Self.LOOKUP := T; end;
|
|||||||
procedure TFIELDLOOKUP_R(Self: TFIELD; var T: BOOLEAN);
|
procedure TFIELDLOOKUP_R(Self: TFIELD; var T: BOOLEAN);
|
||||||
begin T := Self.LOOKUP; end;
|
begin T := Self.LOOKUP; end;
|
||||||
|
|
||||||
procedure TFIELDFULLNAME_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDFULLNAME_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.FULLNAME; end;
|
begin T := Self.FULLNAME; end;
|
||||||
|
|
||||||
|
|
||||||
procedure TFIELDEDITMASKPTR_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDEDITMASKPTR_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.EDITMASKPTR; end;
|
begin T := Self.EDITMASKPTR; end;
|
||||||
|
|
||||||
procedure TFIELDEDITMASK_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDEDITMASK_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.EDITMASK := T; end;
|
begin Self.EDITMASK := T; end;
|
||||||
|
|
||||||
procedure TFIELDEDITMASK_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDEDITMASK_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.EDITMASK; end;
|
begin T := Self.EDITMASK; end;
|
||||||
|
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
@ -1040,10 +1058,10 @@ begin T := Self.FIELDNO; end;
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
procedure TFIELDDISPLAYTEXT_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDDISPLAYTEXT_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.DISPLAYTEXT; end;
|
begin T := Self.DISPLAYTEXT; end;
|
||||||
|
|
||||||
procedure TFIELDDISPLAYNAME_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDDISPLAYNAME_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.DISPLAYNAME; end;
|
begin T := Self.DISPLAYNAME; end;
|
||||||
|
|
||||||
procedure TFIELDDATATYPE_R(Self: TFIELD; var T: TFIELDTYPE);
|
procedure TFIELDDATATYPE_R(Self: TFIELD; var T: TFIELDTYPE);
|
||||||
@ -1070,10 +1088,10 @@ begin Self.CALCULATED := T; end;
|
|||||||
procedure TFIELDCALCULATED_R(Self: TFIELD; var T: BOOLEAN);
|
procedure TFIELDCALCULATED_R(Self: TFIELD; var T: BOOLEAN);
|
||||||
begin T := Self.CALCULATED; end;
|
begin T := Self.CALCULATED; end;
|
||||||
|
|
||||||
procedure TFIELDATTRIBUTESET_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDATTRIBUTESET_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.ATTRIBUTESET := T; end;
|
begin Self.ATTRIBUTESET := T; end;
|
||||||
|
|
||||||
procedure TFIELDATTRIBUTESET_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDATTRIBUTESET_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.ATTRIBUTESET; end;
|
begin T := Self.ATTRIBUTESET; end;
|
||||||
|
|
||||||
procedure TFIELDASVARIANT_W(Self: TFIELD; const T: VARIANT);
|
procedure TFIELDASVARIANT_W(Self: TFIELD; const T: VARIANT);
|
||||||
@ -1082,10 +1100,10 @@ begin Self.ASVARIANT := T; end;
|
|||||||
procedure TFIELDASVARIANT_R(Self: TFIELD; var T: VARIANT);
|
procedure TFIELDASVARIANT_R(Self: TFIELD; var T: VARIANT);
|
||||||
begin T := Self.ASVARIANT; end;
|
begin T := Self.ASVARIANT; end;
|
||||||
|
|
||||||
procedure TFIELDASSTRING_W(Self: TFIELD; const T: STRING);
|
procedure TFIELDASSTRING_W(Self: TFIELD; const T: tbtstring);
|
||||||
begin Self.ASSTRING := T; end;
|
begin Self.ASSTRING := T; end;
|
||||||
|
|
||||||
procedure TFIELDASSTRING_R(Self: TFIELD; var T: STRING);
|
procedure TFIELDASSTRING_R(Self: TFIELD; var T: tbtstring);
|
||||||
begin T := Self.ASSTRING; end;
|
begin T := Self.ASSTRING; end;
|
||||||
|
|
||||||
procedure TFIELDASINTEGER_W(Self: TFIELD; const T: LONGINT);
|
procedure TFIELDASINTEGER_W(Self: TFIELD; const T: LONGINT);
|
||||||
@ -1164,10 +1182,10 @@ begin Self.ITEMS[t1] := T; end;
|
|||||||
procedure TINDEXDEFSITEMS_R(Self: TINDEXDEFS; var T: TINDEXDEF; const t1: INTEGER);
|
procedure TINDEXDEFSITEMS_R(Self: TINDEXDEFS; var T: TINDEXDEF; const t1: INTEGER);
|
||||||
begin T := Self.ITEMS[t1]; end;
|
begin T := Self.ITEMS[t1]; end;
|
||||||
|
|
||||||
procedure TINDEXDEFSOURCE_W(Self: TINDEXDEF; const T: STRING);
|
procedure TINDEXDEFSOURCE_W(Self: TINDEXDEF; const T: tbtstring);
|
||||||
begin Self.SOURCE := T; end;
|
begin Self.SOURCE := T; end;
|
||||||
|
|
||||||
procedure TINDEXDEFSOURCE_R(Self: TINDEXDEF; var T: STRING);
|
procedure TINDEXDEFSOURCE_R(Self: TINDEXDEF; var T: tbtstring);
|
||||||
begin T := Self.SOURCE; end;
|
begin T := Self.SOURCE; end;
|
||||||
|
|
||||||
procedure TINDEXDEFOPTIONS_W(Self: TINDEXDEF; const T: TINDEXOPTIONS);
|
procedure TINDEXDEFOPTIONS_W(Self: TINDEXDEF; const T: TINDEXOPTIONS);
|
||||||
@ -1176,33 +1194,33 @@ begin Self.OPTIONS := T; end;
|
|||||||
procedure TINDEXDEFOPTIONS_R(Self: TINDEXDEF; var T: TINDEXOPTIONS);
|
procedure TINDEXDEFOPTIONS_R(Self: TINDEXDEF; var T: TINDEXOPTIONS);
|
||||||
begin T := Self.OPTIONS; end;
|
begin T := Self.OPTIONS; end;
|
||||||
|
|
||||||
procedure TINDEXDEFFIELDS_W(Self: TINDEXDEF; const T: STRING);
|
procedure TINDEXDEFFIELDS_W(Self: TINDEXDEF; const T: tbtstring);
|
||||||
begin Self.FIELDS := T; end;
|
begin Self.FIELDS := T; end;
|
||||||
|
|
||||||
procedure TINDEXDEFFIELDS_R(Self: TINDEXDEF; var T: STRING);
|
procedure TINDEXDEFFIELDS_R(Self: TINDEXDEF; var T: tbtstring);
|
||||||
begin T := Self.FIELDS; end;
|
begin T := Self.FIELDS; end;
|
||||||
|
|
||||||
procedure TINDEXDEFEXPRESSION_W(Self: TINDEXDEF; const T: STRING);
|
procedure TINDEXDEFEXPRESSION_W(Self: TINDEXDEF; const T: tbtstring);
|
||||||
begin {$IFNDEF FPC}Self.EXPRESSION := T; {$ENDIF}end;
|
begin {$IFNDEF FPC}Self.EXPRESSION := T; {$ENDIF}end;
|
||||||
|
|
||||||
procedure TINDEXDEFEXPRESSION_R(Self: TINDEXDEF; var T: STRING);
|
procedure TINDEXDEFEXPRESSION_R(Self: TINDEXDEF; var T: tbtstring);
|
||||||
begin T := Self.EXPRESSION; end;
|
begin T := Self.EXPRESSION; end;
|
||||||
|
|
||||||
{$IFNDEF FPC}
|
{$IFNDEF FPC}
|
||||||
procedure TINDEXDEFDESCFIELDS_W(Self: TINDEXDEF; const T: STRING);
|
procedure TINDEXDEFDESCFIELDS_W(Self: TINDEXDEF; const T: tbtstring);
|
||||||
begin Self.DESCFIELDS := T; end;
|
begin Self.DESCFIELDS := T; end;
|
||||||
|
|
||||||
procedure TINDEXDEFDESCFIELDS_R(Self: TINDEXDEF; var T: STRING);
|
procedure TINDEXDEFDESCFIELDS_R(Self: TINDEXDEF; var T: tbtstring);
|
||||||
begin T := Self.DESCFIELDS; end;
|
begin T := Self.DESCFIELDS; end;
|
||||||
|
|
||||||
procedure TINDEXDEFCASEINSFIELDS_W(Self: TINDEXDEF; const T: STRING);
|
procedure TINDEXDEFCASEINSFIELDS_W(Self: TINDEXDEF; const T: tbtstring);
|
||||||
begin Self.CASEINSFIELDS := T; end;
|
begin Self.CASEINSFIELDS := T; end;
|
||||||
|
|
||||||
procedure TINDEXDEFCASEINSFIELDS_R(Self: TINDEXDEF; var T: STRING);
|
procedure TINDEXDEFCASEINSFIELDS_R(Self: TINDEXDEF; var T: tbtstring);
|
||||||
begin T := Self.CASEINSFIELDS; end;
|
begin T := Self.CASEINSFIELDS; end;
|
||||||
|
|
||||||
|
|
||||||
procedure TINDEXDEFFIELDEXPRESSION_R(Self: TINDEXDEF; var T: STRING);
|
procedure TINDEXDEFFIELDEXPRESSION_R(Self: TINDEXDEF; var T: tbtstring);
|
||||||
begin T := Self.FIELDEXPRESSION; end;
|
begin T := Self.FIELDEXPRESSION; end;
|
||||||
|
|
||||||
procedure TFIELDDEFSPARENTDEF_R(Self: TFIELDDEFS; var T: TFIELDDEF);
|
procedure TFIELDDEFSPARENTDEF_R(Self: TFIELDDEFS; var T: TFIELDDEF);
|
||||||
@ -1283,10 +1301,10 @@ begin T := Self.UPDATED; end;
|
|||||||
procedure TDEFCOLLECTIONDATASET_R(Self: TDEFCOLLECTION; var T: TDATASET);
|
procedure TDEFCOLLECTIONDATASET_R(Self: TDEFCOLLECTION; var T: TDATASET);
|
||||||
begin T := Self.DATASET; end;
|
begin T := Self.DATASET; end;
|
||||||
|
|
||||||
procedure TNAMEDITEMNAME_W(Self: TNAMEDITEM; const T: STRING);
|
procedure TNAMEDITEMNAME_W(Self: TNAMEDITEM; const T: tbtstring);
|
||||||
begin Self.NAME := T; end;
|
begin Self.NAME := T; end;
|
||||||
|
|
||||||
procedure TNAMEDITEMNAME_R(Self: TNAMEDITEM; var T: STRING);
|
procedure TNAMEDITEMNAME_R(Self: TNAMEDITEM; var T: tbtstring);
|
||||||
begin T := Self.NAME; end;
|
begin T := Self.NAME; end;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -4,6 +4,7 @@ unit uPSUtils;
|
|||||||
interface
|
interface
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils;
|
Classes, SysUtils;
|
||||||
|
|
||||||
const
|
const
|
||||||
|
|
||||||
PSMainProcName = '!MAIN';
|
PSMainProcName = '!MAIN';
|
||||||
@ -22,6 +23,7 @@ const
|
|||||||
|
|
||||||
PSAddrNegativeStackStart = 1073741824;
|
PSAddrNegativeStackStart = 1073741824;
|
||||||
type
|
type
|
||||||
|
TbtString = {$IFDEF DELPHI2008UP}RawByteString{$ELSE}String{$ENDIF};
|
||||||
|
|
||||||
TPSBaseType = Byte;
|
TPSBaseType = Byte;
|
||||||
|
|
||||||
@ -95,7 +97,7 @@ const
|
|||||||
|
|
||||||
btExtClass = 131;
|
btExtClass = 131;
|
||||||
|
|
||||||
function MakeHash(const s: string): Longint;
|
function MakeHash(const s: TbtString): Longint;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Script internal command: Assign command<br>
|
{ Script internal command: Assign command<br>
|
||||||
@ -297,13 +299,12 @@ type
|
|||||||
|
|
||||||
tbtCurrency = Currency;
|
tbtCurrency = Currency;
|
||||||
|
|
||||||
TbtString = string;
|
|
||||||
{$IFNDEF PS_NOINT64}
|
{$IFNDEF PS_NOINT64}
|
||||||
|
|
||||||
tbts64 = int64;
|
tbts64 = int64;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
tbtchar = char;
|
tbtchar = {$IFDEF DELPHI4UP}AnsiChar{$ELSE}CHAR{$ENDIF};
|
||||||
{$IFNDEF PS_NOWIDESTRING}
|
{$IFNDEF PS_NOWIDESTRING}
|
||||||
|
|
||||||
tbtwidestring = widestring;
|
tbtwidestring = widestring;
|
||||||
@ -373,16 +374,16 @@ type
|
|||||||
TPSStringList = class(TObject)
|
TPSStringList = class(TObject)
|
||||||
private
|
private
|
||||||
List: TPSList;
|
List: TPSList;
|
||||||
function GetItem(Nr: LongInt): string;
|
function GetItem(Nr: LongInt): TbtString;
|
||||||
procedure SetItem(Nr: LongInt; const s: string);
|
procedure SetItem(Nr: LongInt; const s: TbtString);
|
||||||
public
|
public
|
||||||
|
|
||||||
function Count: LongInt;
|
function Count: LongInt;
|
||||||
|
|
||||||
property Items[Nr: Longint]: string read GetItem write SetItem; default;
|
property Items[Nr: Longint]: TbtString read GetItem write SetItem; default;
|
||||||
|
|
||||||
|
|
||||||
procedure Add(const P: string);
|
procedure Add(const P: TbtString);
|
||||||
|
|
||||||
procedure Delete(NR: LongInt);
|
procedure Delete(NR: LongInt);
|
||||||
|
|
||||||
@ -511,12 +512,12 @@ type
|
|||||||
|
|
||||||
TPSPascalParser = class(TObject)
|
TPSPascalParser = class(TObject)
|
||||||
protected
|
protected
|
||||||
FData: string;
|
FData: TbtString;
|
||||||
FText: PChar;
|
FText: {$IFDEF DELPHI4UP}PAnsiChar{$ELSE}PChar{$ENDIF};
|
||||||
FLastEnterPos, FRow, FRealPosition, FTokenLength: Cardinal;
|
FLastEnterPos, FRow, FRealPosition, FTokenLength: Cardinal;
|
||||||
FTokenId: TPSPasToken;
|
FTokenId: TPSPasToken;
|
||||||
FToken: string;
|
FToken: TbtString;
|
||||||
FOriginalToken: string;
|
FOriginalToken: TbtString;
|
||||||
FParserError: TPSParserErrorEvent;
|
FParserError: TPSParserErrorEvent;
|
||||||
FEnableComments: Boolean;
|
FEnableComments: Boolean;
|
||||||
FEnableWhitespaces: Boolean;
|
FEnableWhitespaces: Boolean;
|
||||||
@ -530,9 +531,9 @@ type
|
|||||||
|
|
||||||
procedure Next; virtual;
|
procedure Next; virtual;
|
||||||
|
|
||||||
property GetToken: string read FToken;
|
property GetToken: TbtString read FToken;
|
||||||
|
|
||||||
property OriginalToken: string read FOriginalToken;
|
property OriginalToken: TbtString read FOriginalToken;
|
||||||
|
|
||||||
property CurrTokenPos: Cardinal read FRealPosition;
|
property CurrTokenPos: Cardinal read FRealPosition;
|
||||||
|
|
||||||
@ -542,28 +543,28 @@ type
|
|||||||
|
|
||||||
property Col: Cardinal read GetCol;
|
property Col: Cardinal read GetCol;
|
||||||
|
|
||||||
procedure SetText(const Data: string); virtual;
|
procedure SetText(const Data: TbtString); virtual;
|
||||||
|
|
||||||
property OnParserError: TPSParserErrorEvent read FParserError write FParserError;
|
property OnParserError: TPSParserErrorEvent read FParserError write FParserError;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function FloatToStr(E: Extended): string;
|
function FloatToStr(E: Extended): TbtString;
|
||||||
|
|
||||||
function FastLowerCase(const s: String): string;
|
function FastLowerCase(const s: TbtString): TbtString;
|
||||||
|
|
||||||
function Fw(const S: string): string;
|
function Fw(const S: TbtString): TbtString;
|
||||||
|
|
||||||
function IntToStr(I: LongInt): string;
|
function IntToStr(I: LongInt): TbtString;
|
||||||
|
|
||||||
function StrToIntDef(const S: string; Def: LongInt): LongInt;
|
function StrToIntDef(const S: TbtString; Def: LongInt): LongInt;
|
||||||
|
|
||||||
function StrToInt(const S: string): LongInt;
|
function StrToInt(const S: TbtString): LongInt;
|
||||||
function StrToFloat(const s: string): Extended;
|
function StrToFloat(const s: TbtString): Extended;
|
||||||
|
|
||||||
function FastUpperCase(const s: String): string;
|
function FastUpperCase(const s: TbtString): TbtString;
|
||||||
|
|
||||||
function GRFW(var s: string): string;
|
function GRFW(var s: TbtString): TbtString;
|
||||||
function GRLW(var s: string): string;
|
function GRLW(var s: TbtString): TbtString;
|
||||||
|
|
||||||
const
|
const
|
||||||
|
|
||||||
@ -583,7 +584,7 @@ const
|
|||||||
{$ENDIF }
|
{$ENDIF }
|
||||||
RPS_InvalidFloat = 'Invalid float';
|
RPS_InvalidFloat = 'Invalid float';
|
||||||
|
|
||||||
function MakeHash(const s: string): Longint;
|
function MakeHash(const s: TbtString): Longint;
|
||||||
{small hash maker}
|
{small hash maker}
|
||||||
var
|
var
|
||||||
I: Integer;
|
I: Integer;
|
||||||
@ -593,7 +594,7 @@ begin
|
|||||||
Result := ((Result shl 7) or (Result shr 25)) + Ord(s[I]);
|
Result := ((Result shl 7) or (Result shr 25)) + Ord(s[I]);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function GRFW(var s: string): string;
|
function GRFW(var s: TbtString): TbtString;
|
||||||
var
|
var
|
||||||
l: Longint;
|
l: Longint;
|
||||||
begin
|
begin
|
||||||
@ -612,7 +613,7 @@ begin
|
|||||||
s := '';
|
s := '';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function GRLW(var s: string): string;
|
function GRLW(var s: TbtString): TbtString;
|
||||||
var
|
var
|
||||||
l: Longint;
|
l: Longint;
|
||||||
begin
|
begin
|
||||||
@ -631,38 +632,38 @@ begin
|
|||||||
s := '';
|
s := '';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function StrToFloat(const s: string): Extended;
|
function StrToFloat(const s: TbtString): Extended;
|
||||||
var
|
var
|
||||||
i: longint;
|
i: longint;
|
||||||
begin
|
begin
|
||||||
Val(s, Result, i);
|
Val(string(s), Result, i);
|
||||||
if i <> 0 then raise Exception.Create(RPS_InvalidFloat);
|
if i <> 0 then raise Exception.Create(RPS_InvalidFloat);
|
||||||
end;
|
end;
|
||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
function IntToStr(I: LongInt): string;
|
function IntToStr(I: LongInt): TbtString;
|
||||||
var
|
var
|
||||||
s: string;
|
s: tbtstring;
|
||||||
begin
|
begin
|
||||||
Str(i, s);
|
Str(i, s);
|
||||||
IntToStr := s;
|
IntToStr := s;
|
||||||
end;
|
end;
|
||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
function FloatToStr(E: Extended): string;
|
function FloatToStr(E: Extended): TbtString;
|
||||||
var
|
var
|
||||||
s: string;
|
s: tbtstring;
|
||||||
begin
|
begin
|
||||||
Str(e:0:12, s);
|
Str(e:0:12, s);
|
||||||
result := s;
|
result := s;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function StrToInt(const S: string): LongInt;
|
function StrToInt(const S: TbtString): LongInt;
|
||||||
var
|
var
|
||||||
e: Integer;
|
e: Integer;
|
||||||
Res: LongInt;
|
Res: LongInt;
|
||||||
begin
|
begin
|
||||||
Val(S, Res, e);
|
Val(string(S), Res, e);
|
||||||
if e <> 0 then
|
if e <> 0 then
|
||||||
StrToInt := -1
|
StrToInt := -1
|
||||||
else
|
else
|
||||||
@ -670,12 +671,12 @@ begin
|
|||||||
end;
|
end;
|
||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
function StrToIntDef(const S: string; Def: LongInt): LongInt;
|
function StrToIntDef(const S: TbtString; Def: LongInt): LongInt;
|
||||||
var
|
var
|
||||||
e: Integer;
|
e: Integer;
|
||||||
Res: LongInt;
|
Res: LongInt;
|
||||||
begin
|
begin
|
||||||
Val(S, Res, e);
|
Val(string(S), Res, e);
|
||||||
if e <> 0 then
|
if e <> 0 then
|
||||||
StrToIntDef := Def
|
StrToIntDef := Def
|
||||||
else
|
else
|
||||||
@ -853,11 +854,11 @@ function TPSStringList.Count: LongInt;
|
|||||||
begin
|
begin
|
||||||
count := List.count;
|
count := List.count;
|
||||||
end;
|
end;
|
||||||
type pStr = ^string;
|
type pStr = ^TbtString;
|
||||||
|
|
||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
function TPSStringList.GetItem(Nr: LongInt): string;
|
function TPSStringList.GetItem(Nr: LongInt): TbtString;
|
||||||
var
|
var
|
||||||
S: PStr;
|
S: PStr;
|
||||||
begin
|
begin
|
||||||
@ -871,7 +872,7 @@ end;
|
|||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
procedure TPSStringList.SetItem(Nr: LongInt; const s: string);
|
procedure TPSStringList.SetItem(Nr: LongInt; const s: TbtString);
|
||||||
var
|
var
|
||||||
p: PStr;
|
p: PStr;
|
||||||
begin
|
begin
|
||||||
@ -883,7 +884,7 @@ begin
|
|||||||
end;
|
end;
|
||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
procedure TPSStringList.Add(const P: string);
|
procedure TPSStringList.Add(const P: TbtString);
|
||||||
var
|
var
|
||||||
w: PStr;
|
w: PStr;
|
||||||
begin
|
begin
|
||||||
@ -927,21 +928,21 @@ end;
|
|||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
||||||
function Fw(const S: string): string; // First word
|
function Fw(const S: TbtString): TbtString; // First word
|
||||||
var
|
var
|
||||||
x: integer;
|
x: integer;
|
||||||
begin
|
begin
|
||||||
x := pos(' ', s);
|
x := pos(tbtstring(' '), s);
|
||||||
if x > 0
|
if x > 0
|
||||||
then Fw := Copy(S, 1, x - 1)
|
then Fw := Copy(S, 1, x - 1)
|
||||||
else Fw := S;
|
else Fw := S;
|
||||||
end;
|
end;
|
||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
function FastUpperCase(const s: String): string;
|
function FastUpperCase(const s: TbtString): TbtString;
|
||||||
{Fast uppercase}
|
{Fast uppercase}
|
||||||
var
|
var
|
||||||
I: Integer;
|
I: Integer;
|
||||||
C: Char;
|
C: tbtChar;
|
||||||
begin
|
begin
|
||||||
Result := S;
|
Result := S;
|
||||||
I := Length(Result);
|
I := Length(Result);
|
||||||
@ -949,15 +950,15 @@ begin
|
|||||||
begin
|
begin
|
||||||
C := Result[I];
|
C := Result[I];
|
||||||
if c in [#97..#122] then
|
if c in [#97..#122] then
|
||||||
Dec(Byte(Result[I]), 32);
|
Result[I] := tbtchar(Ord(Result[I]) -32);
|
||||||
Dec(I);
|
Dec(I);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
function FastLowerCase(const s: String): string;
|
function FastLowerCase(const s: TbtString): TbtString;
|
||||||
{Fast lowercase}
|
{Fast lowercase}
|
||||||
var
|
var
|
||||||
I: Integer;
|
I: Integer;
|
||||||
C: Char;
|
C: tbtChar;
|
||||||
begin
|
begin
|
||||||
Result := S;
|
Result := S;
|
||||||
I := Length(Result);
|
I := Length(Result);
|
||||||
@ -965,7 +966,7 @@ begin
|
|||||||
begin
|
begin
|
||||||
C := Result[I];
|
C := Result[I];
|
||||||
if C in [#65..#90] then
|
if C in [#65..#90] then
|
||||||
Inc(Byte(Result[I]), 32);
|
Result[I] := tbtchar(Ord(Result[I]) + 32);
|
||||||
Dec(I);
|
Dec(I);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
@ -973,7 +974,7 @@ end;
|
|||||||
|
|
||||||
type
|
type
|
||||||
TRTab = record
|
TRTab = record
|
||||||
name: string;
|
name: TbtString;
|
||||||
c: TPSPasToken;
|
c: TPSPasToken;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
@ -1056,11 +1057,11 @@ end;
|
|||||||
procedure TPSPascalParser.Next;
|
procedure TPSPascalParser.Next;
|
||||||
var
|
var
|
||||||
Err: TPSParserErrorKind;
|
Err: TPSParserErrorKind;
|
||||||
FLastUpToken: string;
|
FLastUpToken: TbtString;
|
||||||
function CheckReserved(Const S: ShortString; var CurrTokenId: TPSPasToken): Boolean;
|
function CheckReserved(Const S: ShortString; var CurrTokenId: TPSPasToken): Boolean;
|
||||||
var
|
var
|
||||||
L, H, I: LongInt;
|
L, H, I: LongInt;
|
||||||
J: Char;
|
J: tbtChar;
|
||||||
SName: ShortString;
|
SName: ShortString;
|
||||||
begin
|
begin
|
||||||
L := 0;
|
L := 0;
|
||||||
@ -1092,9 +1093,9 @@ var
|
|||||||
end;
|
end;
|
||||||
//-------------------------------------------------------------------
|
//-------------------------------------------------------------------
|
||||||
|
|
||||||
function _GetToken(CurrTokenPos, CurrTokenLen: Cardinal): string;
|
function _GetToken(CurrTokenPos, CurrTokenLen: Cardinal): TbtString;
|
||||||
var
|
var
|
||||||
s: string;
|
s: tbtString;
|
||||||
begin
|
begin
|
||||||
SetLength(s, CurrTokenLen);
|
SetLength(s, CurrTokenLen);
|
||||||
Move(FText[CurrTokenPos], S[1], CurrtokenLen);
|
Move(FText[CurrTokenPos], S[1], CurrtokenLen);
|
||||||
@ -1106,7 +1107,7 @@ var
|
|||||||
var
|
var
|
||||||
ct, ci: Cardinal;
|
ct, ci: Cardinal;
|
||||||
hs: Boolean;
|
hs: Boolean;
|
||||||
p: PChar;
|
p: {$IFDEF DELPHI4UP}PAnsiChar{$ELSE}PChar{$ENDIF};
|
||||||
begin
|
begin
|
||||||
ParseToken := iNoError;
|
ParseToken := iNoError;
|
||||||
ct := CurrTokenPos;
|
ct := CurrTokenPos;
|
||||||
@ -1125,7 +1126,7 @@ var
|
|||||||
CurrTokenLen := ci - ct;
|
CurrTokenLen := ci - ct;
|
||||||
|
|
||||||
FLastUpToken := _GetToken(CurrTokenPos, CurrtokenLen);
|
FLastUpToken := _GetToken(CurrTokenPos, CurrtokenLen);
|
||||||
p := pchar(FLastUpToken);
|
p := {$IFDEF DELPHI4UP}PAnsiChar{$ELSE}pchar{$ENDIF}(FLastUpToken);
|
||||||
while p^<>#0 do
|
while p^<>#0 do
|
||||||
begin
|
begin
|
||||||
if p^ in [#97..#122] then
|
if p^ in [#97..#122] then
|
||||||
@ -1511,7 +1512,7 @@ begin
|
|||||||
until False;
|
until False;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPSPascalParser.SetText(const Data: string);
|
procedure TPSPascalParser.SetText(const Data: TbtString);
|
||||||
begin
|
begin
|
||||||
FData := Data;
|
FData := Data;
|
||||||
FText := Pointer(FData);
|
FText := Pointer(FData);
|
||||||
|
|||||||
@ -271,7 +271,7 @@ var
|
|||||||
var
|
var
|
||||||
varPtr: Pointer;
|
varPtr: Pointer;
|
||||||
UseReg: Boolean;
|
UseReg: Boolean;
|
||||||
tempstr: string;
|
tempstr: tbtstring;
|
||||||
p: Pointer;
|
p: Pointer;
|
||||||
begin
|
begin
|
||||||
Result := False;
|
Result := False;
|
||||||
@ -419,7 +419,7 @@ var
|
|||||||
btChar,
|
btChar,
|
||||||
btU8,
|
btU8,
|
||||||
btS8: begin
|
btS8: begin
|
||||||
TempStr := char(fVar^.dta^) + #0#0#0;
|
TempStr := tbtchar(fVar^.dta^) + tbtstring(#0#0#0);
|
||||||
end;
|
end;
|
||||||
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}
|
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}
|
||||||
btu16, btS16: begin
|
btu16, btS16: begin
|
||||||
@ -549,7 +549,7 @@ begin
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
btu32,bts32: tbtu32(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
|
btu32,bts32: tbtu32(res.dta^) := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
|
||||||
btPChar: pchar(res.dta^) := Pchar(RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
|
btPChar: pansichar(res.dta^) := Pansichar(RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
|
||||||
{$IFNDEF PS_NOINT64}bts64:
|
{$IFNDEF PS_NOINT64}bts64:
|
||||||
begin
|
begin
|
||||||
EAX := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
|
EAX := RealCall_Register(Address, EAX, EDX, ECX, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
|
||||||
@ -596,7 +596,7 @@ begin
|
|||||||
btChar, btU8, btS8: tbtu8(res^.Dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
|
btChar, btU8, btS8: tbtu8(res^.Dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
|
||||||
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16: tbtu16(res^.Dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
|
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16: tbtu16(res^.Dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
|
||||||
btClass, btu32, bts32: tbtu32(res^.Dta^):= RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
|
btClass, btu32, bts32: tbtu32(res^.Dta^):= RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
|
||||||
btPChar: TBTSTRING(res^.dta^) := Pchar(RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
|
btPChar: TBTSTRING(res^.dta^) := Pansichar(RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
|
||||||
{$IFNDEF PS_NOINT64}bts64:
|
{$IFNDEF PS_NOINT64}bts64:
|
||||||
begin
|
begin
|
||||||
EAX := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
|
EAX := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
|
||||||
@ -645,7 +645,7 @@ begin
|
|||||||
btCHar, btU8, btS8: tbtu8(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
|
btCHar, btU8, btS8: tbtu8(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
|
||||||
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16: tbtu16(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
|
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16: tbtu16(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
|
||||||
btClass, btu32, bts32: tbtu32(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
|
btClass, btu32, bts32: tbtu32(res^.dta^) := RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
|
||||||
btPChar: TBTSTRING(res^.dta^) := Pchar(RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
|
btPChar: TBTSTRING(res^.dta^) := Pansichar(RealCall_Cdecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
|
||||||
{$IFNDEF PS_NOINT64}bts64:
|
{$IFNDEF PS_NOINT64}bts64:
|
||||||
begin
|
begin
|
||||||
EAX := RealCall_CDecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
|
EAX := RealCall_CDecl(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
|
||||||
@ -680,7 +680,7 @@ begin
|
|||||||
btChar, btU8, btS8: tbtu8(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
|
btChar, btU8, btS8: tbtu8(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 1, nil);
|
||||||
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16: tbtu16(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
|
{$IFNDEF PS_NOWIDESTRING}btWideChar, {$ENDIF}btu16, bts16: tbtu16(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 2, nil);
|
||||||
btclass, btu32, bts32: tbtu32(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
|
btclass, btu32, bts32: tbtu32(res^.dta^) := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil);
|
||||||
btPChar: TBTSTRING(res^.dta^) := Pchar(RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
|
btPChar: TBTSTRING(res^.dta^) := Pansichar(RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, nil));
|
||||||
{$IFNDEF PS_NOINT64}bts64:
|
{$IFNDEF PS_NOINT64}bts64:
|
||||||
begin
|
begin
|
||||||
EAX := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
|
EAX := RealCall_Other(Address, @Stack[Length(Stack)-3], Length(Stack) div 4, 4, @EDX);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user