1{ this program just links all externals, declared in the xinput unit }
2program xinput_linktest;
3uses
4  xinput;
5begin
6  halt(0);
7  _XiGetDevicePresenceNotifyEvent(nil);
8  _xibaddevice(nil, nil);
9  _xibadclass(nil, nil);
10  _xibadevent(nil, nil);
11  _xibadmode(nil, nil);
12  _xidevicebusy(nil, nil);
13  XChangeKeyboardDevice(nil, nil);
14  XChangePointerDevice(nil, nil, 0, 0);
15  XGrabDevice(nil, nil, 0, 0, 0, nil, 0, 0, 0);
16  XUngrabDevice(nil, nil, 0);
17  XGrabDeviceKey(nil, nil, 0, 0, nil, 0, 0, 0, nil, 0, 0);
18  XUngrabDeviceKey(nil, nil, 0, 0, nil, 0);
19  XGrabDeviceButton(nil, nil, 0, 0, nil, 0, 0, 0, nil, 0, 0);
20  XUngrabDeviceButton(nil, nil, 0, 0, nil, 0);
21  XAllowDeviceEvents(nil, nil, 0, 0);
22  XGetDeviceFocus(nil, nil, nil, nil, nil);
23  XSetDeviceFocus(nil, nil, 0, 0, 0);
24  XGetFeedbackControl(nil, nil, nil);
25  XFreeFeedbackList(nil);
26  XChangeFeedbackControl(nil, nil, 0, nil);
27  XDeviceBell(nil, nil, 0, 0, 0);
28  XGetDeviceKeyMapping(nil, nil, 0, 0, nil);
29  XChangeDeviceKeyMapping(nil, nil, 0, 0, nil, 0);
30  XGetDeviceModifierMapping(nil, nil);
31  XSetDeviceModifierMapping(nil, nil, nil);
32  XSetDeviceButtonMapping(nil, nil, nil, 0);
33  XGetDeviceButtonMapping(nil, nil, nil, 0);
34  XQueryDeviceState(nil, nil);
35  XFreeDeviceState(nil);
36  XGetExtensionVersion(nil, nil);
37  XListInputDevices(nil, nil);
38  XFreeDeviceList(nil);
39  XOpenDevice(nil, 0);
40  XCloseDevice(nil, nil);
41  XSetDeviceMode(nil, nil, 0);
42  XSetDeviceValuators(nil, nil, nil, 0, 0);
43  XGetDeviceControl(nil, nil, 0);
44  XChangeDeviceControl(nil, nil, 0, nil);
45  XSelectExtensionEvent(nil, 0, nil, 0);
46  XGetSelectedExtensionEvents(nil, 0, nil, nil, nil, nil);
47  XChangeDeviceDontPropagateList(nil, 0, 0, nil, 0);
48  XGetDeviceDontPropagateList(nil, 0, nil);
49  XSendExtensionEvent(nil, nil, 0, 0, 0, nil, nil);
50  XGetDeviceMotionEvents(nil, nil, 0, 0, nil, nil, nil);
51  XFreeDeviceMotionEvents(nil);
52  XFreeDeviceControl(nil);
53  XListDeviceProperties(nil, nil, nil);
54  XChangeDeviceProperty(nil, nil, 0, 0, 0, 0, nil, 0);
55  XDeleteDeviceProperty(nil, nil, 0);
56  XGetDeviceProperty(nil, nil, 0, 0, 0, 0, 0, nil, nil, nil, nil, nil);
57end.
58