paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 02:38:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazdaemon: added license

Browse Source 
git-svn-id: trunk@10556 -
This commit is contained in:
mattias 2007-02-01 10:21:25 +00:00
parent e0705d3b83
commit e712308673
2 changed files with 24 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/daemon/lazdaemon.lpk
View File

@ -17,8 +17,10 @@
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Description Value="Lazarus Service (Daemon) Support"/> <Description Value="Lazarus Service (Daemon) Support
<License Value="Modified LGPL as in FCL or RTL"/> "/>
<License Value="Modified LGPL as in FCL or RTL
"/>
<Version Minor="9" Release="9"/> <Version Minor="9" Release="9"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>

26
components/daemon/reglazdaemon.pp
View File

@ -1,16 +1,26 @@
unit reglazdaemon; {
*****************************************************************************
* *
* See the file COPYING.modifiedLGPL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
unit RegLazDaemon;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
uses uses
Classes, SysUtils, FormEditingIntf, projectintf,newitemintf, lazideintf, Classes, SysUtils, FormEditingIntf, ProjectIntf, NewItemIntf, LazIDEIntf,
controls, forms; Controls, Forms;
Type type
{ TDaemonFileDescriptor }
{ TDaemonMapperDescriptor } { TDaemonMapperDescriptor }
@ -23,6 +33,9 @@ Type
function GetImplementationSource(const Filename, SourceName, ResourceName: string): string; override; function GetImplementationSource(const Filename, SourceName, ResourceName: string): string; override;
end; end;
{ TDaemonFileDescriptor }
TDaemonFileDescriptor = Class(TFileDescPascalUnitWithResource) TDaemonFileDescriptor = Class(TFileDescPascalUnitWithResource)
Public Public
Constructor Create; override; Constructor Create; override;
@ -32,6 +45,7 @@ Type
function GetImplementationSource(const Filename, SourceName, ResourceName: string): string; override; function GetImplementationSource(const Filename, SourceName, ResourceName: string): string; override;
end; end;
{ TDaemonProjectDescriptor } { TDaemonProjectDescriptor }
TDaemonProjectDescriptor = class(TProjectDescriptor) TDaemonProjectDescriptor = class(TProjectDescriptor)