Добавить 'Source/RuntimeBuilder.Fasm.pas'

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.