Changeset 110 for branches/generator/URules.pas

Timestamp:

Aug 8, 2017, 11:15:41 PM (7 years ago)

Author:

chronos

Message:

• Added: Rule items can be managed.
• Added: Show BNF syntax on main form.

File:

• branches/generator/URules.pas (modified) (7 diffs)

branches/generator/URules.pas

@@ -10 +10 @@
 type
 
+  { TRuleItem }
+
+  TRuleItem = class
+    Name: string;
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
+  end;
+
+  { TRuleItems }
+
+  TRuleItems = class(TFPGObjectList<TRuleItem>)
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
+  end;
+
   { TRule }
 
   TRule = class
     Name: string;
-    procedure SaveToXmlNode(Node: TDOMNode);
-    procedure LoadFromXmlNode(Node: TDOMNode);
+    Items: TRuleItems;
+    constructor Create;
+    destructor Destroy; override;
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
+    function GetBNF: string;
   end;
 
@@ -21 +40 @@
 
   TRules = class(TFPGObjectList<TRule>)
+    FileName: string;
+    procedure LoadFromXmlNode(Node: TDOMNode);
+    procedure SaveToXmlNode(Node: TDOMNode);
     procedure LoadFromXmlFile(FileName: string);
     procedure SaveToXmlFile(FileName: string);
+    function GetBNF: string;
   end;
 
 implementation
 
+{ TRuleItem }
+
+procedure TRuleItem.SaveToXmlNode(Node: TDOMNode);
+begin
+  WriteString(Node, 'Name', Name);
+end;
+
+procedure TRuleItem.LoadFromXmlNode(Node: TDOMNode);
+begin
+  Name := ReadString(Node, 'Name', '');
+end;
+
+{ TRuleItems }
+
+procedure TRuleItems.SaveToXmlNode(Node: TDOMNode);
+var
+  RuleItem: TRuleItem;
+  RuleItemNode: TDOMNode;
+begin
+  for RuleItem in Self do begin
+    RuleItemNode := Node.OwnerDocument.CreateElement('RuleItem');
+    RuleItem.SaveToXmlNode(RuleItemNode);
+    Node.AppendChild(RuleItemNode);
+  end;
+end;
+
+procedure TRuleItems.LoadFromXmlNode(Node: TDOMNode);
+var
+  RuleItemNode: TDOMNode;
+  RuleItem: TRuleItem;
+begin
+  RuleItemNode := Node.FirstChild;
+  while Assigned(RuleItemNode) do begin
+    if RuleItemNode.NodeName = 'RuleItem' then begin
+      RuleItem := TRuleItem.Create;
+      RuleItem.LoadFromXmlNode(RuleItemNode);
+      Add(RuleItem);
+    end;
+    RuleItemNode := RuleItemNode.NextSibling;
+  end;
+end;
+
 { TRule }
 
 procedure TRule.SaveToXmlNode(Node: TDOMNode);
+var
+  RuleItemsNode: TDOMNode;
 begin
   WriteString(Node, 'Name', Name);
+
+  RuleItemsNode := Node.OwnerDocument.CreateElement('RuleItems');
+  Node.AppendChild(RuleItemsNode);
+  Items.SaveToXmlNode(RuleItemsNode);
+end;
+
+function TRule.GetBNF: string;
+var
+  Item: TRuleItem;
+begin
+  Result := Name + ' ::=';
+  for Item in Items do begin
+    Result := Result + ' ' + Item.Name;
+  end;
+end;
+
+constructor TRule.Create;
+begin
+  Items := TRuleItems.Create;
+end;
+
+destructor TRule.Destroy;
+begin
+  FreeAndNil(Items);
+  inherited Destroy;
 end;
 
 procedure TRule.LoadFromXmlNode(Node: TDOMNode);
+var
+  ItemsNode: TDOMNode;
 begin
   Name := ReadString(Node, 'Name', '');
+
+  ItemsNode := Node.FindNode('RuleItems');
+  if Assigned(ItemsNode) then begin
+    Items.LoadFromXmlNode(ItemsNode);
+  end;
 end;
 
 { TRules }
+
+procedure TRules.SaveToXmlNode(Node: TDOMNode);
+var
+  Rule: TRule;
+  RuleNode: TDOMNode;
+begin
+  for Rule in Self do begin
+    RuleNode := Node.OwnerDocument.CreateElement('Rule');
+    Rule.SaveToXmlNode(RuleNode);
+    Node.AppendChild(RuleNode);
+  end;
+end;
+
+procedure TRules.LoadFromXmlNode(Node: TDOMNode);
+var
+  RuleNode: TDOMNode;
+  Rule: TRule;
+begin
+  RuleNode := Node.FirstChild;
+  while Assigned(RuleNode) do begin
+    if RuleNode.NodeName = 'Rule' then begin
+      Rule := TRule.Create;
+      Rule.LoadFromXmlNode(RuleNode);
+      Add(Rule);
+    end;
+    RuleNode := RuleNode.NextSibling;
+  end;
+end;
 
 procedure TRules.LoadFromXmlFile(FileName: string);
@@ -46 +173 @@
   RootNode: TDOMNode;
   RulesNode: TDOMNode;
-  RuleNode: TDOMNode;
-  Rule: TRule;
-begin
+begin
+  Self.FileName := FileName;
   Clear;
   try
@@ -57 +183 @@
       RulesNode := RootNode.FindNode('Rules');
       if Assigned(RulesNode) then begin
-        RuleNode := RulesNode.FirstChild;
-        while Assigned(RuleNode) do begin
-          if RuleNode.NodeName = 'Rule' then begin
-            Rule := TRule.Create;
-            Rule.LoadFromXmlNode(RuleNode);
-            Add(Rule);
-          end;
-          RuleNode := RuleNode.NextSibling;
-        end;
+        LoadFromXmlNode(RulesNode);
       end;
     end;
@@ -78 +196 @@
   RootNode: TDOMNode;
   RulesNode: TDOMNode;
-  RuleNode: TDOMNode;
-  Rule: TRule;
-begin
+begin
+  Self.FileName := FileName;
   Doc := TXMLDocument.Create;
   try
@@ -88 +205 @@
     RulesNode := Doc.CreateElement('Rules');
     RootNode.AppendChild(RulesNode);
-
-    for Rule in Self do begin
-      RuleNode := Doc.CreateElement('Rule');
-      Rule.SaveToXmlNode(RuleNode);
-      RulesNode.AppendChild(RuleNode);
-    end;
+    SaveToXmlNode(RulesNode);
 
     WriteXMLFile(Doc, FileName);
@@ -101 +213 @@
 end;
 
+function TRules.GetBNF: string;
+var
+  Rule: TRule;
+begin
+  Result := '';
+  for Rule in Self do begin
+    Result := Result + Rule.GetBNF + LineEnding;
+  end;
+end;
+
 end.