Changeset 136 for branches/generator/Forms/UFormGrammer.pas

Timestamp:

Dec 26, 2017, 6:59:40 PM (7 years ago)

Author:

chronos

Message:

• Added: Support for whitespaces in And rule.
• Added: Terminals can be specified as escaped strings with slash.

File:

• branches/generator/Forms/UFormGrammer.pas (modified) (4 diffs)

branches/generator/Forms/UFormGrammer.pas

@@ -17 +17 @@
     ButtonOk: TButton;
     ComboBoxStartRule: TComboBox;
+    ComboBoxWhiteSpaceRule: TComboBox;
     Label1: TLabel;
+    Label2: TLabel;
     procedure FormShow(Sender: TObject);
   private
@@ -49 +51 @@
   end;
   ComboBoxStartRule.Sorted := True;
+
+  ComboBoxWhiteSpaceRule.Items.Clear;
+  for Rule in Grammer.Rules do begin
+    ComboBoxWhiteSpaceRule.Items.AddObject(Rule.Name, Rule);
+  end;
+  ComboBoxWhiteSpaceRule.Sorted := True;
 end;
 
@@ -58 +66 @@
     ComboBoxStartRule.ItemIndex := ComboBoxStartRule.Items.IndexOfObject(Grammer.TopRule);
   end else ComboBoxStartRule.ItemIndex := -1;
+  if Assigned(Grammer.WhiteSpaceRule) then begin
+    ComboBoxWhiteSpaceRule.ItemIndex := ComboBoxWhiteSpaceRule.Items.IndexOfObject(Grammer.WhiteSpaceRule);
+  end else ComboBoxWhiteSpaceRule.ItemIndex := -1;
 end;
 
@@ -66 +77 @@
     Grammer.TopRule := TRule(ComboBoxStartRule.Items.Objects[ComboBoxStartRule.ItemIndex])
     else Grammer.TopRule := nil;
+  if ComboBoxWhiteSpaceRule.ItemIndex <> -1 then
+    Grammer.WhiteSpaceRule := TRule(ComboBoxWhiteSpaceRule.Items.Objects[ComboBoxWhiteSpaceRule.ItemIndex])
+    else Grammer.WhiteSpaceRule := nil;
 end;