Changeset 20

Timestamp:

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

Author:

chronos

Message:

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

Location:

branches

Files:

• 8051 (added)
• 8051/ASM8051.ico (added)
• 8051/ASM8051.lpi (added)
• 8051/ASM8051.lpr (added)
• 8051/ASM8051.res (added)
• 8051/Images (added)
• 8051/Images/Icons (added)
• 8051/Images/Icons/Book.png (added)
• 8051/Images/Icons/Breakpoint.png (added)
• 8051/Images/Icons/Delete.png (added)
• 8051/Images/Icons/Document.png (added)
• 8051/Images/Icons/Exit.png (added)
• 8051/Images/Icons/Help.png (added)
• 8051/Images/Icons/Number.png (added)
• 8051/Images/Icons/Open.png (added)
• 8051/Images/Icons/Pause.png (added)
• 8051/Images/Icons/Reload.png (added)
• 8051/Images/Icons/RunToCursor.png (added)
• 8051/Images/Icons/Save.png (added)
• 8051/Images/Icons/StepInside.png (added)
• 8051/Images/Icons/StepOut.png (added)
• 8051/Images/Icons/StepOver.png (added)
• 8051/Images/Icons/Stop.png (added)
• 8051/UFormMain.lfm (added)
• 8051/UFormMain.pas (added)
• 8051/UParser.pas (added)
• 8051/UProducer.pas (added)
• 8051/USourceCode.pas (added)
• 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);