Changeset 25 for trunk/Compiler/UCompiler.pas

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.

File:

• trunk/Compiler/UCompiler.pas (modified) (3 diffs)

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 }