mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 17:49:27 +02:00
+ Initial Implementation by Nikolay Nikolov
This commit is contained in:
michael
parent
336fa744b7
commit
aa58ef7fe9
277
packages/extra/x11/xf86dga.pp
Normal file
277
packages/extra/x11/xf86dga.pp
Normal file
@ -0,0 +1,277 @@
|
||||
{
|
||||
Copyright (c) 1999 XFree86 Inc
|
||||
}
|
||||
{ $XFree86: xc/include/extensions/xf86dga.h,v 3.20 1999/10/13 04:20:48 dawes Exp $ }
|
||||
|
||||
Unit xf86dga;
|
||||
|
||||
{$PACKRECORDS C}
|
||||
|
||||
Interface
|
||||
|
||||
Uses
|
||||
ctypes, x, xlib;
|
||||
|
||||
Const
|
||||
libXxf86dga='Xxf86dga';
|
||||
|
||||
Type
|
||||
cfloat = Single;
|
||||
|
||||
{$INCLUDE xf86dga1.pp}
|
||||
|
||||
Const
|
||||
X_XDGAQueryVersion = 0;
|
||||
|
||||
{ 1 through 9 are in xf86dga1.pp }
|
||||
|
||||
{ 10 and 11 are reserved to avoid conflicts with rogue DGA extensions }
|
||||
|
||||
X_XDGAQueryModes = 12;
|
||||
X_XDGASetMode = 13;
|
||||
X_XDGASetViewport = 14;
|
||||
X_XDGAInstallColormap = 15;
|
||||
X_XDGASelectInput = 16;
|
||||
X_XDGAFillRectangle = 17;
|
||||
X_XDGACopyArea = 18;
|
||||
X_XDGACopyTransparentArea = 19;
|
||||
X_XDGAGetViewportStatus = 20;
|
||||
X_XDGASync = 21;
|
||||
X_XDGAOpenFramebuffer = 22;
|
||||
X_XDGACloseFramebuffer = 23;
|
||||
X_XDGASetClientVersion = 24;
|
||||
X_XDGAChangePixmapMode = 25;
|
||||
X_XDGACreateColormap = 26;
|
||||
|
||||
|
||||
XDGAConcurrentAccess = $00000001;
|
||||
XDGASolidFillRect = $00000002;
|
||||
XDGABlitRect = $00000004;
|
||||
XDGABlitTransRect = $00000008;
|
||||
XDGAPixmap = $00000010;
|
||||
|
||||
XDGAInterlaced = $00010000;
|
||||
XDGADoublescan = $00020000;
|
||||
|
||||
XDGAFlipImmediate = $00000001;
|
||||
XDGAFlipRetrace = $00000002;
|
||||
|
||||
XDGANeedRoot = $00000001;
|
||||
|
||||
XF86DGANumberEvents = 7;
|
||||
|
||||
XDGAPixmapModeLarge = 0;
|
||||
XDGAPixmapModeSmall = 1;
|
||||
|
||||
XF86DGAClientNotLocal = 0;
|
||||
XF86DGANoDirectVideoMode = 1;
|
||||
XF86DGAScreenNotActive = 2;
|
||||
XF86DGADirectNotActivated = 3;
|
||||
XF86DGAOperationNotSupported = 4;
|
||||
XF86DGANumberErrors = (XF86DGAOperationNotSupported + 1);
|
||||
|
||||
Type
|
||||
PXDGAMode = ^TXDGAMode;
|
||||
TXDGAMode = Record
|
||||
num : cint; { A unique identifier for the mode (num > 0) }
|
||||
name : PChar; { name of mode given in the XF86Config }
|
||||
verticalRefresh : cfloat;
|
||||
flags : cint; { DGA_CONCURRENT_ACCESS, etc... }
|
||||
imageWidth : cint; { linear accessible portion (pixels) }
|
||||
imageHeight : cint;
|
||||
pixmapWidth : cint; { Xlib accessible portion (pixels) }
|
||||
pixmapHeight : cint; { both fields ignored if no concurrent access }
|
||||
bytesPerScanline : cint;
|
||||
byteOrder : cint; { MSBFirst, LSBFirst }
|
||||
depth : cint;
|
||||
bitsPerPixel : cint;
|
||||
redMask : culong;
|
||||
greenMask : culong;
|
||||
blueMask : culong;
|
||||
visualClass : cshort;
|
||||
viewportWidth : cint;
|
||||
viewportHeight : cint;
|
||||
xViewportStep : cint; { viewport position granularity }
|
||||
yViewportStep : cint;
|
||||
maxViewportX : cint; { max viewport origin }
|
||||
maxViewportY : cint;
|
||||
viewportFlags : cint; { types of page flipping possible }
|
||||
reserved1 : cint;
|
||||
reserved2 : cint;
|
||||
End;
|
||||
|
||||
PXDGADevice = ^TXDGADevice;
|
||||
TXDGADevice = Record
|
||||
mode : TXDGAMode;
|
||||
data : Pcuchar;
|
||||
pixmap : TPixmap;
|
||||
End;
|
||||
|
||||
PXDGAButtonEvent = ^TXDGAButtonEvent;
|
||||
TXDGAButtonEvent = Record
|
||||
_type : cint;
|
||||
serial : culong;
|
||||
display : PDisplay;
|
||||
screen : cint;
|
||||
time : TTime;
|
||||
state : cuint;
|
||||
button : cuint;
|
||||
End;
|
||||
|
||||
PXDGAKeyEvent = ^TXDGAKeyEvent;
|
||||
TXDGAKeyEvent = Record
|
||||
_type : cint;
|
||||
serial : culong;
|
||||
display : PDisplay;
|
||||
screen : cint;
|
||||
time : TTime;
|
||||
state : cuint;
|
||||
keycode : cuint;
|
||||
End;
|
||||
|
||||
PXDGAMotionEvent = ^TXDGAMotionEvent;
|
||||
TXDGAMotionEvent = Record
|
||||
_type : cint;
|
||||
serial : culong;
|
||||
display : PDisplay;
|
||||
screen : cint;
|
||||
time : TTime;
|
||||
state : cuint;
|
||||
dx : cint;
|
||||
dy : cint;
|
||||
End;
|
||||
|
||||
PXDGAEvent = ^TXDGAEvent;
|
||||
TXDGAEvent = Record
|
||||
Case LongInt Of
|
||||
0 : (_type : cint);
|
||||
1 : (xbutton : TXDGAButtonEvent);
|
||||
2 : (xkey : TXDGAKeyEvent);
|
||||
3 : (xmotion : TXDGAMotionEvent);
|
||||
4 : (pad : Array[0..23] Of clong);
|
||||
End;
|
||||
|
||||
Function XDGAQueryExtension(
|
||||
dpy : PDisplay;
|
||||
eventBase : Pcint;
|
||||
erroBase : Pcint
|
||||
) : TBool; CDecl; External libXxf86dga;
|
||||
|
||||
Function XDGAQueryVersion(
|
||||
dpy : PDisplay;
|
||||
majorVersion : Pcint;
|
||||
minorVersion : Pcint
|
||||
) : TBool; CDecl; External libXxf86dga;
|
||||
|
||||
Function XDGAQueryModes(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
num : Pcint
|
||||
) : PXDGAMode; CDecl; External libXxf86dga;
|
||||
|
||||
Function XDGASetMode(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
mode : cint
|
||||
) : PXDGADevice; CDecl; External libXxf86dga;
|
||||
|
||||
Function XDGAOpenFramebuffer(
|
||||
dpy : PDisplay;
|
||||
screen : cint
|
||||
) : TBool; CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGACloseFramebuffer(
|
||||
dpy : PDisplay;
|
||||
screen : cint
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGASetViewport(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
x : cint;
|
||||
y : cint;
|
||||
flags : cint
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGAInstallColormap(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
cmap : TColormap
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Function XDGACreateColormap(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
device : PXDGADevice;
|
||||
alloc : cint
|
||||
) : TColormap; CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGASelectInput(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
event_mask : clong
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGAFillRectangle(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
x : cint;
|
||||
y : cint;
|
||||
width : cuint;
|
||||
height : cuint;
|
||||
color : culong
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGACopyArea(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
srcx : cint;
|
||||
srcy : cint;
|
||||
width : cuint;
|
||||
height : cuint;
|
||||
dstx : cint;
|
||||
dsty : cint
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGACopyTransparentArea(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
srcx : cint;
|
||||
srcy : cint;
|
||||
width : cuint;
|
||||
height : cuint;
|
||||
dstx : cint;
|
||||
dsty : cint;
|
||||
key : culong
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Function XDGAGetViewportStatus(
|
||||
dpy : PDisplay;
|
||||
screen : cint
|
||||
) : cint; CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGASync(
|
||||
dpy : PDisplay;
|
||||
screen : cint
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Function XDGASetClientVersion(
|
||||
dpy : PDisplay
|
||||
) : TBool; CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGAChangePixmapMode(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
x : Pcint;
|
||||
y : Pcint;
|
||||
mode : cint
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Procedure XDGAKeyEventToXKeyEvent(
|
||||
dk : PXDGAKeyEvent;
|
||||
xk : PXKeyEvent
|
||||
); CDecl; External libXxf86dga;
|
||||
|
||||
Implementation
|
||||
|
||||
End.
|
||||
125
packages/extra/x11/xf86dga1.pp
Normal file
125
packages/extra/x11/xf86dga1.pp
Normal file
@ -0,0 +1,125 @@
|
||||
{ $XFree86: xc/include/extensions/xf86dga1.h,v 1.2 1999/04/17 07:05:41 dawes Exp $ }
|
||||
{
|
||||
|
||||
Copyright (c) 1995 Jon Tombs
|
||||
Copyright (c) 1995 XFree86 Inc
|
||||
|
||||
}
|
||||
|
||||
{************************************************************************
|
||||
|
||||
THIS IS THE OLD DGA API AND IS OBSOLETE. PLEASE DO NOT USE IT ANYMORE
|
||||
|
||||
************************************************************************}
|
||||
|
||||
Type
|
||||
PPcchar = ^Pcchar;
|
||||
|
||||
Const
|
||||
X_XF86DGAQueryVersion = 0;
|
||||
X_XF86DGAGetVideoLL = 1;
|
||||
X_XF86DGADirectVideo = 2;
|
||||
X_XF86DGAGetViewPortSize = 3;
|
||||
X_XF86DGASetViewPort = 4;
|
||||
X_XF86DGAGetVidPage = 5;
|
||||
X_XF86DGASetVidPage = 6;
|
||||
X_XF86DGAInstallColormap = 7;
|
||||
X_XF86DGAQueryDirectVideo = 8;
|
||||
X_XF86DGAViewPortChanged = 9;
|
||||
|
||||
XF86DGADirectPresent = $0001;
|
||||
XF86DGADirectGraphics = $0002;
|
||||
XF86DGADirectMouse = $0004;
|
||||
XF86DGADirectKeyb = $0008;
|
||||
XF86DGAHasColormap = $0100;
|
||||
XF86DGADirectColormap = $0200;
|
||||
|
||||
Function XF86DGAQueryVersion(
|
||||
dpy : PDisplay;
|
||||
majorVersion : Pcint;
|
||||
minorVersion : Pcint
|
||||
) : TBool; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAQueryExtension(
|
||||
dpy : PDisplay;
|
||||
event_base : Pcint;
|
||||
error_base : Pcint
|
||||
) : TBool; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAGetVideoLL(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
base_addr : Pcint;
|
||||
width : Pcint;
|
||||
bank_size : Pcint;
|
||||
ram_size : Pcint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAGetVideo(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
base_addr : PPcchar;
|
||||
width : Pcint;
|
||||
bank_size : Pcint;
|
||||
ram_size : Pcint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGADirectVideo(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
enable : cint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGADirectVideoLL(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
enable : cint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAGetViewPortSize(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
width : Pcint;
|
||||
height : Pcint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGASetViewPort(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
x : cint;
|
||||
y : cint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAGetVidPage(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
vid_page : Pcint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGASetVidPage(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
vid_page : cint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAInstallColormap(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
Colormap : TColormap
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAForkApp(
|
||||
screen : cint
|
||||
) : cint; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAQueryDirectVideo(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
flags : Pcint
|
||||
) : TStatus; CDecl; External libXxf86dga;
|
||||
|
||||
Function XF86DGAViewPortChanged(
|
||||
dpy : PDisplay;
|
||||
screen : cint;
|
||||
n : cint
|
||||
) : TBool; CDecl; External libXxf86dga;
|
||||
Loading…
Reference in New Issue
Block a user