Changeset 7 for UGrammer.pas

Timestamp:

Oct 12, 2007, 1:43:10 PM (17 years ago)

Author:

george

Message:

Tvorba gramatiky pascalu

File:

• UGrammer.pas (modified) (11 diffs)

UGrammer.pas

@@ -4 +4 @@
 
 uses
-  Classes, ComCtrls;
+  Classes, ComCtrls, SysUtils;
 
 type
@@ -50 +50 @@
     procedure DeleteEmpty;
     procedure MergeNonterminal(ARule: TGrammerRule);
+    procedure Join(ARule: TGrammerRule; ItemIndex: Integer);
     function MergeToTerminal: string;
     constructor Create;
     destructor Destroy; override;
+    procedure Assign(Source: TProgramItem);
   end;
 
@@ -65 +67 @@
   TGrammerItem = record
   private
+    Processed: Boolean;
     Parent: TGrammerRule;
-    Processed: Boolean;
   public
     ItemType: TRuleItemType;
     Character: Char;
     Rule: TGrammerRule;
+    RuleName: string;
     Optional: Boolean;
     Repetition: Boolean;
@@ -80 +83 @@
   private
   public
+    Ownership: TGrammerRule;
     Name: string;
     RuleType: TRuleType;
     Items: array of TGrammerItem;
     procedure ClearProcessed;
+    function Add: TGrammerItem;
     procedure AddTerminal(Character: Char; Optional, Repetition: Boolean);
     procedure AddTerminalText(Text: string);
@@ -100 +105 @@
     procedure ClearProcessed;
     procedure Parse(Text: string; var ParsedProgram: TProgram);
+    procedure CorrectRuleLinks;
     destructor Destroy; override;
   end;
@@ -106 +112 @@
 implementation
 
+uses
+  UMainForm;
+
 { TGrammerRule }
+
+function TGrammerRule.Add: TGrammerItem;
+begin
+  SetLength(Items, Length(Items) + 1);
+  Result := Items[High(Items)];
+  Result.Parent := Self;
+end;
 
 procedure TGrammerRule.AddRule(Rule: TGrammerRule; Optional,
@@ -147 +163 @@
 constructor TGrammerRule.Create;
 begin
-
+  Ownership := nil;
 end;
 
@@ -225 +241 @@
   for I := 0 to Rules.Count - 1 do with TGrammerRule(Rules[I]) do begin
     ClearProcessed;
+  end;
+end;
+
+procedure TGrammer.CorrectRuleLinks;
+var
+  I: Integer;
+  II: Integer;
+  J: Integer;
+begin
+  for I := 0 to Rules.Count - 1 do with TGrammerRule(Rules[I]) do begin
+    for II := 0 to Length(Items) - 1 do with Items[II] do begin
+      if (ItemType = itNonterminal) and (Rule = nil) then begin
+        J := 0;
+        while (J < Rules.Count) and (TGrammerRule(Rules[J]).Name <> RuleName)  do Inc(J);
+        if J < Rules.Count then Rule := Rules[J] else
+          raise Exception.Create('Rule link correction failed on rule ' +
+            IntToStr(I) + ' item ' + IntToStr(II));
+      end;
+    end;
   end;
 end;
@@ -294 +329 @@
           ExpectedCharacters := ExpectedCharacters + Scope.Items[II].Character;
         //raise Exception.Create('Parse error. Expected "' + ExpectedCharacters + '" but found "' + Text[I] + '".');
+        MainForm.Label1.Caption := 'Parse error. Expected "' + ExpectedCharacters + '" but found "' + Text[I] + '".';
         break;
       end;
@@ -361 +397 @@
 { TProgramItem }
 
+procedure TProgramItem.Assign(Source: TProgramItem);
+begin
+  
+end;
+
 constructor TProgramItem.Create;
 begin
@@ -423 +464 @@
   Items.Free;
   inherited;
+end;
+
+procedure TProgramItem.Join(ARule: TGrammerRule; ItemIndex: Integer);
+var
+  SubProgramItem: TProgramItem;
+  I: Integer;
+begin
+  if (ItemType = itNonterminal) and (Rule = ARule) then begin
+    SubProgramItem := TProgramItem(Items[ItemIndex]);
+    RuleBefore := SubProgramItem.RuleBefore;
+    Rule := SubProgramItem.Rule;
+    ItemType := SubProgramItem.ItemType;
+    Value := SubProgramItem.Value;
+    Items[ItemIndex] := nil;
+    for I := 0 to Items.Count - 1 do
+      if Assigned(Items[I]) then TProgramItem(Items[I]).Free;
+    Items := SubProgramItem.Items;
+  end;
+  for I := 0 to Items.Count - 1 do
+    TProgramItem(Items[I]).Join(ARule, ItemIndex);
 end;