Changeset 19 for branches/Void/UCompilator.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/UCompilator.pas (modified) (8 diffs)

branches/Void/UCompilator.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UOutputGenerator, UModel, UVoidParser, fgl;
+  Classes, SysUtils, UOutputGenerator, UModel, UTokenizer, fgl, UGrammer;
 
 type
@@ -23 +23 @@
   private
     FOnError: TOnErrorEvent;
+    Grammer: TGrammer;
     procedure DoError(AText: string);
     procedure ParseBeginEnd;
@@ -29 +30 @@
     procedure ParseTypeDefinition;
     procedure ParseExpression;
+    procedure InitGrammer;
   public
     ErrorMessages: TErrorMessageList;
@@ -49 +51 @@
   Terminate: Boolean;
 begin
-  with ErrorMessages.Add do begin
+  with ErrorMessages[ErrorMessages.Add(TErrorMessage.Create)] do begin
     CodePosition := Parser.TokenStartPosition;
     Text := AText;
@@ -147 +149 @@
 end;
 
+procedure TCompilator.InitGrammer;
+var
+  RuleProgram, RuleBlock, RuleDeclaration, RuleStatement, RuleConstant,
+  RuleVariable, RuleFunction: TGrammerRule;
+begin
+  Grammer := TGrammer.Create;
+  with Grammer do begin
+    RuleConstantDefinition := TGrammerRule.Create;
+    with RuleConstantDefinition do begin
+      Name := 'ConstantDefinition';
+      RuleType := rtSequence;
+    end;
+    Rules.Add(RuleConstantDefinition);
+
+    RuleConstant := TGrammerRule.Create;
+    with RuleConstant do begin
+      Name := 'Constant';
+      RuleType := rtSequence;
+      AddTerminal('const', ttIdentifier, False, False);
+      AddRule(RuleConstantDefinition, False, False);
+    end;
+    Rules.Add(RuleConstant);
+
+    RuleFunction := TGrammerRule.Create;
+    with RuleFunction do begin
+      Name := 'Function';
+      RuleType := rtSequence;
+    end;
+    Rules.Add(RuleFunction);
+
+    RuleVariable := TGrammerRule.Create;
+    with RuleVariable do begin
+      Name := 'Variable';
+      RuleType := rtSequence;
+    end;
+    Rules.Add(RuleVariable);
+
+    RuleStatement := TGrammerRule.Create;
+    with RuleStatement do begin
+      Name := 'Statement';
+      RuleType := rtSequence;
+    end;
+    Rules.Add(RuleStatement);
+
+    RuleDeclaration := TGrammerRule.Create;
+    with RuleDeclaration do begin
+      Name := 'Declaration';
+      RuleType := rtAlternative;
+      AddRule(RuleFunction, False, False);
+      AddRule(RuleConstant, False, False);
+      AddRule(RuleVariable, False, False);
+    end;
+    Rules.Add(RuleDeclaration);
+
+    RuleBlock := TGrammerRule.Create;
+    with RuleBlock do begin
+      Name := 'Block';
+      RuleType := rtSequence;
+      AddRule(RuleDeclaration, False, True);
+      AddRule(RuleStatement, False, False);
+    end;
+    Rules.Add(RuleBlock);
+
+    RuleProgram := TGrammerRule.Create;
+    with RuleProgram do begin
+      Name := 'Program';
+      RuleType := rtSequence;
+      AddRule(RuleBlock, False, False);
+      AddTerminal('.', ttSymbol, False, False);
+    end;
+    Rules.Add(RuleProgram);
+
+    TopRule := RuleProgram;
+  end;
+end;
+
 procedure TCompilator.Compile;
 var
@@ -167 +245 @@
   Variable: TVariable;
   SourceVariable: TVariable;
-  VariableName: string;
   Value: string;
   P: Integer;
@@ -282 +359 @@
 constructor TCompilator.Create;
 begin
+  Grammer := TGrammer.Create;
+  InitGrammer;
   ErrorMessages := TErrorMessageList.Create;
   SourceCode := TMemoryStream.Create;
@@ -290 +369 @@
 destructor TCompilator.Destroy;
 begin
+  Grammer.Destroy;
   ErrorMessages.Destroy;
   SourceCode.Destroy;