Added abstractcompiler and abstractdebugger

Shane

git-svn-id: trunk@35 -

.gitattributes

@@ -67,6 +67,8 @@ components/synedit/source/syneditstrconst.pas svneol=native#text/pascal
 components/synedit/source/synedittextbuffer.pas svneol=native#text/pascal
 components/synedit/source/synedittypes.pas svneol=native#text/pascal
 components/synedit/source/utextdrawer.pas svneol=native#text/pascal
+designer/abstractcompiler.pp svneol=native#text/pascal
+designer/abstractdebugger.pp svneol=native#text/pascal
 designer/abstracteditor.pp svneol=native#text/pascal
 designer/abstractfilesystem.pp svneol=native#text/pascal
 designer/controlselection.pp svneol=native#text/pascal

designer/abstractcompiler.pp

@@ -0,0 +1,42 @@
+{
+ /***************************************************************************
+                               AbstractCompiler.pp
+                             -------------------
+
+
+
+
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ ***************************************************************************/
+}
+unit AbstractCompiler;
+
+{$mode objfpc}
+
+interface
+
+uses
+  classes, Controls, forms,buttons,sysutils, Graphics,Extctrls;
+
+type
+
+  TAbstractCompiler = class
+   public
+     procedure Compile; abstract; virtual; //Starts the compiler
+     property Flags: TCompilerFlags; abstract; virtual; //All avalable flags of the compiler
+     property OnOutput: TCompilerOutputEvent; abstract; virtual; //Event procedure to get responces back from the compiler
+     property FileName: TString; abstract; virtual; //Name of the file to compile
+  end;
+
+
+implementation
+
+end.

designer/abstractdebugger.pp

@@ -0,0 +1,51 @@
+{
+ /***************************************************************************
+                               AbstractDebugger.pp
+                             -------------------
+
+
+
+
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ ***************************************************************************/
+}
+unit AbstractDebugger;
+
+{$mode objfpc}
+
+interface
+
+uses
+  classes, Controls, forms,buttons,sysutils, Graphics,Extctrls;
+
+type
+
+  TAbstractDebugger = class
+   public
+     procedure Go; abstract; virtual;//Starts / continues debugging
+     procedure Pause; abstract; virtual;//Stops running
+     procedure Stop; abstract; virtual;//quit debugging
+     procedure StepOver; abstract; virtual;
+     procedure StepInto; abstract; virtual;
+     procedure Goto(const ASource: String; ALine: Integer); abstract; virtual;//Executes til a certain point
+     procedure ExecuteTo(const ASource: String; ALine: Integer); abstract; virtual; //Executes til a certain point
+     procedure Goto; abstract; virtual; //No execute, only set exec point
+     property FileName: String; abstract; virtual;//The name of the exe to be debugged
+     property Flags: TCommandFlags; abstract; virtual; //All available flags of the debugger
+     property OnCurrent: TDebuggerCurrentLineEvent; abstract; virtual; //Passes info about the current line being debugged
+     property BreakPoints: TDBGBreakPoints; abstract; virtual; //list of all breakpoints
+     property Variables: TDBGVariables; abstract; virtual; //list of all watches localvars etc
+     property OnState: TDebuggerStateEvent; abstract; virtual; //Fires when the current state of the debugger changes
+   end;
+
+implementation
+
+end.