+ added unit xinput - a header translation of X11/extensions/XInput.h

git-svn-id: trunk@33620 -

.gitattributes

@@ -8054,6 +8054,7 @@ packages/x11/src/xft.pas svneol=native#text/pascal
 packages/x11/src/xi.pp svneol=native#text/plain
 packages/x11/src/xi2.pp svneol=native#text/plain
 packages/x11/src/xinerama.pp svneol=native#text/plain
+packages/x11/src/xinput.pp svneol=native#text/plain
 packages/x11/src/xkb.pp svneol=native#text/plain
 packages/x11/src/xkblib.pp svneol=native#text/plain
 packages/x11/src/xlib.pp svneol=native#text/plain
@@ -8064,6 +8065,7 @@ packages/x11/src/xshm.pp svneol=native#text/plain
 packages/x11/src/xutil.pp svneol=native#text/plain
 packages/x11/src/xv.pp svneol=native#text/plain
 packages/x11/src/xvlib.pp svneol=native#text/plain
+packages/x11/tests/xinput_linktest.pp svneol=native#text/plain
 packages/xforms/Makefile svneol=native#text/plain
 packages/xforms/Makefile.fpc svneol=native#text/plain
 packages/xforms/Makefile.fpc.fpcmake svneol=native#text/plain

packages/x11/fpmake.pp

@@ -51,6 +51,13 @@ begin
         end;
     T:=P.Targets.AddUnit('xi.pp');
     T:=P.Targets.AddUnit('xi2.pp');
+    T:=P.Targets.AddUnit('xinput.pp');
+      with T.Dependencies do
+        begin
+          AddUnit('x');
+          AddUnit('xlib');
+          AddUnit('xi');
+        end;
     T:=P.Targets.AddUnit('xkblib.pp');
       with T.Dependencies do
         begin

packages/x11/tests/xinput_linktest.pp

@@ -0,0 +1,57 @@
+{ this program just links all externals, declared in the xinput unit }
+program xinput_linktest;
+uses
+  xinput;
+begin
+  halt(0);
+  _XiGetDevicePresenceNotifyEvent(nil);
+  _xibaddevice(nil, nil);
+  _xibadclass(nil, nil);
+  _xibadevent(nil, nil);
+  _xibadmode(nil, nil);
+  _xidevicebusy(nil, nil);
+  XChangeKeyboardDevice(nil, nil);
+  XChangePointerDevice(nil, nil, 0, 0);
+  XGrabDevice(nil, nil, 0, 0, 0, nil, 0, 0, 0);
+  XUngrabDevice(nil, nil, 0);
+  XGrabDeviceKey(nil, nil, 0, 0, nil, 0, 0, 0, nil, 0, 0);
+  XUngrabDeviceKey(nil, nil, 0, 0, nil, 0);
+  XGrabDeviceButton(nil, nil, 0, 0, nil, 0, 0, 0, nil, 0, 0);
+  XUngrabDeviceButton(nil, nil, 0, 0, nil, 0);
+  XAllowDeviceEvents(nil, nil, 0, 0);
+  XGetDeviceFocus(nil, nil, nil, nil, nil);
+  XSetDeviceFocus(nil, nil, 0, 0, 0);
+  XGetFeedbackControl(nil, nil, nil);
+  XFreeFeedbackList(nil);
+  XChangeFeedbackControl(nil, nil, 0, nil);
+  XDeviceBell(nil, nil, 0, 0, 0);
+  XGetDeviceKeyMapping(nil, nil, 0, 0, nil);
+  XChangeDeviceKeyMapping(nil, nil, 0, 0, nil, 0);
+  XGetDeviceModifierMapping(nil, nil);
+  XSetDeviceModifierMapping(nil, nil, nil);
+  XSetDeviceButtonMapping(nil, nil, nil, 0);
+  XGetDeviceButtonMapping(nil, nil, nil, 0);
+  XQueryDeviceState(nil, nil);
+  XFreeDeviceState(nil);
+  XGetExtensionVersion(nil, nil);
+  XListInputDevices(nil, nil);
+  XFreeDeviceList(nil);
+  XOpenDevice(nil, 0);
+  XCloseDevice(nil, nil);
+  XSetDeviceMode(nil, nil, 0);
+  XSetDeviceValuators(nil, nil, nil, 0, 0);
+  XGetDeviceControl(nil, nil, 0);
+  XChangeDeviceControl(nil, nil, 0, nil);
+  XSelectExtensionEvent(nil, 0, nil, 0);
+  XGetSelectedExtensionEvents(nil, 0, nil, nil, nil, nil);
+  XChangeDeviceDontPropagateList(nil, 0, 0, nil, 0);
+  XGetDeviceDontPropagateList(nil, 0, nil);
+  XSendExtensionEvent(nil, nil, 0, 0, 0, nil, nil);
+  XGetDeviceMotionEvents(nil, nil, 0, 0, nil, nil, nil);
+  XFreeDeviceMotionEvents(nil);
+  XFreeDeviceControl(nil);
+  XListDeviceProperties(nil, nil, nil);
+  XChangeDeviceProperty(nil, nil, 0, 0, 0, 0, nil, 0);
+  XDeleteDeviceProperty(nil, nil, 0);
+  XGetDeviceProperty(nil, nil, 0, 0, 0, 0, 0, nil, nil, nil, nil, nil);
+end.