Changeset 32 for branches/Analyzátor gramatiky/UGrammer.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/UGrammer.pas (modified) (10 diffs)

branches/Analyzátor gramatiky/UGrammer.pas

@@ -6 +6 @@
 
 uses
-  Classes, ComCtrls, SysUtils, Math, UGrammerRules, fgl;
+  Classes, ComCtrls, SysUtils, fgl, UParser;
 
 type
@@ -30 +30 @@
   end;
 
-  { TPossibleCharacter }
-
   TPossibleCharacter = class
     Character: Char;
@@ -41 +39 @@
 
   TPossibleCharacterList = specialize TFPGObjectList<TPossibleCharacter>;
-
-  { TPossibleCharacters }
 
   TPossibleCharacters = class
@@ -60 +56 @@
   public
     ItemType: TRuleItemType;
-    Character: Char;
+    Text: string;
     Rule: TGrammerRule;
     RuleName: string;
     Optional: Boolean;
     Repetition: Boolean;
-    procedure GetPossibleCharacters(Path: TGrammerPath; var Characters: TPossibleCharacters);
+//    procedure GetPossibleCharacters(Path: TGrammerPath; var Characters: TPossibleCharacters);
     constructor Create;
   end;
 
   TGrammerItemList = specialize TFPGObjectList<TGrammerItem>;
+
+  { TGrammerRule }
 
   TGrammerRule = class
@@ -81 +79 @@
     procedure ClearProcessed;
     function Add: TGrammerItem;
-    procedure AddTerminal(ACharacter: Char; AOptional, ARepetition: Boolean);
+    procedure AddTerminal(AText: string; AOptional, ARepetition: Boolean);
     procedure AddTerminalText(Text: string);
     procedure AddRule(ARule: TGrammerRule; AOptional, ARepetition: Boolean);
     procedure ProcessCharacter(Character: Char);
-    procedure GetPossibleCharacters(Path: TGrammerPath;
-      var Characters: TPossibleCharacters; UseIndex: Integer = 0; UseCharIndex: Integer = -1);
+//    procedure GetPossibleCharacters(Path: TGrammerPath;
+//      var Characters: TPossibleCharacters; UseIndex: Integer = 0; UseCharIndex: Integer = -1);
+    function Check(Path: TGrammerPath; Token: string;
+      UseIndex: Integer = 0; UseCharIndex: Integer = -1): Boolean;
     constructor Create;
     destructor Destroy; override;
@@ -127 +127 @@
 end;
 
-procedure TGrammerRule.AddTerminal(ACharacter: Char; AOptional, ARepetition: Boolean);
+procedure TGrammerRule.AddTerminal(AText: string; AOptional, ARepetition: Boolean);
 begin
   with Add do begin
     ItemType := itTerminal;
-    Character := ACharacter;
+    Text := AText;
     Optional := AOptional;
     Repetition := ARepetition;
@@ -166 +166 @@
 end;
 
+(*
 procedure TGrammerRule.GetPossibleCharacters(Path: TGrammerPath;
   var Characters: TPossibleCharacters; UseIndex: Integer = 0; UseCharIndex: Integer = -1);
@@ -229 +230 @@
   TempPath.Destroy;
 end;
+*)
 
 procedure TGrammerRule.ProcessCharacter(Character: Char);
 begin
+end;
+
+function TGrammerRule.Check(Path: TGrammerPath; Token: string;
+  UseIndex: Integer; UseCharIndex: Integer): Boolean;
+begin
+
 end;
 
@@ -281 +289 @@
 end;
 
+(*
 procedure TGrammerItem.GetPossibleCharacters(Path: TGrammerPath;
   var Characters: TPossibleCharacters);
 var
   Found: Boolean;
-  PathIndex: Integer;
   NextItemIndex, NextCharIndex: Integer;
   NextRule: TGrammerRule;
@@ -315 +323 @@
   end;
 end;
+*)
 
 { TGrammerPath }