Changeset 119 for branches/generator/Forms/UFormMain.pas

Timestamp:

Nov 29, 2017, 12:31:26 PM (7 years ago)

Author:

chronos

Message:

• Added: New rules flag directing if source node should be generated for them.
• Added: New and Save menu actions.

File:

• branches/generator/Forms/UFormMain.pas (modified) (8 diffs)

branches/generator/Forms/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ABuildCompiler: TAction;
+    ANew: TAction;
+    ASave: TAction;
     AExit: TAction;
     AOpen: TAction;
@@ -24 +26 @@
     MemoBNF: TMemo;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
+    MenuItem11: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -39 +43 @@
     procedure ABuildCompilerExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure ANewExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
     procedure ARulesExecute(Sender: TObject);
     procedure ASaveAsExecute(Sender: TObject);
+    procedure ASaveExecute(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
   private
-    { private declarations }
+    procedure ReloadMemo;
   public
     { public declarations }
@@ -70 +76 @@
   FormRules.Rules := Core.Grammer.Rules;
   FormRules.ShowModal;
-  MemoBNF.Lines.Text := Core.Grammer.GetBNF;
+  ReloadMemo;
   FreeAndNil(FormRules);
 end;
@@ -82 +88 @@
 end;
 
+procedure TFormMain.ASaveExecute(Sender: TObject);
+begin
+  Core.Grammer.SaveToXmlFile(Core.Grammer.FileName);
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
@@ -90 +101 @@
 begin
   Core.PersistentForm1.Load(Self, True);
-  MemoBNF.Lines.Text := Core.Grammer.GetBNF;
+  ReloadMemo;
+end;
+
+procedure TFormMain.ReloadMemo;
+begin
+  MemoBNF.Lines.Text := Core.Grammer.GetString;
 end;
 
@@ -98 +114 @@
 end;
 
+procedure TFormMain.ANewExecute(Sender: TObject);
+begin
+  Core.Grammer.Rules.Clear;
+  ReloadMemo;
+end;
+
 procedure TFormMain.ABuildCompilerExecute(Sender: TObject);
-var
-  ParserFile: TStringList;
-  SourceFile: TStringList;
-  Rule: TRule;
-  Item: TRuleItem;
-  OutputDir: string;
-  Line: string;
-  I: Integer;
 begin
-  OutputDir := 'Generated';
-  ForceDirectories(OutputDir);
-
-  ParserFile := TStringList.Create;
-  with ParserFile do begin
-    Add('program Compiler;');
-    Add('');
-    Add('{$MODE Delphi}');
-    Add('');
-    Add('uses');
-    Add('  Source;');
-    Add('');
-    Add('procedure Compile;');
-    Add('begin');
-    Add('end;');
-    Add('');
-    Add('begin');
-    Add('  Compile;');
-    Add('end.');
-    SaveToFile(OutputDir + DirectorySeparator + 'Compiler.pas');
-  end;
-  FreeAndNil(ParserFile);
-
-  SourceFile := TStringList.Create;
-  with SourceFile do begin
-    Add('unit Source;');
-    Add('');
-    Add('{$MODE Delphi}');
-    Add('');
-    Add('interface');
-    Add('');
-    Add('uses');
-    Add('  fgl;');
-    Add('');
-    Add('type');
-    for Rule in Core.Grammer.Rules do begin
-      Add('  T' + Rule.Name + ' = class;');
-    end;
-    Add('');
-    for Rule in Core.Grammer.Rules do begin
-      Add('  T' + Rule.Name + ' = class');
-      for Item in Rule.Items do begin
-        if Item.RuleItemType = ritNonTerminal then
-          if Item.Repetitive then
-          Add('    ' + Item.NonTerminal.Name + ': TFPGObjectList<T' + Item.NonTerminal.Name + '>;')
-          else Add('    ' + Item.NonTerminal.Name + ': T' + Item.NonTerminal.Name + ';');
-      end;
-      Add('  end;' + LineEnding);
-    end;
-    Add('');
-    Add('implementation');
-    Add('');
-    for Rule in Core.Grammer.Rules do begin
-      Add('function Parse' + Rule.Name + ': Boolean;');
-      Add('begin');
-      I := 0;
-      for Item in Rule.Items do begin
-        Line := '  ';
-        if Rule.Items.RuleType = rtOr then begin
-          if I > 0 then Line := Line + 'else ';
-          Line := Line + 'if ';
-        end else
-        if Rule.Items.RuleType = rtAnd then begin
-          Line := Line + '';
-        end;
-        if Item.RuleItemType = ritTerminal then
-          Line := Line + 'Expect(''' + Item.Terminal + ''')'
-        else if Item.RuleItemType = ritNonTerminal then
-          Line := Line + 'Parse' + Item.NonTerminal.Name;
-        if Rule.Items.RuleType = rtOr then begin
-          Line := Line + ' then ';
-        end else
-        if Rule.Items.RuleType = rtAnd then begin
-          Line := Line + ';';
-        end;
-        Add(Line);
-        Inc(I);
-      end;
-      if Rule.Items.RuleType = rtOr then begin
-        Add('  else ShowError(''Unexpected token'');');
-      end;
-      Add('end;');
-      Add('');
-    end;
-
-    Add('end.');
-
-    SaveToFile(OutputDir + DirectorySeparator +'Source.pas');
-  end;
-  FreeAndNil(SourceFile);
+  Core.Grammer.BuildCompiler;
 end;
 
@@ -205 +130 @@
   if OpenDialog1.Execute then begin
     Core.Grammer.LoadFromXmlFile(OpenDialog1.FileName);
+    ReloadMemo;
   end;
 end;