Changeset 9 for UMainForm.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:

• UMainForm.pas (modified) (9 diffs)

UMainForm.pas

@@ -17 +17 @@
     TreeView1: TTreeView;
     TreeView2: TTreeView;
-    Label1: TLabel;
     Button2: TButton;
     Memo2: TMemo;
     Button3: TButton;
+    StatusBar1: TStatusBar;
+    Button4: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -26 +27 @@
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
   private
     procedure ShowProgramNode(Node: TTreeNode; SourceProgram: TProgramItem);
@@ -55 +57 @@
   SourceProgram := TProgram.Create;
   Grammer.Parse(Memo1.Text, SourceProgram);
-  with SourceProgram.TopItem do begin
-    MergeNonterminal(TGrammerRule(Grammer.Rules[7]));
-    MergeNonterminal(TGrammerRule(Grammer.Rules[9]));
-    DeleteNonterminal(TGrammerRule(Grammer.Rules[0]));
-    DeleteEmpty;
-    Join(TGrammerRule(Grammer.Rules[17]), 1);
-    Join(TGrammerRule(Grammer.Rules[15]), 0);
-    Join(TGrammerRule(Grammer.Rules[14]), 0);
-  end;
   ShowProgramTree(SourceProgram);
 end;
@@ -91 +84 @@
 end;
 
+procedure TMainForm.Button4Click(Sender: TObject);
+begin
+  with SourceProgram.TopItem do begin
+    MergeNonterminal(TGrammerRule(Grammer.Rules[7]));
+    MergeNonterminal(TGrammerRule(Grammer.Rules[9]));
+    DeleteNonterminal(TGrammerRule(Grammer.Rules[0]));
+    DeleteEmpty;
+    Join(TGrammerRule(Grammer.Rules[17]), 1);
+    Join(TGrammerRule(Grammer.Rules[15]), 0);
+    Join(TGrammerRule(Grammer.Rules[14]), 0);
+  end;
+  ShowProgramTree(SourceProgram);
+end;
+
 procedure TMainForm.FormCreate(Sender: TObject);
 var
@@ -260 +267 @@
       Name := 'ConcatenationBlock';
       RuleType := rtSequence;
-      AddRule(WhiteSpace, False, True);
+      AddRule(WhiteSpace, True, True);
       AddRule(Expression, True, False);
     end;
@@ -269 +276 @@
       RuleType := rtSequence;
       AddRule(Expression, False, False);
+      AddRule(WhiteSpace, True, True);
       AddRule(ConcatenationBlock, True, True);
     end;
@@ -288 +296 @@
       RuleType := rtSequence;
       AddRule(Concatenation, False, False);
+      AddRule(WhiteSpace, True, True);
       AddRule(SeparationBlock, True, True);
     end;
@@ -374 +383 @@
             RuleItem.RuleName := Value;
             RuleItem.Rule := nil;
+          end else if Value = 'NAME' then begin
+            RuleItem.Rule := TGrammerRule(PascalGrammer.Rules[7]);
+          end else if Value = 'NUMBER' then begin
+            RuleItem.Rule := TGrammerRule(PascalGrammer.Rules[5]);
+          end else if (Length(Value) > 1) and (Value[1] = '''') and
+          (Value[Length(Value)] = '''') then begin
+            if Length(Value) > 3 then begin
+              NewRule := TGrammerRule.Create;
+              NewRule.Ownership := ARule;
+              NewRule.Name := 'Term';
+              NewRule.AddTerminalText(Copy(Value, 2, Length(Value) - 2));
+              PascalGrammer.Rules.Add(NewRule);
+              RuleItem.Rule := NewRule;
+              RuleItem.ItemType := itNonterminal;
+            end else if Length(Value) = 3 then begin
+              RuleItem.ItemType := itTerminal;
+              RuleItem.Character := Value[2]
+            end;
           end else begin
             NewRule := TGrammerRule.Create;
@@ -422 +449 @@
   I: Integer;
   NewRule: TGrammerRule;
+  WhiteSpace, LowerCaseAlphabeticCharacter, UpperCaseAlphabeticCharacter,
+  AlphabeticCharacter, Digit, Number, AlphaNumericCharacter,
+  Identifier: TGrammerRule;
+  C: Char;
 begin
   for I := 0 to PascalGrammer.Rules.Count - 1 do
     TGrammerRule(PascalGrammer.Rules[I]).Free;
   PascalGrammer.Rules.Clear;
+  with PascalGrammer do begin
+    WhiteSpace := TGrammerRule.Create;
+    with WhiteSpace do begin
+      Name := 'WhiteSpace';
+      RuleType := rtAlternative;
+      AddTerminal(' ', False, False);
+      AddTerminal(#10, False, False);
+      AddTerminal(#13, False, False);
+    end;
+    Rules.Add(WhiteSpace);
+
+    LowerCaseAlphabeticCharacter := TGrammerRule.Create;
+    with LowerCaseAlphabeticCharacter do begin
+      Name := 'LowerCaseAlphabeticCharacter';
+      RuleType := rtAlternative;
+      for C := 'a' to 'z' do AddTerminal(C, False, False);
+    end;
+    Rules.Add(LowerCaseAlphabeticCharacter);
+
+    UpperCaseAlphabeticCharacter := TGrammerRule.Create;
+    with UpperCaseAlphabeticCharacter do begin
+      Name := 'UpperCaseAlphabeticCharacter';
+      RuleType := rtAlternative;
+      for C := 'A' to 'Z' do AddTerminal(C, False, False);
+    end;
+    Rules.Add(UpperCaseAlphabeticCharacter);
+
+    AlphabeticCharacter := TGrammerRule.Create;
+    with AlphabeticCharacter do begin
+      Name := 'AlphabeticCharacter';
+      RuleType := rtAlternative;
+      AddRule(LowerCaseAlphabeticCharacter, False, False);
+      AddRule(UpperCaseAlphabeticCharacter, False, False);
+    end;
+    Rules.Add(AlphabeticCharacter);
+
+    Digit := TGrammerRule.Create;
+    with Digit do begin
+      Name := 'Digit';
+      RuleType := rtAlternative;
+      for C := '0' to '9' do AddTerminal(C, False, False);
+    end;
+    Rules.Add(Digit);
+
+    Number := TGrammerRule.Create;
+    with Number do begin
+      Name := 'Number';
+      RuleType := rtSequence;
+      AddTerminal('-', True, False);
+      AddRule(Digit, False, True);
+    end;
+    Rules.Add(Number);
+
+    AlphaNumericCharacter := TGrammerRule.Create;
+    with AlphaNumericCharacter do begin
+      Name := 'AlphaNumericCharacter';
+      RuleType := rtAlternative;
+      AddRule(Digit, False, False);
+      AddRule(AlphabeticCharacter, False, False);
+      AddTerminal('_', False, False);
+    end;
+    Rules.Add(AlphaNumericCharacter);
+
+    Identifier := TGrammerRule.Create;
+    with Identifier do begin
+      Name := 'Identifier';
+      RuleType := rtSequence;
+      AddRule(AlphabeticCharacter, False, False);
+      AddRule(AlphaNumericCharacter, True, True);
+    end;
+    Rules.Add(Identifier);
+  end;
+
   PascalGrammer.TopRule := nil;
   with SourceProgram.TopItem do begin