Changeset 8 for UMainForm.pas

Timestamp:

Oct 15, 2007, 8:28:00 AM (17 years ago)

Author:

george

Message:

Opraveno: Vytváření nové gramatiky z jiné. Zobrazení výsledku a další fáze parsování pascalu.

File:

• UMainForm.pas (modified) (9 diffs)

UMainForm.pas

@@ -9 +9 @@
 const
   DefaultGrammerFileName: string = 'grammer/test.grm';
+  DefaultPascalFileName: string = 'pascal/test.pas';
 
 type
@@ -18 +19 @@
     Label1: TLabel;
     Button2: TButton;
+    Memo2: TMemo;
+    Button3: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
   private
     procedure ShowProgramNode(Node: TTreeNode; SourceProgram: TProgramItem);
@@ -29 +33 @@
     PascalGrammer: TGrammer;
     SourceProgram: TProgram;
+    PascalProgram: TProgram;
     procedure ShowProgramTree(SourceProgram: TProgram);
     procedure ShowGrammerTree(Grammer: TGrammer);
@@ -69 +74 @@
 end;
 
+procedure TMainForm.Button3Click(Sender: TObject);
+begin
+  PascalProgram.Free;
+  PascalProgram := TProgram.Create;
+  PascalGrammer.Parse(Memo2.Text, PascalProgram);
+  with PascalProgram.TopItem, PascalGrammer do begin
+//    MergeNonterminal(TGrammerRule(Rules[7]));
+//    MergeNonterminal(TGrammerRule(Rules[9]));
+//    DeleteNonterminal(TGrammerRule(Rules[0]));
+//    DeleteEmpty;
+//    Join(TGrammerRule(Rules[17]), 1);
+//    Join(TGrammerRule(Rules[15]), 0);
+//    Join(TGrammerRule(Rules[14]), 0);
+  end;
+  ShowProgramTree(PascalProgram);
+end;
+
 procedure TMainForm.FormCreate(Sender: TObject);
 var
@@ -311 +333 @@
   SourceProgram := TProgram.Create;
   Memo1.Lines.LoadFromFile(DefaultGrammerFileName);
+  Memo2.Lines.LoadFromFile(DefaultPascalFileName);
   SourceCode := '';
 //  with Memo1.Lines do
@@ -317 +340 @@
 //  end;
 
-  Grammer.Parse(Memo1.Text, SourceProgram);
-  ShowProgramTree(SourceProgram);
+  //Grammer.Parse(Memo1.Text, SourceProgram);
+  //ShowProgramTree(SourceProgram);
 end;
 
@@ -324 +347 @@
 begin
   Memo1.Lines.SaveToFile(DefaultGrammerFileName);
+  Memo2.Lines.SaveToFile(DefaultPascalFileName);
   PascalGrammer.Free;
   Grammer.Free;
@@ -386 +410 @@
         PascalGrammer.Rules.Add(NewRule);
         RuleItem.Repetition := True;
+        RuleItem.Optional := True;
         RuleItem.ItemType := itNonterminal;
         RuleItem.Rule := NewRule;
@@ -454 +479 @@
       end;
       NewTreeNode := AddChild(TreeNode, ARule.Name + Attributs);
-      for II := 0 to Length(Items) - 1 do
-      with Items[II] do begin
+      for II := 0 to Items.Count - 1 do
+      with TGrammerItem(Items[II]) do begin
         if Optional then Attributs := '(Opt)' else Attributs := '';
         if Repetition then Attributs := Attributs + '(Rep)';