mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 11:09:13 +02:00
+ added Xext.h header translation
git-svn-id: trunk@49591 -
This commit is contained in:
parent
2910c4dc2b
commit
d7b509e149
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -10152,6 +10152,7 @@ packages/x11/src/sunkeysym.pp svneol=native#text/plain
|
|||||||
packages/x11/src/x.pp svneol=native#text/plain
|
packages/x11/src/x.pp svneol=native#text/plain
|
||||||
packages/x11/src/xatom.pp svneol=native#text/plain
|
packages/x11/src/xatom.pp svneol=native#text/plain
|
||||||
packages/x11/src/xcms.pp svneol=native#text/plain
|
packages/x11/src/xcms.pp svneol=native#text/plain
|
||||||
|
packages/x11/src/xext.pp svneol=native#text/plain
|
||||||
packages/x11/src/xf86dga.pp svneol=native#text/plain
|
packages/x11/src/xf86dga.pp svneol=native#text/plain
|
||||||
packages/x11/src/xf86dga1.inc svneol=native#text/plain
|
packages/x11/src/xf86dga1.inc svneol=native#text/plain
|
||||||
packages/x11/src/xf86keysym.pp svneol=native#text/plain
|
packages/x11/src/xf86keysym.pp svneol=native#text/plain
|
||||||
|
@ -138,6 +138,8 @@ begin
|
|||||||
T.Dependencies.AddUnit('xlib');
|
T.Dependencies.AddUnit('xlib');
|
||||||
T.Dependencies.AddUnit('xrender');
|
T.Dependencies.AddUnit('xrender');
|
||||||
T.Dependencies.AddUnit('fontconfig');
|
T.Dependencies.AddUnit('fontconfig');
|
||||||
|
T:=P.Targets.AddUnit('xext.pas');
|
||||||
|
T.Dependencies.AddUnit('xlib');
|
||||||
|
|
||||||
{$ifndef ALLPACKAGES}
|
{$ifndef ALLPACKAGES}
|
||||||
Run;
|
Run;
|
||||||
|
58
packages/x11/src/xext.pp
Normal file
58
packages/x11/src/xext.pp
Normal file
@ -0,0 +1,58 @@
|
|||||||
|
(*
|
||||||
|
*
|
||||||
|
Copyright 1989, 1998 The Open Group
|
||||||
|
|
||||||
|
Permission to use, copy, modify, distribute, and sell this software and its
|
||||||
|
documentation for any purpose is hereby granted without fee, provided that
|
||||||
|
the above copyright notice appear in all copies and that both that
|
||||||
|
copyright notice and this permission notice appear in supporting
|
||||||
|
documentation.
|
||||||
|
|
||||||
|
The above copyright notice and this permission notice shall be included in
|
||||||
|
all copies or substantial portions of the Software.
|
||||||
|
|
||||||
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
||||||
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
||||||
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
||||||
|
OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
|
||||||
|
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
||||||
|
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
||||||
|
|
||||||
|
Except as contained in this notice, the name of The Open Group shall not be
|
||||||
|
used in advertising or otherwise to promote the sale, use or other dealings
|
||||||
|
in this Software without prior written authorization from The Open Group.
|
||||||
|
*)
|
||||||
|
|
||||||
|
unit xext;
|
||||||
|
|
||||||
|
{$PACKRECORDS C}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
ctypes, xlib;
|
||||||
|
|
||||||
|
const
|
||||||
|
libXext = 'Xext';
|
||||||
|
X_EXTENSION_UNKNOWN = 'unknown';
|
||||||
|
X_EXTENSION_MISSING = 'missing';
|
||||||
|
|
||||||
|
type
|
||||||
|
XextErrorHandler = function(
|
||||||
|
dpy: PDisplay;
|
||||||
|
{_Xconst} ext_name: Pchar;
|
||||||
|
{_Xconst} reason: PChar
|
||||||
|
): cint; cdecl;
|
||||||
|
|
||||||
|
function XSetExtensionErrorHandler(
|
||||||
|
handler: XextErrorHandler
|
||||||
|
): XextErrorHandler; cdecl; external libXext;
|
||||||
|
|
||||||
|
function XMissingExtension(
|
||||||
|
dpy: PDisplay;
|
||||||
|
{_Xconst} ext_name: PChar
|
||||||
|
): cint; cdecl; external libXext;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
end.
|
Loading…
Reference in New Issue
Block a user