← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/ptc/win32/base/event.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/ptc/win32/base/event.inc
 
1
{
 
2
    Free Pascal port of the OpenPTC C++ library.
 
3
    Copyright (C) 2001-2003  Nikolay Nikolov (nickysn@users.sourceforge.net)
 
4
    Original C++ version by Glenn Fiedler (ptc@gaffer.org)
 
5
 
 
6
    This library is free software; you can redistribute it and/or
 
7
    modify it under the terms of the GNU Lesser General Public
 
8
    License as published by the Free Software Foundation; either
 
9
    version 2.1 of the License, or (at your option) any later version.
 
10
 
 
11
    This library 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.  See the GNU
 
14
    Lesser General Public License for more details.
 
15
 
 
16
    You should have received a copy of the GNU Lesser General Public
 
17
    License along with this library; if not, write to the Free Software
 
18
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
19
}
 
20
 
 
21
Constructor TWin32Event.Create;
 
22
 
 
23
Begin
 
24
  { create event handle }
 
25
  m_event := CreateEvent(Nil, True, False, Nil);
 
26
 
 
27
  { check event handle }
 
28
  If m_event = 0 Then
 
29
    Raise TPTCError.Create('could not create event');
 
30
End;
 
31
 
 
32
Destructor TWin32Event.Destroy;
 
33
 
 
34
Begin
 
35
  { close handle }
 
36
  CloseHandle(m_event);
 
37
  
 
38
  Inherited Destroy;
 
39
End;
 
40
 
 
41
Procedure TWin32Event._set;
 
42
 
 
43
Begin
 
44
  { set event }
 
45
  SetEvent(m_event);
 
46
End;
 
47
 
 
48
Procedure TWin32Event.reset;
 
49
 
 
50
Begin
 
51
  { reset event }
 
52
  ResetEvent(m_event);
 
53
End;
 
54
 
 
55
Procedure TWin32Event.wait;
 
56
 
 
57
Begin
 
58
  { wait for event }
 
59
  WaitForSingleObject(m_event, INFINITE);
 
60
End;