Changeset 124 for branches/generator/Forms

Timestamp:

Nov 29, 2017, 5:09:16 PM (7 years ago)

Author:

chronos

Message:

• Added: Top start rule can be selected for grammer. This rule is used for parser as initial rule.

Location:

branches/generator/Forms

Files:

• UFormGrammer.lfm (added)
• UFormGrammer.pas (added)
• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (5 diffs)
• UFormRuleItem.pas (modified) (1 diff)

branches/generator/Forms/UFormMain.lfm

@@ -80 +80 @@
         Action = ASaveAs
       end
+      object MenuItem12: TMenuItem
+        Action = AGrammerSettings
+      end
       object MenuItem6: TMenuItem
         Caption = '-'
@@ -143 +146 @@
       OnExecute = ANewExecute
     end
+    object AGrammerSettings: TAction
+      Caption = 'Settings'
+      OnExecute = AGrammerSettingsExecute
+    end
   end
   object OpenDialog1: TOpenDialog

branches/generator/Forms/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ABuildCompiler: TAction;
+    AGrammerSettings: TAction;
     ANew: TAction;
     ASave: TAction;
@@ -28 +29 @@
     MenuItem10: TMenuItem;
     MenuItem11: TMenuItem;
+    MenuItem12: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -43 +45 @@
     procedure ABuildCompilerExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure AGrammerSettingsExecute(Sender: TObject);
     procedure ANewExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
@@ -66 +69 @@
 
 uses
-  UFormRules, UCore;
+  UFormRules, UCore, UFormGrammer;
 
 { TFormMain }
@@ -123 +126 @@
 end;
 
+procedure TFormMain.AGrammerSettingsExecute(Sender: TObject);
+var
+  FormGrammer: TFormGrammer;
+begin
+  FormGrammer := TFormGrammer.Create(nil);
+  FormGrammer.LoadData(Core.Grammer);
+  if FormGrammer.ShowModal = mrOk then begin
+    FormGrammer.SaveData(Core.Grammer);
+  end;
+  FreeAndNil(FormGrammer);
+end;
+
 procedure TFormMain.ANewExecute(Sender: TObject);
 begin

branches/generator/Forms/UFormRuleItem.pas

@@ -100 +100 @@
     ritNonTerminal: ListBox1.SetFocus;
     ritSubItems: TFormRuleItems(FormRuleItems).ListView1.SetFocus;
+    ritTerminalRange: EditTerminalFrom.SetFocus;
   end;
 end;