Changeset 124 for branches/generator/URules.pas

Timestamp:

Nov 29, 2017, 5:09:16 PM (7 years ago)

Author:

chronos

Message:

• Added: Top start rule can be selected for grammer. This rule is used for parser as initial rule.

File:

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

branches/generator/URules.pas

@@ -116 +116 @@
     FileName: string;
     Rules: TRules;
+    TopRule: TRule;
     procedure LoadFromXmlFile(FileName: string);
     procedure SaveToXmlFile(FileName: string);
@@ -149 +150 @@
     Add('  Source;');
     Add('');
-    Add('procedure Compile;');
+    Add('procedure Compile(FileName: string);');
+    Add('var');
+    Add('  SourceFile: Text;');
     Add('begin');
+    Add('  AssignFile(SourceFile, FileName);');
+    Add('  Reset(SourceFile);');
+    Add('  SetLength(Content, FileSize(SourceFile));');
+    Add('  Read(SourceFile, Content);');
+    if Assigned(TopRule) then
+      Add('  Parse' + TopRule.Name + ';');
+    Add('  CloseFile(SourceFile);');
     Add('end;');
     Add('');
     Add('begin');
-    Add('  Compile;');
+    Add('  if ParamCount > 1 then');
+    Add('    Compile(ParamStr(1));');
     Add('end.');
     SaveToFile(FileName);
@@ -181 +192 @@
     Add('');
     Add('type');
-    for Rule in Rules do begin
+    for Rule in Rules do
+    if Rule.CreateSourceNode then begin
       Add('  T' + Rule.Name + ' = class;');
     end;
     Add('');
-    for Rule in Rules do begin
+    for Rule in Rules do
+    if Rule.CreateSourceNode then begin
       Add('  T' + Rule.Name + ' = class');
       for Item in Rule.Items do begin
@@ -198 +211 @@
     Add('implementation');
     Add('');
-    for Rule in Rules do
-    if Rule.CreateSourceNode then begin
+    for Rule in Rules do begin
       Add('function Parse' + Rule.Name + ': Boolean;');
       Add('begin');
@@ -212 +224 @@
           Line := Line + '';
         end;
-        if Item.RuleItemType = ritTerminal then
-          Line := Line + 'Expect(''' + Item.Terminal + ''')'
-        else if Item.RuleItemType = ritNonTerminal then
-          Line := Line + 'Parse' + Item.NonTerminal.Name;
+        case Item.RuleItemType of
+          ritTerminal: Line := Line + 'Expect(''' + Item.Terminal + ''')';
+          ritNonTerminal: Line := Line + 'Parse' + Item.NonTerminal.Name;
+          ritTerminalRange: Line := Line + 'Expect(''' + Item.Terminal + ''')';
+        end;
         if Rule.Items.RuleType = rtOr then begin
           Line := Line + ' then ';
@@ -245 +258 @@
   RulesNode: TDOMNode;
   Rule: TRule;
+  TopRuleName: string;
 begin
   Self.FileName := FileName;
@@ -257 +271 @@
         Rules.LoadFromXmlNode(RulesNode);
       end;
+
+      TopRule := Rules.FindName(ReadString(RootNode, 'TopRule', ''));
     end;
   finally
@@ -282 +298 @@
     RootNode.AppendChild(RulesNode);
     Rules.SaveToXmlNode(RulesNode);
+
+    if Assigned(TopRule) then
+      WriteString(RootNode, 'TopRule', TopRule.Name);
 
     WriteXMLFile(Doc, FileName);