Changeset 120 for branches/generator/URules.pas

Timestamp:

Nov 29, 2017, 1:21:22 PM (7 years ago)

Author:

chronos

Message:

• Added: Show "Used by" rules in rule edit window.

File:

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

branches/generator/URules.pas

@@ -76 +76 @@
   TRule = class
   private
-    function GetGrammer: TGrammer;
+    FGrammer: TGrammer;
     procedure SetGrammer(AValue: TGrammer);
   public
@@ -83 +83 @@
     Items: TRuleItems;
     Links: TRuleLinks;
-    property Grammer: TGrammer read GetGrammer write SetGrammer;
     constructor Create;
     destructor Destroy; override;
+    procedure GetUsedByRule(RefRule: TRule; UsedByRules: TStrings);
     procedure LoadFromXmlNode(Node: TDOMNode);
     procedure SaveToXmlNode(Node: TDOMNode);
     function GetString: string;
+    property Grammer: TGrammer read FGrammer write SetGrammer;
   end;
 
@@ -117 +118 @@
     destructor Destroy; override;
     procedure BuildCompiler;
+    procedure GetUsedByRule(RefRule: TRule; UsedByRules: TStrings);
     function GetString: string;
     property Modified: Boolean read FModified write SetModified;
@@ -308 +310 @@
 end;
 
+procedure TGrammer.GetUsedByRule(RefRule: TRule; UsedByRules: TStrings);
+var
+  Rule: TRule;
+begin
+  UsedByRules.Clear;
+  for Rule in Rules do
+    Rule.GetUsedByRule(RefRule, UsedByRules);
+end;
+
 function TGrammer.GetString: string;
 begin
@@ -498 +509 @@
 end;
 
-function TRule.GetGrammer: TGrammer;
-begin
-  Result := Items.Grammer;
-end;
-
 procedure TRule.SetGrammer(AValue: TGrammer);
 begin
+  if FGrammer = AValue then Exit;
+  FGrammer := AValue;
   Items.Grammer := AValue;
 end;
@@ -520 +528 @@
   FreeAndNil(Items);
   inherited Destroy;
+end;
+
+procedure TRule.GetUsedByRule(RefRule: TRule; UsedByRules: TStrings);
+var
+  Item: TRuleItem;
+begin
+  for Item in Items do
+    if (Item.RuleItemType = ritNonTerminal) and
+      (Item.NonTerminal = RefRule) and
+      (UsedByRules.IndexOf(Item.ParentRule.Name) = -1) then
+      UsedByRules.AddObject(Item.ParentRule.Name, Item.ParentRule);
 end;