Changeset 152

Timestamp:

Jun 6, 2024, 9:10:15 PM (7 months ago)

Author:

chronos

Message:

• Fixed: A typo in interpreter target name.

Location:

trunk

Files:

• Core.pas (modified) (3 diffs)
• Forms/FormCPU.pas (modified) (2 diffs)
• Forms/FormInput.pas (modified) (1 diff)
• Forms/FormMain.pas (modified) (4 diffs)
• Forms/FormMemory.pas (modified) (3 diffs)
• Forms/FormOutput.pas (modified) (2 diffs)
• Languages/LazFuck.cs.po (modified) (1 diff)
• Languages/LazFuck.pot (modified) (1 diff)
• LazFuck.lpi (modified) (1 diff)
• Read Me.txt (modified) (2 diffs)
• Target/TargetInterpreter.pas (moved) (moved from trunk/Target/TargetInterpretter.pas ) (32 diffs)

trunk/Core.pas

@@ -72 +72 @@
   LazFileUtils, FormMain, FormEx,
   // Targets
-  TargetInterpretter, TargetFPC, TargetJava, TargetDelphi, TargetJavascript,
+  TargetInterpreter, TargetFPC, TargetJava, TargetDelphi, TargetJavascript,
   TargetPHP, TargetC, TargetPython, TargetCSharp, TargetRust;
 
@@ -146 +146 @@
   with Targets do begin
     Clear;
-    Add(TTargetInterpretter.Create);
+    Add(TTargetInterpreter.Create);
     Add(TTargetDelphi.Create);
     Add(TTargetFPC.Create);
@@ -187 +187 @@
     ThemeManager.Theme := ThemeManager.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
 
-    TargetName := ReadStringWithDefault('TargetName', 'Interpretter');
+    TargetName := ReadStringWithDefault('TargetName', 'Interpreter');
     CurrentTarget := Targets.FindByName(TargetName);
     if not Assigned(CurrentTarget) then

trunk/Forms/FormCPU.pas

@@ -32 +32 @@
 
 uses
-  Core, TargetInterpretter;
+  Core, TargetInterpreter;
 
 {$R *.lfm}
@@ -43 +43 @@
 procedure TFormCPU.Reload;
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(Core.Core.CurrentTarget) do begin
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+  with TTargetInterpreter(Core.Core.CurrentTarget) do begin
     LabelProgramPointer.Caption := IntToStr(ProgramIndex);
     LabelMemoryPointer.Caption := IntToStr(MemoryPosition);

trunk/Forms/FormInput.pas

@@ -23 +23 @@
 
 uses
-  Core, TargetInterpretter;
+  Core, TargetInterpreter;
 
 procedure TFormInput.MemoInputKeyPress(Sender: TObject; var Key: char);
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(Core.Core.CurrentTarget) do
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+  with TTargetInterpreter(Core.Core.CurrentTarget) do
     Input := Input + Key;
 end;

trunk/Forms/FormMain.pas

@@ -136 +136 @@
     procedure AShowTargetPositionExecute(Sender: TObject);
     procedure AViewCompilersExecute(Sender: TObject);
-    procedure AViewInterpretterExecute(Sender: TObject);
+    procedure AViewInterpreterExecute(Sender: TObject);
     procedure AViewLogExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -176 +176 @@
 
 uses
-  Core, TargetInterpretter, BFTarget, Common, FormAbout;
+  Core, TargetInterpreter, BFTarget, Common, FormAbout;
 
 resourcestring
@@ -403 +403 @@
 procedure TFormMain.AProgramRunExecute(Sender: TObject);
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-    TTargetInterpretter(Core.Core.CurrentTarget).Input := FormInput.MemoInput.Lines.Text;
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+    TTargetInterpreter(Core.Core.CurrentTarget).Input := FormInput.MemoInput.Lines.Text;
   if not Core.Core.CurrentTarget.Compiled then AProgramCompile.Execute;
   Core.Core.CurrentTarget.Run;
@@ -442 +442 @@
 end;
 
-procedure TFormMain.AViewInterpretterExecute(Sender: TObject);
+procedure TFormMain.AViewInterpreterExecute(Sender: TObject);
 begin
   FormCPU.Show;

trunk/Forms/FormMemory.pas

@@ -28 +28 @@
 
 uses
-  Core, TargetInterpretter;
+  Core, TargetInterpreter;
 
 { TFormMemory }
@@ -34 +34 @@
 procedure TFormMemory.Reload;
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(Core.Core.CurrentTarget) do begin
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+  with TTargetInterpreter(Core.Core.CurrentTarget) do begin
     if MemoryChanged then begin
       MemoryChanged := False;
@@ -51 +51 @@
   Address: Integer;
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(Core.Core.CurrentTarget) do
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+  with TTargetInterpreter(Core.Core.CurrentTarget) do
   if (Item.Index >= 0) and (Item.Index <= Trunc((MemoryMaxUsedAddr + 1) / RowSize)) then begin
     Item.Caption := IntToHex(Item.Index * RowSize, 8);

trunk/Forms/FormOutput.pas

@@ -24 +24 @@
 
 uses
-  Core, TargetInterpretter;
+  Core, TargetInterpreter;
 
 { TFormOutput }
@@ -30 +30 @@
 procedure TFormOutput.Reload;
 begin
-  if Core.Core.CurrentTarget is TTargetInterpretter then
-  with TTargetInterpretter(Core.Core.CurrentTarget) do begin
+  if Core.Core.CurrentTarget is TTargetInterpreter then
+  with TTargetInterpreter(Core.Core.CurrentTarget) do begin
     if OutputChanged then begin
       OutputChanged := False;

trunk/Languages/LazFuck.cs.po

@@ -168 +168 @@
 msgstr "Zastaveno"
 
-#: targetinterpretter.sbreakpointindexerror
+#: targetinterpreter.sbreakpointindexerror
 #, object-pascal-format
-msgctxt "targetinterpretter.sbreakpointindexerror"
+msgctxt "targetinterpreter.sbreakpointindexerror"
 msgid "Break point index error: %d"
 msgstr "Chyba indexu bodu přerušení: %d"
 
-#: targetinterpretter.sjumptablecollision
-msgctxt "targetinterpretter.sjumptablecollision"
+#: targetinterpreter.sjumptablecollision
+msgctxt "targetinterpreter.sjumptablecollision"
 msgid "Jump table collision"
 msgstr "Kolize v tabulce skoků"
 
-#: targetinterpretter.sjumptableinconsistent
-msgctxt "targetinterpretter.sjumptableinconsistent"
+#: targetinterpreter.sjumptableinconsistent
+msgctxt "targetinterpreter.sjumptableinconsistent"
 msgid "Jump table is inconsistent"
 msgstr "Nekonzistentní skoková tabulka"
 
-#: targetinterpretter.sprogramlowermemorylimit
-msgctxt "targetinterpretter.sprogramlowermemorylimit"
+#: targetinterpreter.sprogramlowermemorylimit
+msgctxt "targetinterpreter.sprogramlowermemorylimit"
 msgid "Program run over lower memory limit"
 msgstr "Program překročil dolní rozsah paměti"
 
-#: targetinterpretter.sprogramnotrunning
-msgctxt "targetinterpretter.sprogramnotrunning"
+#: targetinterpreter.sprogramnotrunning
+msgctxt "targetinterpreter.sprogramnotrunning"
 msgid "Program not running"
 msgstr "Program neběşí"
 
-#: targetinterpretter.sprogramuppermemorylimit
-msgctxt "targetinterpretter.sprogramuppermemorylimit"
+#: targetinterpreter.sprogramuppermemorylimit
+msgctxt "targetinterpreter.sprogramuppermemorylimit"
 msgid "Program run over upper memory limit"
 msgstr "Program překročil horní rozsah paměti"
 
-#: targetinterpretter.sunsupportedcommand
-msgctxt "targetinterpretter.sunsupportedcommand"
+#: targetinterpreter.sunsupportedcommand
+msgctxt "targetinterpreter.sunsupportedcommand"
 msgid "Unsupported command"
 msgstr "NepodporovanÃœ příkaz"

trunk/Languages/LazFuck.pot

@@ -158 +158 @@
 msgstr ""
 
-#: targetinterpretter.sbreakpointindexerror
+#: targetinterpreter.sbreakpointindexerror
 #, object-pascal-format
-msgctxt "targetinterpretter.sbreakpointindexerror"
+msgctxt "targetinterpreter.sbreakpointindexerror"
 msgid "Break point index error: %d"
 msgstr ""
 
-#: targetinterpretter.sjumptablecollision
-msgctxt "targetinterpretter.sjumptablecollision"
+#: targetinterpreter.sjumptablecollision
+msgctxt "targetinterpreter.sjumptablecollision"
 msgid "Jump table collision"
 msgstr ""
 
-#: targetinterpretter.sjumptableinconsistent
-msgctxt "targetinterpretter.sjumptableinconsistent"
+#: targetinterpreter.sjumptableinconsistent
+msgctxt "targetinterpreter.sjumptableinconsistent"
 msgid "Jump table is inconsistent"
 msgstr ""
 
-#: targetinterpretter.sprogramlowermemorylimit
-msgctxt "targetinterpretter.sprogramlowermemorylimit"
+#: targetinterpreter.sprogramlowermemorylimit
+msgctxt "targetinterpreter.sprogramlowermemorylimit"
 msgid "Program run over lower memory limit"
 msgstr ""
 
-#: targetinterpretter.sprogramnotrunning
-msgctxt "targetinterpretter.sprogramnotrunning"
+#: targetinterpreter.sprogramnotrunning
+msgctxt "targetinterpreter.sprogramnotrunning"
 msgid "Program not running"
 msgstr ""
 
-#: targetinterpretter.sprogramuppermemorylimit
-msgctxt "targetinterpretter.sprogramuppermemorylimit"
+#: targetinterpreter.sprogramuppermemorylimit
+msgctxt "targetinterpreter.sprogramuppermemorylimit"
 msgid "Program run over upper memory limit"
 msgstr ""
 
-#: targetinterpretter.sunsupportedcommand
-msgctxt "targetinterpretter.sunsupportedcommand"
+#: targetinterpreter.sunsupportedcommand
+msgctxt "targetinterpreter.sunsupportedcommand"
 msgid "Unsupported command"
 msgstr ""

trunk/LazFuck.lpi

@@ -143 +143 @@
       </Unit7>
       <Unit8>
-        <Filename Value="Target\TargetInterpretter.pas"/>
+        <Filename Value="Target\TargetInterpreter.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit8>

trunk/Read Me.txt

@@ -3 +3 @@
 ==Features==
 * Graphical code editor with color syntax highlighting
-* Cross-compilation to Delphi, Free Pascal, Python, Java, C, C#, PHP, and JavaScript
-* Interpreter with debugger 
+* Cross-compilation to Delphi, Free Pascal, Python, Java, C, C#, PHP, Rust and JavaScript
+* Interpreter with debugger
 * Translations: English, Czech
 
@@ -11 +11 @@
 * Home page: https://app.zdechov.net/LazFuck/
 * Source code: https://svn.zdechov.net/LazFuck/
-* Developed in [http://www.lazarus-ide.org/ Lazarus/FPC] 2.2.0
+* Developed in [http://www.lazarus-ide.org/ Lazarus/FPC] 3.4.0
 * To build new Windows installer run Install/build.bat. InnoSetup (http://www.jrsoftware.org/isdl.php) needs to be installed).

trunk/Target/TargetInterpreter.pas

@@ -1 @@
-unit TargetInterpretter;
+unit TargetInterpreter;
 
 interface
@@ -7 +7 @@
 
 type
-  TTargetInterpretter = class;
-
-  { TTargetInterpretterThread }
-
-  TTargetInterpretterThread = class(TThread)
+  TTargetInterpreter = class;
+
+  { TTargetInterpreterThread }
+
+  TTargetInterpreterThread = class(TThread)
   private
     FNewState: TRunState;
@@ -19 +19 @@
     procedure SetStateSafe(State: TRunState);
   public
-    Parent: TTargetInterpretter;
+    Parent: TTargetInterpreter;
     procedure Execute; override;
   end;
@@ -25 +25 @@
   TCommandHandler = procedure of object;
 
-  { TTargetInterpretter }
-
-  TTargetInterpretter = class(TBFTarget)
+  { TTargetInterpreter }
+
+  TTargetInterpreter = class(TBFTarget)
   private
     FThreadState: Boolean;
-    FThread: TTargetInterpretterThread;
+    FThread: TTargetInterpreterThread;
     FStepCount: Integer;
     FCommandTable: array[TMachineCommand] of TCommandHandler;
@@ -89 +89 @@
   SBreakPointIndexError = 'Break point index error: %d';
 
-{ TTargetInterpretterThread }
-
-procedure TTargetInterpretterThread.Execute;
+{ TTargetInterpreterThread }
+
+procedure TTargetInterpreterThread.Execute;
 var
   BreakPoint: TBreakPoint;
@@ -130 +130 @@
 end;
 
-procedure TTargetInterpretterThread.DoMessage;
+procedure TTargetInterpreterThread.DoMessage;
 begin
   Parent.SendMessage(FMessage);
 end;
 
-procedure TTargetInterpretterThread.DoSetState;
+procedure TTargetInterpreterThread.DoSetState;
 begin
   Parent.State := FNewState;
 end;
 
-procedure TTargetInterpretterThread.SetStateSafe(State: TRunState);
+procedure TTargetInterpreterThread.SetStateSafe(State: TRunState);
 begin
   if Parent.State = State then Exit;
@@ -147 +147 @@
 end;
 
-{ TTargetInterpretter }
-
-procedure TTargetInterpretter.SetState(AValue: TRunState);
+{ TTargetInterpreter }
+
+procedure TTargetInterpreter.SetState(AValue: TRunState);
 begin
   if FState = AValue then Exit;
@@ -156 +156 @@
 end;
 
-procedure TTargetInterpretter.SetThread(State: Boolean);
+procedure TTargetInterpreter.SetThread(State: Boolean);
 begin
   if FThreadState = State then Exit;
   FThreadState := State;
   if State then begin
-    FThread := TTargetInterpretterThread.Create(True);
+    FThread := TTargetInterpreterThread.Create(True);
     FThread.Parent := Self;
     FThread.FreeOnTerminate := False;
@@ -170 +170 @@
 end;
 
-procedure TTargetInterpretter.PrepareJumpTable;
+procedure TTargetInterpreter.PrepareJumpTable;
 type
   TArrayOfInteger = array of Integer;
@@ -205 +205 @@
 end;
 
-procedure TTargetInterpretter.CommandInput;
+procedure TTargetInterpreter.CommandInput;
 var
   Addr: Integer;
@@ -221 +221 @@
 end;
 
-procedure TTargetInterpretter.CommandOutput;
+procedure TTargetInterpreter.CommandOutput;
 begin
   if OutputPosition > Length(Output) then
@@ -231 +231 @@
 end;
 
-procedure TTargetInterpretter.CommandLoopStart;
+procedure TTargetInterpreter.CommandLoopStart;
 begin
   if Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] = 0 then
@@ -237 +237 @@
 end;
 
-procedure TTargetInterpretter.CommandLoopEnd;
+procedure TTargetInterpreter.CommandLoopEnd;
 begin
   if Memory[MemoryPosition + FProgram[FProgramIndex].RelIndex] > 0 then
@@ -243 +243 @@
 end;
 
-procedure TTargetInterpretter.CommandInc;
+procedure TTargetInterpreter.CommandInc;
 var
   Addr: Integer;
@@ -253 +253 @@
 end;
 
-procedure TTargetInterpretter.CommandDec;
+procedure TTargetInterpreter.CommandDec;
 var
   Addr: Integer;
@@ -263 +263 @@
 end;
 
-procedure TTargetInterpretter.CommandPointerInc;
+procedure TTargetInterpreter.CommandPointerInc;
 begin
   if MemoryPosition < MemorySize then
@@ -270 +270 @@
 end;
 
-procedure TTargetInterpretter.CommandPointerDec;
+procedure TTargetInterpreter.CommandPointerDec;
 begin
   if MemoryPosition > 0 then
@@ -277 +277 @@
 end;
 
-procedure TTargetInterpretter.CommandSet;
+procedure TTargetInterpreter.CommandSet;
 var
   Addr: Integer;
@@ -288 +288 @@
 end;
 
-procedure TTargetInterpretter.CommandMultiply;
+procedure TTargetInterpreter.CommandMultiply;
 var
   Addr: Integer;
@@ -300 +300 @@
 end;
 
-procedure TTargetInterpretter.Reset;
+procedure TTargetInterpreter.Reset;
 var
   I: Integer;
@@ -322 +322 @@
 end;
 
-procedure TTargetInterpretter.Compile;
+procedure TTargetInterpreter.Compile;
 begin
   inherited;
@@ -328 +328 @@
 end;
 
-procedure TTargetInterpretter.PrepareBreakPoints;
+procedure TTargetInterpreter.PrepareBreakPoints;
 var
   I: Integer;
@@ -340 +340 @@
 end;
 
-procedure TTargetInterpretter.CheckMemoryBounds(Address: Integer);
+procedure TTargetInterpreter.CheckMemoryBounds(Address: Integer);
 begin
   if Address < 0 then raise Exception.Create(SProgramLowerMemoryLimit);
@@ -346 +346 @@
 end;
 
-procedure TTargetInterpretter.EmitTargetCode;
+procedure TTargetInterpreter.EmitTargetCode;
 var
   I: Integer;
@@ -369 +369 @@
 end;
 
-function TTargetInterpretter.GetExecutionPosition: Integer;
+function TTargetInterpreter.GetExecutionPosition: Integer;
 begin
   Result := FProgramIndex;
 end;
 
-procedure TTargetInterpretter.OptimizeSource;
+procedure TTargetInterpreter.OptimizeSource;
 begin
   inherited;
 end;
 
-procedure TTargetInterpretter.Run;
+procedure TTargetInterpreter.Run;
 begin
   PrepareBreakPoints;
@@ -390 +390 @@
 end;
 
-procedure TTargetInterpretter.Pause;
+procedure TTargetInterpreter.Pause;
 begin
   if State = rsRunning then State := rsPaused;
 end;
 
-procedure TTargetInterpretter.Stop;
+procedure TTargetInterpreter.Stop;
 begin
   State := rsStopped;
@@ -401 +401 @@
 end;
 
-procedure TTargetInterpretter.StepInto;
+procedure TTargetInterpreter.StepInto;
 var
   Step: TDebugStep;
@@ -421 +421 @@
 end;
 
-procedure TTargetInterpretter.StepOver;
+procedure TTargetInterpreter.StepOver;
 var
   Step: TDebugStep;
@@ -440 +440 @@
 end;
 
-procedure TTargetInterpretter.StepOut;
+procedure TTargetInterpreter.StepOut;
 var
   Step: TDebugStep;
@@ -462 +462 @@
 end;
 
-procedure TTargetInterpretter.RunToCursor(Pos: Integer);
+procedure TTargetInterpreter.RunToCursor(Pos: Integer);
 begin
   Breakpoints.SetSystem(Pos);
@@ -468 +468 @@
 end;
 
-constructor TTargetInterpretter.Create;
+constructor TTargetInterpreter.Create;
 begin
   inherited;
-  FName := 'Interpretter';
+  FName := 'Interpreter';
   FImageIndex := 25;
   FCapabilities := [tcRun, tcPause, tcStop, tcCompile, tcStepOut, tcStepInto,
@@ -489 +489 @@
 end;
 
-destructor TTargetInterpretter.Destroy;
+destructor TTargetInterpreter.Destroy;
 begin
   FState := rsStopped;