← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to fcl/inc/felog.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fcl/inc/felog.inc
 
1
{
 
2
    $Id: felog.inc,v 1.3 2003/10/09 15:53:21 peter Exp $
 
3
    This file is part of the Free Pascal run time library.
 
4
    Copyright (c) 2003 by the Free Pascal development team
 
5
 
 
6
    Generic implementation of 'system log' event mechanism which maps to file log.
 
7
    
 
8
    See the file COPYING.FPC, included in this distribution,
 
9
    for details about the copyright.
 
10
 
 
11
    This program is distributed in the hope that it will be useful,
 
12
    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
13
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
14
 
 
15
 **********************************************************************}
 
16
 
 
17
Function TEventLog.DefaultFileName : String;
 
18
 
 
19
begin
 
20
  Result:=ChangeFileExt(ExtractFileName(Paramstr(0)),'.log');
 
21
end;
 
22
 
 
23
Procedure TEventLog.ActivateSystemLog;
 
24
 
 
25
begin
 
26
  CheckIdentification;
 
27
  ActivateFileLog;
 
28
end;
 
29
 
 
30
Procedure TEventLog.DeActivateSystemLog;
 
31
 
 
32
begin
 
33
  DeActivateFileLog;
 
34
end;
 
35
 
 
36
procedure TEventLog.WriteSystemLog(EventType : TEventType; Msg : String);
 
37
 
 
38
begin
 
39
  WriteFileLog(EventType,Msg);
 
40
end;
 
41
 
 
42
Function TEventLog.RegisterMessageFile(AFileName : String) : Boolean;
 
43
 
 
44
begin
 
45
  Result:=True;
 
46
end;
 
47
 
 
48
function TEventLog.MapTypeToCategory(EventType: TEventType): Word;
 
49
begin
 
50
  Result:=0;
 
51
end;
 
52
 
 
53
function TEventLog.MapTypeToEventID(EventType: TEventType): DWord;
 
54
 
 
55
begin
 
56
  Result:=0;
 
57
end;
 
58
 
 
59
function TEventLog.MapTypeToEvent(EventType: TEventType): DWord;
 
60
 
 
61
begin
 
62
  Result:=0;
 
63
end;
 
64
 
 
65
{
 
66
  $Log: felog.inc,v $
 
67
  Revision 1.3  2003/10/09 15:53:21  peter
 
68
    * moved
 
69
 
 
70
  Revision 1.1  2003/10/06 20:33:58  peter
 
71
    * classes moved to rtl for 1.1
 
72
    * classes .inc and classes.pp files moved to fcl/classes for
 
73
      backwards 1.0.x compatiblity to have it in the fcl
 
74
 
 
75
  Revision 1.1  2003/02/19 20:25:16  michael
 
76
  + Added event log
 
77
 
 
78
}