Changeset 94

Timestamp:

Nov 4, 2016, 9:26:56 PM (8 years ago)

Author:

chronos

Message:

• Added: Source code class.

Location:

branches/dcomp/CmdLine

Files:

• Compiler/UAnalyzer.pas (modified) (2 diffs)
• Compiler/UAnalyzerPascal.pas (modified) (2 diffs)
• Compiler/USourceCode.pas (added)
• Compiler/USourceCodePascal.pas (added)
• Compiler/UTarget.pas (modified) (2 diffs)
• TargetPHP/UTargetPHP.pas (modified) (1 diff)
• dcomp.dpr (modified) (1 diff)

branches/dcomp/CmdLine/Compiler/UAnalyzer.pas

@@ -5 +5 @@
 type
   TAnalyzer = class
+    Name: string;
     procedure Analyze; virtual;
+    constructor Create; virtual;
   end;
 
@@ -17 +19 @@
 end;
 
+constructor TAnalyzer.Create;
+begin
+
+end;
+
 end.

branches/dcomp/CmdLine/Compiler/UAnalyzerPascal.pas

@@ -12 +12 @@
   TAnalyzerPascal = class(TAnalyzer)
     procedure Analyze; override;
+    constructor Create; override;
   end;
 
@@ -23 +24 @@
 end;
 
+constructor TAnalyzerPascal.Create;
+begin
+  inherited;
+  Name := 'Pascal';
+end;
+
 end.
 

branches/dcomp/CmdLine/Compiler/UTarget.pas

@@ -7 +7 @@
     Name: string;
     procedure Produce; virtual;
+    constructor Create; virtual;
   end;
   
@@ -14 +15 @@
 implementation
 
+constructor TTarget.Create;
+begin
+
+end;
+
 procedure TTarget.Produce;
 begin

branches/dcomp/CmdLine/TargetPHP/UTargetPHP.pas

@@ -9 +9 @@
   TTargetPHP = class(TTarget)
     procedure Produce; override;
+    constructor Create; override;
   end;
 
 implementation
+
+constructor TTargetPHP.Create;
+begin
+  inherited;
+  Name := 'PHP';
+end;
 
 procedure TTargetPHP.Produce;

branches/dcomp/CmdLine/dcomp.dpr

@@ -9 +9 @@
   UAnalyzerPascal in 'Compiler\UAnalyzerPascal.pas',
   UAnalyzer in 'Compiler\UAnalyzer.pas',
-  UTarget in 'Compiler\UTarget.pas';
+  UTarget in 'Compiler\UTarget.pas',
+  USourceCode in 'Compiler\USourceCode.pas',
+  USourceCodePascal in 'Compiler\USourceCodePascal.pas';
 
 type