diff --git a/Source/RuntimeBuilder.Fasm.pas b/Source/RuntimeBuilder.Fasm.pas new file mode 100644 index 0000000..a9a1499 --- /dev/null +++ b/Source/RuntimeBuilder.Fasm.pas @@ -0,0 +1,59 @@ +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.