60 lines
1.4 KiB
ObjectPascal
60 lines
1.4 KiB
ObjectPascal
unit RuntimeBuilder.Fasm;
|
|
|
|
interface
|
|
|
|
uses RuntimeBuilder.Types;
|
|
|
|
|
|
type
|
|
{TRTBFasmFunc=class(TRTBFunc)
|
|
public
|
|
function Call(args:array of const;CallType:TRTBCallType=CRTBCallTypeDefault):Variant;override;
|
|
end;}
|
|
|
|
{TRTBLib=class abstract
|
|
private
|
|
function GetFuntion(Name:string):TRTBFunc;virtual;abstract;
|
|
public
|
|
property Funtion[Name:string]:TRTBFunc read GetFuntion;
|
|
end;}
|
|
|
|
TRTBFasmCompliter=class(TRTBCompliter)
|
|
private type
|
|
TRTBSource=class abstract
|
|
private
|
|
FText:string;;
|
|
function GetText:string;
|
|
procedure SetText(S:string);
|
|
public
|
|
constructor Create();
|
|
//procedure CompleteAsLib:TRTBLib;virtual;abstract;
|
|
//procedure CompleteAsFunc:TRTBLib;virtual;abstract;
|
|
end;
|
|
public
|
|
//function LoadLib(Name:string):TRTBLib;
|
|
function GenNewSrc():TRTBFasmSource;override;
|
|
//function CompleteFunc(Source:TRTBSource;args:array of const):TRTBFunc;virtual;abstract;
|
|
//function CompleteLib(Source:TRTBSource;args:array of const):TRTBLib;virtual;abstract;
|
|
end;
|
|
|
|
implementation
|
|
|
|
constructor TRTBFasmCompliter.TRTBSource.Create();
|
|
begin
|
|
FText:='';
|
|
end;
|
|
|
|
function GTRTBFasmCompliter.TRTBSource.etText:string;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TRTBFasmCompliter.TRTBSource.SetText(S:string);
|
|
|
|
function TRTBFasmCompliter.GenNewSrc():TRTBSource;
|
|
begin
|
|
Result:=;
|
|
end;
|
|
|
|
end.
|