Changeset 44 for branches/DelphiToC/UPascalCompiler.pas

Timestamp:

Aug 9, 2010, 10:22:30 AM (14 years ago)

Author:

george

Message:

Reworked tokenizer code with state machine instead of direct sequence analyze.
Parser classes with class methods rewrited back to single class TPaascalParser which inherit from TBasePascal.

File:

• branches/DelphiToC/UPascalCompiler.pas (modified) (3 diffs)

branches/DelphiToC/UPascalCompiler.pas

@@ -11 +11 @@
 
 type
+
+  { TCompiler }
+
   TCompiler = class
   private
     FOnErrorMessage: TOnErrorMessage;
     procedure ErrorMessage(Text: string);
+    procedure Init;
   public
     ProgramCode: TProgram;
@@ -32 +36 @@
 procedure TCompiler.Compile;
 begin
-  Parser.CodePosition := 1;
+  Init;
+  Parser.Init;
   try
-    TParserProgram.Parse(Parser, ProgramCode);
+    Parser.ParseAll(ProgramCode);
   except
     on EEndOfData do ;
@@ -65 +70 @@
 end;
 
+procedure TCompiler.Init;
+begin
+  with Parser do begin
+    Log('==== Parse start ====');
+    with ProgramCode do begin
+      Modules.Clear;
+
+      with TModule(Modules[Modules.Add(TModule.Create)]) do begin
+        Name := 'Main';
+        with TType(Types[Types.Add(TType.Create)]) do begin
+          Name := 'Void';
+          Size := 0;
+          UsedType := nil;
+        end;
+        with TType(Types[Types.Add(TType.Create)]) do begin
+          Name := 'Byte';
+          Size := 1;
+          UsedType := nil;
+        end;
+        with TFunction(Methods[Methods.Add(TFunction.Create)]) do begin
+          Name := 'Exit';
+          ResultType := TType(TModule(Modules[0]).Types[0]);
+        end;
+        with TFunction(Methods[Methods.Add(TFunction.Create)]) do begin
+          Name := 'WriteLn';
+          ResultType := TType(TModule(Modules[0]).Types[0]);
+        end;
+      end;
+    end;
+  end;
+end;
+
 end.