Changeset 32 for branches/Analyzátor gramatiky/UProgram.pas

Timestamp:

Nov 11, 2009, 2:14:44 PM (15 years ago)

Author:

george

Message:

• Průběžné uložení.

File:

• branches/Analyzátor gramatiky/UProgram.pas (modified) (3 diffs)

branches/Analyzátor gramatiky/UProgram.pas

@@ -37 +37 @@
     constructor Create;
     procedure Insert(Path: TGrammerPath; Character: Char);
-    procedure Parse(Grammer: TGrammer; Text: string);
+    procedure Parse(Grammer: TGrammer; Tokens: TStringList);
     destructor Destroy; override;
   end;
@@ -88 +88 @@
 end;
 
-procedure TProgram.Parse(Grammer: TGrammer; Text: string);
+procedure TProgram.Parse(Grammer: TGrammer; Tokens: TStringList);
 var
   Path: TGrammerPath;
   I, II: Integer;
-  C: Integer;
-  Scope: TPossibleCharacters;
   UseIndex: Integer;
   UseCharIndex: Integer;
   UseRule: TGrammerRule;
-  ExpectedCharacters: string;
   Level: array of Integer;
 begin
   Path := TGrammerPath.Create;
-  Scope := TPossibleCharacters.Create;
-
   with Path.Items[Path.Items.Add(TPathItem.Create)] do begin
     Rule := Grammer.TopRule;
@@ -109 +104 @@
   end;
 
-  for I := 1 to Length(Text) do begin
-    if (Text[I] <> #13) and (Text[I] <> #10) then begin
+  for I := 0 to Tokens.Count - 1 do begin
       UseIndex := Path.Items[Path.Items.Count - 1].ItemIndex;
       UseCharIndex := Path.Items[Path.Items.Count - 1].CharIndex;
       UseRule := Path.Items[Path.Items.Count - 1].Rule;
       Path.Items.Delete(Path.Items.Count - 1);
-      Scope.Items.Clear;
       Grammer.ClearProcessed;
-      UseRule.GetPossibleCharacters(Path, Scope, UseIndex, UseCharIndex);
-      C := Scope.Items.Count;
-
-      // Possible character selection
-      SetLength(Level, 0);
-      for II := 0 to Scope.Items.Count - 1 do
-      with Scope.Items[II] do
+      if UseRule.Check(Path, Tokens[I], UseIndex, UseCharIndex) then
       begin
-        if (Character = Text[I]) then
-        begin
-          C := II;
-          Break;
-{
-            MaxLevel := Max(Length(RulePath.Items), Length(Path.Items));
-            Different := False;
-            for Q := 0 to MaxLevel - 1 do
-            begin
-              if (Q >= Length(RulePath.Items)) or (Q >= Length(Path.Items)) or
-                (RulePath.Items[Q].ItemIndex <> Path.Items[Q].ItemIndex) then
-                begin
-                  Different := True;
-                  Break;
-                end;
-            end;
-            if Different and (Q >= LevelLength) then
-            begin
-              LevelLength := Q;
-              C := II;
-            end;
-
-}
-                {
-              // Append missing level items
-                                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;
-                                // Compare leftness for all rulepath items
-                                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 < Scope.Items.Count then begin
-        Path.Assign(Scope.Items[C].RulePath);
-        for II := 0 to Path.Items.Count - 1 do
-        with Path.Items[II] do begin
-          if Affected then Inc(CharIndex);
-        end;
-        Insert(Path, Scope.Items[C].Character);
-        for II := 0 to Path.Items.Count - 1 do
-        with Path.Items[II] do begin
-          Affected := False;
-        end;
-        //Path.Next;
+
       end else begin
-        ExpectedCharacters := '';
-        for II := 0 to Scope.Items.Count - 1 do
-          ExpectedCharacters := ExpectedCharacters + Scope.Items[II].Character;
-        //raise Exception.Create('Parse error. Expected "' + ExpectedCharacters + '" but found "' + Text[I] + '".');
+        //raise Exception.Create('Parse error. Expected "' + Tokens[I] + '" but found "' + Text[I] + '".');
         //MainForm.StatusBar1.SimpleText := 'Parse error. Expected "' + ExpectedCharacters + '" but found "' + Text[I] + '".';
         break;
       end;
-    end;
   end;
   Path.Destroy;
-  Scope.Destroy;
 end;