Changeset 20 for branches/Void

Timestamp:

Jun 25, 2012, 1:24:13 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Počáteční návrh editoru a kompilátoru pro i8051.

File:

• branches/Void/UCompilator.pas (modified) (4 diffs)

branches/Void/UCompilator.pas

@@ -152 +152 @@
 var
   RuleProgram, RuleBlock, RuleDeclaration, RuleStatement, RuleConstant,
-  RuleVariable, RuleFunction: TGrammerRule;
+  RuleVariable, RuleFunction, RuleConstantBlock: TGrammerRule;
 begin
   Grammer := TGrammer.Create;
@@ -160 +160 @@
       Name := 'ConstantDefinition';
       RuleType := rtSequence;
+      AddTerminal('', ttIdentifier, False, False);
+      AddTerminal('=', ttSymbol, False, False);
+      AddTerminal('', ttNumber, False, False);
     end;
     Rules.Add(RuleConstantDefinition);
+
+    RuleConstantBlock := TGrammerRule.Create;
+    with RuleConstantBlock do begin
+      Name := 'ConstantBlock';
+      RuleType := rtSequence;
+      AddTerminal(',', ttISymbol, False, False);
+      AddRule(RuleConstantDefinition, False, False);
+    end;
+    Rules.Add(RuleConstantBlock);
 
     RuleConstant := TGrammerRule.Create;
@@ -169 +181 @@
       AddTerminal('const', ttIdentifier, False, False);
       AddRule(RuleConstantDefinition, False, False);
+      AddRule(RuleConstantBlock, True, True);
     end;
     Rules.Add(RuleConstant);
@@ -179 +192 @@
     Rules.Add(RuleFunction);
 
+    RuleVariableBlock := TGrammerRule.Create;
+    with RuleVariableBlock do begin
+      Name := 'VariableBlock';
+      RuleType := rtSequence;
+      AddTerminal(',', ttIdentifier, False, False);
+      AddTerminal('', ttIdentifier, False, False);
+    end;
+    Rules.Add(RuleVariableBlock);
+
     RuleVariable := TGrammerRule.Create;
     with RuleVariable do begin
       Name := 'Variable';
       RuleType := rtSequence;
+      AddTerminal('var', ttIdentifier, False, False);
+      AddTerminal('', ttIdentifier, False, False);
+      AddRule(RuleVariableBlock, True, True);
     end;
     Rules.Add(RuleVariable);