Changeset 204

Timestamp:

Apr 17, 2020, 11:07:37 PM (4 years ago)

Author:

chronos

Message:

• Added: Simple PHP code generator.

Location:

branches/interpreter2

Files:

• Test.pas (modified) (1 diff)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (4 diffs)
• UGenerator.pas (modified) (1 diff)
• UGeneratorPhp.pas (added)
• UParser.pas (modified) (1 diff)
• USource.pas (modified) (3 diffs)
• interpreter.lpi (modified) (2 diffs)
• interpreter.lpr (modified) (1 diff)

branches/interpreter2/Test.pas

@@ -37 +37 @@
     WriteLn('Can''t believe this.');
   end;
-  WriteLn;
+  WriteLn('');
   WriteLn('Test');
   WriteLn(A);

branches/interpreter2/UFormMain.lfm

@@ -572 +572 @@
     TabOrder = 5
   end
+  object ButtonGenerate1: TButton
+    Left = 416
+    Height = 38
+    Top = 18
+    Width = 145
+    Caption = 'Generate PHP'
+    OnClick = ButtonGenerate1Click
+    TabOrder = 6
+  end
   object SynFreePascalSyn1: TSynFreePascalSyn
     Enabled = False

branches/interpreter2/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ButtonCompile: TButton;
+    ButtonGenerate1: TButton;
     ButtonRun: TButton;
     ButtonGenerate: TButton;
@@ -24 +25 @@
     SynFreePascalSyn1: TSynFreePascalSyn;
     procedure ButtonCompileClick(Sender: TObject);
+    procedure ButtonGenerate1Click(Sender: TObject);
     procedure ButtonGenerateClick(Sender: TObject);
     procedure ButtonRunClick(Sender: TObject);
@@ -49 +51 @@
 
 uses
-  UParser, UExecutor, UGenerator;
+  UParser, UExecutor, UGenerator, UGeneratorPhp;
 
 { TFormMain }
@@ -107 +109 @@
 end;
 
+procedure TFormMain.ButtonGenerate1Click(Sender: TObject);
+var
+  Generator: TGeneratorPhp;
+begin
+  ButtonCompile.Click;
+  MemoOutput.Lines.Clear;
+  if Assigned(Prog) then begin
+    Generator := TGeneratorPhp.Create;
+    Generator.Prog := Prog;
+    Generator.Generate;
+    MemoOutput.Lines.Text := Generator.Output;
+    Generator.Free;
+  end;
+end;
+
 procedure TFormMain.ButtonGenerateClick(Sender: TObject);
 var

branches/interpreter2/UGenerator.pas

@@ -140 +140 @@
     otFunctionCall: GenerateFunctionCall(Block, Expression.FunctionCall);
     otConstantDirect: GenerateValue(Expression.ConstantDirect.Value);
-    otConstantRef: GenerateValue(Expression.ConstantRef.Value);
+    otConstantRef: AddText(Expression.ConstantRef.Name);
     otVariableRef: AddText(Expression.VariableRef.Name);
     else raise Exception.Create('Unsupported exception operand type.');

branches/interpreter2/UParser.pas

@@ -605 +605 @@
   end;
   with Block.Functions.AddNew('IntToStr') do begin
+    InternalName := 'IntToStr';
     Params.AddNew('Value', TypeInteger);
     ResultType := TypeString;
   end;
   with Block.Functions.AddNew('StrToInt') do begin
+    InternalName := 'StrToInt';
     Params.AddNew('Value', TypeString);
     ResultType := TypeInteger;
   end;
   with Block.Functions.AddNew('WriteLn') do begin
+    InternalName := 'WriteLn';
     Params.AddNew('Text', TypeString);
   end;
   with Block.Functions.AddNew('Write') do begin
+    InternalName := 'Write';
     Params.AddNew('Text', TypeString);
   end;

branches/interpreter2/USource.pas

@@ -11 +11 @@
   TExpressions = class;
   TFunctions = class;
+  TBeginEnd = class;
 
   { TValue }
@@ -98 +99 @@
   TFunction = class
     Name: string;
+    InternalName: string;
     Params: TFunctionParameters;
     ResultType: TType;
+    BeginEnd: TBeginEnd;
     constructor Create;
     destructor Destroy; override;
@@ -340 +343 @@
 begin
   Params := TFunctionParameters.Create;
+  BeginEnd := TBeginEnd.Create;
 end;
 
 destructor TFunction.Destroy;
 begin
+  BeginEnd.Free;
   Params.Free;
   inherited Destroy;

branches/interpreter2/interpreter.lpi

@@ -71 +71 @@
       </Item2>
     </RequiredPackages>
-    <Units Count="8">
+    <Units Count="9">
       <Unit0>
         <Filename Value="interpreter.lpr"/>
@@ -107 +107 @@
         <IsPartOfProject Value="True"/>
       </Unit7>
+      <Unit8>
+        <Filename Value="UGeneratorPhp.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit8>
     </Units>
   </ProjectOptions>

branches/interpreter2/interpreter.lpr

@@ -8 +8 @@
   {$ENDIF}{$ENDIF}
   Interfaces, SysUtils, // this includes the LCL widgetset
-  Forms, UFormMain, UParser, UTokenizer, USource, UExecutor, UInterpreter, UGenerator
+  Forms, UFormMain, UParser, UTokenizer, USource, UExecutor, UInterpreter,
+  UGenerator, UGeneratorPhp
   { you can add units after this };