Changeset 137 for branches/generator/Forms/UFormRuleItem.pas

Timestamp:

Dec 27, 2017, 6:05:11 PM (7 years ago)

Author:

chronos

Message:

• Added: Lookup tables can be defined and their usage set from grammer rules.

File:

• branches/generator/Forms/UFormRuleItem.pas (modified) (13 diffs)

branches/generator/Forms/UFormRuleItem.pas

@@ -16 +16 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    CheckBoxLookupTable: TCheckBox;
     CheckBoxAnyExcept: TCheckBox;
     CheckBoxEscapedString: TCheckBox;
     CheckBoxOptional: TCheckBox;
     CheckBoxRepetitive: TCheckBox;
+    ComboBoxLookupTableAction: TComboBox;
     ComboBoxType: TComboBox;
     EditTerminal: TEdit;
     EditTerminalFrom: TEdit;
     EditTerminalTo: TEdit;
+    Label1: TLabel;
     Label2: TLabel;
     LabelNonTerminal: TLabel;
@@ -29 +32 @@
     LabelTerminal1: TLabel;
     LabelTerminal2: TLabel;
-    ListBox1: TListBox;
+    ListBoxNonTerminals: TListBox;
+    ListBoxLookupTable: TListBox;
     PageControl1: TPageControl;
     TabSheetTerminalRange: TTabSheet;
@@ -35 +39 @@
     TabSheetNonTerminal: TTabSheet;
     TabSheetSubItems: TTabSheet;
+    procedure CheckBoxLookupTableChange(Sender: TObject);
     procedure ComboBoxTypeChange(Sender: TObject);
     procedure EditTerminalKeyPress(Sender: TObject; var Key: char);
@@ -44 +49 @@
     FormRuleItems: TForm;
     procedure ReloadNonTerminals(Grammer: TGrammer);
+    procedure ReloadLookupTables(Grammer: TGrammer);
   public
     RuleItem: TRuleItem;
@@ -70 +76 @@
 end;
 
+procedure TFormRuleItem.CheckBoxLookupTableChange(Sender: TObject);
+begin
+  UpdateInterface;
+end;
+
 procedure TFormRuleItem.EditTerminalKeyPress(Sender: TObject; var Key: char);
 begin
@@ -99 +110 @@
   case RuleItem.RuleItemType of
     ritTerminal: EditTerminal.SetFocus;
-    ritNonTerminal: ListBox1.SetFocus;
+    ritNonTerminal: ListBoxNonTerminals.SetFocus;
     ritSubItems: TFormRuleItems(FormRuleItems).ListView1.SetFocus;
     ritTerminalRange: EditTerminalFrom.SetFocus;
@@ -110 +121 @@
   Rule: TRule;
 begin
-  ListBox1.Items.Clear;
+  ListBoxNonTerminals.Items.Clear;
   for Rule in Grammer.Rules do begin
-    ListBox1.Items.AddObject(Rule.Name, Rule);
-  end;
-  ListBox1.Sorted := True;
+    ListBoxNonTerminals.Items.AddObject(Rule.Name, Rule);
+  end;
+  ListBoxNonTerminals.Sorted := True;
+end;
+
+procedure TFormRuleItem.ReloadLookupTables(Grammer: TGrammer);
+var
+  Item: TLookupTable;
+begin
+  ListBoxLookupTable.Items.Clear;
+  for Item in Grammer.LookupTables do begin
+    ListBoxLookupTable.Items.AddObject(Item.Name, Item);
+  end;
+  ListBoxLookupTable.Sorted := True;
 end;
 
@@ -122 +144 @@
   EditTerminal.Visible := RuleItem.RuleItemType = ritTerminal;
   LabelTerminal.Visible := RuleItem.RuleItemType = ritTerminal;
-  ListBox1.Visible := RuleItem.RuleItemType = ritNonTerminal;
+  ListBoxNonTerminals.Visible := RuleItem.RuleItemType = ritNonTerminal;
   LabelNonTerminal.Visible := RuleItem.RuleItemType = ritNonTerminal;
   CheckBoxOptional.Enabled := RuleItem.ParentRule.Items.RuleType = rtAnd;
@@ -128 +150 @@
   CheckBoxEscapedString.Enabled := (RuleItem.RuleItemType = ritTerminal) or
     (RuleItem.RuleItemType = ritTerminalRange);
+  ListBoxLookupTable.Enabled := CheckBoxLookupTable.Checked;
+  ComboBoxLookupTableAction.Enabled := CheckBoxLookupTable.Checked;
 end;
 
@@ -135 +159 @@
   ReloadNonTerminals(RuleItem.Grammer);
   ComboBoxType.ItemIndex := Integer(RuleItem.RuleItemType);
-  ListBox1.ItemIndex := ListBox1.Items.IndexOfObject(RuleItem.NonTerminal);
+  ListBoxNonTerminals.ItemIndex := ListBoxNonTerminals.Items.IndexOfObject(RuleItem.NonTerminal);
   EditTerminal.Text := RuleItem.Terminal;
   EditTerminalFrom.Text := RuleItem.TerminalFrom;
@@ -144 +168 @@
   TFormRuleItems(FormRuleItems).LoadData(RuleItem.SubItems);
   CheckBoxEscapedString.Checked := RuleItem.EscapedStrings;
+  // Lookup table
+  CheckBoxLookupTable.Checked := RuleItem.LookupTableUsed;
+  ReloadLookupTables(RuleItem.Grammer);
+  ComboBoxLookupTableAction.ItemIndex := Integer(RuleItem.LookupTableAction);
+  ListBoxLookupTable.ItemIndex := ListBoxLookupTable.Items.IndexOfObject(RuleItem.LookupTable);
   UpdateInterface;
 end;
@@ -155 +184 @@
   RuleItem.TerminalFrom := EditTerminalFrom.Text;
   RuleItem.TerminalTo := EditTerminalTo.Text;
-  if ListBox1.ItemIndex <> -1 then
-    RuleItem.NonTerminal := TRule(ListBox1.Items.Objects[ListBox1.ItemIndex])
+  if ListBoxNonTerminals.ItemIndex <> -1 then
+    RuleItem.NonTerminal := TRule(ListBoxNonTerminals.Items.Objects[ListBoxNonTerminals.ItemIndex])
     else RuleItem.NonTerminal := nil;
   RuleItem.Optional := CheckBoxOptional.Checked;
@@ -162 +191 @@
   RuleItem.AnyExcept := CheckBoxAnyExcept.Checked;
   RuleItem.EscapedStrings := CheckBoxEscapedString.Checked;
+  // Lookup table
+  RuleItem.LookupTableUsed := CheckBoxLookupTable.Checked;
+  RuleItem.LookupTableAction := TLookupTableAction(ComboBoxLookupTableAction.ItemIndex);
+  if ListBoxLookupTable.ItemIndex <> -1 then
+    RuleItem.LookupTable := TLookupTable(ListBoxLookupTable.Items.Objects[ListBoxLookupTable.ItemIndex])
+    else RuleItem.LookupTable := nil;
 end;