Changeset 131 for branches/generator/UGrammer.pas

Timestamp:

Dec 24, 2017, 3:54:08 PM (7 years ago)

Author:

chronos

Message:

• Added: Open recent files menu action.
• Added: Generate BNF and EBNF output separately.
• Added: Allow to hide main toolbar.

File:

• branches/generator/UGrammer.pas (modified) (11 diffs)

branches/generator/UGrammer.pas

@@ -15 +15 @@
 
   TRuleItemType = (ritTerminal, ritNonTerminal, ritSubItems, ritTerminalRange);
+  TGrammerNotation = (gnBnf, gnEbnf);
 
   { TRuleItem }
@@ -39 +40 @@
     procedure SaveToXmlNode(Node: TDOMNode);
     function GetString: string;
+    function ExportAsString(Notation: TGrammerNotation): string;
     constructor Create;
     destructor Destroy; override;
@@ -61 +63 @@
     procedure UpdateRuleReference;
     function GetString: string;
+    function ExportAsString(Notation: TGrammerNotation): string;
     property ParentRule: TRule read FParentRule write SetParentRule;
   end;
@@ -95 +98 @@
     procedure SaveToXmlNode(Node: TDOMNode);
     function GetString: string;
+    function ExportAsString(Notation: TGrammerNotation): string;
     property Grammer: TGrammer read FGrammer write SetGrammer;
   end;
@@ -106 +110 @@
     procedure SaveToXmlNode(Node: TDOMNode);
     function GetString: string;
+    function ExportAsString(Notation: TGrammerNotation): string;
   end;
 
@@ -129 +134 @@
     procedure GetUsedByRule(RefRule: TRule; UsedByRules: TStrings);
     function GetString: string;
+    function ExportAsString(Notation: TGrammerNotation): string;
     procedure Change;
     property Modified: Boolean read FModified write SetModified;
@@ -248 +254 @@
 begin
   Result := Rules.GetString;
+end;
+
+function TGrammer.ExportAsString(Notation: TGrammerNotation): string;
+begin
+  Result := Rules.ExportAsString(Notation);
 end;
 
@@ -292 +303 @@
   if Repetitive then Result := '*' + Result;
   if AnyExcept then Result := '!' + Result;
+end;
+
+function TRuleItem.ExportAsString(Notation: TGrammerNotation): string;
+begin
+  case Notation of
+    gnBnf: begin
+      case RuleItemType of
+        ritTerminal: Result := Terminal;
+        ritNonTerminal: Result := '<' + NonTerminal.Name + '>';
+        ritSubItems: begin
+          if not Optional and not Repetitive then
+            Result := '(' + SubItems.ExportAsString(Notation) + ')'
+            else Result := SubItems.ExportAsString(Notation);
+        end;
+        ritTerminalRange: Result := '(' + TerminalFrom + ' .. ' + TerminalTo + ')';
+      end;
+      if Optional and not Repetitive then Result := '[' + Result + ']';
+      if Repetitive then Result := '{' + Result + '}';
+      if AnyExcept then Result := 'other then ' + Result;
+    end;
+    gnEbnf: begin
+      case RuleItemType of
+        ritTerminal: Result := '"' + Terminal + '"';
+        ritNonTerminal: Result := NonTerminal.Name;
+        ritSubItems: begin
+          if not Optional and not Repetitive then
+            Result := '(' + SubItems.ExportAsString(Notation) + ')'
+            else Result := SubItems.ExportAsString(Notation);
+        end;
+        ritTerminalRange: Result := '(' + TerminalFrom + ' .. ' + TerminalTo + ')';
+      end;
+      if Optional and not Repetitive then Result := '[' + Result + ']';
+      if Repetitive then Result := '{' + Result + '}';
+      if AnyExcept then Result := 'other then ' + Result;
+    end;
+  end;
 end;
 
@@ -395 +442 @@
 end;
 
+function TRuleItems.ExportAsString(Notation: TGrammerNotation): string;
+var
+  Item: TRuleItem;
+begin
+  Result := '';
+  for Item in Self do begin
+    if Item <> First then begin
+      if RuleType = rtAnd then begin
+        case Notation of
+          gnBnf: Result := Result + ' ';
+          gnEbnf: Result := Result + ', ';
+        end;
+      end else
+      if RuleType = rtOr then begin
+        case Notation of
+          gnBnf: Result := Result + ' | ';
+          gnEbnf: Result := Result + ' | ';
+        end;
+      end;
+    end;
+    Result := Result + Item.ExportAsString(Notation);
+  end;
+end;
+
 procedure TRuleItems.SetParentRule(AValue: TRule);
 begin
@@ -456 +527 @@
 end;
 
+function TRule.ExportAsString(Notation: TGrammerNotation): string;
+begin
+  case Notation of
+    gnBnf: Result := Name + ' ::= ' + Items.ExportAsString(Notation);
+    gnEbnf: Result := Name + ' = ' + Items.ExportAsString(Notation);
+  end;
+end;
+
 procedure TRule.SetGrammer(AValue: TGrammer);
 begin
@@ -553 +632 @@
 end;
 
+function TRules.ExportAsString(Notation: TGrammerNotation): string;
+var
+  Rule: TRule;
+begin
+  Result := '';
+  for Rule in Self do begin
+    Result := Result + Rule.ExportAsString(Notation) + LineEnding;
+  end;
+end;
+
 end.