Changeset 65

Timestamp:

Oct 9, 2024, 9:14:47 PM (12 days ago)

Author:

chronos

Message:

• Added: File system file read.
• Added: AppCode can process commands with single parameter.

Location:

branches/Independent

Files:

• . (modified) (1 prop)
• Api.pas (modified) (1 diff)
• Apps.pas (modified) (3 diffs)
• FileSystem (added)
• FileSystem/Code.exe (added)
• FormMain.lfm (modified) (1 diff)
• FormMain.pas (modified) (3 diffs)
• Independent.lpi (modified) (1 diff)
• Independent.lpr (modified) (1 diff)
• Os.pas (modified) (8 diffs)

branches/Independent/Api.pas

@@ -10 +10 @@
 
   TApi = class
-    procedure PrintHelloWorld; virtual; abstract;
+    procedure WriteLine(Text: string); virtual; abstract;
     procedure RunApp(Name: string); virtual; abstract;
     procedure Sleep(Time: TDateTime); virtual; abstract;

branches/Independent/Apps.pas

@@ -32 +32 @@
 begin
   with Context.Api do begin
-    PrintHelloWorld;
+    WriteLine('Hello World!');
     Sleep(OneSecond);
     RunApp('Code');
@@ -49 +49 @@
   Name := 'Code';
   Code := TStringList.Create;
-  Code.Add('PrintHelloWorld');
 end;
 
@@ -62 +61 @@
   I: Integer;
   Line: string;
+  Command: string;
+  Index: Integer;
 begin
   I := 0;
   while (I >= 0) and (I < Code.Count) do begin
-    Line := Code[I];
+    Line := Code[I].Trim;
     Inc(I);
-    if Line = 'PrintHelloWorld' then Context.Api.PrintHelloWorld;
+    if Line = '' then Continue;
+
+    Index := Pos(' ', Line);
+    if Index > 0 then begin
+      Command := Copy(Line, 1, Index - 1);
+      Delete(Line, 1, Index);
+    end else begin
+      Command := Line;
+      Line := '';
+    end;
+    if Command = 'WriteLine' then Context.Api.WriteLine(Line)
+    else if Command = 'Sleep' then Context.Api.Sleep(StrToInt(Line))
+    else if Command = 'RunApp' then Context.Api.RunApp(Line)
+    else raise Exception.Create('Unsupported command ' + Command);
   end;
 end;

branches/Independent/FormMain.lfm

@@ -8 +8 @@
   ClientWidth = 971
   DesignTimePPI = 144
+  OnCreate = FormCreate
   OnShow = FormShow
   LCLVersion = '3.6.0.0'

branches/Independent/FormMain.pas

@@ -12 +12 @@
   TFormName = class(TForm)
     Memo1: TMemo;
+    procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
   private
+    FileSystemDir: string;
     System: TSystem;
     procedure ConsoleWrite(Text: string);
+    function LoadFile(Name: string): string;
   public
 
@@ -33 +36 @@
   System := TSystem.Create;
   System.Console.OnWrite := ConsoleWrite;
+  System.FileSystem.OnLoadFile := LoadFile;
   System.Start;
+end;
+
+procedure TFormName.FormCreate(Sender: TObject);
+begin
+  FileSystemDir := 'FileSystem';
 end;
 
@@ -41 +50 @@
 end;
 
+function TFormName.LoadFile(Name: string): string;
+var
+  F: TFileStream;
+begin
+  F := TFileStream.Create(FileSystemDir + DirectorySeparator + Name, fmOpenRead);
+  try
+    if F.Size > 0 then begin
+      Result := default(string);
+      SetLength(Result, F.Size);
+      F.Read(Result[1], F.Size);
+    end else Result := '';
+  finally
+    F.Free;
+  end;
+end;
+
 end.
 

branches/Independent/Independent.lpi

@@ -95 +95 @@
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="FileSystem.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit>
     </Units>
   </ProjectOptions>

branches/Independent/Independent.lpr

@@ -11 +11 @@
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, FormMain, Os, Apps, Api, Console
+  Forms, FormMain, Os, Apps, Api, Console, FileSystem
   { you can add units after this };
 

branches/Independent/Os.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections, DateUtils, Api, Console;
+  Classes, SysUtils, Generics.Collections, DateUtils, Api, Console, FileSystem;
 
 type
@@ -44 +44 @@
   private
     FName: string;
-    procedure PrintHelloWorldSync;
+    FText: string;
+    procedure WriteLineSync;
     procedure RunAppSync;
   public
     App: TRunningApp;
     System: TSystem;
-    procedure PrintHelloWorld; override;
+    procedure WriteLine(Text: string); override;
     procedure RunApp(Name: string); override;
     procedure Sleep(Time: TDateTime); override;
@@ -58 +59 @@
   TSystem = class
     Console: TConsole;
+    FileSystem: TFileSystem;
     Apps: TApps;
     RunningApps: TRunningApps;
@@ -124 +126 @@
 { TSystemApi }
 
-procedure TSystemApi.PrintHelloWorldSync;
-begin
-  System.Console.Write(App.App.Name + ': Hello world!');
+procedure TSystemApi.WriteLineSync;
+begin
+  System.Console.Write(App.App.Name + ': ' + FText);
 end;
 
@@ -134 +136 @@
 end;
 
-procedure TSystemApi.PrintHelloWorld;
-begin
-  App.AppThread.Synchronize(PrintHelloWorldSync);
+procedure TSystemApi.WriteLine(Text: string);
+begin
+  FText := Text;
+  App.AppThread.Synchronize(WriteLineSync);
 end;
 
@@ -165 +168 @@
 
 procedure TSystem.Start;
-begin
+var
+  AppCode: TAppCode;
+begin
+  Apps.AddNew(TAppTest);
+  AppCode := TAppCode(Apps.AddNew(TAppCode));
+  AppCode.Code.Text := FileSystem.LoadFile('Code.exe');
+
   RunApp('Test');
   RunApp('Test');
@@ -174 +183 @@
 begin
   Console := TConsole.Create;
+  FileSystem := TFileSystem.Create;
   RunningApps := TRunningApps.Create;
   Apps := TApps.Create;
-  Apps.AddNew(TAppTest);
-  Apps.AddNew(TAppCode);
 end;
 
@@ -185 +193 @@
   FreeAndNil(RunningApps);
   FreeAndNil(Console);
+  FreeAndNil(FileSystem);
   inherited;
 end;