Changeset 30 for trunk/Target/UTarget.pas

Timestamp:

Feb 18, 2012, 7:49:17 PM (12 years ago)

Author:

chronos

Message:

• Renamed: Compilers renamed to Targets. Interpretter will be one of possible targets.

Location:

trunk/Target

Files:

• . (moved) (moved from trunk/Compiler )
• UTarget.pas (copied) (copied from trunk/Compiler/UCompiler.pas ) (11 diffs)

trunk/Target/UTarget.pas

@@ -1 @@
-unit UCompiler;
+unit UTarget;
 
 {$mode Delphi}{$H+}
@@ -12 +12 @@
   TCompilerOptimization = (coNone, coNormal);
 
-  { TBrainFuckCompiler }
+  { TTarget }
 
-  TBrainFuckCompiler = class
+  TTarget = class
   protected
     Indent: Integer;
@@ -36 +36 @@
   end;
 
-  { TCompilerList }
+  { TTargetList }
 
-  TCompilerList = class(TListObject)
+  TTargetList = class(TListObject)
     procedure LoadFromRegistry(Root: HKEY; Key: string);
     procedure SaveToRegistry(Root: HKEY; Key: string);
@@ -52 +52 @@
 
 
-{ TCompilerList }
+{ TTargetList }
 
-procedure TCompilerList.LoadFromRegistry(Root: HKEY; Key: string);
+procedure TTargetList.LoadFromRegistry(Root: HKEY; Key: string);
 var
   I: Integer;
@@ -63 +63 @@
     OpenKey(Key + '\Compiler', True);
     for I := 0 to Count - 1 do
-    with TBrainFuckCompiler(Items[I]) do
+    with TTarget(Items[I]) do
       if ValueExists(Name) then CompilerPath := ReadString(Name);
   finally
@@ -70 +70 @@
 end;
 
-procedure TCompilerList.SaveToRegistry(Root: HKEY; Key: string);
+procedure TTargetList.SaveToRegistry(Root: HKEY; Key: string);
 var
   I: Integer;
@@ -79 +79 @@
     OpenKey(Key + '\Compiler', True);
     for I := 0 to Count - 1 do
-    with TBrainFuckCompiler(Items[I]) do
+    with TTarget(Items[I]) do
       if CompilerPath <> '' then WriteString(Name, CompilerPath)
         else DeleteValue(Name);
@@ -87 +87 @@
 end;
 
-{ TBrainFuckCompiler }
+{ TTarget }
 
-procedure TBrainFuckCompiler.AddLine(Text: string);
+procedure TTarget.AddLine(Text: string);
 begin
   Output := Output + DupeString('  ', Indent) + Text + LineEnding;
 end;
 
-function TBrainFuckCompiler.LongFileName(FileName: string): string;
+function TTarget.LongFileName(FileName: string): string;
 begin
   Result := FileName;
@@ -105 +105 @@
 end;
 
-constructor TBrainFuckCompiler.Create;
+constructor TTarget.Create;
 begin
   Optimization := coNormal;
 end;
 
-procedure TBrainFuckCompiler.OptimizeSource;
+procedure TTarget.OptimizeSource;
 begin
   // Remove redundand code
@@ -116 +116 @@
 end;
 
-procedure TBrainFuckCompiler.Compile;
+procedure TTarget.Compile;
 begin
 
 end;
 
-procedure TBrainFuckCompiler.CompileToFile;
+procedure TTarget.CompileToFile;
 var
   Process: TProcess;
@@ -149 +149 @@
 end;
 
-procedure TBrainFuckCompiler.Run;
+procedure TTarget.Run;
 var
   CompiledFile: string;