Changeset 76 for branches/Transpascal/Forms/UMainForm.pas

Timestamp:

Oct 21, 2010, 1:20:57 PM (14 years ago)

Author:

george

Message:

• Enhanced: Tokenizerm, parsing of record type, generation C code for record type.
• Added: Logging of debug information.

File:

• branches/Transpascal/Forms/UMainForm.pas (modified) (4 diffs)

branches/Transpascal/Forms/UMainForm.pas

@@ -10 +10 @@
   UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
   UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking,
-  UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo;
+  UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
+  UDebugLog;
 
 const
@@ -58 +59 @@
     LastOpenedFiles: TLastOpenedList;
     ReopenLastOpenedFile: Boolean;
+    procedure CompilerDebugLog(Text: string);
     procedure OpenRecentClick(Sender: TObject);
     procedure DockInit;
@@ -208 +210 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  DebugLog.FileName := 'DebugLog.txt';
+  DeleteFile(DebugLog.FileName);
   Compiler := TCompiler.Create;
+  Compiler.Parser.OnDebugLog := CompilerDebugLog;
   Project := TProject.Create;
   LastOpenedFiles := TLastOpenedList.Create;
@@ -222 +227 @@
 end;
 
+procedure TMainForm.CompilerDebugLog(Text: string);
+begin
+  DebugLog.Add('', Text);
+end;
+
 procedure TMainForm.OpenRecentClick(Sender: TObject);
 begin