Changeset 112 for branches/generator/URules.pas

Timestamp:

Aug 9, 2017, 8:47:42 AM (7 years ago)

Author:

chronos

Message:

• Added: Icons for various actions.
• Added: Show rule items in rules list.

File:

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

branches/generator/URules.pas

@@ -29 +29 @@
   end;
 
+  TRuleType = (rtAnd, rtOr);
+
   { TRuleItems }
 
@@ -35 +37 @@
     procedure LoadFromXmlNode(Node: TDOMNode);
     procedure SaveToXmlNode(Node: TDOMNode);
-  end;
-
-  TRuleType = (rtAnd, rtOr);
+    function GetBNF(RuleType: TRuleType): string;
+  end;
 
   { TRule }
@@ -190 +191 @@
 end;
 
+function TRuleItems.GetBNF(RuleType: TRuleType): string;
+var
+  Item: TRuleItem;
+begin
+  Result := '';
+  for Item in Self do begin
+    if Item <> First then begin
+      if RuleType = rtAnd then Result := Result + ' '
+      else if RuleType = rtOr then Result := Result + ' | ';
+    end;
+    Result := Result + Item.GetBNF;
+  end;
+end;
+
 procedure TRuleItems.LoadFromXmlNode(Node: TDOMNode);
 var
@@ -221 +236 @@
 
 function TRule.GetBNF: string;
-var
-  Item: TRuleItem;
-begin
-  Result := Name + ' ::= ';
-  for Item in Items do begin
-    if Item <> Items.First then begin
-      if RuleType = rtAnd then Result := Result + ' '
-      else if RuleType = rtOr then Result := Result + ' | ';
-    end;
-    Result := Result + Item.GetBNF;
-  end;
+begin
+  Result := Name + ' ::= ' + Items.GetBNF(RuleType);
 end;