Changeset 9 for UGrammer.pas

Timestamp:

Oct 16, 2007, 9:16:28 AM (17 years ago)

Author:

george

Message:

Úpravy parsování a sestavování gramatity pro pasacal.

File:

• UGrammer.pas (modified) (4 diffs)

UGrammer.pas

@@ -295 +295 @@
   Path: TGrammerPath;
   I, II: Integer;
+  Q: Integer;
   C: Integer;
   Scope: TPossibleCharacters;
@@ -301 +302 @@
   UseRule: TGrammerRule;
   ExpectedCharacters: string;
-  Level: Integer;
+  Level: array of Integer;
+  LevelLength: Integer;
+  LevelIsLeft: Boolean;
 begin
   SetLength(Path.Items, Length(Path.Items) + 1);
@@ -320 +323 @@
       UseRule.GetPossibleCharacters(Path, Scope, UseIndex, UseCharIndex);
       C := Length(Scope.Items);
-      Level := 0; //High(Integer);
-      for II := High(Scope.Items) downto 0 do begin
-        if (Scope.Items[II].Character = Text[I]) and (Level < Length(Scope.Items[II].RulePath.Items))
-        then begin
-          C := II;
-          Level := Length(Scope.Items[II].RulePath.Items);
-        end;
-      end;
+
+      SetLength(Level, 0);
+      for II := 0 to High(Scope.Items) do with Scope.Items[II] do begin
+        if (Character = Text[I]) then begin
+          if Length(RulePath.Items) > Length(Level) then begin
+            LevelLength := Length(Level);
+            SetLength(Level, Length(RulePath.Items));
+            for Q := LevelLength to High(Level) do
+              Level[Q] := High(Integer);
+          end;
+          LevelIsLeft := True;
+          for Q := 0 to High(Level) do begin
+            if Level[Q] > RulePath.Items[Q].ItemIndex then begin
+              LevelIsLeft := False;
+              Break;
+            end;
+            if Level[Q] < RulePath.Items[Q].ItemIndex then Break;
+          end;
+          if (not LevelIsLeft) or (Length(RulePath.Items) > Length(Level)) then begin
+            SetLength(Level, Length(RulePath.Items));
+            for Q := 0 to High(Level) do
+              Level[Q] := RulePath.Items[Q].ItemIndex;
+            C := II;
+          end;
+        end;
+      end;
+
       if C < Length(Scope.Items) then begin
         Path.Assign(Scope.Items[C].RulePath);
@@ -343 +365 @@
           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] + '".';
+        MainForm.StatusBar1.SimpleText := 'Parse error. Expected "' + ExpectedCharacters + '" but found "' + Text[I] + '".';
         break;
       end;