Changeset 19 for trunk

Timestamp:

Feb 11, 2012, 10:18:19 PM (12 years ago)

Author:

chronos

Message:

• Modified: Compiler moved to separate unit file.
• Added: Compiler to PHP.
• Added: Loading list of available compilers and list them for selection in menu Program - Target.

Location:

trunk

Files:

• Compiler (added)
• Compiler/UCompiler.pas (added)
• Compiler/UCompilerDelphi.pas (added)
• Compiler/UCompilerPHP.pas (added)
• Languages/LazFuckIDE.cs.po (modified) (2 diffs)
• Languages/LazFuckIDE.po (modified) (2 diffs)
• LazFuckIDE.lpi (modified) (3 diffs)
• LazFuckIDE.lpr (modified) (1 diff)
• UBrainFuck.pas (modified) (2 diffs)
• UMainForm.lfm (modified) (1 diff)
• UMainForm.lrt (modified) (1 diff)
• UMainForm.pas (modified) (9 diffs)

trunk/Languages/LazFuckIDE.cs.po

@@ -189 +189 @@
 msgstr "Nástroje"
 
-#: tmainform.menuitem40.caption
-msgid "Target"
-msgstr "Cíl"
-
 #: tmainform.menuitem5.caption
 msgctxt "tmainform.menuitem5.caption"
@@ -202 +198 @@
 msgstr "Program"
 
+#: tmainform.menuitemtarget.caption
+msgctxt "tmainform.menuitemtarget.caption"
+msgid "Target"
+msgstr "Cíl"
+
 #: tmainform.toolbutton5.caption
 msgid "ToolButton5"

trunk/Languages/LazFuckIDE.po

@@ -180 +180 @@
 msgstr ""
 
-#: tmainform.menuitem40.caption
-msgid "Target"
-msgstr ""
-
 #: tmainform.menuitem5.caption
 msgctxt "tmainform.menuitem5.caption"
@@ -193 +189 @@
 msgstr ""
 
+#: tmainform.menuitemtarget.caption
+msgctxt "TMAINFORM.MENUITEMTARGET.CAPTION"
+msgid "Target"
+msgstr ""
+
 #: tmainform.toolbutton5.caption
 msgid "ToolButton5"

trunk/LazFuckIDE.lpi

@@ -85 +85 @@
       </Item5>
     </RequiredPackages>
-    <Units Count="7">
+    <Units Count="10">
       <Unit0>
         <Filename Value="LazFuckIDE.lpr"/>
@@ -129 +129 @@
         <UnitName Value="UOptionsForm"/>
       </Unit6>
+      <Unit7>
+        <Filename Value="Compiler\UCompiler.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UCompiler"/>
+      </Unit7>
+      <Unit8>
+        <Filename Value="Compiler\UCompilerDelphi.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UCompilerDelphi"/>
+      </Unit8>
+      <Unit9>
+        <Filename Value="Compiler\UCompilerPHP.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UCompilerPHP"/>
+      </Unit9>
     </Units>
   </ProjectOptions>
@@ -139 +154 @@
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
+      <OtherUnitFiles Value="Compiler"/>
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>

trunk/LazFuckIDE.lpr

@@ -9 +9 @@
   {$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UMainForm, UBrainFuck, UInterpreterForm, UApplicationInfo, 
-UCompiledForm, UOptionsForm, CoolTranslator, Common, TemplateGenerics
+  Forms, UMainForm, UBrainFuck, UInterpreterForm, UApplicationInfo,
+  UCompiledForm, UOptionsForm, CoolTranslator, Common, TemplateGenerics,
+  UCompiler, UCompilerDelphi, UCompilerPHP
   { you can add units after this };
 

trunk/UBrainFuck.pas

@@ -11 +11 @@
   TBrainFuckInterpretter = class;
 
-  TCompilerTarget = (ctDelphi);
-  TCompilerOptimization = (coNone, coNormal);
-
-  { TBrainFuckCompiler }
-
-  TBrainFuckCompiler = class
-  private
-    Indent: Integer;
-    procedure AddLine(Text: string);
-  public
-    ProgramName: string;
-    Source: string;
-    Output: string;
-    Target: TCompilerTarget;
-    Optimization: TCompilerOptimization;
-    procedure OptimizeSource;
-    procedure Compile;
-  end;
 
   TRunState = (rsStopped, rsPaused, rsRunning);
@@ -321 +303 @@
 end;
 
-{ TBrainFuckCompiler }
-
-procedure TBrainFuckCompiler.AddLine(Text: string);
-begin
-  Output := Output + DupeString('  ', Indent) + Text + LineEnding;
-end;
-
-procedure TBrainFuckCompiler.OptimizeSource;
-begin
-  // Remove redundand code
-
-end;
-
-procedure TBrainFuckCompiler.Compile;
-var
-  I: Integer;
-begin
-  Indent := 0;
-  Output := '';
-
-  AddLine('program ' + ProgramName + ';');
-  AddLine('');
-  AddLine('{$APPTYPE CONSOLE}');
-  AddLine('');
-  AddLine('var');
-  AddLine('  Memory: array[0..30000] of Char;');
-  AddLine('  Position: Integer;');
-  AddLine('begin');
-  Inc(Indent);
-  for I := 1 to Length(Source) do begin
-    case Source[I] of
-      '>': AddLine('Inc(Position);');
-      '<': AddLine('Dec(Position);');
-      '+': AddLine('Memory[Position] := Succ(Memory[Position]);');
-      '-': AddLine('Memory[Position] := Pred(Memory[Position]);');
-      '.': AddLine('Write(Memory[Position]);');
-      ',': AddLine('Read(Memory[Position]);');
-      '[': begin
-        AddLine('while Memory[Position] <> #0 do begin');
-        Inc(Indent);
-      end;
-      ']': begin
-        Dec(Indent);
-        AddLine('end;');
-      end;
-    end;
-  end;
-  Dec(Indent);
-  AddLine('end.');
-end;
-
 end.
 

trunk/UMainForm.lfm

@@ -400 +400 @@
         }
       end
-      object MenuItem40: TMenuItem
+      object MenuItemTarget: TMenuItem
         Caption = 'Target'
         object MenuItem21: TMenuItem

trunk/UMainForm.lrt

@@ -4 +4 @@
 TMAINFORM.MENUITEM5.CAPTION=-
 TMAINFORM.MENUITEM9.CAPTION=Program
-TMAINFORM.MENUITEM40.CAPTION=Target
+TMAINFORM.MENUITEMTARGET.CAPTION=Target
 TMAINFORM.MENUITEM21.CAPTION=New Item21
 TMAINFORM.MENUITEM17.CAPTION=-

trunk/UMainForm.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
   Menus, ActnList, StdCtrls, ComCtrls, UBrainFuck, UCoolTranslator, StrUtils,
-  SpecializedList;
+  SpecializedList, UCompiler;
 
 type
@@ -59 +59 @@
     MenuItem25: TMenuItem;
     MenuItem26: TMenuItem;
-    MenuItem40: TMenuItem;
+    MenuItemTarget: TMenuItem;
     MenuItem21: TMenuItem;
     MenuItem3: TMenuItem;
@@ -112 +112 @@
   private
     procedure BrainFuckInterpreterChangeState(Sender: TObject);
+    procedure MenuItemTargetClick(Sender: TObject);
   public
     Modified: Boolean;
@@ -118 +119 @@
     BrainFuckInterpreter: TBrainFuckInterpretter;
     BreakPoints: TListInteger;
+    Compilers: TListObject; // TListObject<TCompiler>
     procedure UpdateInterface;
     procedure UpdateStatusBar;
+    procedure UpdateTergetList;
   end;
 
@@ -130 +133 @@
 
 uses
-  UInterpreterForm, UApplicationInfo, UCompiledForm, UOptionsForm;
+  UInterpreterForm, UApplicationInfo, UCompiledForm, UOptionsForm,
+  UCompilerDelphi, UCompilerPHP;
 
 { TMainForm }
@@ -169 +173 @@
 begin
   UpdateInterface;
+end;
+
+procedure TMainForm.MenuItemTargetClick(Sender: TObject);
+var
+  I: Integer;
+begin
+  with TMenuItem(Sender) do begin
+    Checked := True;
+    for I := 0 to Parent.Count - 1 do
+      if Parent.Items[I].MenuIndex <> MenuIndex then Parent.Items[I].Checked := False
+  end;
 end;
 
@@ -194 +209 @@
 end;
 
+procedure TMainForm.UpdateTergetList;
+var
+  I: Integer;
+  NewMenuItem: TMenuItem;
+begin
+  MenuItemTarget.Clear;
+  for I := 0 to Compilers.Count - 1 do begin
+    NewMenuItem := TMenuItem.Create(MenuItemTarget);
+    NewMenuItem.Caption := TBrainFuckCompiler(Compilers[I]).Name;
+    NewMenuItem.OnClick := MenuItemTargetClick;
+    if I = 0 then NewMenuItem.Checked := True;
+    MenuItemTarget.Add(NewMenuItem);
+  end;
+end;
+
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
@@ -201 +231 @@
   BrainFuckCompiler := TBrainFuckCompiler.Create;
   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('cs');
+  Compilers := TListObject.Create;
+  Compilers.Add(TBrainFuckCompilerDelphi.Create);
+  Compilers.Add(TBrainFuckCompilerPHP.Create);
+  UpdateTergetList;
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
+  Compilers.Free;
   BrainFuckCompiler.Free;
   BrainFuckInterpreter.Free;
@@ -275 +310 @@
 
 procedure TMainForm.ACompileExecute(Sender: TObject);
-begin
-  BrainFuckCompiler.Source := MemoSource.Text;
-  BrainFuckCompiler.ProgramName := ExtractFileNameOnly(ProjectFileName);
-  BrainFuckCompiler.Compile;
-  CompiledForm.MemoCompiled.Text := BrainFuckCompiler.Output;
-  CompiledForm.Show;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < MenuItemTarget.Count) and (not MenuItemTarget.Items[I].Checked) do Inc(I);
+  with TBrainFuckCompiler(Compilers[I]) do begin
+    Source := MemoSource.Text;
+    ProgramName := ExtractFileNameOnly(ProjectFileName);
+    Compile;
+    CompiledForm.MemoCompiled.Text := Output;
+    CompiledForm.Show;
+  end;
 end;