Changeset 8 for UGrammer.pas

Timestamp:

Oct 15, 2007, 8:28:00 AM (17 years ago)

Author:

george

Message:

Opraveno: Vytváření nové gramatiky z jiné. Zobrazení výsledku a další fáze parsování pascalu.

File:

• UGrammer.pas (modified) (12 diffs)

UGrammer.pas

@@ -65 +65 @@
   end;
 
-  TGrammerItem = record
+  TGrammerItem = class
   private
     Processed: Boolean;
@@ -77 +77 @@
     Repetition: Boolean;
     procedure GetPossibleCharacters(Path: TGrammerPath; var Characters: TPossibleCharacters);
-    constructor Create(ItemType: TRuleType);
+    constructor Create;
   end;
 
@@ -86 +86 @@
     Name: string;
     RuleType: TRuleType;
-    Items: array of TGrammerItem;
+    Items: TList; // of TGrammerItem;
     procedure ClearProcessed;
     function Add: TGrammerItem;
-    procedure AddTerminal(Character: Char; Optional, Repetition: Boolean);
+    procedure AddTerminal(ACharacter: Char; AOptional, ARepetition: Boolean);
     procedure AddTerminalText(Text: string);
-    procedure AddRule(Rule: TGrammerRule; Optional, Repetition: Boolean);
+    procedure AddRule(ARule: TGrammerRule; AOptional, ARepetition: Boolean);
     procedure ProcessCharacter(Character: Char);
     procedure GetPossibleCharacters(Path: TGrammerPath;
       var Characters: TPossibleCharacters; UseIndex: Integer = 0; UseCharIndex: Integer = -1);
     constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -119 +120 @@
 function TGrammerRule.Add: TGrammerItem;
 begin
-  SetLength(Items, Length(Items) + 1);
-  Result := Items[High(Items)];
+  Result := TGrammerItem.Create;
+  Items.Add(Result);
   Result.Parent := Self;
 end;
 
-procedure TGrammerRule.AddRule(Rule: TGrammerRule; Optional,
-  Repetition: Boolean);
-begin
-  SetLength(Items, Length(Items) + 1);
-  Items[High(Items)].ItemType := itNonterminal;
-  Items[High(Items)].Rule := Rule;
-  Items[High(Items)].Optional := Optional;
-  Items[High(Items)].Repetition := Repetition;
-  Items[High(Items)].Parent := Self;
-end;
-
-procedure TGrammerRule.AddTerminal(Character: Char; Optional, Repetition: Boolean);
-begin
-  SetLength(Items, Length(Items) + 1);
-  Items[High(Items)].ItemType := itTerminal;
-  Items[High(Items)].Character := Character;
-  Items[High(Items)].Optional := Optional;
-  Items[High(Items)].Repetition := Repetition;
-  Items[High(Items)].Parent := Self;
+procedure TGrammerRule.AddRule(ARule: TGrammerRule; AOptional,
+  ARepetition: Boolean);
+begin
+  with Add do begin
+    ItemType := itNonterminal;
+    Rule := ARule;
+    Optional := AOptional;
+    Repetition := ARepetition;
+    Parent := Self;
+  end;
+end;
+
+procedure TGrammerRule.AddTerminal(ACharacter: Char; AOptional, ARepetition: Boolean);
+begin
+  with Add do begin
+    ItemType := itTerminal;
+    Character := ACharacter;
+    Optional := AOptional;
+    Repetition := ARepetition;
+    Parent := Self;
+  end;
 end;
 
@@ -156 +159 @@
   I: Integer;
 begin
-  for I := 0 to High(Items) do with Items[I] do begin
+  for I := 0 to Items.Count - 1 do with TGrammerItem(Items[I]) do begin
     Processed := False;
   end;
@@ -164 +167 @@
 begin
   Ownership := nil;
+  Items := TList.Create;
+end;
+
+destructor TGrammerRule.Destroy;
+var
+  I: Integer;
+begin
+  for I := 0 to Items.Count - 1 do
+    TGrammerItem(Items[I]).Free;
+  Items.Free;    
+  inherited;
 end;
 
@@ -196 +210 @@
       end else begin
         // Generate alternatives
-        for I := 0 to High(Items) do begin
+        for I := 0 to Items.Count - 1 do begin
           Path.Items[High(Path.Items)].ItemIndex := I;
           //Inc(Path.Items[High(Path.Items)].CharIndex);
-          Items[I].GetPossibleCharacters(Path, Characters);
+          TGrammerItem(Items[I]).GetPossibleCharacters(Path, Characters);
         end;
       end;
@@ -205 +219 @@
     rtSequence: begin
       TempPath.Assign(Path);
-      if UseIndex >= Length(Items) then begin
+      if UseIndex >= Items.Count then begin
         // Forward generation to upper item
         SetLength(Path.Items, Length(Path.Items) - 1);
@@ -217 +231 @@
       end else begin
         Path.Items[High(Path.Items)].ItemIndex := UseIndex;
-        Items[UseIndex].GetPossibleCharacters(Path, Characters);
+        TGrammerItem(Items[UseIndex]).GetPossibleCharacters(Path, Characters);
       end;
       // Check repetition
-      if (UseIndex > 0) and not Items[UseIndex - 1].Processed then
-        if Items[UseIndex - 1].Repetition then begin
+      if (UseIndex > 0) and not TGrammerItem(Items[UseIndex - 1]).Processed then
+        if TGrammerItem(Items[UseIndex - 1]).Repetition then begin
           TempPath.Items[High(TempPath.Items)].ItemIndex := UseIndex - 1;
-          Items[UseIndex - 1].GetPossibleCharacters(TempPath, Characters);
+          TGrammerItem(Items[UseIndex - 1]).GetPossibleCharacters(TempPath, Characters);
         end;
     end;
@@ -251 +265 @@
 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
+    for II := 0 to Items.Count - 1 do with TGrammerItem(Items[II]) do begin
       if (ItemType = itNonterminal) and (Rule = nil) then begin
         J := 0;
@@ -499 +513 @@
 { TGrammerItem }
 
-constructor TGrammerItem.Create(ItemType: TRuleType);
+constructor TGrammerItem.Create;
 begin
   Rule := nil;
@@ -557 +571 @@
   Index := High(Items);
   while not Success and (Index >= 0) do begin
-    with Items[Index] do if Rule.Items[ItemIndex].Repetition then begin
+    with Items[Index] do if TGrammerItem(Rule.Items[ItemIndex]).Repetition then begin
       Success := True;
       //Inc(CharIndex);
     end else begin
-      if ((ItemIndex + 1) < Length(Rule.Items)) and (Rule.RuleType = rtSequence) then begin
+      if ((ItemIndex + 1) < Rule.Items.Count) and (Rule.RuleType = rtSequence) then begin
         Inc(ItemIndex);
         //Inc(CharIndex);