Changeset 19 for branches/Void/UGrammer.pas

Timestamp:

Nov 10, 2009, 4:15:47 PM (15 years ago)

Author:

george

Message:

• Upraveno: Vylepšeny třídy pro analýzu gramatiky.

File:

• branches/Void/UGrammer.pas (modified) (3 diffs)

branches/Void/UGrammer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fgl;
+  Classes, SysUtils, fgl, UTokenizer;
 
 type
@@ -12 +12 @@
   TRuleItemType = (itTerminal, itNonterminal);
 
+  TGrammerRule = class;
+  TGrammer = class;
+
+  THandleEvent = procedure (GrammerRule: TGrammerRule) of object;
+
   TGrammerItem = class
+  private
+    Parent: TGrammerRule;
+  public
+    TokenType: TTokenType;
+    Rule: TGrammerRule;
     ItemType: TRuleItemType;
     Optional: Boolean;
     Repetition: Boolean;
+    Text: string;
   end;
 
   TGrammerItemList = specialize TFPGObjectList<TGrammerItem>;
 
+  { TGrammerRule }
+
   TGrammerRule = class
+  private
+    FOnHandle: THandleEvent;
+    Parent: TGrammer;
+  public
     Name: string;
     RuleType: TRuleType;
     Items: TGrammerItemList;
+    procedure AddTerminal(AText: string; ATokenType: TTokenType; AOptional, ARepetition: Boolean);
+    procedure AddRule(ARule: TGrammerRule; AOptional, ARepetition: Boolean);
     constructor Create;
     destructor Destroy; override;
+    property OnHandle: THandleEvent read FOnHandle write FOnHandle;
   end;
 
   TGrammerRuleList = specialize TFPGObjectList<TGrammerRule>;
-
-  { TGrammer }
 
   TGrammer = class
@@ -40 +58 @@
 
 implementation
+
+procedure TGrammerRule.AddTerminal(AText: string; ATokenType: TTokenType; AOptional, ARepetition: Boolean
+  );
+begin
+  with Items[Items.Add(TGrammerItem.Create)] do begin
+    ItemType := itTerminal;
+    TokenType := ATokenType;
+    Text := AText;
+    Optional := AOptional;
+    Repetition := ARepetition;
+    Parent := Self;
+  end;
+end;
+
+procedure TGrammerRule.AddRule(ARule: TGrammerRule; AOptional,
+  ARepetition: Boolean);
+begin
+  with Items[Items.Add(TGrammerItem.Create)] do begin
+    ItemType := itNonterminal;
+    Rule := ARule;
+    Optional := AOptional;
+    Repetition := ARepetition;
+    Parent := Self;
+  end;
+end;
 
 constructor TGrammerRule.Create;