Handle generic column width changes.
[wine] / programs / winetest / include / dinput8.pm
1 package dinput8;
2
3 use strict;
4
5 require Exporter;
6
7 use wine;
8 use vars qw(@ISA @EXPORT @EXPORT_OK);
9
10 @ISA = qw(Exporter);
11 @EXPORT = qw();
12 @EXPORT_OK = qw();
13
14 my $module_declarations = {
15     "DirectInput8Create" => ["long",  ["long", "long", "ptr", "ptr", "ptr"]],
16     "DllCanUnloadNow" => ["long",  []],
17     "DllGetClassObject" => ["long",  ["ptr", "ptr", "ptr"]],
18     "DllRegisterServer" => ["long",  []],
19     "DllUnregisterServer" => ["long",  []]
20 };
21
22 &wine::declare("dinput8",%$module_declarations);
23 push @EXPORT, map { "&" . $_; } sort(keys(%$module_declarations));
24 1;