Skip to content

W
wine-cw
Commit f1d80a39 authored by Patrik Stridvall's avatar Patrik Stridvall Committed by Alexandre Julliard
Browse files
Options

- Made the Perl module generated by make_symbols a real exporting

module. - Use constants instead of variables.
parent 04c160e5
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 509 additions and 203 deletions
programs/winetest/include/wincon.pm
View file @ f1d80a39
...@@ -3,47 +3,107 @@ ...@@ -3,47 +3,107 @@
# Perl definitions for header file wincon.h # Perl definitions for header file wincon.h
# #
$BACKGROUND_BLUE = 16;
$BACKGROUND_GREEN = 32; package wincon;
$BACKGROUND_INTENSITY = 128;
$BACKGROUND_RED = 64; use strict;
$CAPSLOCK_ON = 128;
$CONSOLE_TEXTMODE_BUFFER = 1; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$CTRL_BREAK_EVENT = 1;
$CTRL_CLOSE_EVENT = 2; require Exporter;
$CTRL_C_EVENT = 0;
$CTRL_LOGOFF_EVENT = 5; @ISA = qw(Exporter);
$CTRL_SHUTDOWN_EVENT = 6; @EXPORT = qw(
$DOUBLE_CLICK = 2; BACKGROUND_BLUE
$ENABLE_ECHO_INPUT = 4; BACKGROUND_GREEN
$ENABLE_LINE_INPUT = 2; BACKGROUND_INTENSITY
$ENABLE_MOUSE_INPUT = 16; BACKGROUND_RED
$ENABLE_PROCESSED_INPUT = 1; CAPSLOCK_ON
$ENABLE_PROCESSED_OUTPUT = 1; CONSOLE_TEXTMODE_BUFFER
$ENABLE_WINDOW_INPUT = 8; CTRL_BREAK_EVENT
$ENABLE_WRAP_AT_EOL_OUTPUT = 2; CTRL_CLOSE_EVENT
$ENHANCED_KEY = 256; CTRL_C_EVENT
$FOCUS_EVENT = 16; CTRL_LOGOFF_EVENT
$FOREGROUND_BLUE = 1; CTRL_SHUTDOWN_EVENT
$FOREGROUND_GREEN = 2; DOUBLE_CLICK
$FOREGROUND_INTENSITY = 8; ENABLE_ECHO_INPUT
$FOREGROUND_RED = 4; ENABLE_LINE_INPUT
$FROM_LEFT_1ST_BUTTON_PRESSED = 1; ENABLE_MOUSE_INPUT
$FROM_LEFT_2ND_BUTTON_PRESSED = 4; ENABLE_PROCESSED_INPUT
$FROM_LEFT_3RD_BUTTON_PRESSED = 8; ENABLE_PROCESSED_OUTPUT
$FROM_LEFT_4TH_BUTTON_PRESSED = 16; ENABLE_WINDOW_INPUT
$KEY_EVENT = 1; ENABLE_WRAP_AT_EOL_OUTPUT
$LEFT_ALT_PRESSED = 2; ENHANCED_KEY
$LEFT_CTRL_PRESSED = 8; FOCUS_EVENT
$MENU_EVENT = 8; FOREGROUND_BLUE
$MOUSE_EVENT = 2; FOREGROUND_GREEN
$MOUSE_MOVED = 1; FOREGROUND_INTENSITY
$MOUSE_WHEELED = 4; FOREGROUND_RED
$NUMLOCK_ON = 32; FROM_LEFT_1ST_BUTTON_PRESSED
$RIGHTMOST_BUTTON_PRESSED = 2; FROM_LEFT_2ND_BUTTON_PRESSED
$RIGHT_ALT_PRESSED = 1; FROM_LEFT_3RD_BUTTON_PRESSED
$RIGHT_CTRL_PRESSED = 4; FROM_LEFT_4TH_BUTTON_PRESSED
$SCROLLLOCK_ON = 64; KEY_EVENT
$SHIFT_PRESSED = 16; LEFT_ALT_PRESSED
$WINDOW_BUFFER_SIZE_EVENT = 4; LEFT_CTRL_PRESSED
$WINE_ENABLE_LINE_INPUT_EMACS = 128; MENU_EVENT
MOUSE_EVENT
MOUSE_MOVED
MOUSE_WHEELED
NUMLOCK_ON
RIGHTMOST_BUTTON_PRESSED
RIGHT_ALT_PRESSED
RIGHT_CTRL_PRESSED
SCROLLLOCK_ON
SHIFT_PRESSED
WINDOW_BUFFER_SIZE_EVENT
WINE_ENABLE_LINE_INPUT_EMACS
);
@EXPORT_OK = qw();
use constant BACKGROUND_BLUE => 16;
use constant BACKGROUND_GREEN => 32;
use constant BACKGROUND_INTENSITY => 128;
use constant BACKGROUND_RED => 64;
use constant CAPSLOCK_ON => 128;
use constant CONSOLE_TEXTMODE_BUFFER => 1;
use constant CTRL_BREAK_EVENT => 1;
use constant CTRL_CLOSE_EVENT => 2;
use constant CTRL_C_EVENT => 0;
use constant CTRL_LOGOFF_EVENT => 5;
use constant CTRL_SHUTDOWN_EVENT => 6;
use constant DOUBLE_CLICK => 2;
use constant ENABLE_ECHO_INPUT => 4;
use constant ENABLE_LINE_INPUT => 2;
use constant ENABLE_MOUSE_INPUT => 16;
use constant ENABLE_PROCESSED_INPUT => 1;
use constant ENABLE_PROCESSED_OUTPUT => 1;
use constant ENABLE_WINDOW_INPUT => 8;
use constant ENABLE_WRAP_AT_EOL_OUTPUT => 2;
use constant ENHANCED_KEY => 256;
use constant FOCUS_EVENT => 16;
use constant FOREGROUND_BLUE => 1;
use constant FOREGROUND_GREEN => 2;
use constant FOREGROUND_INTENSITY => 8;
use constant FOREGROUND_RED => 4;
use constant FROM_LEFT_1ST_BUTTON_PRESSED => 1;
use constant FROM_LEFT_2ND_BUTTON_PRESSED => 4;
use constant FROM_LEFT_3RD_BUTTON_PRESSED => 8;
use constant FROM_LEFT_4TH_BUTTON_PRESSED => 16;
use constant KEY_EVENT => 1;
use constant LEFT_ALT_PRESSED => 2;
use constant LEFT_CTRL_PRESSED => 8;
use constant MENU_EVENT => 8;
use constant MOUSE_EVENT => 2;
use constant MOUSE_MOVED => 1;
use constant MOUSE_WHEELED => 4;
use constant NUMLOCK_ON => 32;
use constant RIGHTMOST_BUTTON_PRESSED => 2;
use constant RIGHT_ALT_PRESSED => 1;
use constant RIGHT_CTRL_PRESSED => 4;
use constant SCROLLLOCK_ON => 64;
use constant SHIFT_PRESSED => 16;
use constant WINDOW_BUFFER_SIZE_EVENT => 4;
use constant WINE_ENABLE_LINE_INPUT_EMACS => 128;
1;
programs/winetest/include/windef.pm
View file @ f1d80a39
...@@ -3,11 +3,35 @@ ...@@ -3,11 +3,35 @@
# Perl definitions for header file windef.h # Perl definitions for header file windef.h
# #
$HFILE_ERROR = -1;
$MAX_PATH = 260; package windef;
$WINVER = 1280;
$_MAX_DIR = 256; use strict;
$_MAX_DRIVE = 3;
$_MAX_EXT = 256; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$_MAX_FNAME = 256;
$_MAX_PATH = 260; require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
HFILE_ERROR
MAX_PATH
WINVER
_MAX_DIR
_MAX_DRIVE
_MAX_EXT
_MAX_FNAME
_MAX_PATH
);
@EXPORT_OK = qw();
use constant HFILE_ERROR => -1;
use constant MAX_PATH => 260;
use constant WINVER => 1280;
use constant _MAX_DIR => 256;
use constant _MAX_DRIVE => 3;
use constant _MAX_EXT => 256;
use constant _MAX_FNAME => 256;
use constant _MAX_PATH => 260;
1;
programs/winetest/include/winerror.pm
View file @ f1d80a39
This source diff could not be displayed because it is too large. You can view the blob instead.
programs/winetest/include/winnt.pm
View file @ f1d80a39
This source diff could not be displayed because it is too large. You can view the blob instead.
programs/winetest/include/winreg.pm
View file @ f1d80a39
...@@ -3,10 +3,33 @@ ...@@ -3,10 +3,33 @@
# Perl definitions for header file winreg.h # Perl definitions for header file winreg.h
# #
$HKEY_CLASSES_ROOT = -2147483648;
$HKEY_CURRENT_CONFIG = -2147483643; package winreg;
$HKEY_CURRENT_USER = -2147483647;
$HKEY_DYN_DATA = -2147483642; use strict;
$HKEY_LOCAL_MACHINE = -2147483646;
$HKEY_PERFORMANCE_DATA = -2147483644; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$HKEY_USERS = -2147483645;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
HKEY_CLASSES_ROOT
HKEY_CURRENT_CONFIG
HKEY_CURRENT_USER
HKEY_DYN_DATA
HKEY_LOCAL_MACHINE
HKEY_PERFORMANCE_DATA
HKEY_USERS
);
@EXPORT_OK = qw();
use constant HKEY_CLASSES_ROOT => -2147483648;
use constant HKEY_CURRENT_CONFIG => -2147483643;
use constant HKEY_CURRENT_USER => -2147483647;
use constant HKEY_DYN_DATA => -2147483642;
use constant HKEY_LOCAL_MACHINE => -2147483646;
use constant HKEY_PERFORMANCE_DATA => -2147483644;
use constant HKEY_USERS => -2147483645;
1;
programs/winetest/include/winsock2.pm
View file @ f1d80a39
...@@ -3,72 +3,157 @@ ...@@ -3,72 +3,157 @@
# Perl definitions for header file winsock2.h # Perl definitions for header file winsock2.h
# #
$BASE_PROTOCOL = 1;
$CF_ACCEPT = 0; package winsock2;
$CF_DEFER = 2;
$CF_REJECT = 1; use strict;
$FD_ACCEPT_BIT = 3;
$FD_CLOSE_BIT = 5; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$FD_CONNECT_BIT = 4;
$FD_MAX_EVENTS = 10; require Exporter;
$FD_OOB_BIT = 2;
$FD_READ_BIT = 0; @ISA = qw(Exporter);
$FD_WRITE_BIT = 1; @EXPORT = qw(
$INCL_WINSOCK_API_PROTOTYPES = 1; BASE_PROTOCOL
$INCL_WINSOCK_API_TYPEDEFS = 0; CF_ACCEPT
$IOC_PROTOCOL = 268435456; CF_DEFER
$IOC_UNIX = 0; CF_REJECT
$IOC_VENDOR = 402653184; FD_ACCEPT_BIT
$IOC_WS2 = 134217728; FD_CLOSE_BIT
$LAYERED_PROTOCOL = 0; FD_CONNECT_BIT
$MAX_PROTOCOL_CHAIN = 7; FD_MAX_EVENTS
$PVD_CONFIG = 12289; FD_OOB_BIT
$SD_BOTH = 2; FD_READ_BIT
$SD_RECEIVE = 0; FD_WRITE_BIT
$SD_SEND = 1; INCL_WINSOCK_API_PROTOTYPES
$SG_CONSTRAINED_GROUP = 2; INCL_WINSOCK_API_TYPEDEFS
$SG_UNCONSTRAINED_GROUP = 1; IOC_PROTOCOL
$SIO_ADDRESS_LIST_CHANGE = 671088663; IOC_UNIX
$SIO_ADDRESS_LIST_QUERY = 1207959574; IOC_VENDOR
$SIO_ASSOCIATE_HANDLE = -2013265919; IOC_WS2
$SIO_ENABLE_CIRCULAR_QUEUEING = 671088642; LAYERED_PROTOCOL
$SIO_FIND_ROUTE = 1207959555; MAX_PROTOCOL_CHAIN
$SIO_FLUSH = 671088644; PVD_CONFIG
$SIO_GET_BROADCAST_ADDRESS = 1207959557; SD_BOTH
$SIO_GET_EXTENSION_FUNCTION_POINTER = -939524090; SD_RECEIVE
$SIO_GET_GROUP_QOS = -939524088; SD_SEND
$SIO_GET_INTERFACE_LIST = 1074033791; SG_CONSTRAINED_GROUP
$SIO_GET_QOS = -939524089; SG_UNCONSTRAINED_GROUP
$SIO_MULTICAST_SCOPE = -2013265910; SIO_ADDRESS_LIST_CHANGE
$SIO_MULTIPOINT_LOOPBACK = -2013265911; SIO_ADDRESS_LIST_QUERY
$SIO_QUERY_TARGET_PNP_HANDLE = 1207959576; SIO_ASSOCIATE_HANDLE
$SIO_ROUTING_INTERFACE_CHANGE = -2013265899; SIO_ENABLE_CIRCULAR_QUEUEING
$SIO_ROUTING_INTERFACE_QUERY = -939524076; SIO_FIND_ROUTE
$SIO_SET_GROUP_QOS = -2013265908; SIO_FLUSH
$SIO_SET_QOS = -2013265909; SIO_GET_BROADCAST_ADDRESS
$SIO_TRANSLATE_HANDLE = -939524083; SIO_GET_EXTENSION_FUNCTION_POINTER
$SO_CONDITIONAL_ACCEPT = 12290; SIO_GET_GROUP_QOS
$SO_GROUP_ID = 8193; SIO_GET_INTERFACE_LIST
$SO_GROUP_PRIORITY = 8194; SIO_GET_QOS
$SO_MAX_MSG_SIZE = 8195; SIO_MULTICAST_SCOPE
$SO_PROTOCOL_INFOA = 8196; SIO_MULTIPOINT_LOOPBACK
$SO_PROTOCOL_INFOW = 8197; SIO_QUERY_TARGET_PNP_HANDLE
$WSAPROTOCOL_LEN = 255; SIO_ROUTING_INTERFACE_CHANGE
$WSA_FLAG_MULTIPOINT_C_LEAF = 4; SIO_ROUTING_INTERFACE_QUERY
$WSA_FLAG_MULTIPOINT_C_ROOT = 2; SIO_SET_GROUP_QOS
$WSA_FLAG_MULTIPOINT_D_LEAF = 16; SIO_SET_QOS
$WSA_FLAG_MULTIPOINT_D_ROOT = 8; SIO_TRANSLATE_HANDLE
$WSA_FLAG_OVERLAPPED = 1; SO_CONDITIONAL_ACCEPT
$WSA_INFINITE = -1; SO_GROUP_ID
$WSA_INVALID_EVENT = 0; SO_GROUP_PRIORITY
$WSA_INVALID_HANDLE = 6; SO_MAX_MSG_SIZE
$WSA_INVALID_PARAMETER = 87; SO_PROTOCOL_INFOA
$WSA_IO_INCOMPLETE = 996; SO_PROTOCOL_INFOW
$WSA_IO_PENDING = 997; WSAPROTOCOL_LEN
$WSA_MAXIMUM_WAIT_EVENTS = 64; WSA_FLAG_MULTIPOINT_C_LEAF
$WSA_NOT_ENOUGH_MEMORY = 8; WSA_FLAG_MULTIPOINT_C_ROOT
$WSA_OPERATION_ABORTED = 995; WSA_FLAG_MULTIPOINT_D_LEAF
$WSA_WAIT_EVENT_0 = 0; WSA_FLAG_MULTIPOINT_D_ROOT
$WSA_WAIT_FAILED = -1; WSA_FLAG_OVERLAPPED
$WSA_WAIT_IO_COMPLETION = 192; WSA_INFINITE
$WSA_WAIT_TIMEOUT = 258; WSA_INVALID_EVENT
WSA_INVALID_HANDLE
WSA_INVALID_PARAMETER
WSA_IO_INCOMPLETE
WSA_IO_PENDING
WSA_MAXIMUM_WAIT_EVENTS
WSA_NOT_ENOUGH_MEMORY
WSA_OPERATION_ABORTED
WSA_WAIT_EVENT_0
WSA_WAIT_FAILED
WSA_WAIT_IO_COMPLETION
WSA_WAIT_TIMEOUT
);
@EXPORT_OK = qw();
use constant BASE_PROTOCOL => 1;
use constant CF_ACCEPT => 0;
use constant CF_DEFER => 2;
use constant CF_REJECT => 1;
use constant FD_ACCEPT_BIT => 3;
use constant FD_CLOSE_BIT => 5;
use constant FD_CONNECT_BIT => 4;
use constant FD_MAX_EVENTS => 10;
use constant FD_OOB_BIT => 2;
use constant FD_READ_BIT => 0;
use constant FD_WRITE_BIT => 1;
use constant INCL_WINSOCK_API_PROTOTYPES => 1;
use constant INCL_WINSOCK_API_TYPEDEFS => 0;
use constant IOC_PROTOCOL => 268435456;
use constant IOC_UNIX => 0;
use constant IOC_VENDOR => 402653184;
use constant IOC_WS2 => 134217728;
use constant LAYERED_PROTOCOL => 0;
use constant MAX_PROTOCOL_CHAIN => 7;
use constant PVD_CONFIG => 12289;
use constant SD_BOTH => 2;
use constant SD_RECEIVE => 0;
use constant SD_SEND => 1;
use constant SG_CONSTRAINED_GROUP => 2;
use constant SG_UNCONSTRAINED_GROUP => 1;
use constant SIO_ADDRESS_LIST_CHANGE => 671088663;
use constant SIO_ADDRESS_LIST_QUERY => 1207959574;
use constant SIO_ASSOCIATE_HANDLE => -2013265919;
use constant SIO_ENABLE_CIRCULAR_QUEUEING => 671088642;
use constant SIO_FIND_ROUTE => 1207959555;
use constant SIO_FLUSH => 671088644;
use constant SIO_GET_BROADCAST_ADDRESS => 1207959557;
use constant SIO_GET_EXTENSION_FUNCTION_POINTER => -939524090;
use constant SIO_GET_GROUP_QOS => -939524088;
use constant SIO_GET_INTERFACE_LIST => 1074033791;
use constant SIO_GET_QOS => -939524089;
use constant SIO_MULTICAST_SCOPE => -2013265910;
use constant SIO_MULTIPOINT_LOOPBACK => -2013265911;
use constant SIO_QUERY_TARGET_PNP_HANDLE => 1207959576;
use constant SIO_ROUTING_INTERFACE_CHANGE => -2013265899;
use constant SIO_ROUTING_INTERFACE_QUERY => -939524076;
use constant SIO_SET_GROUP_QOS => -2013265908;
use constant SIO_SET_QOS => -2013265909;
use constant SIO_TRANSLATE_HANDLE => -939524083;
use constant SO_CONDITIONAL_ACCEPT => 12290;
use constant SO_GROUP_ID => 8193;
use constant SO_GROUP_PRIORITY => 8194;
use constant SO_MAX_MSG_SIZE => 8195;
use constant SO_PROTOCOL_INFOA => 8196;
use constant SO_PROTOCOL_INFOW => 8197;
use constant WSAPROTOCOL_LEN => 255;
use constant WSA_FLAG_MULTIPOINT_C_LEAF => 4;
use constant WSA_FLAG_MULTIPOINT_C_ROOT => 2;
use constant WSA_FLAG_MULTIPOINT_D_LEAF => 16;
use constant WSA_FLAG_MULTIPOINT_D_ROOT => 8;
use constant WSA_FLAG_OVERLAPPED => 1;
use constant WSA_INFINITE => -1;
use constant WSA_INVALID_EVENT => 0;
use constant WSA_INVALID_HANDLE => 6;
use constant WSA_INVALID_PARAMETER => 87;
use constant WSA_IO_INCOMPLETE => 996;
use constant WSA_IO_PENDING => 997;
use constant WSA_MAXIMUM_WAIT_EVENTS => 64;
use constant WSA_NOT_ENOUGH_MEMORY => 8;
use constant WSA_OPERATION_ABORTED => 995;
use constant WSA_WAIT_EVENT_0 => 0;
use constant WSA_WAIT_FAILED => -1;
use constant WSA_WAIT_IO_COMPLETION => 192;
use constant WSA_WAIT_TIMEOUT => 258;
1;
programs/winetest/include/winuser.pm
View file @ f1d80a39
This source diff could not be displayed because it is too large. You can view the blob instead.
programs/winetest/include/winver.pm
View file @ f1d80a39
...@@ -3,77 +3,167 @@ ...@@ -3,77 +3,167 @@
# Perl definitions for header file winver.h # Perl definitions for header file winver.h
# #
$VFFF_ISSHAREDFILE = 1;
$VFF_BUFFTOOSMALL = 4; package winver;
$VFF_CURNEDEST = 1;
$VFF_FILEINUSE = 2; use strict;
$VFT2_DRV_COMM = 10;
$VFT2_DRV_DISPLAY = 4; use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
$VFT2_DRV_INPUTMETHOD = 11;
$VFT2_DRV_INSTALLABLE = 8; require Exporter;
$VFT2_DRV_KEYBOARD = 2;
$VFT2_DRV_LANGUAGE = 3; @ISA = qw(Exporter);
$VFT2_DRV_MOUSE = 5; @EXPORT = qw(
$VFT2_DRV_NETWORK = 6; VFFF_ISSHAREDFILE
$VFT2_DRV_PRINTER = 1; VFF_BUFFTOOSMALL
$VFT2_DRV_SOUND = 9; VFF_CURNEDEST
$VFT2_DRV_SYSTEM = 7; VFF_FILEINUSE
$VFT2_FONT_RASTER = 1; VFT2_DRV_COMM
$VFT2_FONT_TRUETYPE = 3; VFT2_DRV_DISPLAY
$VFT2_FONT_VECTOR = 2; VFT2_DRV_INPUTMETHOD
$VFT2_UNKNOWN = 0; VFT2_DRV_INSTALLABLE
$VFT_APP = 1; VFT2_DRV_KEYBOARD
$VFT_DLL = 2; VFT2_DRV_LANGUAGE
$VFT_DRV = 3; VFT2_DRV_MOUSE
$VFT_FONT = 4; VFT2_DRV_NETWORK
$VFT_STATIC_LIB = 7; VFT2_DRV_PRINTER
$VFT_UNKNOWN = 0; VFT2_DRV_SOUND
$VFT_VXD = 5; VFT2_DRV_SYSTEM
$VIFF_DONTDELETEOLD = 2; VFT2_FONT_RASTER
$VIFF_FORCEINSTALL = 1; VFT2_FONT_TRUETYPE
$VIF_ACCESSVIOLATION = 512; VFT2_FONT_VECTOR
$VIF_BUFFTOOSMALL = 262144; VFT2_UNKNOWN
$VIF_CANNOTCREATE = 2048; VFT_APP
$VIF_CANNOTDELETE = 4096; VFT_DLL
$VIF_CANNOTDELETECUR = 16384; VFT_DRV
$VIF_CANNOTREADDST = 131072; VFT_FONT
$VIF_CANNOTREADSRC = 65536; VFT_STATIC_LIB
$VIF_CANNOTRENAME = 8192; VFT_UNKNOWN
$VIF_DIFFCODEPG = 16; VFT_VXD
$VIF_DIFFLANG = 8; VIFF_DONTDELETEOLD
$VIF_DIFFTYPE = 32; VIFF_FORCEINSTALL
$VIF_FILEINUSE = 128; VIF_ACCESSVIOLATION
$VIF_MISMATCH = 2; VIF_BUFFTOOSMALL
$VIF_OUTOFMEMORY = 32768; VIF_CANNOTCREATE
$VIF_OUTOFSPACE = 256; VIF_CANNOTDELETE
$VIF_SHARINGVIOLATION = 1024; VIF_CANNOTDELETECUR
$VIF_SRCOLD = 4; VIF_CANNOTREADDST
$VIF_TEMPFILE = 1; VIF_CANNOTREADSRC
$VIF_WRITEPROT = 64; VIF_CANNOTRENAME
$VOS_DOS = 65536; VIF_DIFFCODEPG
$VOS_DOS_WINDOWS16 = 65537; VIF_DIFFLANG
$VOS_DOS_WINDOWS32 = 65540; VIF_DIFFTYPE
$VOS_NT = 262144; VIF_FILEINUSE
$VOS_NT_WINDOWS32 = 262148; VIF_MISMATCH
$VOS_OS216 = 131072; VIF_OUTOFMEMORY
$VOS_OS216_PM16 = 131074; VIF_OUTOFSPACE
$VOS_OS232 = 196608; VIF_SHARINGVIOLATION
$VOS_OS232_PM32 = 196611; VIF_SRCOLD
$VOS_UNKNOWN = 0; VIF_TEMPFILE
$VOS__BASE = 0; VIF_WRITEPROT
$VOS__PM16 = 2; VOS_DOS
$VOS__PM32 = 3; VOS_DOS_WINDOWS16
$VOS__WINDOWS16 = 1; VOS_DOS_WINDOWS32
$VOS__WINDOWS32 = 4; VOS_NT
$VS_FFI_FILEFLAGSMASK = 63; VOS_NT_WINDOWS32
$VS_FFI_SIGNATURE = -17890115; VOS_OS216
$VS_FFI_STRUCVERSION = 65536; VOS_OS216_PM16
$VS_FF_DEBUG = 1; VOS_OS232
$VS_FF_INFOINFERRED = 16; VOS_OS232_PM32
$VS_FF_PATCHED = 4; VOS_UNKNOWN
$VS_FF_PRERELEASE = 2; VOS__BASE
$VS_FF_PRIVATEBUILD = 8; VOS__PM16
$VS_FF_SPECIALBUILD = 32; VOS__PM32
$VS_FILE_INFO = 16; VOS__WINDOWS16
$VS_USER_DEFINED = 100; VOS__WINDOWS32
$VS_VERSION_INFO = 1; VS_FFI_FILEFLAGSMASK
VS_FFI_SIGNATURE
VS_FFI_STRUCVERSION
VS_FF_DEBUG
VS_FF_INFOINFERRED
VS_FF_PATCHED
VS_FF_PRERELEASE
VS_FF_PRIVATEBUILD
VS_FF_SPECIALBUILD
VS_FILE_INFO
VS_USER_DEFINED
VS_VERSION_INFO
);
@EXPORT_OK = qw();
use constant VFFF_ISSHAREDFILE => 1;
use constant VFF_BUFFTOOSMALL => 4;
use constant VFF_CURNEDEST => 1;
use constant VFF_FILEINUSE => 2;
use constant VFT2_DRV_COMM => 10;
use constant VFT2_DRV_DISPLAY => 4;
use constant VFT2_DRV_INPUTMETHOD => 11;
use constant VFT2_DRV_INSTALLABLE => 8;
use constant VFT2_DRV_KEYBOARD => 2;
use constant VFT2_DRV_LANGUAGE => 3;
use constant VFT2_DRV_MOUSE => 5;
use constant VFT2_DRV_NETWORK => 6;
use constant VFT2_DRV_PRINTER => 1;
use constant VFT2_DRV_SOUND => 9;
use constant VFT2_DRV_SYSTEM => 7;
use constant VFT2_FONT_RASTER => 1;
use constant VFT2_FONT_TRUETYPE => 3;
use constant VFT2_FONT_VECTOR => 2;
use constant VFT2_UNKNOWN => 0;
use constant VFT_APP => 1;
use constant VFT_DLL => 2;
use constant VFT_DRV => 3;
use constant VFT_FONT => 4;
use constant VFT_STATIC_LIB => 7;
use constant VFT_UNKNOWN => 0;
use constant VFT_VXD => 5;
use constant VIFF_DONTDELETEOLD => 2;
use constant VIFF_FORCEINSTALL => 1;
use constant VIF_ACCESSVIOLATION => 512;
use constant VIF_BUFFTOOSMALL => 262144;
use constant VIF_CANNOTCREATE => 2048;
use constant VIF_CANNOTDELETE => 4096;
use constant VIF_CANNOTDELETECUR => 16384;
use constant VIF_CANNOTREADDST => 131072;
use constant VIF_CANNOTREADSRC => 65536;
use constant VIF_CANNOTRENAME => 8192;
use constant VIF_DIFFCODEPG => 16;
use constant VIF_DIFFLANG => 8;
use constant VIF_DIFFTYPE => 32;
use constant VIF_FILEINUSE => 128;
use constant VIF_MISMATCH => 2;
use constant VIF_OUTOFMEMORY => 32768;
use constant VIF_OUTOFSPACE => 256;
use constant VIF_SHARINGVIOLATION => 1024;
use constant VIF_SRCOLD => 4;
use constant VIF_TEMPFILE => 1;
use constant VIF_WRITEPROT => 64;
use constant VOS_DOS => 65536;
use constant VOS_DOS_WINDOWS16 => 65537;
use constant VOS_DOS_WINDOWS32 => 65540;
use constant VOS_NT => 262144;
use constant VOS_NT_WINDOWS32 => 262148;
use constant VOS_OS216 => 131072;
use constant VOS_OS216_PM16 => 131074;
use constant VOS_OS232 => 196608;
use constant VOS_OS232_PM32 => 196611;
use constant VOS_UNKNOWN => 0;
use constant VOS__BASE => 0;
use constant VOS__PM16 => 2;
use constant VOS__PM32 => 3;
use constant VOS__WINDOWS16 => 1;
use constant VOS__WINDOWS32 => 4;
use constant VS_FFI_FILEFLAGSMASK => 63;
use constant VS_FFI_SIGNATURE => -17890115;
use constant VS_FFI_STRUCVERSION => 65536;
use constant VS_FF_DEBUG => 1;
use constant VS_FF_INFOINFERRED => 16;
use constant VS_FF_PATCHED => 4;
use constant VS_FF_PRERELEASE => 2;
use constant VS_FF_PRIVATEBUILD => 8;
use constant VS_FF_SPECIALBUILD => 32;
use constant VS_FILE_INFO => 16;
use constant VS_USER_DEFINED => 100;
use constant VS_VERSION_INFO => 1;
1;
programs/winetest/make_symbols
View file @ f1d80a39
...@@ -46,6 +46,9 @@ foreach $basename (@list) ...@@ -46,6 +46,9 @@ foreach $basename (@list)
my $result = "include/" . $basename; my $result = "include/" . $basename;
$result =~ s!\.h$!.pm!; $result =~ s!\.h$!.pm!;
my $package = $basename;
$package =~ s/\.h$//;
open INPUT, "$include_dir/$basename" or die "Cannot open $include_dir/$basename"; open INPUT, "$include_dir/$basename" or die "Cannot open $include_dir/$basename";
open OUTPUT, ">sym.c" or die "Cannot create sym.c"; open OUTPUT, ">sym.c" or die "Cannot create sym.c";
print "Building $result\n"; print "Building $result\n";
...@@ -64,6 +67,17 @@ int main() ...@@ -64,6 +67,17 @@ int main()
printf( "#\\n" ); printf( "#\\n" );
printf( "# Perl definitions for header file $basename\\n" ); printf( "# Perl definitions for header file $basename\\n" );
printf( "#\\n\\n" ); printf( "#\\n\\n" );
printf( "\\n" );
printf( "package $package;\\n" );
printf( "\\n" );
printf( "use strict;\\n" );
printf( "\\n" );
printf( "use vars qw(\$VERSION \@ISA \@EXPORT \@EXPORT_OK);\\n" );
printf( "\\n" );
printf( "require Exporter;\\n" );
printf( "\\n" );
printf( "\@ISA = qw(Exporter);\\n" );
printf( "\@EXPORT = qw(\\n" );
EOF EOF
my %symbols = (); my %symbols = ();
...@@ -84,8 +98,18 @@ EOF ...@@ -84,8 +98,18 @@ EOF
} }
foreach $sym (sort keys %symbols) foreach $sym (sort keys %symbols)
{ {
printf OUTPUT " printf(\"\$$sym = %%d;\\n\", (int)($sym));\n"; printf OUTPUT " printf(\" $sym\\n\");\n";
}
printf OUTPUT " printf(\");\\n\");\n";
printf OUTPUT " printf(\"\@EXPORT_OK = qw();\\n\");\n";
printf OUTPUT " printf(\"\\n\");\n";
foreach $sym (sort keys %symbols)
{
printf OUTPUT " printf(\"use constant $sym => %%d;\\n\", (int)($sym));\n";
} }
printf OUTPUT " printf(\"\\n\");\n";
printf OUTPUT " printf(\"1;\\n\");\n";
print OUTPUT " exit(0);\n}\n"; print OUTPUT " exit(0);\n}\n";
close OUTPUT; close OUTPUT;
#print "cc -I../../include -o sym sym.c\n"; #print "cc -I../../include -o sym sym.c\n";
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment