Changeset 25 for trunk/Compiler

Timestamp:

Feb 13, 2012, 9:47:18 AM (13 years ago)

Author:

chronos

Message:

• Added: List of supported compiler targets.
• Added: Action to compile and run project.

Location:

trunk/Compiler

Files:

• UCompiler.pas (modified) (3 diffs)
• UCompilerDelphi.pas (modified) (3 diffs)
• UCompilerPHP.pas (modified) (1 diff)

trunk/Compiler/UCompiler.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, StrUtils;
+  Classes, SysUtils, StrUtils, Registry, URegistry, SpecializedList;
 
 type
@@ -23 +23 @@
     Output: string;
     Optimization: TCompilerOptimization;
+    CompilerPath: string;
+    SourceExtension: string;
+    CompiledExtension: string;
     constructor Create; virtual;
     procedure OptimizeSource;
@@ -28 +31 @@
   end;
 
+  { TCompilerList }
+
+  TCompilerList = class(TListObject)
+    procedure LoadFromRegistry(Root: HKEY; Key: string);
+    procedure SaveToRegistry(Root: HKEY; Key: string);
+  end;
+
 
 implementation
+
+{ TCompilerList }
+
+procedure TCompilerList.LoadFromRegistry(Root: HKEY; Key: string);
+var
+  I: Integer;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key + '\Compiler', True);
+    for I := 0 to Count - 1 do
+    with TBrainFuckCompiler(Items[I]) do
+      if ValueExists(Name) then CompilerPath := ReadString(Name);
+  finally
+    Free;
+  end;
+end;
+
+procedure TCompilerList.SaveToRegistry(Root: HKEY; Key: string);
+var
+  I: Integer;
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Root;
+    OpenKey(Key + '\Compiler', True);
+    for I := 0 to Count - 1 do
+    with TBrainFuckCompiler(Items[I]) do
+      if CompilerPath <> '' then WriteString(Name, CompilerPath)
+        else DeleteValue(Name);
+  finally
+    Free;
+  end;
+end;
 
 { TBrainFuckCompiler }

trunk/Compiler/UCompilerDelphi.pas

@@ -25 +25 @@
   inherited Create;
   Name := 'Delphi';
+  SourceExtension := '.pas';
+  CompiledExtension := '.exe';
 end;
 
@@ -53 +55 @@
   AddLine('  Memory: array[0..30000] of Byte;');
   AddLine('  Pos: Integer;');
+  AddLine('  ReadChar: Char;');
   AddLine('begin');
   Inc(Indent);
+  AddLine('Pos := 0;');
   I := 1;
   while (I <= Length(Source)) do begin
@@ -75 +79 @@
       end;
       '.': AddLine('Write(Chr(Memory[Pos]));');
-      ',': AddLine('Read(Chr(Memory[Pos]));');
+      ',': AddLine('Read(ReadChar); Memory[Pos] := Ord(ReadChar);');
       '[': begin
         AddLine('while Memory[Pos] <> 0 do begin');

trunk/Compiler/UCompilerPHP.pas

@@ -26 +26 @@
   inherited Create;
   Name := 'PHP';
+  SourceExtension := '.php';
 end;