mirror of
https://github.com/nim-lang/Nim.git
synced 2026-02-12 06:18:51 +00:00
removed x11
This commit is contained in:
fowlmouth
@@ -1,71 +0,0 @@
|
||||
import xlib, xutil, x, keysym
|
||||
|
||||
const
|
||||
WINDOW_WIDTH = 400
|
||||
WINDOW_HEIGHT = 300
|
||||
|
||||
var
|
||||
width, height: cuint
|
||||
display: PDisplay
|
||||
screen: cint
|
||||
depth: int
|
||||
win: TWindow
|
||||
sizeHints: TXSizeHints
|
||||
|
||||
proc create_window =
|
||||
width = WINDOW_WIDTH
|
||||
height = WINDOW_HEIGHT
|
||||
|
||||
display = XOpenDisplay(nil)
|
||||
if display == nil:
|
||||
echo("Verbindung zum X-Server fehlgeschlagen")
|
||||
quit(1)
|
||||
|
||||
screen = XDefaultScreen(display)
|
||||
depth = XDefaultDepth(display, screen)
|
||||
var rootwin = XRootWindow(display, screen)
|
||||
win = XCreateSimpleWindow(display, rootwin, 100, 10,
|
||||
width, height, 5,
|
||||
XBlackPixel(display, screen),
|
||||
XWhitePixel(display, screen))
|
||||
size_hints.flags = PSize or PMinSize or PMaxSize
|
||||
size_hints.min_width = width.cint
|
||||
size_hints.max_width = width.cint
|
||||
size_hints.min_height = height.cint
|
||||
size_hints.max_height = height.cint
|
||||
discard XSetStandardProperties(display, win, "Simple Window", "window",
|
||||
0, nil, 0, addr(size_hints))
|
||||
discard XSelectInput(display, win, ButtonPressMask or KeyPressMask or
|
||||
PointerMotionMask)
|
||||
discard XMapWindow(display, win)
|
||||
|
||||
proc close_window =
|
||||
discard XDestroyWindow(display, win)
|
||||
discard XCloseDisplay(display)
|
||||
|
||||
var
|
||||
xev: TXEvent
|
||||
|
||||
proc process_event =
|
||||
var key: TKeySym
|
||||
case int(xev.theType)
|
||||
of KeyPress:
|
||||
key = XLookupKeysym(cast[ptr TXKeyEvent](addr(xev)), 0)
|
||||
if key.int != 0:
|
||||
echo("keyboard event")
|
||||
of ButtonPressMask, PointerMotionMask:
|
||||
Echo("Mouse event")
|
||||
else: nil
|
||||
|
||||
proc eventloop =
|
||||
discard XFlush(display)
|
||||
var num_events = int(XPending(display))
|
||||
while num_events != 0:
|
||||
dec(num_events)
|
||||
discard XNextEvent(display, addr(xev))
|
||||
process_event()
|
||||
|
||||
create_window()
|
||||
while true:
|
||||
eventloop()
|
||||
close_window()
|
||||
@@ -1,110 +0,0 @@
|
||||
# $Xorg: cursorfont.h,v 1.4 2001/02/09 02:03:39 xorgcvs Exp $
|
||||
#
|
||||
#
|
||||
#Copyright 1987, 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.
|
||||
#
|
||||
#
|
||||
|
||||
const
|
||||
XC_num_glyphs* = 154
|
||||
XC_X_cursor* = 0
|
||||
XC_arrow* = 2
|
||||
XC_based_arrow_down* = 4
|
||||
XC_based_arrow_up* = 6
|
||||
XC_boat* = 8
|
||||
XC_bogosity* = 10
|
||||
XC_bottom_left_corner* = 12
|
||||
XC_bottom_right_corner* = 14
|
||||
XC_bottom_side* = 16
|
||||
XC_bottom_tee* = 18
|
||||
XC_box_spiral* = 20
|
||||
XC_center_ptr* = 22
|
||||
XC_circle* = 24
|
||||
XC_clock* = 26
|
||||
XC_coffee_mug* = 28
|
||||
XC_cross* = 30
|
||||
XC_cross_reverse* = 32
|
||||
XC_crosshair* = 34
|
||||
XC_diamond_cross* = 36
|
||||
XC_dot* = 38
|
||||
XC_dotbox* = 40
|
||||
XC_double_arrow* = 42
|
||||
XC_draft_large* = 44
|
||||
XC_draft_small* = 46
|
||||
XC_draped_box* = 48
|
||||
XC_exchange* = 50
|
||||
XC_fleur* = 52
|
||||
XC_gobbler* = 54
|
||||
XC_gumby* = 56
|
||||
XC_hand1* = 58
|
||||
XC_hand2* = 60
|
||||
XC_heart* = 62
|
||||
XC_icon* = 64
|
||||
XC_iron_cross* = 66
|
||||
XC_left_ptr* = 68
|
||||
XC_left_side* = 70
|
||||
XC_left_tee* = 72
|
||||
XC_leftbutton* = 74
|
||||
XC_ll_angle* = 76
|
||||
XC_lr_angle* = 78
|
||||
XC_man* = 80
|
||||
XC_middlebutton* = 82
|
||||
XC_mouse* = 84
|
||||
XC_pencil* = 86
|
||||
XC_pirate* = 88
|
||||
XC_plus* = 90
|
||||
XC_question_arrow* = 92
|
||||
XC_right_ptr* = 94
|
||||
XC_right_side* = 96
|
||||
XC_right_tee* = 98
|
||||
XC_rightbutton* = 100
|
||||
XC_rtl_logo* = 102
|
||||
XC_sailboat* = 104
|
||||
XC_sb_down_arrow* = 106
|
||||
XC_sb_h_double_arrow* = 108
|
||||
XC_sb_left_arrow* = 110
|
||||
XC_sb_right_arrow* = 112
|
||||
XC_sb_up_arrow* = 114
|
||||
XC_sb_v_double_arrow* = 116
|
||||
XC_shuttle* = 118
|
||||
XC_sizing* = 120
|
||||
XC_spider* = 122
|
||||
XC_spraycan* = 124
|
||||
XC_star* = 126
|
||||
XC_target* = 128
|
||||
XC_tcross* = 130
|
||||
XC_top_left_arrow* = 132
|
||||
XC_top_left_corner* = 134
|
||||
XC_top_right_corner* = 136
|
||||
XC_top_side* = 138
|
||||
XC_top_tee* = 140
|
||||
XC_trek* = 142
|
||||
XC_ul_angle* = 144
|
||||
XC_umbrella* = 146
|
||||
XC_ur_angle* = 148
|
||||
XC_watch* = 150
|
||||
XC_xterm* = 152
|
||||
|
||||
# implementation
|
||||
File diff suppressed because it is too large
Load Diff
@@ -1,401 +0,0 @@
|
||||
|
||||
#
|
||||
# Automatically converted by H2Pas 0.99.15 from x.h
|
||||
# The following command line parameters were used:
|
||||
# -p
|
||||
# -T
|
||||
# -S
|
||||
# -d
|
||||
# -c
|
||||
# x.h
|
||||
#
|
||||
# Pointers to basic pascal types, inserted by h2pas conversion program.
|
||||
import unsigned
|
||||
|
||||
const
|
||||
X_PROTOCOL* = 11
|
||||
X_PROTOCOL_REVISION* = 0
|
||||
|
||||
type
|
||||
PXID* = ptr TXID
|
||||
TXID* = culong
|
||||
PMask* = ptr TMask
|
||||
TMask* = culong
|
||||
PPAtom* = ptr PAtom
|
||||
PAtom* = ptr TAtom
|
||||
TAtom* = culong
|
||||
PVisualID* = ptr TVisualID
|
||||
TVisualID* = culong
|
||||
PTime* = ptr TTime
|
||||
TTime* = culong
|
||||
PPWindow* = ptr PWindow
|
||||
PWindow* = ptr TWindow
|
||||
TWindow* = TXID
|
||||
PDrawable* = ptr TDrawable
|
||||
TDrawable* = TXID
|
||||
PFont* = ptr TFont
|
||||
TFont* = TXID
|
||||
PPixmap* = ptr TPixmap
|
||||
TPixmap* = TXID
|
||||
PCursor* = ptr TCursor
|
||||
TCursor* = TXID
|
||||
PColormap* = ptr TColormap
|
||||
TColormap* = TXID
|
||||
PGContext* = ptr TGContext
|
||||
TGContext* = TXID
|
||||
PKeySym* = ptr TKeySym
|
||||
TKeySym* = TXID
|
||||
PKeyCode* = ptr TKeyCode
|
||||
TKeyCode* = cuchar
|
||||
|
||||
proc `==`*(a, b: TAtom): bool =
|
||||
return unsigned.`==`(a,b)
|
||||
|
||||
const
|
||||
None* = 0
|
||||
ParentRelative* = 1
|
||||
CopyFromParent* = 0
|
||||
PointerWindow* = 0
|
||||
InputFocus* = 1
|
||||
PointerRoot* = 1
|
||||
AnyPropertyType* = 0
|
||||
AnyKey* = 0
|
||||
AnyButton* = 0
|
||||
AllTemporary* = 0
|
||||
CurrentTime* = 0
|
||||
NoSymbol* = 0
|
||||
NoEventMask* = 0
|
||||
KeyPressMask* = 1 shl 0
|
||||
KeyReleaseMask* = 1 shl 1
|
||||
ButtonPressMask* = 1 shl 2
|
||||
ButtonReleaseMask* = 1 shl 3
|
||||
EnterWindowMask* = 1 shl 4
|
||||
LeaveWindowMask* = 1 shl 5
|
||||
PointerMotionMask* = 1 shl 6
|
||||
PointerMotionHintMask* = 1 shl 7
|
||||
Button1MotionMask* = 1 shl 8
|
||||
Button2MotionMask* = 1 shl 9
|
||||
Button3MotionMask* = 1 shl 10
|
||||
Button4MotionMask* = 1 shl 11
|
||||
Button5MotionMask* = 1 shl 12
|
||||
ButtonMotionMask* = 1 shl 13
|
||||
KeymapStateMask* = 1 shl 14
|
||||
ExposureMask* = 1 shl 15
|
||||
VisibilityChangeMask* = 1 shl 16
|
||||
StructureNotifyMask* = 1 shl 17
|
||||
ResizeRedirectMask* = 1 shl 18
|
||||
SubstructureNotifyMask* = 1 shl 19
|
||||
SubstructureRedirectMask* = 1 shl 20
|
||||
FocusChangeMask* = 1 shl 21
|
||||
PropertyChangeMask* = 1 shl 22
|
||||
ColormapChangeMask* = 1 shl 23
|
||||
OwnerGrabButtonMask* = 1 shl 24
|
||||
KeyPress* = 2
|
||||
KeyRelease* = 3
|
||||
ButtonPress* = 4
|
||||
ButtonRelease* = 5
|
||||
MotionNotify* = 6
|
||||
EnterNotify* = 7
|
||||
LeaveNotify* = 8
|
||||
FocusIn* = 9
|
||||
FocusOut* = 10
|
||||
KeymapNotify* = 11
|
||||
Expose* = 12
|
||||
GraphicsExpose* = 13
|
||||
NoExpose* = 14
|
||||
VisibilityNotify* = 15
|
||||
CreateNotify* = 16
|
||||
DestroyNotify* = 17
|
||||
UnmapNotify* = 18
|
||||
MapNotify* = 19
|
||||
MapRequest* = 20
|
||||
ReparentNotify* = 21
|
||||
ConfigureNotify* = 22
|
||||
ConfigureRequest* = 23
|
||||
GravityNotify* = 24
|
||||
ResizeRequest* = 25
|
||||
CirculateNotify* = 26
|
||||
CirculateRequest* = 27
|
||||
PropertyNotify* = 28
|
||||
SelectionClear* = 29
|
||||
SelectionRequest* = 30
|
||||
SelectionNotify* = 31
|
||||
ColormapNotify* = 32
|
||||
ClientMessage* = 33
|
||||
MappingNotify* = 34
|
||||
LASTEvent* = 35
|
||||
ShiftMask* = 1 shl 0
|
||||
LockMask* = 1 shl 1
|
||||
ControlMask* = 1 shl 2
|
||||
Mod1Mask* = 1 shl 3
|
||||
Mod2Mask* = 1 shl 4
|
||||
Mod3Mask* = 1 shl 5
|
||||
Mod4Mask* = 1 shl 6
|
||||
Mod5Mask* = 1 shl 7
|
||||
ShiftMapIndex* = 0
|
||||
LockMapIndex* = 1
|
||||
ControlMapIndex* = 2
|
||||
Mod1MapIndex* = 3
|
||||
Mod2MapIndex* = 4
|
||||
Mod3MapIndex* = 5
|
||||
Mod4MapIndex* = 6
|
||||
Mod5MapIndex* = 7
|
||||
Button1Mask* = 1 shl 8
|
||||
Button2Mask* = 1 shl 9
|
||||
Button3Mask* = 1 shl 10
|
||||
Button4Mask* = 1 shl 11
|
||||
Button5Mask* = 1 shl 12
|
||||
AnyModifier* = 1 shl 15
|
||||
Button1* = 1
|
||||
Button2* = 2
|
||||
Button3* = 3
|
||||
Button4* = 4
|
||||
Button5* = 5
|
||||
NotifyNormal* = 0
|
||||
NotifyGrab* = 1
|
||||
NotifyUngrab* = 2
|
||||
NotifyWhileGrabbed* = 3
|
||||
NotifyHint* = 1
|
||||
NotifyAncestor* = 0
|
||||
NotifyVirtual* = 1
|
||||
NotifyInferior* = 2
|
||||
NotifyNonlinear* = 3
|
||||
NotifyNonlinearVirtual* = 4
|
||||
NotifyPointer* = 5
|
||||
NotifyPointerRoot* = 6
|
||||
NotifyDetailNone* = 7
|
||||
VisibilityUnobscured* = 0
|
||||
VisibilityPartiallyObscured* = 1
|
||||
VisibilityFullyObscured* = 2
|
||||
PlaceOnTop* = 0
|
||||
PlaceOnBottom* = 1
|
||||
FamilyInternet* = 0
|
||||
FamilyDECnet* = 1
|
||||
FamilyChaos* = 2
|
||||
FamilyInternet6* = 6
|
||||
FamilyServerInterpreted* = 5
|
||||
PropertyNewValue* = 0
|
||||
PropertyDelete* = 1
|
||||
ColormapUninstalled* = 0
|
||||
ColormapInstalled* = 1
|
||||
GrabModeSync* = 0
|
||||
GrabModeAsync* = 1
|
||||
GrabSuccess* = 0
|
||||
AlreadyGrabbed* = 1
|
||||
GrabInvalidTime* = 2
|
||||
GrabNotViewable* = 3
|
||||
GrabFrozen* = 4
|
||||
AsyncPointer* = 0
|
||||
SyncPointer* = 1
|
||||
ReplayPointer* = 2
|
||||
AsyncKeyboard* = 3
|
||||
SyncKeyboard* = 4
|
||||
ReplayKeyboard* = 5
|
||||
AsyncBoth* = 6
|
||||
SyncBoth* = 7
|
||||
RevertToNone* = None
|
||||
RevertToPointerRoot* = PointerRoot
|
||||
RevertToParent* = 2
|
||||
Success* = 0
|
||||
BadRequest* = 1
|
||||
BadValue* = 2
|
||||
BadWindow* = 3
|
||||
BadPixmap* = 4
|
||||
BadAtom* = 5
|
||||
BadCursor* = 6
|
||||
BadFont* = 7
|
||||
BadMatch* = 8
|
||||
BadDrawable* = 9
|
||||
BadAccess* = 10
|
||||
BadAlloc* = 11
|
||||
BadColor* = 12
|
||||
BadGC* = 13
|
||||
BadIDChoice* = 14
|
||||
BadName* = 15
|
||||
BadLength* = 16
|
||||
BadImplementation* = 17
|
||||
FirstExtensionError* = 128
|
||||
LastExtensionError* = 255
|
||||
InputOutput* = 1
|
||||
InputOnly* = 2
|
||||
CWBackPixmap* = 1 shl 0
|
||||
CWBackPixel* = 1 shl 1
|
||||
CWBorderPixmap* = 1 shl 2
|
||||
CWBorderPixel* = 1 shl 3
|
||||
CWBitGravity* = 1 shl 4
|
||||
CWWinGravity* = 1 shl 5
|
||||
CWBackingStore* = 1 shl 6
|
||||
CWBackingPlanes* = 1 shl 7
|
||||
CWBackingPixel* = 1 shl 8
|
||||
CWOverrideRedirect* = 1 shl 9
|
||||
CWSaveUnder* = 1 shl 10
|
||||
CWEventMask* = 1 shl 11
|
||||
CWDontPropagate* = 1 shl 12
|
||||
CWColormap* = 1 shl 13
|
||||
CWCursor* = 1 shl 14
|
||||
CWX* = 1 shl 0
|
||||
CWY* = 1 shl 1
|
||||
CWWidth* = 1 shl 2
|
||||
CWHeight* = 1 shl 3
|
||||
CWBorderWidth* = 1 shl 4
|
||||
CWSibling* = 1 shl 5
|
||||
CWStackMode* = 1 shl 6
|
||||
ForgetGravity* = 0
|
||||
NorthWestGravity* = 1
|
||||
NorthGravity* = 2
|
||||
NorthEastGravity* = 3
|
||||
WestGravity* = 4
|
||||
CenterGravity* = 5
|
||||
EastGravity* = 6
|
||||
SouthWestGravity* = 7
|
||||
SouthGravity* = 8
|
||||
SouthEastGravity* = 9
|
||||
StaticGravity* = 10
|
||||
UnmapGravity* = 0
|
||||
NotUseful* = 0
|
||||
WhenMapped* = 1
|
||||
Always* = 2
|
||||
IsUnmapped* = 0
|
||||
IsUnviewable* = 1
|
||||
IsViewable* = 2
|
||||
SetModeInsert* = 0
|
||||
SetModeDelete* = 1
|
||||
DestroyAll* = 0
|
||||
RetainPermanent* = 1
|
||||
RetainTemporary* = 2
|
||||
Above* = 0
|
||||
Below* = 1
|
||||
TopIf* = 2
|
||||
BottomIf* = 3
|
||||
Opposite* = 4
|
||||
RaiseLowest* = 0
|
||||
LowerHighest* = 1
|
||||
PropModeReplace* = 0
|
||||
PropModePrepend* = 1
|
||||
PropModeAppend* = 2
|
||||
GXclear* = 0x00000000
|
||||
GXand* = 0x00000001
|
||||
GXandReverse* = 0x00000002
|
||||
GXcopy* = 0x00000003
|
||||
GXandInverted* = 0x00000004
|
||||
GXnoop* = 0x00000005
|
||||
GXxor* = 0x00000006
|
||||
GXor* = 0x00000007
|
||||
GXnor* = 0x00000008
|
||||
GXequiv* = 0x00000009
|
||||
GXinvert* = 0x0000000A
|
||||
GXorReverse* = 0x0000000B
|
||||
GXcopyInverted* = 0x0000000C
|
||||
GXorInverted* = 0x0000000D
|
||||
GXnand* = 0x0000000E
|
||||
GXset* = 0x0000000F
|
||||
LineSolid* = 0
|
||||
LineOnOffDash* = 1
|
||||
LineDoubleDash* = 2
|
||||
CapNotLast* = 0
|
||||
CapButt* = 1
|
||||
CapRound* = 2
|
||||
CapProjecting* = 3
|
||||
JoinMiter* = 0
|
||||
JoinRound* = 1
|
||||
JoinBevel* = 2
|
||||
FillSolid* = 0
|
||||
FillTiled* = 1
|
||||
FillStippled* = 2
|
||||
FillOpaqueStippled* = 3
|
||||
EvenOddRule* = 0
|
||||
WindingRule* = 1
|
||||
ClipByChildren* = 0
|
||||
IncludeInferiors* = 1
|
||||
Unsorted* = 0
|
||||
YSorted* = 1
|
||||
YXSorted* = 2
|
||||
YXBanded* = 3
|
||||
CoordModeOrigin* = 0
|
||||
CoordModePrevious* = 1
|
||||
Complex* = 0
|
||||
Nonconvex* = 1
|
||||
Convex* = 2
|
||||
ArcChord* = 0
|
||||
ArcPieSlice* = 1
|
||||
GCFunction* = 1 shl 0
|
||||
GCPlaneMask* = 1 shl 1
|
||||
GCForeground* = 1 shl 2
|
||||
GCBackground* = 1 shl 3
|
||||
GCLineWidth* = 1 shl 4
|
||||
GCLineStyle* = 1 shl 5
|
||||
GCCapStyle* = 1 shl 6
|
||||
GCJoinStyle* = 1 shl 7
|
||||
GCFillStyle* = 1 shl 8
|
||||
GCFillRule* = 1 shl 9
|
||||
GCTile* = 1 shl 10
|
||||
GCStipple* = 1 shl 11
|
||||
GCTileStipXOrigin* = 1 shl 12
|
||||
GCTileStipYOrigin* = 1 shl 13
|
||||
GCFont* = 1 shl 14
|
||||
GCSubwindowMode* = 1 shl 15
|
||||
GCGraphicsExposures* = 1 shl 16
|
||||
GCClipXOrigin* = 1 shl 17
|
||||
GCClipYOrigin* = 1 shl 18
|
||||
GCClipMask* = 1 shl 19
|
||||
GCDashOffset* = 1 shl 20
|
||||
GCDashList* = 1 shl 21
|
||||
GCArcMode* = 1 shl 22
|
||||
GCLastBit* = 22
|
||||
FontLeftToRight* = 0
|
||||
FontRightToLeft* = 1
|
||||
FontChange* = 255
|
||||
XYBitmap* = 0
|
||||
XYPixmap* = 1
|
||||
ZPixmap* = 2
|
||||
AllocNone* = 0
|
||||
AllocAll* = 1
|
||||
DoRed* = 1 shl 0
|
||||
DoGreen* = 1 shl 1
|
||||
DoBlue* = 1 shl 2
|
||||
CursorShape* = 0
|
||||
TileShape* = 1
|
||||
StippleShape* = 2
|
||||
AutoRepeatModeOff* = 0
|
||||
AutoRepeatModeOn* = 1
|
||||
AutoRepeatModeDefault* = 2
|
||||
LedModeOff* = 0
|
||||
LedModeOn* = 1
|
||||
KBKeyClickPercent* = 1 shl 0
|
||||
KBBellPercent* = 1 shl 1
|
||||
KBBellPitch* = 1 shl 2
|
||||
KBBellDuration* = 1 shl 3
|
||||
KBLed* = 1 shl 4
|
||||
KBLedMode* = 1 shl 5
|
||||
KBKey* = 1 shl 6
|
||||
KBAutoRepeatMode* = 1 shl 7
|
||||
MappingSuccess* = 0
|
||||
MappingBusy* = 1
|
||||
MappingFailed* = 2
|
||||
MappingModifier* = 0
|
||||
MappingKeyboard* = 1
|
||||
MappingPointer* = 2
|
||||
DontPreferBlanking* = 0
|
||||
PreferBlanking* = 1
|
||||
DefaultBlanking* = 2
|
||||
DisableScreenSaver* = 0
|
||||
DisableScreenInterval* = 0
|
||||
DontAllowExposures* = 0
|
||||
AllowExposures* = 1
|
||||
DefaultExposures* = 2
|
||||
ScreenSaverReset* = 0
|
||||
ScreenSaverActive* = 1
|
||||
HostInsert* = 0
|
||||
HostDelete* = 1
|
||||
EnableAccess* = 1
|
||||
DisableAccess* = 0
|
||||
StaticGray* = 0
|
||||
GrayScale* = 1
|
||||
StaticColor* = 2
|
||||
PseudoColor* = 3
|
||||
TrueColor* = 4
|
||||
DirectColor* = 5
|
||||
LSBFirst* = 0
|
||||
MSBFirst* = 1
|
||||
|
||||
# implementation
|
||||
@@ -1,20 +0,0 @@
|
||||
# included from xlib bindings
|
||||
|
||||
|
||||
when defined(use_pkg_config) or defined(use_pkg_config_static):
|
||||
{.pragma: libx11, cdecl, importc.}
|
||||
{.pragma: libx11c, cdecl.}
|
||||
when defined(use_pkg_config_static):
|
||||
{.passl: gorge("pkg-config x11 --static --libs").}
|
||||
else:
|
||||
{.passl: gorge("pkg-config x11 --libs").}
|
||||
else:
|
||||
when defined(macosx):
|
||||
const
|
||||
libX11* = "libX11.dylib"
|
||||
else:
|
||||
const
|
||||
libX11* = "libX11.so"
|
||||
|
||||
{.pragma: libx11, cdecl, dynlib: libX11, importc.}
|
||||
{.pragma: libx11c, cdecl, dynlib: libX11.}
|
||||
@@ -1,81 +0,0 @@
|
||||
#
|
||||
# THIS IS A GENERATED FILE
|
||||
#
|
||||
# Do not change! Changing this file implies a protocol change!
|
||||
#
|
||||
|
||||
import
|
||||
X
|
||||
|
||||
const
|
||||
XA_PRIMARY* = TAtom(1)
|
||||
XA_SECONDARY* = TAtom(2)
|
||||
XA_ARC* = TAtom(3)
|
||||
XA_ATOM* = TAtom(4)
|
||||
XA_BITMAP* = TAtom(5)
|
||||
XA_CARDINAL* = TAtom(6)
|
||||
XA_COLORMAP* = TAtom(7)
|
||||
XA_CURSOR* = TAtom(8)
|
||||
XA_CUT_BUFFER0* = TAtom(9)
|
||||
XA_CUT_BUFFER1* = TAtom(10)
|
||||
XA_CUT_BUFFER2* = TAtom(11)
|
||||
XA_CUT_BUFFER3* = TAtom(12)
|
||||
XA_CUT_BUFFER4* = TAtom(13)
|
||||
XA_CUT_BUFFER5* = TAtom(14)
|
||||
XA_CUT_BUFFER6* = TAtom(15)
|
||||
XA_CUT_BUFFER7* = TAtom(16)
|
||||
XA_DRAWABLE* = TAtom(17)
|
||||
XA_FONT* = TAtom(18)
|
||||
XA_INTEGER* = TAtom(19)
|
||||
XA_PIXMAP* = TAtom(20)
|
||||
XA_POINT* = TAtom(21)
|
||||
XA_RECTANGLE* = TAtom(22)
|
||||
XA_RESOURCE_MANAGER* = TAtom(23)
|
||||
XA_RGB_COLOR_MAP* = TAtom(24)
|
||||
XA_RGB_BEST_MAP* = TAtom(25)
|
||||
XA_RGB_BLUE_MAP* = TAtom(26)
|
||||
XA_RGB_DEFAULT_MAP* = TAtom(27)
|
||||
XA_RGB_GRAY_MAP* = TAtom(28)
|
||||
XA_RGB_GREEN_MAP* = TAtom(29)
|
||||
XA_RGB_RED_MAP* = TAtom(30)
|
||||
XA_STRING* = TAtom(31)
|
||||
XA_VISUALID* = TAtom(32)
|
||||
XA_WINDOW* = TAtom(33)
|
||||
XA_WM_COMMAND* = TAtom(34)
|
||||
XA_WM_HINTS* = TAtom(35)
|
||||
XA_WM_CLIENT_MACHINE* = TAtom(36)
|
||||
XA_WM_ICON_NAME* = TAtom(37)
|
||||
XA_WM_ICON_SIZE* = TAtom(38)
|
||||
XA_WM_NAME* = TAtom(39)
|
||||
XA_WM_NORMAL_HINTS* = TAtom(40)
|
||||
XA_WM_SIZE_HINTS* = TAtom(41)
|
||||
XA_WM_ZOOM_HINTS* = TAtom(42)
|
||||
XA_MIN_SPACE* = TAtom(43)
|
||||
XA_NORM_SPACE* = TAtom(44)
|
||||
XA_MAX_SPACE* = TAtom(45)
|
||||
XA_END_SPACE* = TAtom(46)
|
||||
XA_SUPERSCRIPT_X* = TAtom(47)
|
||||
XA_SUPERSCRIPT_Y* = TAtom(48)
|
||||
XA_SUBSCRIPT_X* = TAtom(49)
|
||||
XA_SUBSCRIPT_Y* = TAtom(50)
|
||||
XA_UNDERLINE_POSITION* = TAtom(51)
|
||||
XA_UNDERLINE_THICKNESS* = TAtom(52)
|
||||
XA_STRIKEOUT_ASCENT* = TAtom(53)
|
||||
XA_STRIKEOUT_DESCENT* = TAtom(54)
|
||||
XA_ITALIC_ANGLE* = TAtom(55)
|
||||
XA_X_HEIGHT* = TAtom(56)
|
||||
XA_QUAD_WIDTH* = TAtom(57)
|
||||
XA_WEIGHT* = TAtom(58)
|
||||
XA_POINT_SIZE* = TAtom(59)
|
||||
XA_RESOLUTION* = TAtom(60)
|
||||
XA_COPYRIGHT* = TAtom(61)
|
||||
XA_NOTICE* = TAtom(62)
|
||||
XA_FONT_NAME* = TAtom(63)
|
||||
XA_FAMILY_NAME* = TAtom(64)
|
||||
XA_FULL_NAME* = TAtom(65)
|
||||
XA_CAP_HEIGHT* = TAtom(66)
|
||||
XA_WM_CLASS* = TAtom(67)
|
||||
XA_WM_TRANSIENT_FOR* = TAtom(68)
|
||||
XA_LAST_PREDEFINED* = TAtom(68)
|
||||
|
||||
# implementation
|
||||
@@ -1,396 +0,0 @@
|
||||
|
||||
import
|
||||
x, xlib
|
||||
|
||||
#const
|
||||
# libX11* = "X11"
|
||||
|
||||
#
|
||||
# Automatically converted by H2Pas 0.99.15 from xcms.h
|
||||
# The following command line parameters were used:
|
||||
# -p
|
||||
# -T
|
||||
# -S
|
||||
# -d
|
||||
# -c
|
||||
# xcms.h
|
||||
#
|
||||
|
||||
const
|
||||
XcmsFailure* = 0
|
||||
XcmsSuccess* = 1
|
||||
XcmsSuccessWithCompression* = 2
|
||||
|
||||
type
|
||||
PXcmsColorFormat* = ptr TXcmsColorFormat
|
||||
TXcmsColorFormat* = int32
|
||||
|
||||
proc XcmsUndefinedFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIEXYZFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIEuvYFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIExyYFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIELabFormat*(): TXcmsColorFormat
|
||||
proc XcmsCIELuvFormat*(): TXcmsColorFormat
|
||||
proc XcmsTekHVCFormat*(): TXcmsColorFormat
|
||||
proc XcmsRGBFormat*(): TXcmsColorFormat
|
||||
proc XcmsRGBiFormat*(): TXcmsColorFormat
|
||||
const
|
||||
XcmsInitNone* = 0x00000000
|
||||
XcmsInitSuccess* = 0x00000001
|
||||
XcmsInitFailure* = 0x000000FF
|
||||
|
||||
when defined(MACROS):
|
||||
proc DisplayOfCCC*(ccc: int32): int32
|
||||
proc ScreenNumberOfCCC*(ccc: int32): int32
|
||||
proc VisualOfCCC*(ccc: int32): int32
|
||||
proc ClientWhitePointOfCCC*(ccc: int32): int32
|
||||
proc ScreenWhitePointOfCCC*(ccc: int32): int32
|
||||
proc FunctionSetOfCCC*(ccc: int32): int32
|
||||
type
|
||||
PXcmsFloat* = ptr TXcmsFloat
|
||||
TXcmsFloat* = float64
|
||||
PXcmsRGB* = ptr TXcmsRGB
|
||||
TXcmsRGB*{.final.} = object
|
||||
red*: int16
|
||||
green*: int16
|
||||
blue*: int16
|
||||
|
||||
PXcmsRGBi* = ptr TXcmsRGBi
|
||||
TXcmsRGBi*{.final.} = object
|
||||
red*: TXcmsFloat
|
||||
green*: TXcmsFloat
|
||||
blue*: TXcmsFloat
|
||||
|
||||
PXcmsCIEXYZ* = ptr TXcmsCIEXYZ
|
||||
TXcmsCIEXYZ*{.final.} = object
|
||||
X*: TXcmsFloat
|
||||
Y*: TXcmsFloat
|
||||
Z*: TXcmsFloat
|
||||
|
||||
PXcmsCIEuvY* = ptr TXcmsCIEuvY
|
||||
TXcmsCIEuvY*{.final.} = object
|
||||
u_prime*: TXcmsFloat
|
||||
v_prime*: TXcmsFloat
|
||||
Y*: TXcmsFloat
|
||||
|
||||
PXcmsCIExyY* = ptr TXcmsCIExyY
|
||||
TXcmsCIExyY*{.final.} = object
|
||||
x*: TXcmsFloat
|
||||
y*: TXcmsFloat
|
||||
theY*: TXcmsFloat
|
||||
|
||||
PXcmsCIELab* = ptr TXcmsCIELab
|
||||
TXcmsCIELab*{.final.} = object
|
||||
L_star*: TXcmsFloat
|
||||
a_star*: TXcmsFloat
|
||||
b_star*: TXcmsFloat
|
||||
|
||||
PXcmsCIELuv* = ptr TXcmsCIELuv
|
||||
TXcmsCIELuv*{.final.} = object
|
||||
L_star*: TXcmsFloat
|
||||
u_star*: TXcmsFloat
|
||||
v_star*: TXcmsFloat
|
||||
|
||||
PXcmsTekHVC* = ptr TXcmsTekHVC
|
||||
TXcmsTekHVC*{.final.} = object
|
||||
H*: TXcmsFloat
|
||||
V*: TXcmsFloat
|
||||
C*: TXcmsFloat
|
||||
|
||||
PXcmsPad* = ptr TXcmsPad
|
||||
TXcmsPad*{.final.} = object
|
||||
pad0*: TXcmsFloat
|
||||
pad1*: TXcmsFloat
|
||||
pad2*: TXcmsFloat
|
||||
pad3*: TXcmsFloat
|
||||
|
||||
PXcmsColor* = ptr TXcmsColor
|
||||
TXcmsColor*{.final.} = object # spec : record
|
||||
# case longint of
|
||||
# 0 : ( RGB : TXcmsRGB );
|
||||
# 1 : ( RGBi : TXcmsRGBi );
|
||||
# 2 : ( CIEXYZ : TXcmsCIEXYZ );
|
||||
# 3 : ( CIEuvY : TXcmsCIEuvY );
|
||||
# 4 : ( CIExyY : TXcmsCIExyY );
|
||||
# 5 : ( CIELab : TXcmsCIELab );
|
||||
# 6 : ( CIELuv : TXcmsCIELuv );
|
||||
# 7 : ( TekHVC : TXcmsTekHVC );
|
||||
# 8 : ( Pad : TXcmsPad );
|
||||
# end;
|
||||
pad*: TXcmsPad
|
||||
pixel*: int32
|
||||
format*: TXcmsColorFormat
|
||||
|
||||
PXcmsPerScrnInfo* = ptr TXcmsPerScrnInfo
|
||||
TXcmsPerScrnInfo*{.final.} = object
|
||||
screenWhitePt*: TXcmsColor
|
||||
functionSet*: TXPointer
|
||||
screenData*: TXPointer
|
||||
state*: int8
|
||||
pad*: array[0..2, char]
|
||||
|
||||
PXcmsCCC* = ptr TXcmsCCC
|
||||
TXcmsCompressionProc* = proc (para1: PXcmsCCC, para2: PXcmsColor,
|
||||
para3: int32, para4: int32, para5: PBool): TStatus{.
|
||||
cdecl.}
|
||||
TXcmsWhiteAdjustProc* = proc (para1: PXcmsCCC, para2: PXcmsColor,
|
||||
para3: PXcmsColor, para4: TXcmsColorFormat,
|
||||
para5: PXcmsColor, para6: int32, para7: PBool): TStatus{.
|
||||
cdecl.}
|
||||
TXcmsCCC*{.final.} = object
|
||||
dpy*: PDisplay
|
||||
screenNumber*: int32
|
||||
visual*: PVisual
|
||||
clientWhitePt*: TXcmsColor
|
||||
gamutCompProc*: TXcmsCompressionProc
|
||||
gamutCompClientData*: TXPointer
|
||||
whitePtAdjProc*: TXcmsWhiteAdjustProc
|
||||
whitePtAdjClientData*: TXPointer
|
||||
pPerScrnInfo*: PXcmsPerScrnInfo
|
||||
|
||||
TXcmsCCCRec* = TXcmsCCC
|
||||
PXcmsCCCRec* = ptr TXcmsCCCRec
|
||||
TXcmsScreenInitProc* = proc (para1: PDisplay, para2: int32,
|
||||
para3: PXcmsPerScrnInfo): TStatus{.cdecl.}
|
||||
TXcmsScreenFreeProc* = proc (para1: TXPointer){.cdecl.}
|
||||
TXcmsConversionProc* = proc (){.cdecl.}
|
||||
PXcmsFuncListPtr* = ptr TXcmsFuncListPtr
|
||||
TXcmsFuncListPtr* = TXcmsConversionProc
|
||||
TXcmsParseStringProc* = proc (para1: cstring, para2: PXcmsColor): int32{.cdecl.}
|
||||
PXcmsColorSpace* = ptr TXcmsColorSpace
|
||||
TXcmsColorSpace*{.final.} = object
|
||||
prefix*: cstring
|
||||
id*: TXcmsColorFormat
|
||||
parseString*: TXcmsParseStringProc
|
||||
to_CIEXYZ*: TXcmsFuncListPtr
|
||||
from_CIEXYZ*: TXcmsFuncListPtr
|
||||
inverse_flag*: int32
|
||||
|
||||
PXcmsFunctionSet* = ptr TXcmsFunctionSet
|
||||
TXcmsFunctionSet*{.final.} = object # error
|
||||
#extern Status XcmsAddColorSpace (
|
||||
#in declaration at line 323
|
||||
DDColorSpaces*: ptr PXcmsColorSpace
|
||||
screenInitProc*: TXcmsScreenInitProc
|
||||
screenFreeProc*: TXcmsScreenFreeProc
|
||||
|
||||
|
||||
proc XcmsAddFunctionSet*(para1: PXcmsFunctionSet): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsAllocColor*(para1: PDisplay, para2: TColormap, para3: PXcmsColor,
|
||||
para4: TXcmsColorFormat): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsAllocNamedColor*(para1: PDisplay, para2: TColormap, para3: cstring,
|
||||
para4: PXcmsColor, para5: PXcmsColor,
|
||||
para6: TXcmsColorFormat): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCCCOfColormap*(para1: PDisplay, para2: TColormap): TXcmsCCC{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELabClipab*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELabClipL*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELabClipLab*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELabQueryMaxC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELabQueryMaxL*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELabQueryMaxLC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELabQueryMinL*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELabToCIEXYZ*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELabWhiteShiftColors*(para1: TXcmsCCC, para2: PXcmsColor,
|
||||
para3: PXcmsColor, para4: TXcmsColorFormat,
|
||||
para5: PXcmsColor, para6: int32, para7: PBool): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvClipL*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvClipLuv*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvClipuv*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvQueryMaxC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELuvQueryMaxL*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELuvQueryMaxLC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvQueryMinL*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsCIELuvToCIEuvY*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIELuvWhiteShiftColors*(para1: TXcmsCCC, para2: PXcmsColor,
|
||||
para3: PXcmsColor, para4: TXcmsColorFormat,
|
||||
para5: PXcmsColor, para6: int32, para7: PBool): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEXYZToCIELab*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEXYZToCIEuvY*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEXYZToCIExyY*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEXYZToRGBi*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: PBool): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEuvYToCIELuv*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEuvYToCIEXYZ*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIEuvYToTekHVC*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsCIExyYToCIEXYZ*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsClientWhitePointOfCCC*(para1: TXcmsCCC): PXcmsColor{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsConvertColors*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: TXcmsColorFormat, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsCreateCCC*(para1: PDisplay, para2: int32, para3: PVisual,
|
||||
para4: PXcmsColor, para5: TXcmsCompressionProc,
|
||||
para6: TXPointer, para7: TXcmsWhiteAdjustProc,
|
||||
para8: TXPointer): TXcmsCCC{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsDefaultCCC*(para1: PDisplay, para2: int32): TXcmsCCC{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsDisplayOfCCC*(para1: TXcmsCCC): PDisplay{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsFormatOfPrefix*(para1: cstring): TXcmsColorFormat{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsFreeCCC*(para1: TXcmsCCC){.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsLookupColor*(para1: PDisplay, para2: TColormap, para3: cstring,
|
||||
para4: PXcmsColor, para5: PXcmsColor,
|
||||
para6: TXcmsColorFormat): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsPrefixOfFormat*(para1: TXcmsColorFormat): cstring{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsQueryBlack*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsQueryBlue*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsQueryColor*(para1: PDisplay, para2: TColormap, para3: PXcmsColor,
|
||||
para4: TXcmsColorFormat): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsQueryColors*(para1: PDisplay, para2: TColormap, para3: PXcmsColor,
|
||||
para4: int32, para5: TXcmsColorFormat): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsQueryGreen*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsQueryRed*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsQueryWhite*(para1: TXcmsCCC, para2: TXcmsColorFormat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsRGBiToCIEXYZ*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: PBool): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsRGBiToRGB*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: PBool): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsRGBToRGBi*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: PBool): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsScreenNumberOfCCC*(para1: TXcmsCCC): int32{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsScreenWhitePointOfCCC*(para1: TXcmsCCC): PXcmsColor{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsSetCCCOfColormap*(para1: PDisplay, para2: TColormap, para3: TXcmsCCC): TXcmsCCC{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsSetCompressionProc*(para1: TXcmsCCC, para2: TXcmsCompressionProc,
|
||||
para3: TXPointer): TXcmsCompressionProc{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsSetWhiteAdjustProc*(para1: TXcmsCCC, para2: TXcmsWhiteAdjustProc,
|
||||
para3: TXPointer): TXcmsWhiteAdjustProc{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsSetWhitePoint*(para1: TXcmsCCC, para2: PXcmsColor): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsStoreColor*(para1: PDisplay, para2: TColormap, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsStoreColors*(para1: PDisplay, para2: TColormap, para3: PXcmsColor,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCClipC*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCClipV*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCClipVC*(para1: TXcmsCCC, para2: PXcmsColor, para3: int32,
|
||||
para4: int32, para5: PBool): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCQueryMaxC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsTekHVCQueryMaxV*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsTekHVCQueryMaxVC*(para1: TXcmsCCC, para2: TXcmsFloat, para3: PXcmsColor): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCQueryMaxVSamples*(para1: TXcmsCCC, para2: TXcmsFloat,
|
||||
para3: PXcmsColor, para4: int32): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCQueryMinV*(para1: TXcmsCCC, para2: TXcmsFloat, para3: TXcmsFloat,
|
||||
para4: PXcmsColor): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XcmsTekHVCToCIEuvY*(para1: TXcmsCCC, para2: PXcmsColor, para3: PXcmsColor,
|
||||
para4: int32): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsTekHVCWhiteShiftColors*(para1: TXcmsCCC, para2: PXcmsColor,
|
||||
para3: PXcmsColor, para4: TXcmsColorFormat,
|
||||
para5: PXcmsColor, para6: int32, para7: PBool): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XcmsVisualOfCCC*(para1: TXcmsCCC): PVisual{.cdecl, dynlib: libX11, importc.}
|
||||
# implementation
|
||||
|
||||
proc XcmsUndefinedFormat(): TXcmsColorFormat =
|
||||
result = 0x00000000'i32
|
||||
|
||||
proc XcmsCIEXYZFormat(): TXcmsColorFormat =
|
||||
result = 0x00000001'i32
|
||||
|
||||
proc XcmsCIEuvYFormat(): TXcmsColorFormat =
|
||||
result = 0x00000002'i32
|
||||
|
||||
proc XcmsCIExyYFormat(): TXcmsColorFormat =
|
||||
result = 0x00000003'i32
|
||||
|
||||
proc XcmsCIELabFormat(): TXcmsColorFormat =
|
||||
result = 0x00000004'i32
|
||||
|
||||
proc XcmsCIELuvFormat(): TXcmsColorFormat =
|
||||
result = 0x00000005'i32
|
||||
|
||||
proc XcmsTekHVCFormat(): TXcmsColorFormat =
|
||||
result = 0x00000006'i32
|
||||
|
||||
proc XcmsRGBFormat(): TXcmsColorFormat =
|
||||
result = 0x80000000'i32
|
||||
|
||||
proc XcmsRGBiFormat(): TXcmsColorFormat =
|
||||
result = 0x80000001'i32
|
||||
|
||||
when defined(MACROS):
|
||||
proc DisplayOfCCC(ccc: int32): int32 =
|
||||
result = ccc.dpy
|
||||
|
||||
proc ScreenNumberOfCCC(ccc: int32): int32 =
|
||||
result = ccc.screenNumber
|
||||
|
||||
proc VisualOfCCC(ccc: int32): int32 =
|
||||
result = ccc.visual
|
||||
|
||||
proc ClientWhitePointOfCCC(ccc: int32): int32 =
|
||||
result = addr(ccc.clientWhitePt)
|
||||
|
||||
proc ScreenWhitePointOfCCC(ccc: int32): int32 =
|
||||
result = addr(ccc.pPerScrnInfo.screenWhitePt)
|
||||
|
||||
proc FunctionSetOfCCC(ccc: int32): int32 =
|
||||
result = ccc.pPerScrnInfo.functionSet
|
||||
@@ -1,235 +0,0 @@
|
||||
#
|
||||
# Copyright (c) 1999 XFree86 Inc
|
||||
#
|
||||
# $XFree86: xc/include/extensions/xf86dga.h,v 3.20 1999/10/13 04:20:48 dawes Exp $
|
||||
|
||||
import
|
||||
x, xlib
|
||||
|
||||
const
|
||||
libXxf86dga* = "libXxf86dga.so"
|
||||
|
||||
#type
|
||||
# cfloat* = float32
|
||||
|
||||
# $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* = ptr ptr cstring
|
||||
|
||||
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* = 0x00000001
|
||||
XF86DGADirectGraphics* = 0x00000002
|
||||
XF86DGADirectMouse* = 0x00000004
|
||||
XF86DGADirectKeyb* = 0x00000008
|
||||
XF86DGAHasColormap* = 0x00000100
|
||||
XF86DGADirectColormap* = 0x00000200
|
||||
|
||||
proc XF86DGAQueryVersion*(dpy: PDisplay, majorVersion: Pcint,
|
||||
minorVersion: Pcint): TBool{.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAQueryExtension*(dpy: PDisplay, event_base: Pcint, error_base: Pcint): TBool{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAGetVideoLL*(dpy: PDisplay, screen: cint, base_addr: Pcint,
|
||||
width: Pcint, bank_size: Pcint, ram_size: Pcint): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAGetVideo*(dpy: PDisplay, screen: cint, base_addr: PPcchar,
|
||||
width: Pcint, bank_size: Pcint, ram_size: Pcint): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGADirectVideo*(dpy: PDisplay, screen: cint, enable: cint): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGADirectVideoLL*(dpy: PDisplay, screen: cint, enable: cint): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAGetViewPortSize*(dpy: PDisplay, screen: cint, width: Pcint,
|
||||
height: Pcint): TStatus{.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGASetViewPort*(dpy: PDisplay, screen: cint, x: cint, y: cint): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAGetVidPage*(dpy: PDisplay, screen: cint, vid_page: Pcint): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGASetVidPage*(dpy: PDisplay, screen: cint, vid_page: cint): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAInstallColormap*(dpy: PDisplay, screen: cint, Colormap: TColormap): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAForkApp*(screen: cint): cint{.CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAQueryDirectVideo*(dpy: PDisplay, screen: cint, flags: Pcint): TStatus{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XF86DGAViewPortChanged*(dpy: PDisplay, screen: cint, n: cint): TBool{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
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* = 0x00000001
|
||||
XDGASolidFillRect* = 0x00000002
|
||||
XDGABlitRect* = 0x00000004
|
||||
XDGABlitTransRect* = 0x00000008
|
||||
XDGAPixmap* = 0x00000010
|
||||
XDGAInterlaced* = 0x00010000
|
||||
XDGADoublescan* = 0x00020000
|
||||
XDGAFlipImmediate* = 0x00000001
|
||||
XDGAFlipRetrace* = 0x00000002
|
||||
XDGANeedRoot* = 0x00000001
|
||||
XF86DGANumberEvents* = 7
|
||||
XDGAPixmapModeLarge* = 0
|
||||
XDGAPixmapModeSmall* = 1
|
||||
XF86DGAClientNotLocal* = 0
|
||||
XF86DGANoDirectVideoMode* = 1
|
||||
XF86DGAScreenNotActive* = 2
|
||||
XF86DGADirectNotActivated* = 3
|
||||
XF86DGAOperationNotSupported* = 4
|
||||
XF86DGANumberErrors* = (XF86DGAOperationNotSupported + 1)
|
||||
|
||||
type
|
||||
PXDGAMode* = ptr TXDGAMode
|
||||
TXDGAMode*{.final.} = object
|
||||
num*: cint # A unique identifier for the mode (num > 0)
|
||||
name*: cstring # 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
|
||||
|
||||
PXDGADevice* = ptr TXDGADevice
|
||||
TXDGADevice*{.final.} = object
|
||||
mode*: TXDGAMode
|
||||
data*: Pcuchar
|
||||
pixmap*: TPixmap
|
||||
|
||||
PXDGAButtonEvent* = ptr TXDGAButtonEvent
|
||||
TXDGAButtonEvent*{.final.} = object
|
||||
theType*: cint
|
||||
serial*: culong
|
||||
display*: PDisplay
|
||||
screen*: cint
|
||||
time*: TTime
|
||||
state*: cuint
|
||||
button*: cuint
|
||||
|
||||
PXDGAKeyEvent* = ptr TXDGAKeyEvent
|
||||
TXDGAKeyEvent*{.final.} = object
|
||||
theType*: cint
|
||||
serial*: culong
|
||||
display*: PDisplay
|
||||
screen*: cint
|
||||
time*: TTime
|
||||
state*: cuint
|
||||
keycode*: cuint
|
||||
|
||||
PXDGAMotionEvent* = ptr TXDGAMotionEvent
|
||||
TXDGAMotionEvent*{.final.} = object
|
||||
theType*: cint
|
||||
serial*: culong
|
||||
display*: PDisplay
|
||||
screen*: cint
|
||||
time*: TTime
|
||||
state*: cuint
|
||||
dx*: cint
|
||||
dy*: cint
|
||||
|
||||
PXDGAEvent* = ptr TXDGAEvent
|
||||
TXDGAEvent*{.final.} = object
|
||||
pad*: array[0..23, clong] # sorry you have to cast if you want access
|
||||
#Case LongInt Of
|
||||
# 0 : (_type : cint);
|
||||
# 1 : (xbutton : TXDGAButtonEvent);
|
||||
# 2 : (xkey : TXDGAKeyEvent);
|
||||
# 3 : (xmotion : TXDGAMotionEvent);
|
||||
# 4 : (pad : Array[0..23] Of clong);
|
||||
|
||||
|
||||
proc XDGAQueryExtension*(dpy: PDisplay, eventBase: Pcint, erroBase: Pcint): TBool{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XDGAQueryVersion*(dpy: PDisplay, majorVersion: Pcint, minorVersion: Pcint): TBool{.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XDGAQueryModes*(dpy: PDisplay, screen: cint, num: Pcint): PXDGAMode{.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGASetMode*(dpy: PDisplay, screen: cint, mode: cint): PXDGADevice{.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGAOpenFramebuffer*(dpy: PDisplay, screen: cint): TBool{.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGACloseFramebuffer*(dpy: PDisplay, screen: cint){.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGASetViewport*(dpy: PDisplay, screen: cint, x: cint, y: cint, flags: cint){.
|
||||
CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XDGAInstallColormap*(dpy: PDisplay, screen: cint, cmap: TColormap){.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGACreateColormap*(dpy: PDisplay, screen: cint, device: PXDGADevice,
|
||||
alloc: cint): TColormap{.CDecl, dynlib: libXxf86dga,
|
||||
importc.}
|
||||
proc XDGASelectInput*(dpy: PDisplay, screen: cint, event_mask: clong){.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGAFillRectangle*(dpy: PDisplay, screen: cint, x: cint, y: cint,
|
||||
width: cuint, height: cuint, color: culong){.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGACopyArea*(dpy: PDisplay, screen: cint, srcx: cint, srcy: cint,
|
||||
width: cuint, height: cuint, dstx: cint, dsty: cint){.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGACopyTransparentArea*(dpy: PDisplay, screen: cint, srcx: cint,
|
||||
srcy: cint, width: cuint, height: cuint,
|
||||
dstx: cint, dsty: cint, key: culong){.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGAGetViewportStatus*(dpy: PDisplay, screen: cint): cint{.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
proc XDGASync*(dpy: PDisplay, screen: cint){.CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XDGASetClientVersion*(dpy: PDisplay): TBool{.CDecl, dynlib: libXxf86dga,
|
||||
importc.}
|
||||
proc XDGAChangePixmapMode*(dpy: PDisplay, screen: cint, x: Pcint, y: Pcint,
|
||||
mode: cint){.CDecl, dynlib: libXxf86dga, importc.}
|
||||
proc XDGAKeyEventToXKeyEvent*(dk: PXDGAKeyEvent, xk: PXKeyEvent){.CDecl,
|
||||
dynlib: libXxf86dga, importc.}
|
||||
# implementation
|
||||
@@ -1,229 +0,0 @@
|
||||
# $XFree86: xc/include/extensions/xf86vmode.h,v 3.30 2001/05/07 20:09:50 mvojkovi Exp $
|
||||
#
|
||||
#
|
||||
#Copyright 1995 Kaleb S. KEITHLEY
|
||||
#
|
||||
#Permission is hereby granted, free of charge, to any person obtaining
|
||||
#a copy of this software and associated documentation files (the
|
||||
#"Software"), to deal in the Software without restriction, including
|
||||
#without limitation the rights to use, copy, modify, merge, publish,
|
||||
#distribute, sublicense, and/or sell copies of the Software, and to
|
||||
#permit persons to whom the Software is furnished to do so, subject to
|
||||
#the following conditions:
|
||||
#
|
||||
#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 Kaleb S. KEITHLEY 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 Kaleb S. KEITHLEY
|
||||
#shall not be used in advertising or otherwise to promote the sale, use
|
||||
#or other dealings in this Software without prior written authorization
|
||||
#from Kaleb S. KEITHLEY
|
||||
#
|
||||
#
|
||||
# $Xorg: xf86vmode.h,v 1.3 2000/08/18 04:05:46 coskrey Exp $
|
||||
# THIS IS NOT AN X CONSORTIUM STANDARD OR AN X PROJECT TEAM SPECIFICATION
|
||||
|
||||
import
|
||||
x, xlib
|
||||
|
||||
const
|
||||
libXxf86vm* = "libXxf86vm.so"
|
||||
|
||||
type
|
||||
PINT32* = ptr int32
|
||||
|
||||
const
|
||||
X_XF86VidModeQueryVersion* = 0
|
||||
X_XF86VidModeGetModeLine* = 1
|
||||
X_XF86VidModeModModeLine* = 2
|
||||
X_XF86VidModeSwitchMode* = 3
|
||||
X_XF86VidModeGetMonitor* = 4
|
||||
X_XF86VidModeLockModeSwitch* = 5
|
||||
X_XF86VidModeGetAllModeLines* = 6
|
||||
X_XF86VidModeAddModeLine* = 7
|
||||
X_XF86VidModeDeleteModeLine* = 8
|
||||
X_XF86VidModeValidateModeLine* = 9
|
||||
X_XF86VidModeSwitchToMode* = 10
|
||||
X_XF86VidModeGetViewPort* = 11
|
||||
X_XF86VidModeSetViewPort* = 12 # new for version 2.x of this extension
|
||||
X_XF86VidModeGetDotClocks* = 13
|
||||
X_XF86VidModeSetClientVersion* = 14
|
||||
X_XF86VidModeSetGamma* = 15
|
||||
X_XF86VidModeGetGamma* = 16
|
||||
X_XF86VidModeGetGammaRamp* = 17
|
||||
X_XF86VidModeSetGammaRamp* = 18
|
||||
X_XF86VidModeGetGammaRampSize* = 19
|
||||
X_XF86VidModeGetPermissions* = 20
|
||||
CLKFLAG_PROGRAMABLE* = 1
|
||||
|
||||
when defined(XF86VIDMODE_EVENTS):
|
||||
const
|
||||
XF86VidModeNotify* = 0
|
||||
XF86VidModeNumberEvents* = (XF86VidModeNotify + 1)
|
||||
XF86VidModeNotifyMask* = 0x00000001
|
||||
XF86VidModeNonEvent* = 0
|
||||
XF86VidModeModeChange* = 1
|
||||
else:
|
||||
const
|
||||
XF86VidModeNumberEvents* = 0
|
||||
const
|
||||
XF86VidModeBadClock* = 0
|
||||
XF86VidModeBadHTimings* = 1
|
||||
XF86VidModeBadVTimings* = 2
|
||||
XF86VidModeModeUnsuitable* = 3
|
||||
XF86VidModeExtensionDisabled* = 4
|
||||
XF86VidModeClientNotLocal* = 5
|
||||
XF86VidModeZoomLocked* = 6
|
||||
XF86VidModeNumberErrors* = (XF86VidModeZoomLocked + 1)
|
||||
XF86VM_READ_PERMISSION* = 1
|
||||
XF86VM_WRITE_PERMISSION* = 2
|
||||
|
||||
type
|
||||
PXF86VidModeModeLine* = ptr TXF86VidModeModeLine
|
||||
TXF86VidModeModeLine*{.final.} = object
|
||||
hdisplay*: cushort
|
||||
hsyncstart*: cushort
|
||||
hsyncend*: cushort
|
||||
htotal*: cushort
|
||||
hskew*: cushort
|
||||
vdisplay*: cushort
|
||||
vsyncstart*: cushort
|
||||
vsyncend*: cushort
|
||||
vtotal*: cushort
|
||||
flags*: cuint
|
||||
privsize*: cint
|
||||
c_private*: PINT32
|
||||
|
||||
PPPXF86VidModeModeInfo* = ptr PPXF86VidModeModeInfo
|
||||
PPXF86VidModeModeInfo* = ptr PXF86VidModeModeInfo
|
||||
PXF86VidModeModeInfo* = ptr TXF86VidModeModeInfo
|
||||
TXF86VidModeModeInfo*{.final.} = object
|
||||
dotclock*: cuint
|
||||
hdisplay*: cushort
|
||||
hsyncstart*: cushort
|
||||
hsyncend*: cushort
|
||||
htotal*: cushort
|
||||
hskew*: cushort
|
||||
vdisplay*: cushort
|
||||
vsyncstart*: cushort
|
||||
vsyncend*: cushort
|
||||
vtotal*: cushort
|
||||
flags*: cuint
|
||||
privsize*: cint
|
||||
c_private*: PINT32
|
||||
|
||||
PXF86VidModeSyncRange* = ptr TXF86VidModeSyncRange
|
||||
TXF86VidModeSyncRange*{.final.} = object
|
||||
hi*: cfloat
|
||||
lo*: cfloat
|
||||
|
||||
PXF86VidModeMonitor* = ptr TXF86VidModeMonitor
|
||||
TXF86VidModeMonitor*{.final.} = object
|
||||
vendor*: cstring
|
||||
model*: cstring
|
||||
EMPTY*: cfloat
|
||||
nhsync*: cuchar
|
||||
hsync*: PXF86VidModeSyncRange
|
||||
nvsync*: cuchar
|
||||
vsync*: PXF86VidModeSyncRange
|
||||
|
||||
PXF86VidModeNotifyEvent* = ptr TXF86VidModeNotifyEvent
|
||||
TXF86VidModeNotifyEvent*{.final.} = object
|
||||
theType*: cint # of event
|
||||
serial*: culong # # of last request processed by server
|
||||
send_event*: TBool # true if this came from a SendEvent req
|
||||
display*: PDisplay # Display the event was read from
|
||||
root*: TWindow # root window of event screen
|
||||
state*: cint # What happened
|
||||
kind*: cint # What happened
|
||||
forced*: TBool # extents of new region
|
||||
time*: TTime # event timestamp
|
||||
|
||||
PXF86VidModeGamma* = ptr TXF86VidModeGamma
|
||||
TXF86VidModeGamma*{.final.} = object
|
||||
red*: cfloat # Red Gamma value
|
||||
green*: cfloat # Green Gamma value
|
||||
blue*: cfloat # Blue Gamma value
|
||||
|
||||
|
||||
when defined(MACROS):
|
||||
proc XF86VidModeSelectNextMode*(disp: PDisplay, scr: cint): TBool
|
||||
proc XF86VidModeSelectPrevMode*(disp: PDisplay, scr: cint): TBool
|
||||
proc XF86VidModeQueryVersion*(dpy: PDisplay, majorVersion: Pcint,
|
||||
minorVersion: Pcint): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeQueryExtension*(dpy: PDisplay, event_base: Pcint,
|
||||
error_base: Pcint): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeSetClientVersion*(dpy: PDisplay): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetModeLine*(dpy: PDisplay, screen: cint, dotclock: Pcint,
|
||||
modeline: PXF86VidModeModeLine): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetAllModeLines*(dpy: PDisplay, screen: cint, modecount: Pcint,
|
||||
modelinesPtr: PPPXF86VidModeModeInfo): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeAddModeLine*(dpy: PDisplay, screen: cint,
|
||||
new_modeline: PXF86VidModeModeInfo,
|
||||
after_modeline: PXF86VidModeModeInfo): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeDeleteModeLine*(dpy: PDisplay, screen: cint,
|
||||
modeline: PXF86VidModeModeInfo): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeModModeLine*(dpy: PDisplay, screen: cint,
|
||||
modeline: PXF86VidModeModeLine): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeValidateModeLine*(dpy: PDisplay, screen: cint,
|
||||
modeline: PXF86VidModeModeInfo): TStatus{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeSwitchMode*(dpy: PDisplay, screen: cint, zoom: cint): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeSwitchToMode*(dpy: PDisplay, screen: cint,
|
||||
modeline: PXF86VidModeModeInfo): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeLockModeSwitch*(dpy: PDisplay, screen: cint, lock: cint): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetMonitor*(dpy: PDisplay, screen: cint,
|
||||
monitor: PXF86VidModeMonitor): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetViewPort*(dpy: PDisplay, screen: cint, x_return: Pcint,
|
||||
y_return: Pcint): TBool{.CDecl, dynlib: libXxf86vm,
|
||||
importc.}
|
||||
proc XF86VidModeSetViewPort*(dpy: PDisplay, screen: cint, x: cint, y: cint): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetDotClocks*(dpy: PDisplay, screen: cint, flags_return: Pcint,
|
||||
number_of_clocks_return: Pcint,
|
||||
max_dot_clock_return: Pcint, clocks_return: PPcint): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetGamma*(dpy: PDisplay, screen: cint, Gamma: PXF86VidModeGamma): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeSetGamma*(dpy: PDisplay, screen: cint, Gamma: PXF86VidModeGamma): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeSetGammaRamp*(dpy: PDisplay, screen: cint, size: cint,
|
||||
red_array: Pcushort, green_array: Pcushort,
|
||||
blue_array: Pcushort): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetGammaRamp*(dpy: PDisplay, screen: cint, size: cint,
|
||||
red_array: Pcushort, green_array: Pcushort,
|
||||
blue_array: Pcushort): TBool{.CDecl,
|
||||
dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetGammaRampSize*(dpy: PDisplay, screen: cint, size: Pcint): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
proc XF86VidModeGetPermissions*(dpy: PDisplay, screen: cint, permissions: Pcint): TBool{.
|
||||
CDecl, dynlib: libXxf86vm, importc.}
|
||||
# implementation
|
||||
|
||||
when defined(MACROS):
|
||||
proc XF86VidModeSelectNextMode(disp: PDisplay, scr: cint): TBool =
|
||||
XF86VidModeSelectNextMode = XF86VidModeSwitchMode(disp, scr, 1)
|
||||
|
||||
proc XF86VidModeSelectPrevMode(disp: PDisplay, scr: cint): TBool =
|
||||
XF86VidModeSelectPrevMode = XF86VidModeSwitchMode(disp, scr, - 1)
|
||||
@@ -1,307 +0,0 @@
|
||||
#
|
||||
# $Xorg: XI.h,v 1.4 2001/02/09 02:03:23 xorgcvs Exp $
|
||||
#
|
||||
#************************************************************
|
||||
#
|
||||
#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.
|
||||
#
|
||||
#Copyright 1989 by Hewlett-Packard Company, Palo Alto, California.
|
||||
#
|
||||
# All Rights Reserved
|
||||
#
|
||||
#Permission to use, copy, modify, and distribute this software and its
|
||||
#documentation for any purpose and without fee is hereby granted,
|
||||
#provided that the above copyright notice appear in all copies and that
|
||||
#both that copyright notice and this permission notice appear in
|
||||
#supporting documentation, and that the name of Hewlett-Packard not be
|
||||
#used in advertising or publicity pertaining to distribution of the
|
||||
#software without specific, written prior permission.
|
||||
#
|
||||
#HEWLETT-PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
|
||||
#ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
|
||||
#HEWLETT-PACKARD BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
|
||||
#ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|
||||
#WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
|
||||
#ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
|
||||
#SOFTWARE.
|
||||
#
|
||||
#********************************************************/
|
||||
# $XFree86: xc/include/extensions/XI.h,v 1.5 2001/12/14 19:53:28 dawes Exp $
|
||||
#
|
||||
# Definitions used by the server, library and client
|
||||
#
|
||||
# Pascal Convertion was made by Ido Kannner - kanerido@actcom.net.il
|
||||
#
|
||||
#Histroy:
|
||||
# 2004/10/15 - Fixed a bug of accessing second based records by removing "paced record" and chnaged it to
|
||||
# "reocrd" only.
|
||||
# 2004/10/07 - Removed the "uses X;" line. The unit does not need it.
|
||||
# 2004/10/03 - Conversion from C header to Pascal unit.
|
||||
#
|
||||
|
||||
const
|
||||
sz_xGetExtensionVersionReq* = 8
|
||||
sz_xGetExtensionVersionReply* = 32
|
||||
sz_xListInputDevicesReq* = 4
|
||||
sz_xListInputDevicesReply* = 32
|
||||
sz_xOpenDeviceReq* = 8
|
||||
sz_xOpenDeviceReply* = 32
|
||||
sz_xCloseDeviceReq* = 8
|
||||
sz_xSetDeviceModeReq* = 8
|
||||
sz_xSetDeviceModeReply* = 32
|
||||
sz_xSelectExtensionEventReq* = 12
|
||||
sz_xGetSelectedExtensionEventsReq* = 8
|
||||
sz_xGetSelectedExtensionEventsReply* = 32
|
||||
sz_xChangeDeviceDontPropagateListReq* = 12
|
||||
sz_xGetDeviceDontPropagateListReq* = 8
|
||||
sz_xGetDeviceDontPropagateListReply* = 32
|
||||
sz_xGetDeviceMotionEventsReq* = 16
|
||||
sz_xGetDeviceMotionEventsReply* = 32
|
||||
sz_xChangeKeyboardDeviceReq* = 8
|
||||
sz_xChangeKeyboardDeviceReply* = 32
|
||||
sz_xChangePointerDeviceReq* = 8
|
||||
sz_xChangePointerDeviceReply* = 32
|
||||
sz_xGrabDeviceReq* = 20
|
||||
sz_xGrabDeviceReply* = 32
|
||||
sz_xUngrabDeviceReq* = 12
|
||||
sz_xGrabDeviceKeyReq* = 20
|
||||
sz_xGrabDeviceKeyReply* = 32
|
||||
sz_xUngrabDeviceKeyReq* = 16
|
||||
sz_xGrabDeviceButtonReq* = 20
|
||||
sz_xGrabDeviceButtonReply* = 32
|
||||
sz_xUngrabDeviceButtonReq* = 16
|
||||
sz_xAllowDeviceEventsReq* = 12
|
||||
sz_xGetDeviceFocusReq* = 8
|
||||
sz_xGetDeviceFocusReply* = 32
|
||||
sz_xSetDeviceFocusReq* = 16
|
||||
sz_xGetFeedbackControlReq* = 8
|
||||
sz_xGetFeedbackControlReply* = 32
|
||||
sz_xChangeFeedbackControlReq* = 12
|
||||
sz_xGetDeviceKeyMappingReq* = 8
|
||||
sz_xGetDeviceKeyMappingReply* = 32
|
||||
sz_xChangeDeviceKeyMappingReq* = 8
|
||||
sz_xGetDeviceModifierMappingReq* = 8
|
||||
sz_xSetDeviceModifierMappingReq* = 8
|
||||
sz_xSetDeviceModifierMappingReply* = 32
|
||||
sz_xGetDeviceButtonMappingReq* = 8
|
||||
sz_xGetDeviceButtonMappingReply* = 32
|
||||
sz_xSetDeviceButtonMappingReq* = 8
|
||||
sz_xSetDeviceButtonMappingReply* = 32
|
||||
sz_xQueryDeviceStateReq* = 8
|
||||
sz_xQueryDeviceStateReply* = 32
|
||||
sz_xSendExtensionEventReq* = 16
|
||||
sz_xDeviceBellReq* = 8
|
||||
sz_xSetDeviceValuatorsReq* = 8
|
||||
sz_xSetDeviceValuatorsReply* = 32
|
||||
sz_xGetDeviceControlReq* = 8
|
||||
sz_xGetDeviceControlReply* = 32
|
||||
sz_xChangeDeviceControlReq* = 8
|
||||
sz_xChangeDeviceControlReply* = 32
|
||||
|
||||
const
|
||||
INAME* = "XInputExtension"
|
||||
|
||||
const
|
||||
XI_KEYBOARD* = "KEYBOARD"
|
||||
XI_MOUSE* = "MOUSE"
|
||||
XI_TABLET* = "TABLET"
|
||||
XI_TOUCHSCREEN* = "TOUCHSCREEN"
|
||||
XI_TOUCHPAD* = "TOUCHPAD"
|
||||
XI_BARCODE* = "BARCODE"
|
||||
XI_BUTTONBOX* = "BUTTONBOX"
|
||||
XI_KNOB_BOX* = "KNOB_BOX"
|
||||
XI_ONE_KNOB* = "ONE_KNOB"
|
||||
XI_NINE_KNOB* = "NINE_KNOB"
|
||||
XI_TRACKBALL* = "TRACKBALL"
|
||||
XI_QUADRATURE* = "QUADRATURE"
|
||||
XI_ID_MODULE* = "ID_MODULE"
|
||||
XI_SPACEBALL* = "SPACEBALL"
|
||||
XI_DATAGLOVE* = "DATAGLOVE"
|
||||
XI_EYETRACKER* = "EYETRACKER"
|
||||
XI_CURSORKEYS* = "CURSORKEYS"
|
||||
XI_FOOTMOUSE* = "FOOTMOUSE"
|
||||
|
||||
const
|
||||
Dont_Check* = 0
|
||||
XInput_Initial_Release* = 1
|
||||
XInput_Add_XDeviceBell* = 2
|
||||
XInput_Add_XSetDeviceValuators* = 3
|
||||
XInput_Add_XChangeDeviceControl* = 4
|
||||
|
||||
const
|
||||
XI_Absent* = 0
|
||||
XI_Present* = 1
|
||||
|
||||
const
|
||||
XI_Initial_Release_Major* = 1
|
||||
XI_Initial_Release_Minor* = 0
|
||||
|
||||
const
|
||||
XI_Add_XDeviceBell_Major* = 1
|
||||
XI_Add_XDeviceBell_Minor* = 1
|
||||
|
||||
const
|
||||
XI_Add_XSetDeviceValuators_Major* = 1
|
||||
XI_Add_XSetDeviceValuators_Minor* = 2
|
||||
|
||||
const
|
||||
XI_Add_XChangeDeviceControl_Major* = 1
|
||||
XI_Add_XChangeDeviceControl_Minor* = 3
|
||||
|
||||
const
|
||||
DEVICE_RESOLUTION* = 1
|
||||
|
||||
const
|
||||
NoSuchExtension* = 1
|
||||
|
||||
const
|
||||
COUNT* = 0
|
||||
CREATE* = 1
|
||||
|
||||
const
|
||||
NewPointer* = 0
|
||||
NewKeyboard* = 1
|
||||
|
||||
const
|
||||
XPOINTER* = 0
|
||||
XKEYBOARD* = 1
|
||||
|
||||
const
|
||||
UseXKeyboard* = 0x000000FF
|
||||
|
||||
const
|
||||
IsXPointer* = 0
|
||||
IsXKeyboard* = 1
|
||||
IsXExtensionDevice* = 2
|
||||
|
||||
const
|
||||
AsyncThisDevice* = 0
|
||||
SyncThisDevice* = 1
|
||||
ReplayThisDevice* = 2
|
||||
AsyncOtherDevices* = 3
|
||||
AsyncAll* = 4
|
||||
SyncAll* = 5
|
||||
|
||||
const
|
||||
FollowKeyboard* = 3
|
||||
RevertToFollowKeyboard* = 3
|
||||
|
||||
const
|
||||
DvAccelNum* = int(1) shl 0
|
||||
DvAccelDenom* = int(1) shl 1
|
||||
DvThreshold* = int(1) shl 2
|
||||
|
||||
const
|
||||
DvKeyClickPercent* = int(1) shl 0
|
||||
DvPercent* = int(1) shl 1
|
||||
DvPitch* = int(1) shl 2
|
||||
DvDuration* = int(1) shl 3
|
||||
DvLed* = int(1) shl 4
|
||||
DvLedMode* = int(1) shl 5
|
||||
DvKey* = int(1) shl 6
|
||||
DvAutoRepeatMode* = 1 shl 7
|
||||
|
||||
const
|
||||
DvString* = int(1) shl 0
|
||||
|
||||
const
|
||||
DvInteger* = int(1) shl 0
|
||||
|
||||
const
|
||||
DeviceMode* = int(1) shl 0
|
||||
Relative* = 0
|
||||
Absolute* = 1 # Merged from Metrolink tree for XINPUT stuff
|
||||
TS_Raw* = 57
|
||||
TS_Scaled* = 58
|
||||
SendCoreEvents* = 59
|
||||
DontSendCoreEvents* = 60 # End of merged section
|
||||
|
||||
const
|
||||
ProximityState* = int(1) shl 1
|
||||
InProximity* = int(0) shl 1
|
||||
OutOfProximity* = int(1) shl 1
|
||||
|
||||
const
|
||||
AddToList* = 0
|
||||
DeleteFromList* = 1
|
||||
|
||||
const
|
||||
KeyClass* = 0
|
||||
ButtonClass* = 1
|
||||
ValuatorClass* = 2
|
||||
FeedbackClass* = 3
|
||||
ProximityClass* = 4
|
||||
FocusClass* = 5
|
||||
OtherClass* = 6
|
||||
|
||||
const
|
||||
KbdFeedbackClass* = 0
|
||||
PtrFeedbackClass* = 1
|
||||
StringFeedbackClass* = 2
|
||||
IntegerFeedbackClass* = 3
|
||||
LedFeedbackClass* = 4
|
||||
BellFeedbackClass* = 5
|
||||
|
||||
const
|
||||
devicePointerMotionHint* = 0
|
||||
deviceButton1Motion* = 1
|
||||
deviceButton2Motion* = 2
|
||||
deviceButton3Motion* = 3
|
||||
deviceButton4Motion* = 4
|
||||
deviceButton5Motion* = 5
|
||||
deviceButtonMotion* = 6
|
||||
deviceButtonGrab* = 7
|
||||
deviceOwnerGrabButton* = 8
|
||||
noExtensionEvent* = 9
|
||||
|
||||
const
|
||||
XI_BadDevice* = 0
|
||||
XI_BadEvent* = 1
|
||||
XI_BadMode* = 2
|
||||
XI_DeviceBusy* = 3
|
||||
XI_BadClass* = 4 # Make XEventClass be a CARD32 for 64 bit servers. Don't affect client
|
||||
# definition of XEventClass since that would be a library interface change.
|
||||
# See the top of X.h for more _XSERVER64 magic.
|
||||
#
|
||||
|
||||
when defined(XSERVER64):
|
||||
type
|
||||
XEventClass* = CARD32
|
||||
else:
|
||||
type
|
||||
XEventClass* = int32
|
||||
#******************************************************************
|
||||
# *
|
||||
# * Extension version structure.
|
||||
# *
|
||||
#
|
||||
|
||||
type
|
||||
PXExtensionVersion* = ptr TXExtensionVersion
|
||||
TXExtensionVersion*{.final.} = object
|
||||
present*: int16
|
||||
major_version*: int16
|
||||
minor_version*: int16
|
||||
|
||||
|
||||
# implementation
|
||||
@@ -1,25 +0,0 @@
|
||||
# Converted from X11/Xinerama.h
|
||||
import
|
||||
xlib
|
||||
|
||||
const
|
||||
xineramaLib = "libXinerama.so"
|
||||
|
||||
type
|
||||
PXineramaScreenInfo* = ptr TXineramaScreenInfo
|
||||
TXineramaScreenInfo*{.final.} = object
|
||||
screen_number*: cint
|
||||
x_org*: int16
|
||||
y_org*: int16
|
||||
width*: int16
|
||||
height*: int16
|
||||
|
||||
|
||||
proc XineramaQueryExtension*(dpy: PDisplay, event_base: Pcint, error_base: Pcint): TBool{.
|
||||
cdecl, dynlib: xineramaLib, importc.}
|
||||
proc XineramaQueryVersion*(dpy: PDisplay, major: Pcint, minor: Pcint): TStatus{.
|
||||
cdecl, dynlib: xineramaLib, importc.}
|
||||
proc XineramaIsActive*(dpy: PDisplay): TBool{.cdecl, dynlib: xineramaLib, importc.}
|
||||
proc XineramaQueryScreens*(dpy: PDisplay, number: Pcint): PXineramaScreenInfo{.
|
||||
cdecl, dynlib: xineramaLib, importc.}
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@@ -1,661 +0,0 @@
|
||||
# $Xorg: XKBlib.h,v 1.6 2000/08/17 19:45:03 cpqbld Exp $
|
||||
#************************************************************
|
||||
#Copyright (c) 1993 by Silicon Graphics Computer Systems, Inc.
|
||||
#
|
||||
#Permission to use, copy, modify, and distribute this
|
||||
#software and its documentation for any purpose and without
|
||||
#fee is hereby granted, provided that the above copyright
|
||||
#notice appear in all copies and that both that copyright
|
||||
#notice and this permission notice appear in supporting
|
||||
#documentation, and that the name of Silicon Graphics not be
|
||||
#used in advertising or publicity pertaining to distribution
|
||||
#of the software without specific prior written permission.
|
||||
#Silicon Graphics makes no representation about the suitability
|
||||
#of this software for any purpose. It is provided "as is"
|
||||
#without any express or implied warranty.
|
||||
#
|
||||
#SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
|
||||
#SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
|
||||
#AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON
|
||||
#GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
|
||||
#DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING `from` LOSS OF USE,
|
||||
#DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
|
||||
#OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH
|
||||
#THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
#
|
||||
#********************************************************/
|
||||
# $XFree86: xc/lib/X11/XKBlib.h,v 3.3 2001/08/01 00:44:38 tsi Exp $
|
||||
#
|
||||
# Pascal Convertion was made by Ido Kannner - kanerido@actcom.net.il
|
||||
#
|
||||
#Thanks:
|
||||
# I want to thanks to oliebol for putting up with all of the problems that was found
|
||||
# while translating this code. ;)
|
||||
#
|
||||
# I want to thanks #fpc channel in freenode irc, for helping me, and to put up with my
|
||||
# wierd questions ;)
|
||||
#
|
||||
# Thanks for mmc in #xlib on freenode irc And so for the channel itself for the helping me to
|
||||
# understanding some of the problems I had converting this headers and pointing me to resources
|
||||
# that helped translating this headers.
|
||||
#
|
||||
# Ido
|
||||
#
|
||||
#History:
|
||||
# 2004/10/15 - Fixed a bug of accessing second based records by removing "paced record" and
|
||||
# chnaged it to "reocrd" only.
|
||||
# 2004/10/10 - Added to TXkbGetAtomNameFunc and TXkbInternAtomFunc the cdecl call.
|
||||
# 2004/10/06 - 09 - Convertion `from` the c header of XKBlib.h
|
||||
#
|
||||
#
|
||||
|
||||
import
|
||||
X, Xlib, XKB
|
||||
|
||||
|
||||
include "x11pragma.nim"
|
||||
|
||||
|
||||
type
|
||||
PXkbAnyEvent* = ptr TXkbAnyEvent
|
||||
TXkbAnyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds;
|
||||
xkb_type*: int16 # XKB event minor code
|
||||
device*: int16 # device ID
|
||||
|
||||
|
||||
type
|
||||
PXkbNewKeyboardNotifyEvent* = ptr TXkbNewKeyboardNotifyEvent
|
||||
TXkbNewKeyboardNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbNewKeyboardNotify
|
||||
device*: int16 # device ID
|
||||
old_device*: int16 # device ID of previous keyboard
|
||||
min_key_code*: int16 # minimum key code
|
||||
max_key_code*: int16 # maximum key code
|
||||
old_min_key_code*: int16 # min key code of previous kbd
|
||||
old_max_key_code*: int16 # max key code of previous kbd
|
||||
changed*: int16 # changed aspects of the keyboard
|
||||
req_major*: int8 # major and minor opcode of req
|
||||
req_minor*: int8 # that caused change, if applicable
|
||||
|
||||
|
||||
type
|
||||
PXkbMapNotifyEvent* = ptr TXkbMapNotifyEvent
|
||||
TXkbMapNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbMapNotify
|
||||
device*: int16 # device ID
|
||||
changed*: int16 # fields which have been changed
|
||||
flags*: int16 # reserved
|
||||
first_type*: int16 # first changed key type
|
||||
num_types*: int16 # number of changed key types
|
||||
min_key_code*: TKeyCode
|
||||
max_key_code*: TKeyCode
|
||||
first_key_sym*: TKeyCode
|
||||
first_key_act*: TKeyCode
|
||||
first_key_behavior*: TKeyCode
|
||||
first_key_explicit*: TKeyCode
|
||||
first_modmap_key*: TKeyCode
|
||||
first_vmodmap_key*: TKeyCode
|
||||
num_key_syms*: int16
|
||||
num_key_acts*: int16
|
||||
num_key_behaviors*: int16
|
||||
num_key_explicit*: int16
|
||||
num_modmap_keys*: int16
|
||||
num_vmodmap_keys*: int16
|
||||
vmods*: int16 # mask of changed virtual mods
|
||||
|
||||
|
||||
type
|
||||
PXkbStateNotifyEvent* = ptr TXkbStateNotifyEvent
|
||||
TXkbStateNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbStateNotify
|
||||
device*: int16 # device ID
|
||||
changed*: int16 # mask of changed state components
|
||||
group*: int16 # keyboard group
|
||||
base_group*: int16 # base keyboard group
|
||||
latched_group*: int16 # latched keyboard group
|
||||
locked_group*: int16 # locked keyboard group
|
||||
mods*: int16 # modifier state
|
||||
base_mods*: int16 # base modifier state
|
||||
latched_mods*: int16 # latched modifiers
|
||||
locked_mods*: int16 # locked modifiers
|
||||
compat_state*: int16 # compatibility state
|
||||
grab_mods*: int8 # mods used for grabs
|
||||
compat_grab_mods*: int8 # grab mods for non-XKB clients
|
||||
lookup_mods*: int8 # mods sent to clients
|
||||
compat_lookup_mods*: int8 # mods sent to non-XKB clients
|
||||
ptr_buttons*: int16 # pointer button state
|
||||
keycode*: TKeyCode # keycode that caused the change
|
||||
event_type*: int8 # KeyPress or KeyRelease
|
||||
req_major*: int8 # Major opcode of request
|
||||
req_minor*: int8 # Minor opcode of request
|
||||
|
||||
|
||||
type
|
||||
PXkbControlsNotifyEvent* = ptr TXkbControlsNotifyEvent
|
||||
TXkbControlsNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbControlsNotify
|
||||
device*: int16 # device ID
|
||||
changed_ctrls*: int16 # controls with changed sub-values
|
||||
enabled_ctrls*: int16 # controls currently enabled
|
||||
enabled_ctrl_changes*: int16 # controls just {en,dis}abled
|
||||
num_groups*: int16 # total groups on keyboard
|
||||
keycode*: TKeyCode # key that caused change or 0
|
||||
event_type*: int8 # type of event that caused change
|
||||
req_major*: int8 # if keycode==0, major and minor
|
||||
req_minor*: int8 # opcode of req that caused change
|
||||
|
||||
|
||||
type
|
||||
PXkbIndicatorNotifyEvent* = ptr TXkbIndicatorNotifyEvent
|
||||
TXkbIndicatorNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbIndicatorNotify
|
||||
device*: int16 # device
|
||||
changed*: int16 # indicators with new state or map
|
||||
state*: int16 # current state of all indicators
|
||||
|
||||
|
||||
type
|
||||
PXkbNamesNotifyEvent* = ptr TXkbNamesNotifyEvent
|
||||
TXkbNamesNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbNamesNotify
|
||||
device*: int16 # device ID
|
||||
changed*: int32 # names that have changed
|
||||
first_type*: int16 # first key type with new name
|
||||
num_types*: int16 # number of key types with new names
|
||||
first_lvl*: int16 # first key type new new level names
|
||||
num_lvls*: int16 # # of key types w/new level names
|
||||
num_aliases*: int16 # total number of key aliases
|
||||
num_radio_groups*: int16 # total number of radio groups
|
||||
changed_vmods*: int16 # virtual modifiers with new names
|
||||
changed_groups*: int16 # groups with new names
|
||||
changed_indicators*: int16 # indicators with new names
|
||||
first_key*: int16 # first key with new name
|
||||
num_keys*: int16 # number of keys with new names
|
||||
|
||||
|
||||
type
|
||||
PXkbCompatMapNotifyEvent* = ptr TXkbCompatMapNotifyEvent
|
||||
TXkbCompatMapNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbCompatMapNotify
|
||||
device*: int16 # device ID
|
||||
changed_groups*: int16 # groups with new compat maps
|
||||
first_si*: int16 # first new symbol interp
|
||||
num_si*: int16 # number of new symbol interps
|
||||
num_total_si*: int16 # total # of symbol interps
|
||||
|
||||
|
||||
type
|
||||
PXkbBellNotifyEvent* = ptr TXkbBellNotifyEvent
|
||||
TXkbBellNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbBellNotify
|
||||
device*: int16 # device ID
|
||||
percent*: int16 # requested volume as a % of maximum
|
||||
pitch*: int16 # requested pitch in Hz
|
||||
duration*: int16 # requested duration in useconds
|
||||
bell_class*: int16 # (input extension) feedback class
|
||||
bell_id*: int16 # (input extension) ID of feedback
|
||||
name*: TAtom # "name" of requested bell
|
||||
window*: TWindow # window associated with event
|
||||
event_only*: bool # "event only" requested
|
||||
|
||||
|
||||
type
|
||||
PXkbActionMessageEvent* = ptr TXkbActionMessageEvent
|
||||
TXkbActionMessageEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbActionMessage
|
||||
device*: int16 # device ID
|
||||
keycode*: TKeyCode # key that generated the event
|
||||
press*: bool # true if act caused by key press
|
||||
key_event_follows*: bool # true if key event also generated
|
||||
group*: int16 # effective group
|
||||
mods*: int16 # effective mods
|
||||
message*: array[0..XkbActionMessageLength, Char] # message -- leave space for NUL
|
||||
|
||||
|
||||
type
|
||||
PXkbAccessXNotifyEvent* = ptr TXkbAccessXNotifyEvent
|
||||
TXkbAccessXNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbAccessXNotify
|
||||
device*: int16 # device ID
|
||||
detail*: int16 # XkbAXN_*
|
||||
keycode*: int16 # key of event
|
||||
sk_delay*: int16 # current slow keys delay
|
||||
debounce_delay*: int16 # current debounce delay
|
||||
|
||||
|
||||
type
|
||||
PXkbExtensionDeviceNotifyEvent* = ptr TXkbExtensionDeviceNotifyEvent
|
||||
TXkbExtensionDeviceNotifyEvent*{.final.} = object
|
||||
theType*: int16 # XkbAnyEvent
|
||||
serial*: int32 # of last req processed by server
|
||||
send_event*: bool # is this `from` a SendEvent request?
|
||||
display*: PDisplay # Display the event was read `from`
|
||||
time*: TTime # milliseconds
|
||||
xkb_type*: int16 # XkbExtensionDeviceNotify
|
||||
device*: int16 # device ID
|
||||
reason*: int16 # reason for the event
|
||||
supported*: int16 # mask of supported features
|
||||
unsupported*: int16 # mask of unsupported features
|
||||
# that some app tried to use
|
||||
first_btn*: int16 # first button that changed
|
||||
num_btns*: int16 # range of buttons changed
|
||||
leds_defined*: int16 # indicators with names or maps
|
||||
led_state*: int16 # current state of the indicators
|
||||
led_class*: int16 # feedback class for led changes
|
||||
led_id*: int16 # feedback id for led changes
|
||||
|
||||
|
||||
type
|
||||
PXkbEvent* = ptr TXkbEvent
|
||||
TXkbEvent*{.final.} = object
|
||||
theType*: int16
|
||||
any*: TXkbAnyEvent
|
||||
new_kbd*: TXkbNewKeyboardNotifyEvent
|
||||
map*: TXkbMapNotifyEvent
|
||||
state*: TXkbStateNotifyEvent
|
||||
ctrls*: TXkbControlsNotifyEvent
|
||||
indicators*: TXkbIndicatorNotifyEvent
|
||||
names*: TXkbNamesNotifyEvent
|
||||
compat*: TXkbCompatMapNotifyEvent
|
||||
bell*: TXkbBellNotifyEvent
|
||||
message*: TXkbActionMessageEvent
|
||||
accessx*: TXkbAccessXNotifyEvent
|
||||
device*: TXkbExtensionDeviceNotifyEvent
|
||||
core*: TXEvent
|
||||
|
||||
|
||||
type
|
||||
PXkbKbdDpyStatePtr* = ptr TXkbKbdDpyStateRec
|
||||
TXkbKbdDpyStateRec*{.final.} = object # XkbOpenDisplay error codes
|
||||
|
||||
const
|
||||
XkbOD_Success* = 0
|
||||
XkbOD_BadLibraryVersion* = 1
|
||||
XkbOD_ConnectionRefused* = 2
|
||||
XkbOD_NonXkbServer* = 3
|
||||
XkbOD_BadServerVersion* = 4 # Values for XlibFlags
|
||||
|
||||
const
|
||||
XkbLC_ForceLatin1Lookup* = 1 shl 0
|
||||
XkbLC_ConsumeLookupMods* = 1 shl 1
|
||||
XkbLC_AlwaysConsumeShiftAndLock* = 1 shl 2
|
||||
XkbLC_IgnoreNewKeyboards* = 1 shl 3
|
||||
XkbLC_ControlFallback* = 1 shl 4
|
||||
XkbLC_ConsumeKeysOnComposeFail* = 1 shl 29
|
||||
XkbLC_ComposeLED* = 1 shl 30
|
||||
XkbLC_BeepOnComposeFail* = 1 shl 31
|
||||
XkbLC_AllComposeControls* = 0xC0000000
|
||||
XkbLC_AllControls* = 0xC000001F
|
||||
|
||||
proc XkbIgnoreExtension*(ignore: bool): bool{.libx11c,
|
||||
importc: "XkbIgnoreExtension".}
|
||||
proc XkbOpenDisplay*(name: cstring, ev_rtrn, err_rtrn, major_rtrn, minor_rtrn,
|
||||
reason: ptr int16): PDisplay{.libx11c, importc: "XkbOpenDisplay".}
|
||||
proc XkbQueryExtension*(dpy: PDisplay, opcodeReturn, eventBaseReturn,
|
||||
errorBaseReturn, majorRtrn, minorRtrn: ptr int16): bool{.
|
||||
libx11c, importc: "XkbQueryExtension".}
|
||||
proc XkbUseExtension*(dpy: PDisplay, major_rtrn, minor_rtrn: ptr int16): bool{.
|
||||
libx11c, importc: "XkbUseExtension".}
|
||||
proc XkbLibraryVersion*(libMajorRtrn, libMinorRtrn: ptr int16): bool{.libx11c, importc: "XkbLibraryVersion".}
|
||||
proc XkbSetXlibControls*(dpy: PDisplay, affect, values: int16): int16{.libx11c, importc: "XkbSetXlibControls".}
|
||||
proc XkbGetXlibControls*(dpy: PDisplay): int16{.libx11c,
|
||||
importc: "XkbGetXlibControls".}
|
||||
type
|
||||
TXkbInternAtomFunc* = proc (dpy: PDisplay, name: cstring, only_if_exists: bool): TAtom{.
|
||||
cdecl.}
|
||||
|
||||
type
|
||||
TXkbGetAtomNameFunc* = proc (dpy: PDisplay, atom: TAtom): cstring{.cdecl.}
|
||||
|
||||
proc XkbSetAtomFuncs*(getAtom: TXkbInternAtomFunc, getName: TXkbGetAtomNameFunc){.
|
||||
libx11c, importc: "XkbSetAtomFuncs".}
|
||||
proc XkbKeycodeToKeysym*(dpy: PDisplay, kc: TKeyCode, group, level: int16): TKeySym{.
|
||||
libx11c, importc: "XkbKeycodeToKeysym".}
|
||||
proc XkbKeysymToModifiers*(dpy: PDisplay, ks: TKeySym): int16{.libx11c, importc: "XkbKeysymToModifiers".}
|
||||
proc XkbLookupKeySym*(dpy: PDisplay, keycode: TKeyCode,
|
||||
modifiers, modifiers_return: int16, keysym_return: PKeySym): bool{.
|
||||
libx11c, importc: "XkbLookupKeySym".}
|
||||
proc XkbLookupKeyBinding*(dpy: PDisplay, sym_rtrn: TKeySym, mods: int16,
|
||||
buffer: cstring, nbytes: int16, extra_rtrn: ptr int16): int16{.
|
||||
libx11c, importc: "XkbLookupKeyBinding".}
|
||||
proc XkbTranslateKeyCode*(xkb: PXkbDescPtr, keycode: TKeyCode,
|
||||
modifiers, modifiers_return: int16,
|
||||
keysym_return: PKeySym): bool{.libx11c,
|
||||
importc: "XkbTranslateKeyCode".}
|
||||
proc XkbTranslateKeySym*(dpy: PDisplay, sym_return: TKeySym, modifiers: int16,
|
||||
buffer: cstring, nbytes: int16, extra_rtrn: ptr int16): int16{.
|
||||
libx11c, importc: "XkbTranslateKeySym".}
|
||||
proc XkbSetAutoRepeatRate*(dpy: PDisplay, deviceSpec, delay, interval: int16): bool{.
|
||||
libx11c, importc: "XkbSetAutoRepeatRate".}
|
||||
proc XkbGetAutoRepeatRate*(dpy: PDisplay, deviceSpec: int16,
|
||||
delayRtrn, intervalRtrn: PWord): bool{.libx11c, importc: "XkbGetAutoRepeatRate".}
|
||||
proc XkbChangeEnabledControls*(dpy: PDisplay, deviceSpec, affect, values: int16): bool{.
|
||||
libx11c, importc: "XkbChangeEnabledControls".}
|
||||
proc XkbDeviceBell*(dpy: PDisplay, win: TWindow,
|
||||
deviceSpec, bellClass, bellID, percent: int16, name: TAtom): bool{.
|
||||
libx11c, importc: "XkbDeviceBell".}
|
||||
proc XkbForceDeviceBell*(dpy: PDisplay,
|
||||
deviceSpec, bellClass, bellID, percent: int16): bool{.
|
||||
libx11c, importc: "XkbForceDeviceBell".}
|
||||
proc XkbDeviceBellEvent*(dpy: PDisplay, win: TWindow,
|
||||
deviceSpec, bellClass, bellID, percent: int16,
|
||||
name: TAtom): bool{.libx11c,
|
||||
importc: "XkbDeviceBellEvent".}
|
||||
proc XkbBell*(dpy: PDisplay, win: TWindow, percent: int16, name: TAtom): bool{.
|
||||
libx11c, importc: "XkbBell".}
|
||||
proc XkbForceBell*(dpy: PDisplay, percent: int16): bool{.libx11c,
|
||||
importc: "XkbForceBell".}
|
||||
proc XkbBellEvent*(dpy: PDisplay, win: TWindow, percent: int16, name: TAtom): bool{.
|
||||
libx11c, importc: "XkbBellEvent".}
|
||||
proc XkbSelectEvents*(dpy: PDisplay, deviceID, affect, values: int16): bool{.
|
||||
libx11c, importc: "XkbSelectEvents".}
|
||||
proc XkbSelectEventDetails*(dpy: PDisplay, deviceID, eventType: int16,
|
||||
affect, details: int32): bool{.libx11c, importc: "XkbSelectEventDetails".}
|
||||
proc XkbNoteMapChanges*(old: PXkbMapChangesPtr, new: PXkbMapNotifyEvent,
|
||||
wanted: int16){.libx11c,
|
||||
importc: "XkbNoteMapChanges".}
|
||||
proc XkbNoteNameChanges*(old: PXkbNameChangesPtr, new: PXkbNamesNotifyEvent,
|
||||
wanted: int16){.libx11c,
|
||||
importc: "XkbNoteNameChanges".}
|
||||
proc XkbGetIndicatorState*(dpy: PDisplay, deviceSpec: int16, pStateRtrn: PWord): TStatus{.
|
||||
libx11c, importc: "XkbGetIndicatorState".}
|
||||
proc XkbGetDeviceIndicatorState*(dpy: PDisplay,
|
||||
deviceSpec, ledClass, ledID: int16,
|
||||
pStateRtrn: PWord): TStatus{.libx11c, importc: "XkbGetDeviceIndicatorState".}
|
||||
proc XkbGetIndicatorMap*(dpy: PDisplay, which: int32, desc: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetIndicatorMap".}
|
||||
proc XkbSetIndicatorMap*(dpy: PDisplay, which: int32, desc: PXkbDescPtr): bool{.
|
||||
libx11c, importc: "XkbSetIndicatorMap".}
|
||||
proc XkbNoteIndicatorMapChanges*(o, n: PXkbIndicatorChangesPtr, w: int16)
|
||||
proc XkbNoteIndicatorStateChanges*(o, n: PXkbIndicatorChangesPtr, w: int16)
|
||||
proc XkbGetIndicatorMapChanges*(d: PDisplay, x: PXkbDescPtr,
|
||||
c: PXkbIndicatorChangesPtr): TStatus
|
||||
proc XkbChangeIndicatorMaps*(d: PDisplay, x: PXkbDescPtr,
|
||||
c: PXkbIndicatorChangesPtr): bool
|
||||
proc XkbGetNamedIndicator*(dpy: PDisplay, name: TAtom, pNdxRtrn: ptr int16,
|
||||
pStateRtrn: ptr bool, pMapRtrn: PXkbIndicatorMapPtr,
|
||||
pRealRtrn: ptr bool): bool{.libx11c,
|
||||
importc: "XkbGetNamedIndicator".}
|
||||
proc XkbGetNamedDeviceIndicator*(dpy: PDisplay,
|
||||
deviceSpec, ledClass, ledID: int16,
|
||||
name: TAtom, pNdxRtrn: ptr int16,
|
||||
pStateRtrn: ptr bool,
|
||||
pMapRtrn: PXkbIndicatorMapPtr,
|
||||
pRealRtrn: ptr bool): bool{.libx11c, importc: "XkbGetNamedDeviceIndicator".}
|
||||
proc XkbSetNamedIndicator*(dpy: PDisplay, name: TAtom,
|
||||
changeState, state, createNewMap: bool,
|
||||
pMap: PXkbIndicatorMapPtr): bool{.libx11c, importc: "XkbSetNamedIndicator".}
|
||||
proc XkbSetNamedDeviceIndicator*(dpy: PDisplay,
|
||||
deviceSpec, ledClass, ledID: int16,
|
||||
name: TAtom,
|
||||
changeState, state, createNewMap: bool,
|
||||
pMap: PXkbIndicatorMapPtr): bool{.libx11c, importc: "XkbSetNamedDeviceIndicator".}
|
||||
proc XkbLockModifiers*(dpy: PDisplay, deviceSpec, affect, values: int16): bool{.
|
||||
libx11c, importc: "XkbLockModifiers".}
|
||||
proc XkbLatchModifiers*(dpy: PDisplay, deviceSpec, affect, values: int16): bool{.
|
||||
libx11c, importc: "XkbLatchModifiers".}
|
||||
proc XkbLockGroup*(dpy: PDisplay, deviceSpec, group: int16): bool{.libx11c, importc: "XkbLockGroup".}
|
||||
proc XkbLatchGroup*(dpy: PDisplay, deviceSpec, group: int16): bool{.libx11c, importc: "XkbLatchGroup".}
|
||||
proc XkbSetServerInternalMods*(dpy: PDisplay, deviceSpec, affectReal,
|
||||
realValues, affectVirtual, virtualValues: int16): bool{.libx11c, importc: "XkbSetServerInternalMods".}
|
||||
proc XkbSetIgnoreLockMods*(dpy: PDisplay, deviceSpec, affectReal, realValues,
|
||||
affectVirtual, virtualValues: int16): bool{.libx11c,
|
||||
importc: "XkbSetIgnoreLockMods".}
|
||||
proc XkbVirtualModsToReal*(dpy: PDisplay, virtual_mask: int16, mask_rtrn: PWord): bool{.
|
||||
libx11c, importc: "XkbVirtualModsToReal".}
|
||||
proc XkbComputeEffectiveMap*(xkb: PXkbDescPtr, theType: PXkbKeyTypePtr,
|
||||
map_rtrn: PByte): bool{.libx11c,
|
||||
importc: "XkbComputeEffectiveMap".}
|
||||
proc XkbInitCanonicalKeyTypes*(xkb: PXkbDescPtr, which: int16, keypadVMod: int16): TStatus{.
|
||||
libx11c, importc: "XkbInitCanonicalKeyTypes".}
|
||||
proc XkbAllocKeyboard*(): PXkbDescPtr{.libx11c,
|
||||
importc: "XkbAllocKeyboard".}
|
||||
proc XkbFreeKeyboard*(xkb: PXkbDescPtr, which: int16, freeDesc: bool){.libx11c, importc: "XkbFreeKeyboard".}
|
||||
proc XkbAllocClientMap*(xkb: PXkbDescPtr, which, nTypes: int16): TStatus{.libx11c, importc: "XkbAllocClientMap".}
|
||||
proc XkbAllocServerMap*(xkb: PXkbDescPtr, which, nActions: int16): TStatus{.
|
||||
libx11c, importc: "XkbAllocServerMap".}
|
||||
proc XkbFreeClientMap*(xkb: PXkbDescPtr, what: int16, freeMap: bool){.libx11c, importc: "XkbFreeClientMap".}
|
||||
proc XkbFreeServerMap*(xkb: PXkbDescPtr, what: int16, freeMap: bool){.libx11c, importc: "XkbFreeServerMap".}
|
||||
proc XkbAddKeyType*(xkb: PXkbDescPtr, name: TAtom, map_count: int16,
|
||||
want_preserve: bool, num_lvls: int16): PXkbKeyTypePtr{.
|
||||
libx11c, importc: "XkbAddKeyType".}
|
||||
proc XkbAllocIndicatorMaps*(xkb: PXkbDescPtr): TStatus{.libx11c,
|
||||
importc: "XkbAllocIndicatorMaps".}
|
||||
proc XkbFreeIndicatorMaps*(xkb: PXkbDescPtr){.libx11c,
|
||||
importc: "XkbFreeIndicatorMaps".}
|
||||
proc XkbGetMap*(dpy: PDisplay, which, deviceSpec: int16): PXkbDescPtr{.libx11c, importc: "XkbGetMap".}
|
||||
proc XkbGetUpdatedMap*(dpy: PDisplay, which: int16, desc: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetUpdatedMap".}
|
||||
proc XkbGetMapChanges*(dpy: PDisplay, xkb: PXkbDescPtr,
|
||||
changes: PXkbMapChangesPtr): TStatus{.libx11c, importc: "XkbGetMapChanges".}
|
||||
proc XkbRefreshKeyboardMapping*(event: PXkbMapNotifyEvent): TStatus{.libx11c, importc: "XkbRefreshKeyboardMapping".}
|
||||
proc XkbGetKeyTypes*(dpy: PDisplay, first, num: int16, xkb: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetKeyTypes".}
|
||||
proc XkbGetKeySyms*(dpy: PDisplay, first, num: int16, xkb: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetKeySyms".}
|
||||
proc XkbGetKeyActions*(dpy: PDisplay, first, num: int16, xkb: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetKeyActions".}
|
||||
proc XkbGetKeyBehaviors*(dpy: PDisplay, firstKey, nKeys: int16,
|
||||
desc: PXkbDescPtr): TStatus{.libx11c,
|
||||
importc: "XkbGetKeyBehaviors".}
|
||||
proc XkbGetVirtualMods*(dpy: PDisplay, which: int16, desc: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetVirtualMods".}
|
||||
proc XkbGetKeyExplicitComponents*(dpy: PDisplay, firstKey, nKeys: int16,
|
||||
desc: PXkbDescPtr): TStatus{.libx11c, importc: "XkbGetKeyExplicitComponents".}
|
||||
proc XkbGetKeyModifierMap*(dpy: PDisplay, firstKey, nKeys: int16,
|
||||
desc: PXkbDescPtr): TStatus{.libx11c,
|
||||
importc: "XkbGetKeyModifierMap".}
|
||||
proc XkbAllocControls*(xkb: PXkbDescPtr, which: int16): TStatus{.libx11c, importc: "XkbAllocControls".}
|
||||
proc XkbFreeControls*(xkb: PXkbDescPtr, which: int16, freeMap: bool){.libx11c, importc: "XkbFreeControls".}
|
||||
proc XkbGetControls*(dpy: PDisplay, which: int32, desc: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetControls".}
|
||||
proc XkbSetControls*(dpy: PDisplay, which: int32, desc: PXkbDescPtr): bool{.
|
||||
libx11c, importc: "XkbSetControls".}
|
||||
proc XkbNoteControlsChanges*(old: PXkbControlsChangesPtr,
|
||||
new: PXkbControlsNotifyEvent, wanted: int16){.
|
||||
libx11c, importc: "XkbNoteControlsChanges".}
|
||||
proc XkbGetControlsChanges*(d: PDisplay, x: PXkbDescPtr,
|
||||
c: PXkbControlsChangesPtr): TStatus
|
||||
proc XkbChangeControls*(d: PDisplay, x: PXkbDescPtr, c: PXkbControlsChangesPtr): bool
|
||||
proc XkbAllocCompatMap*(xkb: PXkbDescPtr, which, nInterpret: int16): TStatus{.
|
||||
libx11c, importc: "XkbAllocCompatMap".}
|
||||
proc XkbFreeCompatMap*(xkib: PXkbDescPtr, which: int16, freeMap: bool){.libx11c, importc: "XkbFreeCompatMap".}
|
||||
proc XkbGetCompatMap*(dpy: PDisplay, which: int16, xkb: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetCompatMap".}
|
||||
proc XkbSetCompatMap*(dpy: PDisplay, which: int16, xkb: PXkbDescPtr,
|
||||
updateActions: bool): bool{.libx11c,
|
||||
importc: "XkbSetCompatMap".}
|
||||
proc XkbAddSymInterpret*(xkb: PXkbDescPtr, si: PXkbSymInterpretPtr,
|
||||
updateMap: bool, changes: PXkbChangesPtr): PXkbSymInterpretPtr{.
|
||||
libx11c, importc: "XkbAddSymInterpret".}
|
||||
proc XkbAllocNames*(xkb: PXkbDescPtr, which: int16,
|
||||
nTotalRG, nTotalAliases: int16): TStatus{.libx11c, importc: "XkbAllocNames".}
|
||||
proc XkbGetNames*(dpy: PDisplay, which: int16, desc: PXkbDescPtr): TStatus{.
|
||||
libx11c, importc: "XkbGetNames".}
|
||||
proc XkbSetNames*(dpy: PDisplay, which, firstType, nTypes: int16,
|
||||
desc: PXkbDescPtr): bool{.libx11c,
|
||||
importc: "XkbSetNames".}
|
||||
proc XkbChangeNames*(dpy: PDisplay, xkb: PXkbDescPtr,
|
||||
changes: PXkbNameChangesPtr): bool{.libx11c,
|
||||
importc: "XkbChangeNames".}
|
||||
proc XkbFreeNames*(xkb: PXkbDescPtr, which: int16, freeMap: bool){.libx11c, importc: "XkbFreeNames".}
|
||||
proc XkbGetState*(dpy: PDisplay, deviceSpec: int16, rtrnState: PXkbStatePtr): TStatus{.
|
||||
libx11c, importc: "XkbGetState".}
|
||||
proc XkbSetMap*(dpy: PDisplay, which: int16, desc: PXkbDescPtr): bool{.libx11c, importc: "XkbSetMap".}
|
||||
proc XkbChangeMap*(dpy: PDisplay, desc: PXkbDescPtr, changes: PXkbMapChangesPtr): bool{.
|
||||
libx11c, importc: "XkbChangeMap".}
|
||||
proc XkbSetDetectableAutoRepeat*(dpy: PDisplay, detectable: bool,
|
||||
supported: ptr bool): bool{.libx11c, importc: "XkbSetDetectableAutoRepeat".}
|
||||
proc XkbGetDetectableAutoRepeat*(dpy: PDisplay, supported: ptr bool): bool{.
|
||||
libx11c, importc: "XkbGetDetectableAutoRepeat".}
|
||||
proc XkbSetAutoResetControls*(dpy: PDisplay, changes: int16,
|
||||
auto_ctrls, auto_values: PWord): bool{.libx11c, importc: "XkbSetAutoResetControls".}
|
||||
proc XkbGetAutoResetControls*(dpy: PDisplay, auto_ctrls, auto_ctrl_values: PWord): bool{.
|
||||
libx11c, importc: "XkbGetAutoResetControls".}
|
||||
proc XkbSetPerClientControls*(dpy: PDisplay, change: int16, values: PWord): bool{.
|
||||
libx11c, importc: "XkbSetPerClientControls".}
|
||||
proc XkbGetPerClientControls*(dpy: PDisplay, ctrls: PWord): bool{.libx11c, importc: "XkbGetPerClientControls".}
|
||||
proc XkbCopyKeyType*(`from`, into: PXkbKeyTypePtr): TStatus{.libx11c, importc: "XkbCopyKeyType".}
|
||||
proc XkbCopyKeyTypes*(`from`, into: PXkbKeyTypePtr, num_types: int16): TStatus{.
|
||||
libx11c, importc: "XkbCopyKeyTypes".}
|
||||
proc XkbResizeKeyType*(xkb: PXkbDescPtr, type_ndx, map_count: int16,
|
||||
want_preserve: bool, new_num_lvls: int16): TStatus{.
|
||||
libx11c, importc: "XkbResizeKeyType".}
|
||||
proc XkbResizeKeySyms*(desc: PXkbDescPtr, forKey, symsNeeded: int16): PKeySym{.
|
||||
libx11c, importc: "XkbResizeKeySyms".}
|
||||
proc XkbResizeKeyActions*(desc: PXkbDescPtr, forKey, actsNeeded: int16): PXkbAction{.
|
||||
libx11c, importc: "XkbResizeKeyActions".}
|
||||
proc XkbChangeTypesOfKey*(xkb: PXkbDescPtr, key, num_groups: int16,
|
||||
groups: int16, newTypes: ptr int16,
|
||||
pChanges: PXkbMapChangesPtr): TStatus{.libx11c, importc: "XkbChangeTypesOfKey".}
|
||||
|
||||
proc XkbListComponents*(dpy: PDisplay, deviceSpec: int16,
|
||||
ptrns: PXkbComponentNamesPtr, max_inout: ptr int16): PXkbComponentListPtr{.
|
||||
libx11c, importc: "XkbListComponents".}
|
||||
proc XkbFreeComponentList*(list: PXkbComponentListPtr){.libx11c,
|
||||
importc: "XkbFreeComponentList".}
|
||||
proc XkbGetKeyboard*(dpy: PDisplay, which, deviceSpec: int16): PXkbDescPtr{.
|
||||
libx11c, importc: "XkbGetKeyboard".}
|
||||
proc XkbGetKeyboardByName*(dpy: PDisplay, deviceSpec: int16,
|
||||
names: PXkbComponentNamesPtr, want, need: int16,
|
||||
load: bool): PXkbDescPtr{.libx11c,
|
||||
importc: "XkbGetKeyboardByName".}
|
||||
|
||||
proc XkbKeyTypesForCoreSymbols*(xkb: PXkbDescPtr,
|
||||
map_width: int16, # keyboard device
|
||||
core_syms: PKeySym, # always mapWidth symbols
|
||||
protected: int16, # explicit key types
|
||||
types_inout: ptr int16, # always four type indices
|
||||
xkb_syms_rtrn: PKeySym): int16{.libx11c, importc: "XkbKeyTypesForCoreSymbols".}
|
||||
# must have enough space
|
||||
proc XkbApplyCompatMapToKey*(xkb: PXkbDescPtr,
|
||||
key: TKeyCode, # key to be updated
|
||||
changes: PXkbChangesPtr): bool{.libx11c, importc: "XkbApplyCompatMapToKey".}
|
||||
# resulting changes to map
|
||||
proc XkbUpdateMapFromCore*(xkb: PXkbDescPtr,
|
||||
first_key: TKeyCode, # first changed key
|
||||
num_keys,
|
||||
map_width: int16,
|
||||
core_keysyms: PKeySym, # symbols `from` core keymap
|
||||
changes: PXkbChangesPtr): bool{.libx11c, importc: "XkbUpdateMapFromCore".}
|
||||
|
||||
proc XkbAddDeviceLedInfo*(devi: PXkbDeviceInfoPtr, ledClass, ledId: int16): PXkbDeviceLedInfoPtr{.
|
||||
libx11c, importc: "XkbAddDeviceLedInfo".}
|
||||
proc XkbResizeDeviceButtonActions*(devi: PXkbDeviceInfoPtr, newTotal: int16): TStatus{.
|
||||
libx11c, importc: "XkbResizeDeviceButtonActions".}
|
||||
proc XkbAllocDeviceInfo*(deviceSpec, nButtons, szLeds: int16): PXkbDeviceInfoPtr{.
|
||||
libx11c, importc: "XkbAllocDeviceInfo".}
|
||||
proc XkbFreeDeviceInfo*(devi: PXkbDeviceInfoPtr, which: int16, freeDevI: bool){.
|
||||
libx11c, importc: "XkbFreeDeviceInfo".}
|
||||
proc XkbNoteDeviceChanges*(old: PXkbDeviceChangesPtr,
|
||||
new: PXkbExtensionDeviceNotifyEvent, wanted: int16){.
|
||||
libx11c, importc: "XkbNoteDeviceChanges".}
|
||||
proc XkbGetDeviceInfo*(dpy: PDisplay, which, deviceSpec, ledClass, ledID: int16): PXkbDeviceInfoPtr{.
|
||||
libx11c, importc: "XkbGetDeviceInfo".}
|
||||
proc XkbGetDeviceInfoChanges*(dpy: PDisplay, devi: PXkbDeviceInfoPtr,
|
||||
changes: PXkbDeviceChangesPtr): TStatus{.libx11c, importc: "XkbGetDeviceInfoChanges".}
|
||||
proc XkbGetDeviceButtonActions*(dpy: PDisplay, devi: PXkbDeviceInfoPtr,
|
||||
all: bool, first, nBtns: int16): TStatus{.libx11c, importc: "XkbGetDeviceButtonActions".}
|
||||
proc XkbGetDeviceLedInfo*(dpy: PDisplay, devi: PXkbDeviceInfoPtr,
|
||||
ledClass, ledId, which: int16): TStatus{.libx11c, importc: "XkbGetDeviceLedInfo".}
|
||||
proc XkbSetDeviceInfo*(dpy: PDisplay, which: int16, devi: PXkbDeviceInfoPtr): bool{.
|
||||
libx11c, importc: "XkbSetDeviceInfo".}
|
||||
proc XkbChangeDeviceInfo*(dpy: PDisplay, desc: PXkbDeviceInfoPtr,
|
||||
changes: PXkbDeviceChangesPtr): bool{.libx11c, importc: "XkbChangeDeviceInfo".}
|
||||
proc XkbSetDeviceLedInfo*(dpy: PDisplay, devi: PXkbDeviceInfoPtr,
|
||||
ledClass, ledID, which: int16): bool{.libx11c, importc: "XkbSetDeviceLedInfo".}
|
||||
proc XkbSetDeviceButtonActions*(dpy: PDisplay, devi: PXkbDeviceInfoPtr,
|
||||
first, nBtns: int16): bool{.libx11c, importc: "XkbSetDeviceButtonActions".}
|
||||
|
||||
proc XkbToControl*(c: int8): int8{.libx11c,
|
||||
importc: "XkbToControl".}
|
||||
|
||||
proc XkbSetDebuggingFlags*(dpy: PDisplay, mask, flags: int16, msg: cstring,
|
||||
ctrls_mask, ctrls, rtrn_flags, rtrn_ctrls: int16): bool{.
|
||||
libx11c, importc: "XkbSetDebuggingFlags".}
|
||||
proc XkbApplyVirtualModChanges*(xkb: PXkbDescPtr, changed: int16,
|
||||
changes: PXkbChangesPtr): bool{.libx11c, importc: "XkbApplyVirtualModChanges".}
|
||||
|
||||
# implementation
|
||||
|
||||
proc XkbNoteIndicatorMapChanges(o, n: PXkbIndicatorChangesPtr, w: int16) =
|
||||
##define XkbNoteIndicatorMapChanges(o,n,w) ((o)->map_changes|=((n)->map_changes&(w)))
|
||||
o.map_changes = o.map_changes or (n.map_changes and w)
|
||||
|
||||
proc XkbNoteIndicatorStateChanges(o, n: PXkbIndicatorChangesPtr, w: int16) =
|
||||
##define XkbNoteIndicatorStateChanges(o,n,w) ((o)->state_changes|=((n)->state_changes&(w)))
|
||||
o.state_changes = o.state_changes or (n.state_changes and (w))
|
||||
|
||||
proc XkbGetIndicatorMapChanges(d: PDisplay, x: PXkbDescPtr,
|
||||
c: PXkbIndicatorChangesPtr): TStatus =
|
||||
##define XkbGetIndicatorMapChanges(d,x,c) (XkbGetIndicatorMap((d),(c)->map_changes,x)
|
||||
Result = XkbGetIndicatorMap(d, c.map_changes, x)
|
||||
|
||||
proc XkbChangeIndicatorMaps(d: PDisplay, x: PXkbDescPtr,
|
||||
c: PXkbIndicatorChangesPtr): bool =
|
||||
##define XkbChangeIndicatorMaps(d,x,c) (XkbSetIndicatorMap((d),(c)->map_changes,x))
|
||||
Result = XkbSetIndicatorMap(d, c.map_changes, x)
|
||||
|
||||
proc XkbGetControlsChanges(d: PDisplay, x: PXkbDescPtr,
|
||||
c: PXkbControlsChangesPtr): TStatus =
|
||||
##define XkbGetControlsChanges(d,x,c) XkbGetControls(d,(c)->changed_ctrls,x)
|
||||
Result = XkbGetControls(d, c.changed_ctrls, x)
|
||||
|
||||
proc XkbChangeControls(d: PDisplay, x: PXkbDescPtr, c: PXkbControlsChangesPtr): bool =
|
||||
##define XkbChangeControls(d,x,c) XkbSetControls(d,(c)->changed_ctrls,x)
|
||||
Result = XkbSetControls(d, c.changed_ctrls, x)
|
||||
File diff suppressed because it is too large
Load Diff
@@ -1,194 +0,0 @@
|
||||
#
|
||||
# $XFree86: xc/lib/Xrandr/Xrandr.h,v 1.9 2002/09/29 23:39:44 keithp Exp $
|
||||
#
|
||||
# Copyright (C) 2000 Compaq Computer Corporation, Inc.
|
||||
# Copyright (C) 2002 Hewlett-Packard Company, Inc.
|
||||
#
|
||||
# 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, and that the name of Compaq not be used in advertising or
|
||||
# publicity pertaining to distribution of the software without specific,
|
||||
# written prior permission. HP makes no representations about the
|
||||
# suitability of this software for any purpose. It is provided "as is"
|
||||
# without express or implied warranty.
|
||||
#
|
||||
# HP DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
|
||||
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL COMPAQ
|
||||
# BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
|
||||
# OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
|
||||
# CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
#
|
||||
# Author: Jim Gettys, HP Labs, HP.
|
||||
#
|
||||
|
||||
import
|
||||
x, xlib
|
||||
|
||||
const
|
||||
libXrandr* = "libXrandr.so"
|
||||
|
||||
# * $XFree86: xc/include/extensions/randr.h,v 1.4 2001/11/24 07:24:58 keithp Exp $
|
||||
# *
|
||||
# * Copyright (C) 2000, Compaq Computer Corporation,
|
||||
# * Copyright (C) 2002, Hewlett Packard, Inc.
|
||||
# *
|
||||
# * 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, and that the name of Compaq or HP not be used in advertising
|
||||
# * or publicity pertaining to distribution of the software without specific,
|
||||
# * written prior permission. HP makes no representations about the
|
||||
# * suitability of this software for any purpose. It is provided "as is"
|
||||
# * without express or implied warranty.
|
||||
# *
|
||||
# * HP DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
|
||||
# * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL HP
|
||||
# * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
||||
# * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
|
||||
# * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
|
||||
# * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
||||
# *
|
||||
# * Author: Jim Gettys, HP Labs, Hewlett-Packard, Inc.
|
||||
# *
|
||||
|
||||
type
|
||||
PRotation* = ptr TRotation
|
||||
TRotation* = cushort
|
||||
PSizeID* = ptr TSizeID
|
||||
TSizeID* = cushort
|
||||
PSubpixelOrder* = ptr TSubpixelOrder
|
||||
TSubpixelOrder* = cushort
|
||||
|
||||
const
|
||||
RANDR_NAME* = "RANDR"
|
||||
RANDR_MAJOR* = 1
|
||||
RANDR_MINOR* = 1
|
||||
RRNumberErrors* = 0
|
||||
RRNumberEvents* = 1
|
||||
constX_RRQueryVersion* = 0 # we skip 1 to make old clients fail pretty immediately
|
||||
X_RROldGetScreenInfo* = 1
|
||||
X_RR1_0SetScreenConfig* = 2 # V1.0 apps share the same set screen config request id
|
||||
constX_RRSetScreenConfig* = 2
|
||||
X_RROldScreenChangeSelectInput* = 3 # 3 used to be ScreenChangeSelectInput; deprecated
|
||||
constX_RRSelectInput* = 4
|
||||
constX_RRGetScreenInfo* = 5 # used in XRRSelectInput
|
||||
RRScreenChangeNotifyMask* = 1 shl 0
|
||||
RRScreenChangeNotify* = 0 # used in the rotation field; rotation and reflection in 0.1 proto.
|
||||
RR_Rotate_0* = 1
|
||||
RR_Rotate_90* = 2
|
||||
RR_Rotate_180* = 4
|
||||
RR_Rotate_270* = 8 # new in 1.0 protocol, to allow reflection of screen
|
||||
RR_Reflect_X* = 16
|
||||
RR_Reflect_Y* = 32
|
||||
RRSetConfigSuccess* = 0
|
||||
RRSetConfigInvalidConfigTime* = 1
|
||||
RRSetConfigInvalidTime* = 2
|
||||
RRSetConfigFailed* = 3
|
||||
|
||||
type
|
||||
PXRRScreenSize* = ptr TXRRScreenSize
|
||||
TXRRScreenSize*{.final.} = object #
|
||||
# Events.
|
||||
#
|
||||
width*, height*: cint
|
||||
mwidth*, mheight*: cint
|
||||
|
||||
TXRRScreenChangeNotifyEvent*{.final.} = object # internal representation is private to the library
|
||||
typ*: cint # event base
|
||||
serial*: culong # # of last request processed by server
|
||||
send_event*: TBool # true if this came from a SendEvent request
|
||||
display*: PDisplay # Display the event was read from
|
||||
window*: TWindow # window which selected for this event
|
||||
root*: TWindow # Root window for changed screen
|
||||
timestamp*: TTime # when the screen change occurred
|
||||
config_timestamp*: TTime # when the last configuration change
|
||||
size_index*: TSizeID
|
||||
subpixel_order*: TSubpixelOrder
|
||||
rotation*: TRotation
|
||||
width*: cint
|
||||
height*: cint
|
||||
mwidth*: cint
|
||||
mheight*: cint
|
||||
|
||||
PXRRScreenConfiguration* = ptr TXRRScreenConfiguration
|
||||
TXRRScreenConfiguration*{.final.} = object
|
||||
|
||||
proc XRRQueryExtension*(dpy: PDisplay, event_basep, error_basep: Pcint): TBool{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRQueryVersion*(dpy: PDisplay, major_versionp: Pcint,
|
||||
minor_versionp: Pcint): TStatus{.cdecl, dynlib: libXrandr,
|
||||
importc.}
|
||||
proc XRRGetScreenInfo*(dpy: PDisplay, draw: TDrawable): PXRRScreenConfiguration{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRFreeScreenConfigInfo*(config: PXRRScreenConfiguration){.cdecl,
|
||||
dynlib: libXrandr, importc.}
|
||||
#
|
||||
# Note that screen configuration changes are only permitted if the client can
|
||||
# prove it has up to date configuration information. We are trying to
|
||||
# insist that it become possible for screens to change dynamically, so
|
||||
# we want to ensure the client knows what it is talking about when requesting
|
||||
# changes.
|
||||
#
|
||||
proc XRRSetScreenConfig*(dpy: PDisplay, config: PXRRScreenConfiguration,
|
||||
draw: TDrawable, size_index: cint, rotation: TRotation,
|
||||
timestamp: TTime): TStatus{.cdecl, dynlib: libXrandr,
|
||||
importc.}
|
||||
# added in v1.1, sorry for the lame name
|
||||
proc XRRSetScreenConfigAndRate*(dpy: PDisplay, config: PXRRScreenConfiguration,
|
||||
draw: TDrawable, size_index: cint,
|
||||
rotation: TRotation, rate: cshort,
|
||||
timestamp: TTime): TStatus{.cdecl,
|
||||
dynlib: libXrandr, importc.}
|
||||
proc XRRConfigRotations*(config: PXRRScreenConfiguration,
|
||||
current_rotation: PRotation): TRotation{.cdecl,
|
||||
dynlib: libXrandr, importc.}
|
||||
proc XRRConfigTimes*(config: PXRRScreenConfiguration, config_timestamp: PTime): TTime{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRConfigSizes*(config: PXRRScreenConfiguration, nsizes: Pcint): PXRRScreenSize{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRConfigRates*(config: PXRRScreenConfiguration, sizeID: cint,
|
||||
nrates: Pcint): ptr int16{.cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRConfigCurrentConfiguration*(config: PXRRScreenConfiguration,
|
||||
rotation: PRotation): TSizeID{.cdecl,
|
||||
dynlib: libXrandr, importc.}
|
||||
proc XRRConfigCurrentRate*(config: PXRRScreenConfiguration): cshort{.cdecl,
|
||||
dynlib: libXrandr, importc.}
|
||||
proc XRRRootToScreen*(dpy: PDisplay, root: TWindow): cint{.cdecl,
|
||||
dynlib: libXrandr, importc.}
|
||||
#
|
||||
# returns the screen configuration for the specified screen; does a lazy
|
||||
# evalution to delay getting the information, and caches the result.
|
||||
# These routines should be used in preference to XRRGetScreenInfo
|
||||
# to avoid unneeded round trips to the X server. These are new
|
||||
# in protocol version 0.1.
|
||||
#
|
||||
proc XRRScreenConfig*(dpy: PDisplay, screen: cint): PXRRScreenConfiguration{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRConfig*(screen: PScreen): PXRRScreenConfiguration{.cdecl,
|
||||
dynlib: libXrandr, importc.}
|
||||
proc XRRSelectInput*(dpy: PDisplay, window: TWindow, mask: cint){.cdecl,
|
||||
dynlib: libXrandr, importc.}
|
||||
#
|
||||
# the following are always safe to call, even if RandR is not implemented
|
||||
# on a screen
|
||||
#
|
||||
proc XRRRotations*(dpy: PDisplay, screen: cint, current_rotation: PRotation): TRotation{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRSizes*(dpy: PDisplay, screen: cint, nsizes: Pcint): PXRRScreenSize{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRRates*(dpy: PDisplay, screen: cint, sizeID: cint, nrates: Pcint): ptr int16{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
proc XRRTimes*(dpy: PDisplay, screen: cint, config_timestamp: PTime): TTime{.
|
||||
cdecl, dynlib: libXrandr, importc.}
|
||||
#
|
||||
# intended to take RRScreenChangeNotify, or
|
||||
# ConfigureNotify (on the root window)
|
||||
# returns 1 if it is an event type it understands, 0 if not
|
||||
#
|
||||
proc XRRUpdateConfiguration*(event: PXEvent): cint{.cdecl, dynlib: libXrandr,
|
||||
importc.}
|
||||
# implementation
|
||||
@@ -1,241 +0,0 @@
|
||||
|
||||
import
|
||||
x, xlib
|
||||
|
||||
when defined(use_pkg_config) or defined(use_pkg_config_static):
|
||||
{.pragma: libxrender, cdecl, importc.}
|
||||
when defined(use_pkg_config):
|
||||
{.passl: gorge("pkg-config xrender --libs").}
|
||||
else:
|
||||
{.passl: gorge("pkg-config xrender --static --libs").}
|
||||
else:
|
||||
when defined(macosx):
|
||||
const
|
||||
libXrender* = "libXrender.dylib"
|
||||
else:
|
||||
const
|
||||
libXrender* = "libXrender.so"
|
||||
|
||||
|
||||
{.pragma: libxrender, dynlib: libXrender, cdecl, importc.}
|
||||
#const
|
||||
# libXrender* = "libXrender.so"
|
||||
|
||||
#
|
||||
# Automatically converted by H2Pas 0.99.15 from xrender.h
|
||||
# The following command line parameters were used:
|
||||
# -p
|
||||
# -T
|
||||
# -S
|
||||
# -d
|
||||
# -c
|
||||
# xrender.h
|
||||
#
|
||||
|
||||
type
|
||||
PGlyph* = ptr TGlyph
|
||||
TGlyph* = int32
|
||||
PGlyphSet* = ptr TGlyphSet
|
||||
TGlyphSet* = int32
|
||||
PPicture* = ptr TPicture
|
||||
TPicture* = int32
|
||||
PPictFormat* = ptr TPictFormat
|
||||
TPictFormat* = int32
|
||||
|
||||
const
|
||||
RENDER_NAME* = "RENDER"
|
||||
RENDER_MAJOR* = 0
|
||||
RENDER_MINOR* = 0
|
||||
constX_RenderQueryVersion* = 0
|
||||
X_RenderQueryPictFormats* = 1
|
||||
X_RenderQueryPictIndexValues* = 2
|
||||
X_RenderQueryDithers* = 3
|
||||
constX_RenderCreatePicture* = 4
|
||||
constX_RenderChangePicture* = 5
|
||||
X_RenderSetPictureClipRectangles* = 6
|
||||
constX_RenderFreePicture* = 7
|
||||
constX_RenderComposite* = 8
|
||||
X_RenderScale* = 9
|
||||
X_RenderTrapezoids* = 10
|
||||
X_RenderTriangles* = 11
|
||||
X_RenderTriStrip* = 12
|
||||
X_RenderTriFan* = 13
|
||||
X_RenderColorTrapezoids* = 14
|
||||
X_RenderColorTriangles* = 15
|
||||
X_RenderTransform* = 16
|
||||
constX_RenderCreateGlyphSet* = 17
|
||||
constX_RenderReferenceGlyphSet* = 18
|
||||
constX_RenderFreeGlyphSet* = 19
|
||||
constX_RenderAddGlyphs* = 20
|
||||
constX_RenderAddGlyphsFromPicture* = 21
|
||||
constX_RenderFreeGlyphs* = 22
|
||||
constX_RenderCompositeGlyphs8* = 23
|
||||
constX_RenderCompositeGlyphs16* = 24
|
||||
constX_RenderCompositeGlyphs32* = 25
|
||||
BadPictFormat* = 0
|
||||
BadPicture* = 1
|
||||
BadPictOp* = 2
|
||||
BadGlyphSet* = 3
|
||||
BadGlyph* = 4
|
||||
RenderNumberErrors* = BadGlyph + 1
|
||||
PictTypeIndexed* = 0
|
||||
PictTypeDirect* = 1
|
||||
PictOpClear* = 0
|
||||
PictOpSrc* = 1
|
||||
PictOpDst* = 2
|
||||
PictOpOver* = 3
|
||||
PictOpOverReverse* = 4
|
||||
PictOpIn* = 5
|
||||
PictOpInReverse* = 6
|
||||
PictOpOut* = 7
|
||||
PictOpOutReverse* = 8
|
||||
PictOpAtop* = 9
|
||||
PictOpAtopReverse* = 10
|
||||
PictOpXor* = 11
|
||||
PictOpAdd* = 12
|
||||
PictOpSaturate* = 13
|
||||
PictOpMaximum* = 13
|
||||
PolyEdgeSharp* = 0
|
||||
PolyEdgeSmooth* = 1
|
||||
PolyModePrecise* = 0
|
||||
PolyModeImprecise* = 1
|
||||
CPRepeat* = 1 shl 0
|
||||
CPAlphaMap* = 1 shl 1
|
||||
CPAlphaXOrigin* = 1 shl 2
|
||||
CPAlphaYOrigin* = 1 shl 3
|
||||
CPClipXOrigin* = 1 shl 4
|
||||
CPClipYOrigin* = 1 shl 5
|
||||
CPClipMask* = 1 shl 6
|
||||
CPGraphicsExposure* = 1 shl 7
|
||||
CPSubwindowMode* = 1 shl 8
|
||||
CPPolyEdge* = 1 shl 9
|
||||
CPPolyMode* = 1 shl 10
|
||||
CPDither* = 1 shl 11
|
||||
CPLastBit* = 11
|
||||
|
||||
type
|
||||
PXRenderDirectFormat* = ptr TXRenderDirectFormat
|
||||
TXRenderDirectFormat*{.final.} = object
|
||||
red*: int16
|
||||
redMask*: int16
|
||||
green*: int16
|
||||
greenMask*: int16
|
||||
blue*: int16
|
||||
blueMask*: int16
|
||||
alpha*: int16
|
||||
alphaMask*: int16
|
||||
|
||||
PXRenderPictFormat* = ptr TXRenderPictFormat
|
||||
TXRenderPictFormat*{.final.} = object
|
||||
id*: TPictFormat
|
||||
thetype*: int32
|
||||
depth*: int32
|
||||
direct*: TXRenderDirectFormat
|
||||
colormap*: TColormap
|
||||
|
||||
|
||||
const
|
||||
PictFormatID* = 1 shl 0
|
||||
PictFormatType* = 1 shl 1
|
||||
PictFormatDepth* = 1 shl 2
|
||||
PictFormatRed* = 1 shl 3
|
||||
PictFormatRedMask* = 1 shl 4
|
||||
PictFormatGreen* = 1 shl 5
|
||||
PictFormatGreenMask* = 1 shl 6
|
||||
PictFormatBlue* = 1 shl 7
|
||||
PictFormatBlueMask* = 1 shl 8
|
||||
PictFormatAlpha* = 1 shl 9
|
||||
PictFormatAlphaMask* = 1 shl 10
|
||||
PictFormatColormap* = 1 shl 11
|
||||
|
||||
type
|
||||
PXRenderVisual* = ptr TXRenderVisual
|
||||
TXRenderVisual*{.final.} = object
|
||||
visual*: PVisual
|
||||
format*: PXRenderPictFormat
|
||||
|
||||
PXRenderDepth* = ptr TXRenderDepth
|
||||
TXRenderDepth*{.final.} = object
|
||||
depth*: int32
|
||||
nvisuals*: int32
|
||||
visuals*: PXRenderVisual
|
||||
|
||||
PXRenderScreen* = ptr TXRenderScreen
|
||||
TXRenderScreen*{.final.} = object
|
||||
depths*: PXRenderDepth
|
||||
ndepths*: int32
|
||||
fallback*: PXRenderPictFormat
|
||||
|
||||
PXRenderInfo* = ptr TXRenderInfo
|
||||
TXRenderInfo*{.final.} = object
|
||||
format*: PXRenderPictFormat
|
||||
nformat*: int32
|
||||
screen*: PXRenderScreen
|
||||
nscreen*: int32
|
||||
depth*: PXRenderDepth
|
||||
ndepth*: int32
|
||||
visual*: PXRenderVisual
|
||||
nvisual*: int32
|
||||
|
||||
PXRenderPictureAttributes* = ptr TXRenderPictureAttributes
|
||||
TXRenderPictureAttributes*{.final.} = object
|
||||
repeat*: TBool
|
||||
alpha_map*: TPicture
|
||||
alpha_x_origin*: int32
|
||||
alpha_y_origin*: int32
|
||||
clip_x_origin*: int32
|
||||
clip_y_origin*: int32
|
||||
clip_mask*: TPixmap
|
||||
graphics_exposures*: TBool
|
||||
subwindow_mode*: int32
|
||||
poly_edge*: int32
|
||||
poly_mode*: int32
|
||||
dither*: TAtom
|
||||
|
||||
PXGlyphInfo* = ptr TXGlyphInfo
|
||||
TXGlyphInfo*{.final.} = object
|
||||
width*: int16
|
||||
height*: int16
|
||||
x*: int16
|
||||
y*: int16
|
||||
xOff*: int16
|
||||
yOff*: int16
|
||||
|
||||
|
||||
proc XRenderQueryExtension*(dpy: PDisplay, event_basep: ptr int32,
|
||||
error_basep: ptr int32): TBool{.libxrender.}
|
||||
proc XRenderQueryVersion*(dpy: PDisplay, major_versionp: ptr int32,
|
||||
minor_versionp: ptr int32): TStatus{.libxrender.}
|
||||
proc XRenderQueryFormats*(dpy: PDisplay): TStatus{.libxrender.}
|
||||
proc XRenderFindVisualFormat*(dpy: PDisplay, visual: PVisual): PXRenderPictFormat{.
|
||||
libxrender.}
|
||||
proc XRenderFindFormat*(dpy: PDisplay, mask: int32,
|
||||
`template`: PXRenderPictFormat, count: int32): PXRenderPictFormat{.
|
||||
libxrender.}
|
||||
proc XRenderCreatePicture*(dpy: PDisplay, drawable: TDrawable,
|
||||
format: PXRenderPictFormat, valuemask: int32,
|
||||
attributes: PXRenderPictureAttributes): TPicture{.
|
||||
libxrender.}
|
||||
proc XRenderChangePicture*(dpy: PDisplay, picture: TPicture, valuemask: int32,
|
||||
attributes: PXRenderPictureAttributes){.libxrender.}
|
||||
proc XRenderFreePicture*(dpy: PDisplay, picture: TPicture){.libxrender.}
|
||||
proc XRenderComposite*(dpy: PDisplay, op: int32, src: TPicture, mask: TPicture,
|
||||
dst: TPicture, src_x: int32, src_y: int32, mask_x: int32,
|
||||
mask_y: int32, dst_x: int32, dst_y: int32, width: int32,
|
||||
height: int32){.libxrender.}
|
||||
proc XRenderCreateGlyphSet*(dpy: PDisplay, format: PXRenderPictFormat): TGlyphSet{.
|
||||
libxrender.}
|
||||
proc XRenderReferenceGlyphSet*(dpy: PDisplay, existing: TGlyphSet): TGlyphSet{.
|
||||
libxrender.}
|
||||
proc XRenderFreeGlyphSet*(dpy: PDisplay, glyphset: TGlyphSet){.libxrender.}
|
||||
proc XRenderAddGlyphs*(dpy: PDisplay, glyphset: TGlyphSet, gids: PGlyph,
|
||||
glyphs: PXGlyphInfo, nglyphs: int32, images: cstring,
|
||||
nbyte_images: int32){.libxrender.}
|
||||
proc XRenderFreeGlyphs*(dpy: PDisplay, glyphset: TGlyphSet, gids: PGlyph,
|
||||
nglyphs: int32){.libxrender.}
|
||||
proc XRenderCompositeString8*(dpy: PDisplay, op: int32, src: TPicture,
|
||||
dst: TPicture, maskFormat: PXRenderPictFormat,
|
||||
glyphset: TGlyphSet, xSrc: int32, ySrc: int32,
|
||||
xDst: int32, yDst: int32, str: cstring,
|
||||
nchar: int32){.libxrender.}
|
||||
# implementation
|
||||
@@ -1,200 +0,0 @@
|
||||
|
||||
import
|
||||
x, xlib
|
||||
|
||||
#const
|
||||
# libX11* = "libX11.so"
|
||||
|
||||
#
|
||||
# Automatically converted by H2Pas 0.99.15 from xresource.h
|
||||
# The following command line parameters were used:
|
||||
# -p
|
||||
# -T
|
||||
# -S
|
||||
# -d
|
||||
# -c
|
||||
# xresource.h
|
||||
#
|
||||
|
||||
proc Xpermalloc*(para1: int32): cstring{.cdecl, dynlib: libX11, importc.}
|
||||
type
|
||||
PXrmQuark* = ptr TXrmQuark
|
||||
TXrmQuark* = int32
|
||||
TXrmQuarkList* = PXrmQuark
|
||||
PXrmQuarkList* = ptr TXrmQuarkList
|
||||
|
||||
proc NULLQUARK*(): TXrmQuark
|
||||
type
|
||||
PXrmString* = ptr TXrmString
|
||||
TXrmString* = ptr char
|
||||
|
||||
proc NULLSTRING*(): TXrmString
|
||||
proc XrmStringToQuark*(para1: cstring): TXrmQuark{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XrmPermStringToQuark*(para1: cstring): TXrmQuark{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XrmQuarkToString*(para1: TXrmQuark): TXrmString{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XrmUniqueQuark*(): TXrmQuark{.cdecl, dynlib: libX11, importc.}
|
||||
when defined(MACROS):
|
||||
proc XrmStringsEqual*(a1, a2: cstring): bool
|
||||
type
|
||||
PXrmBinding* = ptr TXrmBinding
|
||||
TXrmBinding* = enum
|
||||
XrmBindTightly, XrmBindLoosely
|
||||
TXrmBindingList* = PXrmBinding
|
||||
PXrmBindingList* = ptr TXrmBindingList
|
||||
|
||||
proc XrmStringToQuarkList*(para1: cstring, para2: TXrmQuarkList){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XrmStringToBindingQuarkList*(para1: cstring, para2: TXrmBindingList,
|
||||
para3: TXrmQuarkList){.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
type
|
||||
PXrmName* = ptr TXrmName
|
||||
TXrmName* = TXrmQuark
|
||||
PXrmNameList* = ptr TXrmNameList
|
||||
TXrmNameList* = TXrmQuarkList
|
||||
|
||||
when defined(MACROS):
|
||||
proc XrmNameToString*(name: int32): TXrmString
|
||||
proc XrmStringToName*(str: cstring): int32
|
||||
proc XrmStringToNameList*(str: cstring, name: PXrmQuark)
|
||||
type
|
||||
PXrmClass* = ptr TXrmClass
|
||||
TXrmClass* = TXrmQuark
|
||||
PXrmClassList* = ptr TXrmClassList
|
||||
TXrmClassList* = TXrmQuarkList
|
||||
|
||||
when defined(MACROS):
|
||||
proc XrmClassToString*(c_class: int32): TXrmString
|
||||
proc XrmStringToClass*(c_class: cstring): int32
|
||||
proc XrmStringToClassList*(str: cstring, c_class: PXrmQuark)
|
||||
type
|
||||
PXrmRepresentation* = ptr TXrmRepresentation
|
||||
TXrmRepresentation* = TXrmQuark
|
||||
|
||||
when defined(MACROS):
|
||||
proc XrmStringToRepresentation*(str: cstring): int32
|
||||
proc XrmRepresentationToString*(thetype: int32): TXrmString
|
||||
type
|
||||
PXrmValue* = ptr TXrmValue
|
||||
TXrmValue*{.final.} = object
|
||||
size*: int32
|
||||
address*: TXPointer
|
||||
|
||||
TXrmValuePtr* = PXrmValue
|
||||
PXrmValuePtr* = ptr TXrmValuePtr
|
||||
PXrmHashBucketRec* = ptr TXrmHashBucketRec
|
||||
TXrmHashBucketRec*{.final.} = object
|
||||
TXrmHashBucket* = PXrmHashBucketRec
|
||||
PXrmHashBucket* = ptr TXrmHashBucket
|
||||
PXrmHashTable* = ptr TXrmHashTable
|
||||
TXrmHashTable* = ptr TXrmHashBucket
|
||||
TXrmDatabase* = PXrmHashBucketRec
|
||||
PXrmDatabase* = ptr TXrmDatabase
|
||||
|
||||
proc XrmDestroyDatabase*(para1: TXrmDatabase){.cdecl, dynlib: libX11, importc.}
|
||||
proc XrmQPutResource*(para1: PXrmDatabase, para2: TXrmBindingList,
|
||||
para3: TXrmQuarkList, para4: TXrmRepresentation,
|
||||
para5: PXrmValue){.cdecl, dynlib: libX11, importc.}
|
||||
proc XrmPutResource*(para1: PXrmDatabase, para2: cstring, para3: cstring,
|
||||
para4: PXrmValue){.cdecl, dynlib: libX11, importc.}
|
||||
proc XrmQPutStringResource*(para1: PXrmDatabase, para2: TXrmBindingList,
|
||||
para3: TXrmQuarkList, para4: cstring){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XrmPutStringResource*(para1: PXrmDatabase, para2: cstring, para3: cstring){.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XrmPutLineResource*(para1: PXrmDatabase, para2: cstring){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XrmQGetResource*(para1: TXrmDatabase, para2: TXrmNameList,
|
||||
para3: TXrmClassList, para4: PXrmRepresentation,
|
||||
para5: PXrmValue): TBool{.cdecl, dynlib: libX11, importc.}
|
||||
proc XrmGetResource*(para1: TXrmDatabase, para2: cstring, para3: cstring,
|
||||
para4: PPchar, para5: PXrmValue): TBool{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
# There is no definition of TXrmSearchList
|
||||
#function XrmQGetSearchList(para1:TXrmDatabase; para2:TXrmNameList; para3:TXrmClassList; para4:TXrmSearchList; para5:longint):TBool;cdecl;external libX11;
|
||||
#function XrmQGetSearchResource(para1:TXrmSearchList; para2:TXrmName; para3:TXrmClass; para4:PXrmRepresentation; para5:PXrmValue):TBool;cdecl;external libX11;
|
||||
proc XrmSetDatabase*(para1: PDisplay, para2: TXrmDatabase){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XrmGetDatabase*(para1: PDisplay): TXrmDatabase{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XrmGetFileDatabase*(para1: cstring): TXrmDatabase{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XrmCombineFileDatabase*(para1: cstring, para2: PXrmDatabase, para3: TBool): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XrmGetStringDatabase*(para1: cstring): TXrmDatabase{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XrmPutFileDatabase*(para1: TXrmDatabase, para2: cstring){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XrmMergeDatabases*(para1: TXrmDatabase, para2: PXrmDatabase){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XrmCombineDatabase*(para1: TXrmDatabase, para2: PXrmDatabase, para3: TBool){.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
const
|
||||
XrmEnumAllLevels* = 0
|
||||
XrmEnumOneLevel* = 1
|
||||
|
||||
type
|
||||
funcbool* = proc (): TBool {.cdecl.}
|
||||
|
||||
proc XrmEnumerateDatabase*(para1: TXrmDatabase, para2: TXrmNameList,
|
||||
para3: TXrmClassList, para4: int32, para5: funcbool,
|
||||
para6: TXPointer): TBool{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XrmLocaleOfDatabase*(para1: TXrmDatabase): cstring{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
type
|
||||
PXrmOptionKind* = ptr TXrmOptionKind
|
||||
TXrmOptionKind* = enum
|
||||
XrmoptionNoArg, XrmoptionIsArg, XrmoptionStickyArg, XrmoptionSepArg,
|
||||
XrmoptionResArg, XrmoptionSkipArg, XrmoptionSkipLine, XrmoptionSkipNArgs
|
||||
PXrmOptionDescRec* = ptr TXrmOptionDescRec
|
||||
TXrmOptionDescRec*{.final.} = object
|
||||
option*: cstring
|
||||
specifier*: cstring
|
||||
argKind*: TXrmOptionKind
|
||||
value*: TXPointer
|
||||
|
||||
TXrmOptionDescList* = PXrmOptionDescRec
|
||||
PXrmOptionDescList* = ptr TXrmOptionDescList
|
||||
|
||||
proc XrmParseCommand*(para1: PXrmDatabase, para2: TXrmOptionDescList,
|
||||
para3: int32, para4: cstring, para5: ptr int32,
|
||||
para6: PPchar){.cdecl, dynlib: libX11, importc.}
|
||||
# implementation
|
||||
|
||||
proc NULLQUARK(): TXrmQuark =
|
||||
result = TXrmQuark(0)
|
||||
|
||||
proc NULLSTRING(): TXrmString =
|
||||
result = nil
|
||||
|
||||
when defined(MACROS):
|
||||
proc XrmStringsEqual(a1, a2: cstring): bool =
|
||||
result = (strcomp(a1, a2)) == 0
|
||||
|
||||
proc XrmNameToString(name: int32): TXrmString =
|
||||
result = XrmQuarkToString(name)
|
||||
|
||||
proc XrmStringToName(str: cstring): int32 =
|
||||
result = XrmStringToQuark(str)
|
||||
|
||||
proc XrmStringToNameList(str: cstring, name: PXrmQuark) =
|
||||
XrmStringToQuarkList(str, name)
|
||||
|
||||
proc XrmClassToString(c_class: int32): TXrmString =
|
||||
result = XrmQuarkToString(c_class)
|
||||
|
||||
proc XrmStringToClass(c_class: cstring): int32 =
|
||||
result = XrmStringToQuark(c_class)
|
||||
|
||||
proc XrmStringToClassList(str: cstring, c_class: PXrmQuark) =
|
||||
XrmStringToQuarkList(str, c_class)
|
||||
|
||||
proc XrmStringToRepresentation(str: cstring): int32 =
|
||||
result = XrmStringToQuark(str)
|
||||
|
||||
proc XrmRepresentationToString(thetype: int32): TXrmString =
|
||||
result = XrmQuarkToString(thetype)
|
||||
@@ -1,77 +0,0 @@
|
||||
|
||||
import
|
||||
x, xlib
|
||||
|
||||
#const
|
||||
# libX11* = "libX11.so"
|
||||
|
||||
#
|
||||
# Automatically converted by H2Pas 0.99.15 from xshm.h
|
||||
# The following command line parameters were used:
|
||||
# -p
|
||||
# -T
|
||||
# -S
|
||||
# -d
|
||||
# -c
|
||||
# xshm.h
|
||||
#
|
||||
|
||||
const
|
||||
constX_ShmQueryVersion* = 0
|
||||
constX_ShmAttach* = 1
|
||||
constX_ShmDetach* = 2
|
||||
constX_ShmPutImage* = 3
|
||||
constX_ShmGetImage* = 4
|
||||
constX_ShmCreatePixmap* = 5
|
||||
ShmCompletion* = 0
|
||||
ShmNumberEvents* = ShmCompletion + 1
|
||||
BadShmSeg* = 0
|
||||
ShmNumberErrors* = BadShmSeg + 1
|
||||
|
||||
type
|
||||
PShmSeg* = ptr TShmSeg
|
||||
TShmSeg* = culong
|
||||
PXShmCompletionEvent* = ptr TXShmCompletionEvent
|
||||
TXShmCompletionEvent*{.final.} = object
|
||||
theType*: cint
|
||||
serial*: culong
|
||||
send_event*: TBool
|
||||
display*: PDisplay
|
||||
drawable*: TDrawable
|
||||
major_code*: cint
|
||||
minor_code*: cint
|
||||
shmseg*: TShmSeg
|
||||
offset*: culong
|
||||
|
||||
PXShmSegmentInfo* = ptr TXShmSegmentInfo
|
||||
TXShmSegmentInfo*{.final.} = object
|
||||
shmseg*: TShmSeg
|
||||
shmid*: cint
|
||||
shmaddr*: cstring
|
||||
readOnly*: TBool
|
||||
|
||||
|
||||
proc XShmQueryExtension*(para1: PDisplay): TBool{.cdecl, dynlib: libX11, importc.}
|
||||
proc XShmGetEventBase*(para1: PDisplay): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XShmQueryVersion*(para1: PDisplay, para2: Pcint, para3: Pcint, para4: PBool): TBool{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XShmPixmapFormat*(para1: PDisplay): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XShmAttach*(para1: PDisplay, para2: PXShmSegmentInfo): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XShmDetach*(para1: PDisplay, para2: PXShmSegmentInfo): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XShmPutImage*(para1: PDisplay, para2: TDrawable, para3: TGC,
|
||||
para4: PXImage, para5: cint, para6: cint, para7: cint,
|
||||
para8: cint, para9: cuint, para10: cuint, para11: TBool): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XShmGetImage*(para1: PDisplay, para2: TDrawable, para3: PXImage,
|
||||
para4: cint, para5: cint, para6: culong): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XShmCreateImage*(para1: PDisplay, para2: PVisual, para3: cuint,
|
||||
para4: cint, para5: cstring, para6: PXShmSegmentInfo,
|
||||
para7: cuint, para8: cuint): PXImage{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XShmCreatePixmap*(para1: PDisplay, para2: TDrawable, para3: cstring,
|
||||
para4: PXShmSegmentInfo, para5: cuint, para6: cuint,
|
||||
para7: cuint): TPixmap{.cdecl, dynlib: libX11, importc.}
|
||||
# implementation
|
||||
@@ -1,412 +0,0 @@
|
||||
|
||||
import
|
||||
x, xlib, keysym, unsigned
|
||||
|
||||
#const
|
||||
# libX11* = "libX11.so"
|
||||
|
||||
#
|
||||
# Automatically converted by H2Pas 0.99.15 from xutil.h
|
||||
# The following command line parameters were used:
|
||||
# -p
|
||||
# -T
|
||||
# -S
|
||||
# -d
|
||||
# -c
|
||||
# xutil.h
|
||||
#
|
||||
|
||||
const
|
||||
NoValue* = 0x00000000
|
||||
XValue* = 0x00000001
|
||||
YValue* = 0x00000002
|
||||
WidthValue* = 0x00000004
|
||||
HeightValue* = 0x00000008
|
||||
AllValues* = 0x0000000F
|
||||
XNegative* = 0x00000010
|
||||
YNegative* = 0x00000020
|
||||
|
||||
type
|
||||
TCPoint*{.final.} = object
|
||||
x*: cint
|
||||
y*: cint
|
||||
|
||||
PXSizeHints* = ptr TXSizeHints
|
||||
TXSizeHints*{.final.} = object
|
||||
flags*: clong
|
||||
x*, y*: cint
|
||||
width*, height*: cint
|
||||
min_width*, min_height*: cint
|
||||
max_width*, max_height*: cint
|
||||
width_inc*, height_inc*: cint
|
||||
min_aspect*, max_aspect*: TCPoint
|
||||
base_width*, base_height*: cint
|
||||
win_gravity*: cint
|
||||
|
||||
|
||||
const
|
||||
USPosition* = 1 shl 0
|
||||
USSize* = 1 shl 1
|
||||
PPosition* = 1 shl 2
|
||||
PSize* = 1 shl 3
|
||||
PMinSize* = 1 shl 4
|
||||
PMaxSize* = 1 shl 5
|
||||
PResizeInc* = 1 shl 6
|
||||
PAspect* = 1 shl 7
|
||||
PBaseSize* = 1 shl 8
|
||||
PWinGravity* = 1 shl 9
|
||||
PAllHints* = PPosition or PSize or PMinSize or PMaxSize or PResizeInc or
|
||||
PAspect
|
||||
|
||||
type
|
||||
PXWMHints* = ptr TXWMHints
|
||||
TXWMHints*{.final.} = object
|
||||
flags*: clong
|
||||
input*: TBool
|
||||
initial_state*: cint
|
||||
icon_pixmap*: TPixmap
|
||||
icon_window*: TWindow
|
||||
icon_x*, icon_y*: cint
|
||||
icon_mask*: TPixmap
|
||||
window_group*: TXID
|
||||
|
||||
|
||||
const
|
||||
InputHint* = 1 shl 0
|
||||
StateHint* = 1 shl 1
|
||||
IconPixmapHint* = 1 shl 2
|
||||
IconWindowHint* = 1 shl 3
|
||||
IconPositionHint* = 1 shl 4
|
||||
IconMaskHint* = 1 shl 5
|
||||
WindowGroupHint* = 1 shl 6
|
||||
AllHints* = InputHint or StateHint or IconPixmapHint or IconWindowHint or
|
||||
IconPositionHint or IconMaskHint or WindowGroupHint
|
||||
XUrgencyHint* = 1 shl 8
|
||||
WithdrawnState* = 0
|
||||
NormalState* = 1
|
||||
IconicState* = 3
|
||||
DontCareState* = 0
|
||||
ZoomState* = 2
|
||||
InactiveState* = 4
|
||||
|
||||
type
|
||||
PXTextProperty* = ptr TXTextProperty
|
||||
TXTextProperty*{.final.} = object
|
||||
value*: pcuchar
|
||||
encoding*: TAtom
|
||||
format*: cint
|
||||
nitems*: culong
|
||||
|
||||
|
||||
const
|
||||
XNoMemory* = - 1
|
||||
XLocaleNotSupported* = - 2
|
||||
XConverterNotFound* = - 3
|
||||
|
||||
type
|
||||
PXICCEncodingStyle* = ptr TXICCEncodingStyle
|
||||
TXICCEncodingStyle* = enum
|
||||
XStringStyle, XCompoundTextStyle, XTextStyle, XStdICCTextStyle,
|
||||
XUTF8StringStyle
|
||||
PPXIconSize* = ptr PXIconSize
|
||||
PXIconSize* = ptr TXIconSize
|
||||
TXIconSize*{.final.} = object
|
||||
min_width*, min_height*: cint
|
||||
max_width*, max_height*: cint
|
||||
width_inc*, height_inc*: cint
|
||||
|
||||
PXClassHint* = ptr TXClassHint
|
||||
TXClassHint*{.final.} = object
|
||||
res_name*: cstring
|
||||
res_class*: cstring
|
||||
|
||||
|
||||
type
|
||||
PXComposeStatus* = ptr TXComposeStatus
|
||||
TXComposeStatus*{.final.} = object
|
||||
compose_ptr*: TXPointer
|
||||
chars_matched*: cint
|
||||
|
||||
|
||||
type
|
||||
PXRegion* = ptr TXRegion
|
||||
TXRegion*{.final.} = object
|
||||
TRegion* = PXRegion
|
||||
PRegion* = ptr TRegion
|
||||
|
||||
const
|
||||
RectangleOut* = 0
|
||||
RectangleIn* = 1
|
||||
RectanglePart* = 2
|
||||
|
||||
type
|
||||
PXVisualInfo* = ptr TXVisualInfo
|
||||
TXVisualInfo*{.final.} = object
|
||||
visual*: PVisual
|
||||
visualid*: TVisualID
|
||||
screen*: cint
|
||||
depth*: cint
|
||||
class*: cint
|
||||
red_mask*: culong
|
||||
green_mask*: culong
|
||||
blue_mask*: culong
|
||||
colormap_size*: cint
|
||||
bits_per_rgb*: cint
|
||||
|
||||
|
||||
const
|
||||
VisualNoMask* = 0x00000000
|
||||
VisualIDMask* = 0x00000001
|
||||
VisualScreenMask* = 0x00000002
|
||||
VisualDepthMask* = 0x00000004
|
||||
VisualClassMask* = 0x00000008
|
||||
VisualRedMaskMask* = 0x00000010
|
||||
VisualGreenMaskMask* = 0x00000020
|
||||
VisualBlueMaskMask* = 0x00000040
|
||||
VisualColormapSizeMask* = 0x00000080
|
||||
VisualBitsPerRGBMask* = 0x00000100
|
||||
VisualAllMask* = 0x000001FF
|
||||
|
||||
type
|
||||
PPXStandardColormap* = ptr PXStandardColormap
|
||||
PXStandardColormap* = ptr TXStandardColormap
|
||||
TXStandardColormap*{.final.} = object
|
||||
colormap*: TColormap
|
||||
red_max*: culong
|
||||
red_mult*: culong
|
||||
green_max*: culong
|
||||
green_mult*: culong
|
||||
blue_max*: culong
|
||||
blue_mult*: culong
|
||||
base_pixel*: culong
|
||||
visualid*: TVisualID
|
||||
killid*: TXID
|
||||
|
||||
|
||||
const
|
||||
BitmapSuccess* = 0
|
||||
BitmapOpenFailed* = 1
|
||||
BitmapFileInvalid* = 2
|
||||
BitmapNoMemory* = 3
|
||||
XCSUCCESS* = 0
|
||||
XCNOMEM* = 1
|
||||
XCNOENT* = 2
|
||||
ReleaseByFreeingColormap*: TXID = TXID(1)
|
||||
|
||||
type
|
||||
PXContext* = ptr TXContext
|
||||
TXContext* = cint
|
||||
|
||||
proc XAllocClassHint*(): PXClassHint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XAllocIconSize*(): PXIconSize{.cdecl, dynlib: libX11, importc.}
|
||||
proc XAllocSizeHints*(): PXSizeHints{.cdecl, dynlib: libX11, importc.}
|
||||
proc XAllocStandardColormap*(): PXStandardColormap{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XAllocWMHints*(): PXWMHints{.cdecl, dynlib: libX11, importc.}
|
||||
proc XClipBox*(para1: TRegion, para2: PXRectangle): cint{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XCreateRegion*(): TRegion{.cdecl, dynlib: libX11, importc.}
|
||||
proc XDefaultString*(): cstring{.cdecl, dynlib: libX11, importc.}
|
||||
proc XDeleteContext*(para1: PDisplay, para2: TXID, para3: TXContext): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XDestroyRegion*(para1: TRegion): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XEmptyRegion*(para1: TRegion): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XEqualRegion*(para1: TRegion, para2: TRegion): cint{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XFindContext*(para1: PDisplay, para2: TXID, para3: TXContext,
|
||||
para4: PXPointer): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XGetClassHint*(para1: PDisplay, para2: TWindow, para3: PXClassHint): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XGetIconSizes*(para1: PDisplay, para2: TWindow, para3: PPXIconSize,
|
||||
para4: Pcint): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XGetNormalHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XGetRGBColormaps*(para1: PDisplay, para2: TWindow,
|
||||
para3: PPXStandardColormap, para4: Pcint, para5: TAtom): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XGetSizeHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints,
|
||||
para4: TAtom): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XGetStandardColormap*(para1: PDisplay, para2: TWindow,
|
||||
para3: PXStandardColormap, para4: TAtom): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XGetTextProperty*(para1: PDisplay, para2: TWindow, para3: PXTextProperty,
|
||||
para4: TAtom): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XGetVisualInfo*(para1: PDisplay, para2: clong, para3: PXVisualInfo,
|
||||
para4: Pcint): PXVisualInfo{.cdecl, dynlib: libX11, importc.}
|
||||
proc XGetWMClientMachine*(para1: PDisplay, para2: TWindow, para3: PXTextProperty): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XGetWMHints*(para1: PDisplay, para2: TWindow): PXWMHints{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XGetWMIconName*(para1: PDisplay, para2: TWindow, para3: PXTextProperty): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XGetWMName*(para1: PDisplay, para2: TWindow, para3: PXTextProperty): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XGetWMNormalHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints,
|
||||
para4: ptr int): TStatus{.cdecl, dynlib: libX11, importc.}
|
||||
proc XGetWMSizeHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints,
|
||||
para4: ptr int, para5: TAtom): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XGetZoomHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints): TStatus{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XIntersectRegion*(para1: TRegion, para2: TRegion, para3: TRegion): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XConvertCase*(para1: TKeySym, para2: PKeySym, para3: PKeySym){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XLookupString*(para1: PXKeyEvent, para2: cstring, para3: cint,
|
||||
para4: PKeySym, para5: PXComposeStatus): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XMatchVisualInfo*(para1: PDisplay, para2: cint, para3: cint, para4: cint,
|
||||
para5: PXVisualInfo): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XOffsetRegion*(para1: TRegion, para2: cint, para3: cint): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XPointInRegion*(para1: TRegion, para2: cint, para3: cint): TBool{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XPolygonRegion*(para1: PXPoint, para2: cint, para3: cint): TRegion{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XRectInRegion*(para1: TRegion, para2: cint, para3: cint, para4: cuint,
|
||||
para5: cuint): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XSaveContext*(para1: PDisplay, para2: TXID, para3: TXContext,
|
||||
para4: cstring): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XSetClassHint*(para1: PDisplay, para2: TWindow, para3: PXClassHint): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XSetIconSizes*(para1: PDisplay, para2: TWindow, para3: PXIconSize,
|
||||
para4: cint): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XSetNormalHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XSetRGBColormaps*(para1: PDisplay, para2: TWindow,
|
||||
para3: PXStandardColormap, para4: cint, para5: TAtom){.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XSetSizeHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints,
|
||||
para4: TAtom): cint{.cdecl, dynlib: libX11, importc.}
|
||||
proc XSetStandardProperties*(para1: PDisplay, para2: TWindow, para3: cstring,
|
||||
para4: cstring, para5: TPixmap, para6: PPchar,
|
||||
para7: cint, para8: PXSizeHints): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XSetTextProperty*(para1: PDisplay, para2: TWindow, para3: PXTextProperty,
|
||||
para4: TAtom){.cdecl, dynlib: libX11, importc.}
|
||||
proc XSetWMClientMachine*(para1: PDisplay, para2: TWindow, para3: PXTextProperty){.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XSetWMHints*(para1: PDisplay, para2: TWindow, para3: PXWMHints): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XSetWMIconName*(para1: PDisplay, para2: TWindow, para3: PXTextProperty){.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XSetWMName*(para1: PDisplay, para2: TWindow, para3: PXTextProperty){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XSetWMNormalHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints){.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XSetWMProperties*(para1: PDisplay, para2: TWindow, para3: PXTextProperty,
|
||||
para4: PXTextProperty, para5: PPchar, para6: cint,
|
||||
para7: PXSizeHints, para8: PXWMHints, para9: PXClassHint){.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XmbSetWMProperties*(para1: PDisplay, para2: TWindow, para3: cstring,
|
||||
para4: cstring, para5: PPchar, para6: cint,
|
||||
para7: PXSizeHints, para8: PXWMHints,
|
||||
para9: PXClassHint){.cdecl, dynlib: libX11, importc.}
|
||||
proc Xutf8SetWMProperties*(para1: PDisplay, para2: TWindow, para3: cstring,
|
||||
para4: cstring, para5: PPchar, para6: cint,
|
||||
para7: PXSizeHints, para8: PXWMHints,
|
||||
para9: PXClassHint){.cdecl, dynlib: libX11, importc.}
|
||||
proc XSetWMSizeHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints,
|
||||
para4: TAtom){.cdecl, dynlib: libX11, importc.}
|
||||
proc XSetRegion*(para1: PDisplay, para2: TGC, para3: TRegion): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XSetStandardColormap*(para1: PDisplay, para2: TWindow,
|
||||
para3: PXStandardColormap, para4: TAtom){.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XSetZoomHints*(para1: PDisplay, para2: TWindow, para3: PXSizeHints): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XShrinkRegion*(para1: TRegion, para2: cint, para3: cint): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XStringListToTextProperty*(para1: PPchar, para2: cint,
|
||||
para3: PXTextProperty): TStatus{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XSubtractRegion*(para1: TRegion, para2: TRegion, para3: TRegion): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XmbTextListToTextProperty*(para1: PDisplay, para2: PPchar, para3: cint,
|
||||
para4: TXICCEncodingStyle, para5: PXTextProperty): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XwcTextListToTextProperty*(para1: PDisplay, para2: ptr ptr int16, para3: cint,
|
||||
para4: TXICCEncodingStyle, para5: PXTextProperty): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc Xutf8TextListToTextProperty*(para1: PDisplay, para2: PPchar, para3: cint,
|
||||
para4: TXICCEncodingStyle,
|
||||
para5: PXTextProperty): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XwcFreeStringList*(para1: ptr ptr int16){.cdecl, dynlib: libX11, importc.}
|
||||
proc XTextPropertyToStringList*(para1: PXTextProperty, para2: PPPchar,
|
||||
para3: Pcint): TStatus{.cdecl, dynlib: libX11,
|
||||
importc.}
|
||||
proc XmbTextPropertyToTextList*(para1: PDisplay, para2: PXTextProperty,
|
||||
para3: PPPchar, para4: Pcint): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XwcTextPropertyToTextList*(para1: PDisplay, para2: PXTextProperty,
|
||||
para3: ptr ptr ptr int16, para4: Pcint): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc Xutf8TextPropertyToTextList*(para1: PDisplay, para2: PXTextProperty,
|
||||
para3: PPPchar, para4: Pcint): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XUnionRectWithRegion*(para1: PXRectangle, para2: TRegion, para3: TRegion): cint{.
|
||||
cdecl, dynlib: libX11, importc.}
|
||||
proc XUnionRegion*(para1: TRegion, para2: TRegion, para3: TRegion): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XWMGeometry*(para1: PDisplay, para2: cint, para3: cstring, para4: cstring,
|
||||
para5: cuint, para6: PXSizeHints, para7: Pcint, para8: Pcint,
|
||||
para9: Pcint, para10: Pcint, para11: Pcint): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
proc XXorRegion*(para1: TRegion, para2: TRegion, para3: TRegion): cint{.cdecl,
|
||||
dynlib: libX11, importc.}
|
||||
#when defined(MACROS):
|
||||
proc XDestroyImage*(ximage: PXImage): cint
|
||||
proc XGetPixel*(ximage: PXImage, x, y: cint): culong
|
||||
proc XPutPixel*(ximage: PXImage, x, y: cint, pixel: culong): cint
|
||||
proc XSubImage*(ximage: PXImage, x, y: cint, width, height: cuint): PXImage
|
||||
proc XAddPixel*(ximage: PXImage, value: clong): cint
|
||||
proc IsKeypadKey*(keysym: TKeySym): bool
|
||||
proc IsPrivateKeypadKey*(keysym: TKeySym): bool
|
||||
proc IsCursorKey*(keysym: TKeySym): bool
|
||||
proc IsPFKey*(keysym: TKeySym): bool
|
||||
proc IsFunctionKey*(keysym: TKeySym): bool
|
||||
proc IsMiscFunctionKey*(keysym: TKeySym): bool
|
||||
proc IsModifierKey*(keysym: TKeySym): bool
|
||||
#function XUniqueContext : TXContext;
|
||||
#function XStringToContext(_string : Pchar) : TXContext;
|
||||
# implementation
|
||||
|
||||
#when defined(MACROS):
|
||||
proc XDestroyImage(ximage: PXImage): cint =
|
||||
ximage.f.destroy_image(ximage)
|
||||
|
||||
proc XGetPixel(ximage: PXImage, x, y: cint): culong =
|
||||
ximage.f.get_pixel(ximage, x, y)
|
||||
|
||||
proc XPutPixel(ximage: PXImage, x, y: cint, pixel: culong): cint =
|
||||
ximage.f.put_pixel(ximage, x, y, pixel)
|
||||
|
||||
proc XSubImage(ximage: PXImage, x, y: cint, width, height: cuint): PXImage =
|
||||
ximage.f.sub_image(ximage, x, y, width, height)
|
||||
|
||||
proc XAddPixel(ximage: PXImage, value: clong): cint =
|
||||
ximage.f.add_pixel(ximage, value)
|
||||
|
||||
proc IsKeypadKey(keysym: TKeySym): bool =
|
||||
(keysym >= XK_KP_Space) and (keysym <= XK_KP_Equal)
|
||||
|
||||
proc IsPrivateKeypadKey(keysym: TKeySym): bool =
|
||||
(keysym >= 0x11000000.TKeySym) and (keysym <= 0x1100FFFF.TKeySym)
|
||||
|
||||
proc IsCursorKey(keysym: TKeySym): bool =
|
||||
(keysym >= XK_Home) and (keysym < XK_Select)
|
||||
|
||||
proc IsPFKey(keysym: TKeySym): bool =
|
||||
(keysym >= XK_KP_F1) and (keysym <= XK_KP_F4)
|
||||
|
||||
proc IsFunctionKey(keysym: TKeySym): bool =
|
||||
(keysym >= XK_F1) and (keysym <= XK_F35)
|
||||
|
||||
proc IsMiscFunctionKey(keysym: TKeySym): bool =
|
||||
(keysym >= XK_Select) and (keysym <= XK_Break)
|
||||
|
||||
proc IsModifierKey(keysym: TKeySym): bool =
|
||||
((keysym >= XK_Shift_L) And (keysym <= XK_Hyper_R)) Or
|
||||
(keysym == XK_Mode_switch) Or (keysym == XK_Num_Lock)
|
||||
@@ -1,84 +0,0 @@
|
||||
#***********************************************************
|
||||
#Copyright 1991 by Digital Equipment Corporation, Maynard, Massachusetts,
|
||||
#and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
|
||||
#
|
||||
# All Rights Reserved
|
||||
#
|
||||
#Permission to use, copy, modify, and distribute this software and its
|
||||
#documentation for any purpose and without fee is hereby granted,
|
||||
#provided that the above copyright notice appear in all copies and that
|
||||
#both that copyright notice and this permission notice appear in
|
||||
#supporting documentation, and that the names of Digital or MIT not be
|
||||
#used in advertising or publicity pertaining to distribution of the
|
||||
#software without specific, written prior permission.
|
||||
#
|
||||
#DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
|
||||
#ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
|
||||
#DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
|
||||
#ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|
||||
#WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
|
||||
#ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
|
||||
#SOFTWARE.
|
||||
#
|
||||
#******************************************************************
|
||||
# $XFree86: xc/include/extensions/Xv.h,v 1.3 1999/05/23 06:33:22 dawes Exp $
|
||||
|
||||
import
|
||||
x
|
||||
|
||||
const
|
||||
XvName* = "libXVideo.so"
|
||||
XvVersion* = 2
|
||||
XvRevision* = 2 # Symbols
|
||||
|
||||
type
|
||||
TXvPortID* = TXID
|
||||
TXvEncodingID* = TXID
|
||||
|
||||
const
|
||||
XvNone* = 0
|
||||
XvInput* = 0
|
||||
XvOutput* = 1
|
||||
XvInputMask* = 1 shl XvInput
|
||||
XvOutputMask* = 1 shl XvOutput
|
||||
XvVideoMask* = 0x00000004
|
||||
XvStillMask* = 0x00000008
|
||||
XvImageMask* = 0x00000010 # These two are not client viewable
|
||||
XvPixmapMask* = 0x00010000
|
||||
XvWindowMask* = 0x00020000
|
||||
XvGettable* = 0x00000001
|
||||
XvSettable* = 0x00000002
|
||||
XvRGB* = 0
|
||||
XvYUV* = 1
|
||||
XvPacked* = 0
|
||||
XvPlanar* = 1
|
||||
XvTopToBottom* = 0
|
||||
XvBottomToTop* = 1 # Events
|
||||
XvVideoNotify* = 0
|
||||
XvPortNotify* = 1
|
||||
XvNumEvents* = 2 # Video Notify Reasons
|
||||
XvStarted* = 0
|
||||
XvStopped* = 1
|
||||
XvBusy* = 2
|
||||
XvPreempted* = 3
|
||||
XvHardError* = 4
|
||||
XvLastReason* = 4
|
||||
XvNumReasons* = XvLastReason + 1
|
||||
XvStartedMask* = 1 shl XvStarted
|
||||
XvStoppedMask* = 1 shl XvStopped
|
||||
XvBusyMask* = 1 shl XvBusy
|
||||
XvPreemptedMask* = 1 shl XvPreempted
|
||||
XvHardErrorMask* = 1 shl XvHardError
|
||||
XvAnyReasonMask* = (1 shl XvNumReasons) - 1
|
||||
XvNoReasonMask* = 0 # Errors
|
||||
XvBadPort* = 0
|
||||
XvBadEncoding* = 1
|
||||
XvBadControl* = 2
|
||||
XvNumErrors* = 3 # Status
|
||||
XvBadExtension* = 1
|
||||
XvAlreadyGrabbed* = 2
|
||||
XvInvalidTime* = 3
|
||||
XvBadReply* = 4
|
||||
XvBadAlloc* = 5
|
||||
|
||||
# implementation
|
||||
@@ -1,234 +0,0 @@
|
||||
#***********************************************************
|
||||
#Copyright 1991 by Digital Equipment Corporation, Maynard, Massachusetts,
|
||||
#and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
|
||||
#
|
||||
# All Rights Reserved
|
||||
#
|
||||
#Permission to use, copy, modify, and distribute this software and its
|
||||
#documentation for any purpose and without fee is hereby granted,
|
||||
#provided that the above copyright notice appear in all copies and that
|
||||
#both that copyright notice and this permission notice appear in
|
||||
#supporting documentation, and that the names of Digital or MIT not be
|
||||
#used in advertising or publicity pertaining to distribution of the
|
||||
#software without specific, written prior permission.
|
||||
#
|
||||
#DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
|
||||
#ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
|
||||
#DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
|
||||
#ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|
||||
#WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
|
||||
#ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
|
||||
#SOFTWARE.
|
||||
#
|
||||
#******************************************************************
|
||||
# $XFree86: xc/include/extensions/Xvlib.h,v 1.3 1999/12/11 19:28:48 mvojkovi Exp $
|
||||
#*
|
||||
#** File:
|
||||
#**
|
||||
#** Xvlib.h --- Xv library public header file
|
||||
#**
|
||||
#** Author:
|
||||
#**
|
||||
#** David Carver (Digital Workstation Engineering/Project Athena)
|
||||
#**
|
||||
#** Revisions:
|
||||
#**
|
||||
#** 26.06.91 Carver
|
||||
#** - changed XvFreeAdaptors to XvFreeAdaptorInfo
|
||||
#** - changed XvFreeEncodings to XvFreeEncodingInfo
|
||||
#**
|
||||
#** 11.06.91 Carver
|
||||
#** - changed SetPortControl to SetPortAttribute
|
||||
#** - changed GetPortControl to GetPortAttribute
|
||||
#** - changed QueryBestSize
|
||||
#**
|
||||
#** 05.15.91 Carver
|
||||
#** - version 2.0 upgrade
|
||||
#**
|
||||
#** 01.24.91 Carver
|
||||
#** - version 1.4 upgrade
|
||||
#**
|
||||
#*
|
||||
|
||||
import
|
||||
x, xlib, xshm, xv
|
||||
|
||||
const
|
||||
libXv* = "libXv.so"
|
||||
|
||||
type
|
||||
PXvRational* = ptr TXvRational
|
||||
TXvRational*{.final.} = object
|
||||
numerator*: cint
|
||||
denominator*: cint
|
||||
|
||||
PXvAttribute* = ptr TXvAttribute
|
||||
TXvAttribute*{.final.} = object
|
||||
flags*: cint # XvGettable, XvSettable
|
||||
min_value*: cint
|
||||
max_value*: cint
|
||||
name*: cstring
|
||||
|
||||
PPXvEncodingInfo* = ptr PXvEncodingInfo
|
||||
PXvEncodingInfo* = ptr TXvEncodingInfo
|
||||
TXvEncodingInfo*{.final.} = object
|
||||
encoding_id*: TXvEncodingID
|
||||
name*: cstring
|
||||
width*: culong
|
||||
height*: culong
|
||||
rate*: TXvRational
|
||||
num_encodings*: culong
|
||||
|
||||
PXvFormat* = ptr TXvFormat
|
||||
TXvFormat*{.final.} = object
|
||||
depth*: cchar
|
||||
visual_id*: culong
|
||||
|
||||
PPXvAdaptorInfo* = ptr PXvAdaptorInfo
|
||||
PXvAdaptorInfo* = ptr TXvAdaptorInfo
|
||||
TXvAdaptorInfo*{.final.} = object
|
||||
base_id*: TXvPortID
|
||||
num_ports*: culong
|
||||
thetype*: cchar
|
||||
name*: cstring
|
||||
num_formats*: culong
|
||||
formats*: PXvFormat
|
||||
num_adaptors*: culong
|
||||
|
||||
PXvVideoNotifyEvent* = ptr TXvVideoNotifyEvent
|
||||
TXvVideoNotifyEvent*{.final.} = object
|
||||
theType*: cint
|
||||
serial*: culong # # of last request processed by server
|
||||
send_event*: TBool # true if this came from a SendEvent request
|
||||
display*: PDisplay # Display the event was read from
|
||||
drawable*: TDrawable # drawable
|
||||
reason*: culong # what generated this event
|
||||
port_id*: TXvPortID # what port
|
||||
time*: TTime # milliseconds
|
||||
|
||||
PXvPortNotifyEvent* = ptr TXvPortNotifyEvent
|
||||
TXvPortNotifyEvent*{.final.} = object
|
||||
theType*: cint
|
||||
serial*: culong # # of last request processed by server
|
||||
send_event*: TBool # true if this came from a SendEvent request
|
||||
display*: PDisplay # Display the event was read from
|
||||
port_id*: TXvPortID # what port
|
||||
time*: TTime # milliseconds
|
||||
attribute*: TAtom # atom that identifies attribute
|
||||
value*: clong # value of attribute
|
||||
|
||||
PXvEvent* = ptr TXvEvent
|
||||
TXvEvent*{.final.} = object
|
||||
pad*: array[0..23, clong] #case longint of
|
||||
# 0 : (
|
||||
# theType : cint;
|
||||
# );
|
||||
# 1 : (
|
||||
# xvvideo : TXvVideoNotifyEvent;
|
||||
# );
|
||||
# 2 : (
|
||||
# xvport : TXvPortNotifyEvent;
|
||||
# );
|
||||
# 3 : (
|
||||
#
|
||||
# );
|
||||
|
||||
PXvImageFormatValues* = ptr TXvImageFormatValues
|
||||
TXvImageFormatValues*{.final.} = object
|
||||
id*: cint # Unique descriptor for the format
|
||||
theType*: cint # XvRGB, XvYUV
|
||||
byte_order*: cint # LSBFirst, MSBFirst
|
||||
guid*: array[0..15, cchar] # Globally Unique IDentifier
|
||||
bits_per_pixel*: cint
|
||||
format*: cint # XvPacked, XvPlanar
|
||||
num_planes*: cint # for RGB formats only
|
||||
depth*: cint
|
||||
red_mask*: cuint
|
||||
green_mask*: cuint
|
||||
blue_mask*: cuint # for YUV formats only
|
||||
y_sample_bits*: cuint
|
||||
u_sample_bits*: cuint
|
||||
v_sample_bits*: cuint
|
||||
horz_y_period*: cuint
|
||||
horz_u_period*: cuint
|
||||
horz_v_period*: cuint
|
||||
vert_y_period*: cuint
|
||||
vert_u_period*: cuint
|
||||
vert_v_period*: cuint
|
||||
component_order*: array[0..31, char] # eg. UYVY
|
||||
scanline_order*: cint # XvTopToBottom, XvBottomToTop
|
||||
|
||||
PXvImage* = ptr TXvImage
|
||||
TXvImage*{.final.} = object
|
||||
id*: cint
|
||||
width*, height*: cint
|
||||
data_size*: cint # bytes
|
||||
num_planes*: cint
|
||||
pitches*: pcint # bytes
|
||||
offsets*: pcint # bytes
|
||||
data*: pointer
|
||||
obdata*: TXPointer
|
||||
|
||||
|
||||
proc XvQueryExtension*(display: PDisplay, p_version, p_revision, p_requestBase,
|
||||
p_eventBase, p_errorBase: pcuint): cint{.cdecl, dynlib: libXv, importc.}
|
||||
proc XvQueryAdaptors*(display: PDisplay, window: TWindow, p_nAdaptors: pcuint,
|
||||
p_pAdaptors: PPXvAdaptorInfo): cint{.cdecl, dynlib: libXv,
|
||||
importc.}
|
||||
proc XvQueryEncodings*(display: PDisplay, port: TXvPortID, p_nEncoding: pcuint,
|
||||
p_pEncoding: PPXvEncodingInfo): cint{.cdecl,
|
||||
dynlib: libXv, importc.}
|
||||
proc XvPutVideo*(display: PDisplay, port: TXvPortID, d: TDrawable, gc: TGC,
|
||||
vx, vy: cint, vw, vh: cuint, dx, dy: cint, dw, dh: cuint): cint{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvPutStill*(display: PDisplay, port: TXvPortID, d: TDrawable, gc: TGC,
|
||||
vx, vy: cint, vw, vh: cuint, dx, dy: cint, dw, dh: cuint): cint{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvGetVideo*(display: PDisplay, port: TXvPortID, d: TDrawable, gc: TGC,
|
||||
vx, vy: cint, vw, vh: cuint, dx, dy: cint, dw, dh: cuint): cint{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvGetStill*(display: PDisplay, port: TXvPortID, d: TDrawable, gc: TGC,
|
||||
vx, vy: cint, vw, vh: cuint, dx, dy: cint, dw, dh: cuint): cint{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvStopVideo*(display: PDisplay, port: TXvPortID, drawable: TDrawable): cint{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvGrabPort*(display: PDisplay, port: TXvPortID, time: TTime): cint{.cdecl,
|
||||
dynlib: libXv, importc.}
|
||||
proc XvUngrabPort*(display: PDisplay, port: TXvPortID, time: TTime): cint{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvSelectVideoNotify*(display: PDisplay, drawable: TDrawable, onoff: TBool): cint{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvSelectPortNotify*(display: PDisplay, port: TXvPortID, onoff: TBool): cint{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvSetPortAttribute*(display: PDisplay, port: TXvPortID, attribute: TAtom,
|
||||
value: cint): cint{.cdecl, dynlib: libXv, importc.}
|
||||
proc XvGetPortAttribute*(display: PDisplay, port: TXvPortID, attribute: TAtom,
|
||||
p_value: pcint): cint{.cdecl, dynlib: libXv, importc.}
|
||||
proc XvQueryBestSize*(display: PDisplay, port: TXvPortID, motion: TBool,
|
||||
vid_w, vid_h, drw_w, drw_h: cuint,
|
||||
p_actual_width, p_actual_height: pcuint): cint{.cdecl,
|
||||
dynlib: libXv, importc.}
|
||||
proc XvQueryPortAttributes*(display: PDisplay, port: TXvPortID, number: pcint): PXvAttribute{.
|
||||
cdecl, dynlib: libXv, importc.}
|
||||
proc XvFreeAdaptorInfo*(adaptors: PXvAdaptorInfo){.cdecl, dynlib: libXv, importc.}
|
||||
proc XvFreeEncodingInfo*(encodings: PXvEncodingInfo){.cdecl, dynlib: libXv,
|
||||
importc.}
|
||||
proc XvListImageFormats*(display: PDisplay, port_id: TXvPortID,
|
||||
count_return: pcint): PXvImageFormatValues{.cdecl,
|
||||
dynlib: libXv, importc.}
|
||||
proc XvCreateImage*(display: PDisplay, port: TXvPortID, id: cint, data: pointer,
|
||||
width, height: cint): PXvImage{.cdecl, dynlib: libXv,
|
||||
importc.}
|
||||
proc XvPutImage*(display: PDisplay, id: TXvPortID, d: TDrawable, gc: TGC,
|
||||
image: PXvImage, src_x, src_y: cint, src_w, src_h: cuint,
|
||||
dest_x, dest_y: cint, dest_w, dest_h: cuint): cint{.cdecl,
|
||||
dynlib: libXv, importc.}
|
||||
proc XvShmPutImage*(display: PDisplay, id: TXvPortID, d: TDrawable, gc: TGC,
|
||||
image: PXvImage, src_x, src_y: cint, src_w, src_h: cuint,
|
||||
dest_x, dest_y: cint, dest_w, dest_h: cuint,
|
||||
send_event: TBool): cint{.cdecl, dynlib: libXv, importc.}
|
||||
proc XvShmCreateImage*(display: PDisplay, port: TXvPortID, id: cint,
|
||||
data: pointer, width, height: cint,
|
||||
shminfo: PXShmSegmentInfo): PXvImage{.cdecl,
|
||||
dynlib: libXv, importc.}
|
||||
# implementation
|
||||
Reference in New Issue
Block a user