- Made the Perl module generated by make_symbols a real exporting
module. - Use constants instead of variables.
This commit is contained in:
Patrik Stridvall
Alexandre Julliard
parent
04c160e507
commit
f1d80a3986
File diff suppressed because it is too large
Load Diff
|
|
@ -3,47 +3,107 @@
|
|||
# Perl definitions for header file wincon.h
|
||||
#
|
||||
|
||||
$BACKGROUND_BLUE = 16;
|
||||
$BACKGROUND_GREEN = 32;
|
||||
$BACKGROUND_INTENSITY = 128;
|
||||
$BACKGROUND_RED = 64;
|
||||
$CAPSLOCK_ON = 128;
|
||||
$CONSOLE_TEXTMODE_BUFFER = 1;
|
||||
$CTRL_BREAK_EVENT = 1;
|
||||
$CTRL_CLOSE_EVENT = 2;
|
||||
$CTRL_C_EVENT = 0;
|
||||
$CTRL_LOGOFF_EVENT = 5;
|
||||
$CTRL_SHUTDOWN_EVENT = 6;
|
||||
$DOUBLE_CLICK = 2;
|
||||
$ENABLE_ECHO_INPUT = 4;
|
||||
$ENABLE_LINE_INPUT = 2;
|
||||
$ENABLE_MOUSE_INPUT = 16;
|
||||
$ENABLE_PROCESSED_INPUT = 1;
|
||||
$ENABLE_PROCESSED_OUTPUT = 1;
|
||||
$ENABLE_WINDOW_INPUT = 8;
|
||||
$ENABLE_WRAP_AT_EOL_OUTPUT = 2;
|
||||
$ENHANCED_KEY = 256;
|
||||
$FOCUS_EVENT = 16;
|
||||
$FOREGROUND_BLUE = 1;
|
||||
$FOREGROUND_GREEN = 2;
|
||||
$FOREGROUND_INTENSITY = 8;
|
||||
$FOREGROUND_RED = 4;
|
||||
$FROM_LEFT_1ST_BUTTON_PRESSED = 1;
|
||||
$FROM_LEFT_2ND_BUTTON_PRESSED = 4;
|
||||
$FROM_LEFT_3RD_BUTTON_PRESSED = 8;
|
||||
$FROM_LEFT_4TH_BUTTON_PRESSED = 16;
|
||||
$KEY_EVENT = 1;
|
||||
$LEFT_ALT_PRESSED = 2;
|
||||
$LEFT_CTRL_PRESSED = 8;
|
||||
$MENU_EVENT = 8;
|
||||
$MOUSE_EVENT = 2;
|
||||
$MOUSE_MOVED = 1;
|
||||
$MOUSE_WHEELED = 4;
|
||||
$NUMLOCK_ON = 32;
|
||||
$RIGHTMOST_BUTTON_PRESSED = 2;
|
||||
$RIGHT_ALT_PRESSED = 1;
|
||||
$RIGHT_CTRL_PRESSED = 4;
|
||||
$SCROLLLOCK_ON = 64;
|
||||
$SHIFT_PRESSED = 16;
|
||||
$WINDOW_BUFFER_SIZE_EVENT = 4;
|
||||
$WINE_ENABLE_LINE_INPUT_EMACS = 128;
|
||||
|
||||
package wincon;
|
||||
|
||||
use strict;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
||||
|
||||
require Exporter;
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(
|
||||
BACKGROUND_BLUE
|
||||
BACKGROUND_GREEN
|
||||
BACKGROUND_INTENSITY
|
||||
BACKGROUND_RED
|
||||
CAPSLOCK_ON
|
||||
CONSOLE_TEXTMODE_BUFFER
|
||||
CTRL_BREAK_EVENT
|
||||
CTRL_CLOSE_EVENT
|
||||
CTRL_C_EVENT
|
||||
CTRL_LOGOFF_EVENT
|
||||
CTRL_SHUTDOWN_EVENT
|
||||
DOUBLE_CLICK
|
||||
ENABLE_ECHO_INPUT
|
||||
ENABLE_LINE_INPUT
|
||||
ENABLE_MOUSE_INPUT
|
||||
ENABLE_PROCESSED_INPUT
|
||||
ENABLE_PROCESSED_OUTPUT
|
||||
ENABLE_WINDOW_INPUT
|
||||
ENABLE_WRAP_AT_EOL_OUTPUT
|
||||
ENHANCED_KEY
|
||||
FOCUS_EVENT
|
||||
FOREGROUND_BLUE
|
||||
FOREGROUND_GREEN
|
||||
FOREGROUND_INTENSITY
|
||||
FOREGROUND_RED
|
||||
FROM_LEFT_1ST_BUTTON_PRESSED
|
||||
FROM_LEFT_2ND_BUTTON_PRESSED
|
||||
FROM_LEFT_3RD_BUTTON_PRESSED
|
||||
FROM_LEFT_4TH_BUTTON_PRESSED
|
||||
KEY_EVENT
|
||||
LEFT_ALT_PRESSED
|
||||
LEFT_CTRL_PRESSED
|
||||
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;
|
||||
|
|
|
|||
|
|
@ -3,11 +3,35 @@
|
|||
# Perl definitions for header file windef.h
|
||||
#
|
||||
|
||||
$HFILE_ERROR = -1;
|
||||
$MAX_PATH = 260;
|
||||
$WINVER = 1280;
|
||||
$_MAX_DIR = 256;
|
||||
$_MAX_DRIVE = 3;
|
||||
$_MAX_EXT = 256;
|
||||
$_MAX_FNAME = 256;
|
||||
$_MAX_PATH = 260;
|
||||
|
||||
package windef;
|
||||
|
||||
use strict;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
||||
|
||||
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;
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -3,257 +3,527 @@
|
|||
# Perl definitions for header file winnls.h
|
||||
#
|
||||
|
||||
$C1_ALPHA = 256;
|
||||
$C1_BLANK = 64;
|
||||
$C1_CNTRL = 32;
|
||||
$C1_DIGIT = 4;
|
||||
$C1_LOWER = 2;
|
||||
$C1_PUNCT = 16;
|
||||
$C1_SPACE = 8;
|
||||
$C1_UPPER = 1;
|
||||
$C1_XDIGIT = 128;
|
||||
$C2_ARABICNUMBER = 6;
|
||||
$C2_BLOCKSEPARATOR = 8;
|
||||
$C2_COMMONSEPARATOR = 7;
|
||||
$C2_EUROPENUMBER = 3;
|
||||
$C2_EUROPESEPARATOR = 4;
|
||||
$C2_EUROPETERMINATOR = 5;
|
||||
$C2_LEFTTORIGHT = 1;
|
||||
$C2_NOTAPPLICABLE = 0;
|
||||
$C2_OTHERNEUTRAL = 11;
|
||||
$C2_RIGHTTOLEFT = 2;
|
||||
$C2_SEGMENTSEPARATOR = 9;
|
||||
$C2_WHITESPACE = 10;
|
||||
$C3_ALPHA = 32768;
|
||||
$C3_DIACRITIC = 2;
|
||||
$C3_FULLWIDTH = 128;
|
||||
$C3_HALFWIDTH = 64;
|
||||
$C3_HIRAGANA = 32;
|
||||
$C3_IDEOGRAPH = 256;
|
||||
$C3_KASHIDA = 512;
|
||||
$C3_KATAKANA = 16;
|
||||
$C3_LEXICAL = 1024;
|
||||
$C3_NONSPACING = 1;
|
||||
$C3_NOTAPPLICABLE = 0;
|
||||
$C3_SYMBOL = 8;
|
||||
$C3_VOWELMARK = 4;
|
||||
$CAL_GREGORIAN = 1;
|
||||
$CAL_GREGORIAN_ARABIC = 10;
|
||||
$CAL_GREGORIAN_ME_FRENCH = 9;
|
||||
$CAL_GREGORIAN_US = 2;
|
||||
$CAL_GREGORIAN_XLIT_ENGLISH = 11;
|
||||
$CAL_GREGORIAN_XLIT_FRENCH = 12;
|
||||
$CAL_HEBREW = 8;
|
||||
$CAL_HIJRI = 6;
|
||||
$CAL_ICALINTVALUE = 1;
|
||||
$CAL_IYEAROFFSETRANGE = 3;
|
||||
$CAL_JAPAN = 3;
|
||||
$CAL_KOREA = 5;
|
||||
$CAL_SABBREVDAYNAME1 = 14;
|
||||
$CAL_SABBREVDAYNAME2 = 15;
|
||||
$CAL_SABBREVDAYNAME3 = 16;
|
||||
$CAL_SABBREVDAYNAME4 = 17;
|
||||
$CAL_SABBREVDAYNAME5 = 18;
|
||||
$CAL_SABBREVDAYNAME6 = 19;
|
||||
$CAL_SABBREVDAYNAME7 = 20;
|
||||
$CAL_SABBREVMONTHNAME1 = 34;
|
||||
$CAL_SABBREVMONTHNAME10 = 43;
|
||||
$CAL_SABBREVMONTHNAME11 = 44;
|
||||
$CAL_SABBREVMONTHNAME12 = 45;
|
||||
$CAL_SABBREVMONTHNAME13 = 46;
|
||||
$CAL_SABBREVMONTHNAME2 = 35;
|
||||
$CAL_SABBREVMONTHNAME3 = 36;
|
||||
$CAL_SABBREVMONTHNAME4 = 37;
|
||||
$CAL_SABBREVMONTHNAME5 = 38;
|
||||
$CAL_SABBREVMONTHNAME6 = 39;
|
||||
$CAL_SABBREVMONTHNAME7 = 40;
|
||||
$CAL_SABBREVMONTHNAME8 = 41;
|
||||
$CAL_SABBREVMONTHNAME9 = 42;
|
||||
$CAL_SCALNAME = 2;
|
||||
$CAL_SDAYNAME1 = 7;
|
||||
$CAL_SDAYNAME2 = 8;
|
||||
$CAL_SDAYNAME3 = 9;
|
||||
$CAL_SDAYNAME4 = 10;
|
||||
$CAL_SDAYNAME5 = 11;
|
||||
$CAL_SDAYNAME6 = 12;
|
||||
$CAL_SDAYNAME7 = 13;
|
||||
$CAL_SERASTRING = 4;
|
||||
$CAL_SLONGDATE = 6;
|
||||
$CAL_SMONTHNAME1 = 21;
|
||||
$CAL_SMONTHNAME10 = 30;
|
||||
$CAL_SMONTHNAME11 = 31;
|
||||
$CAL_SMONTHNAME12 = 32;
|
||||
$CAL_SMONTHNAME13 = 33;
|
||||
$CAL_SMONTHNAME2 = 22;
|
||||
$CAL_SMONTHNAME3 = 23;
|
||||
$CAL_SMONTHNAME4 = 24;
|
||||
$CAL_SMONTHNAME5 = 25;
|
||||
$CAL_SMONTHNAME6 = 26;
|
||||
$CAL_SMONTHNAME7 = 27;
|
||||
$CAL_SMONTHNAME8 = 28;
|
||||
$CAL_SMONTHNAME9 = 29;
|
||||
$CAL_SSHORTDATE = 5;
|
||||
$CAL_SYEARMONTH = 47;
|
||||
$CAL_TAIWAN = 4;
|
||||
$CAL_THAI = 7;
|
||||
$CP_ACP = 0;
|
||||
$CP_MACCP = 2;
|
||||
$CP_OEMCP = 1;
|
||||
$CP_SYMBOL = 42;
|
||||
$CP_THREAD_ACP = 3;
|
||||
$CP_UTF7 = 65000;
|
||||
$CP_UTF8 = 65001;
|
||||
$CT_CTYPE1 = 1;
|
||||
$CT_CTYPE2 = 2;
|
||||
$CT_CTYPE3 = 4;
|
||||
$DATE_DATEVARSONLY = 256;
|
||||
$DATE_LONGDATE = 2;
|
||||
$DATE_SHORTDATE = 1;
|
||||
$DATE_USE_ALT_CALENDAR = 4;
|
||||
$ITU_IMPLEMENTED_TESTS = 520;
|
||||
$LCID_INSTALLED = 1;
|
||||
$LCMAP_BYTEREV = 2048;
|
||||
$LCMAP_FULLWIDTH = 8388608;
|
||||
$LCMAP_HALFWIDTH = 4194304;
|
||||
$LCMAP_HIRAGANA = 1048576;
|
||||
$LCMAP_KATAKANA = 2097152;
|
||||
$LCMAP_LOWERCASE = 256;
|
||||
$LCMAP_SORTKEY = 1024;
|
||||
$LCMAP_UPPERCASE = 512;
|
||||
$LOCALE_FONTSIGNATURE = 88;
|
||||
$LOCALE_ICALENDARTYPE = 4105;
|
||||
$LOCALE_ICENTURY = 36;
|
||||
$LOCALE_ICOUNTRY = 5;
|
||||
$LOCALE_ICURRDIGITS = 25;
|
||||
$LOCALE_ICURRENCY = 27;
|
||||
$LOCALE_IDATE = 33;
|
||||
$LOCALE_IDAYLZERO = 38;
|
||||
$LOCALE_IDEFAULTANSICODEPAGE = 4100;
|
||||
$LOCALE_IDEFAULTCODEPAGE = 11;
|
||||
$LOCALE_IDEFAULTCOUNTRY = 10;
|
||||
$LOCALE_IDEFAULTEBCDICCODEPAGE = 4114;
|
||||
$LOCALE_IDEFAULTLANGUAGE = 9;
|
||||
$LOCALE_IDEFAULTMACCODEPAGE = 4113;
|
||||
$LOCALE_IDIGITS = 17;
|
||||
$LOCALE_IDIGITSUBSTITUTION = 4116;
|
||||
$LOCALE_IFIRSTDAYOFWEEK = 4108;
|
||||
$LOCALE_IFIRSTWEEKOFYEAR = 4109;
|
||||
$LOCALE_IINTLCURRDIGITS = 26;
|
||||
$LOCALE_ILANGUAGE = 1;
|
||||
$LOCALE_ILDATE = 34;
|
||||
$LOCALE_ILZERO = 18;
|
||||
$LOCALE_IMEASURE = 13;
|
||||
$LOCALE_IMONLZERO = 39;
|
||||
$LOCALE_INEGCURR = 28;
|
||||
$LOCALE_INEGNUMBER = 4112;
|
||||
$LOCALE_INEGSEPBYSPACE = 87;
|
||||
$LOCALE_INEGSIGNPOSN = 83;
|
||||
$LOCALE_INEGSYMPRECEDES = 86;
|
||||
$LOCALE_IOPTIONALCALENDAR = 4107;
|
||||
$LOCALE_IPAPERSIZE = 4106;
|
||||
$LOCALE_IPOSSEPBYSPACE = 85;
|
||||
$LOCALE_IPOSSIGNPOSN = 82;
|
||||
$LOCALE_IPOSSYMPRECEDES = 84;
|
||||
$LOCALE_ITIME = 35;
|
||||
$LOCALE_ITIMEMARKPOSN = 4101;
|
||||
$LOCALE_ITLZERO = 37;
|
||||
$LOCALE_LOCALEINFOFLAGSMASK = -1073741824;
|
||||
$LOCALE_NOUSEROVERRIDE = -2147483648;
|
||||
$LOCALE_S1159 = 40;
|
||||
$LOCALE_S2359 = 41;
|
||||
$LOCALE_SABBREVCTRYNAME = 7;
|
||||
$LOCALE_SABBREVDAYNAME1 = 49;
|
||||
$LOCALE_SABBREVDAYNAME2 = 50;
|
||||
$LOCALE_SABBREVDAYNAME3 = 51;
|
||||
$LOCALE_SABBREVDAYNAME4 = 52;
|
||||
$LOCALE_SABBREVDAYNAME5 = 53;
|
||||
$LOCALE_SABBREVDAYNAME6 = 54;
|
||||
$LOCALE_SABBREVDAYNAME7 = 55;
|
||||
$LOCALE_SABBREVLANGNAME = 3;
|
||||
$LOCALE_SABBREVMONTHNAME1 = 68;
|
||||
$LOCALE_SABBREVMONTHNAME10 = 77;
|
||||
$LOCALE_SABBREVMONTHNAME11 = 78;
|
||||
$LOCALE_SABBREVMONTHNAME12 = 79;
|
||||
$LOCALE_SABBREVMONTHNAME13 = 4111;
|
||||
$LOCALE_SABBREVMONTHNAME2 = 69;
|
||||
$LOCALE_SABBREVMONTHNAME3 = 70;
|
||||
$LOCALE_SABBREVMONTHNAME4 = 71;
|
||||
$LOCALE_SABBREVMONTHNAME5 = 72;
|
||||
$LOCALE_SABBREVMONTHNAME6 = 73;
|
||||
$LOCALE_SABBREVMONTHNAME7 = 74;
|
||||
$LOCALE_SABBREVMONTHNAME8 = 75;
|
||||
$LOCALE_SABBREVMONTHNAME9 = 76;
|
||||
$LOCALE_SCOUNTRY = 6;
|
||||
$LOCALE_SCURRENCY = 20;
|
||||
$LOCALE_SDATE = 29;
|
||||
$LOCALE_SDAYNAME1 = 42;
|
||||
$LOCALE_SDAYNAME2 = 43;
|
||||
$LOCALE_SDAYNAME3 = 44;
|
||||
$LOCALE_SDAYNAME4 = 45;
|
||||
$LOCALE_SDAYNAME5 = 46;
|
||||
$LOCALE_SDAYNAME6 = 47;
|
||||
$LOCALE_SDAYNAME7 = 48;
|
||||
$LOCALE_SDECIMAL = 14;
|
||||
$LOCALE_SENGCOUNTRY = 4098;
|
||||
$LOCALE_SENGCURRNAME = 4103;
|
||||
$LOCALE_SENGLANGUAGE = 4097;
|
||||
$LOCALE_SGROUPING = 16;
|
||||
$LOCALE_SINTLSYMBOL = 21;
|
||||
$LOCALE_SISO3166CTRYNAME = 90;
|
||||
$LOCALE_SISO639LANGNAME = 89;
|
||||
$LOCALE_SLANGUAGE = 2;
|
||||
$LOCALE_SLIST = 12;
|
||||
$LOCALE_SLONGDATE = 32;
|
||||
$LOCALE_SMONDECIMALSEP = 22;
|
||||
$LOCALE_SMONGROUPING = 24;
|
||||
$LOCALE_SMONTHNAME1 = 56;
|
||||
$LOCALE_SMONTHNAME10 = 65;
|
||||
$LOCALE_SMONTHNAME11 = 66;
|
||||
$LOCALE_SMONTHNAME12 = 67;
|
||||
$LOCALE_SMONTHNAME13 = 4110;
|
||||
$LOCALE_SMONTHNAME2 = 57;
|
||||
$LOCALE_SMONTHNAME3 = 58;
|
||||
$LOCALE_SMONTHNAME4 = 59;
|
||||
$LOCALE_SMONTHNAME5 = 60;
|
||||
$LOCALE_SMONTHNAME6 = 61;
|
||||
$LOCALE_SMONTHNAME7 = 62;
|
||||
$LOCALE_SMONTHNAME8 = 63;
|
||||
$LOCALE_SMONTHNAME9 = 64;
|
||||
$LOCALE_SMONTHOUSANDSEP = 23;
|
||||
$LOCALE_SNATIVECTRYNAME = 8;
|
||||
$LOCALE_SNATIVECURRNAME = 4104;
|
||||
$LOCALE_SNATIVEDIGITS = 19;
|
||||
$LOCALE_SNATIVELANGNAME = 4;
|
||||
$LOCALE_SNEGATIVESIGN = 81;
|
||||
$LOCALE_SPOSITIVESIGN = 80;
|
||||
$LOCALE_SSHORTDATE = 31;
|
||||
$LOCALE_SSORTNAME = 4115;
|
||||
$LOCALE_STHOUSAND = 15;
|
||||
$LOCALE_STIME = 30;
|
||||
$LOCALE_STIMEFORMAT = 4099;
|
||||
$LOCALE_SYEARMONTH = 4102;
|
||||
$LOCALE_TIMEDATEBOTH = 768;
|
||||
$LOCALE_USE_CP_ACP = 1073741824;
|
||||
$MAX_DEFAULTCHAR = 2;
|
||||
$MAX_LEADBYTES = 12;
|
||||
$MB_COMPOSITE = 2;
|
||||
$MB_ERR_INVALID_CHARS = 8;
|
||||
$MB_PRECOMPOSED = 1;
|
||||
$MB_USEGLYPHCHARS = 4;
|
||||
$NORM_IGNORECASE = 1;
|
||||
$NORM_IGNOREKANATYPE = 65536;
|
||||
$NORM_IGNORENONSPACE = 2;
|
||||
$NORM_IGNORESYMBOLS = 4;
|
||||
$NORM_IGNOREWIDTH = 131072;
|
||||
$NORM_STRINGSORT = 4096;
|
||||
$SORT_STRINGSORT = 4096;
|
||||
$TIME_FORCE24HOURFORMAT = 8;
|
||||
$TIME_NOMINUTESORSECONDS = 1;
|
||||
$TIME_NOSECONDS = 2;
|
||||
$TIME_NOTIMEMARKER = 4;
|
||||
$TIME_TIMEVARSONLY = 512;
|
||||
$WC_COMPOSITECHECK = 512;
|
||||
$WC_DEFAULTCHAR = 64;
|
||||
$WC_DISCARDNS = 16;
|
||||
$WC_NO_BEST_FIT_CHARS = 1024;
|
||||
$WC_SEPCHARS = 32;
|
||||
|
||||
package winnls;
|
||||
|
||||
use strict;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
||||
|
||||
require Exporter;
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(
|
||||
C1_ALPHA
|
||||
C1_BLANK
|
||||
C1_CNTRL
|
||||
C1_DIGIT
|
||||
C1_LOWER
|
||||
C1_PUNCT
|
||||
C1_SPACE
|
||||
C1_UPPER
|
||||
C1_XDIGIT
|
||||
C2_ARABICNUMBER
|
||||
C2_BLOCKSEPARATOR
|
||||
C2_COMMONSEPARATOR
|
||||
C2_EUROPENUMBER
|
||||
C2_EUROPESEPARATOR
|
||||
C2_EUROPETERMINATOR
|
||||
C2_LEFTTORIGHT
|
||||
C2_NOTAPPLICABLE
|
||||
C2_OTHERNEUTRAL
|
||||
C2_RIGHTTOLEFT
|
||||
C2_SEGMENTSEPARATOR
|
||||
C2_WHITESPACE
|
||||
C3_ALPHA
|
||||
C3_DIACRITIC
|
||||
C3_FULLWIDTH
|
||||
C3_HALFWIDTH
|
||||
C3_HIRAGANA
|
||||
C3_IDEOGRAPH
|
||||
C3_KASHIDA
|
||||
C3_KATAKANA
|
||||
C3_LEXICAL
|
||||
C3_NONSPACING
|
||||
C3_NOTAPPLICABLE
|
||||
C3_SYMBOL
|
||||
C3_VOWELMARK
|
||||
CAL_GREGORIAN
|
||||
CAL_GREGORIAN_ARABIC
|
||||
CAL_GREGORIAN_ME_FRENCH
|
||||
CAL_GREGORIAN_US
|
||||
CAL_GREGORIAN_XLIT_ENGLISH
|
||||
CAL_GREGORIAN_XLIT_FRENCH
|
||||
CAL_HEBREW
|
||||
CAL_HIJRI
|
||||
CAL_ICALINTVALUE
|
||||
CAL_IYEAROFFSETRANGE
|
||||
CAL_JAPAN
|
||||
CAL_KOREA
|
||||
CAL_SABBREVDAYNAME1
|
||||
CAL_SABBREVDAYNAME2
|
||||
CAL_SABBREVDAYNAME3
|
||||
CAL_SABBREVDAYNAME4
|
||||
CAL_SABBREVDAYNAME5
|
||||
CAL_SABBREVDAYNAME6
|
||||
CAL_SABBREVDAYNAME7
|
||||
CAL_SABBREVMONTHNAME1
|
||||
CAL_SABBREVMONTHNAME10
|
||||
CAL_SABBREVMONTHNAME11
|
||||
CAL_SABBREVMONTHNAME12
|
||||
CAL_SABBREVMONTHNAME13
|
||||
CAL_SABBREVMONTHNAME2
|
||||
CAL_SABBREVMONTHNAME3
|
||||
CAL_SABBREVMONTHNAME4
|
||||
CAL_SABBREVMONTHNAME5
|
||||
CAL_SABBREVMONTHNAME6
|
||||
CAL_SABBREVMONTHNAME7
|
||||
CAL_SABBREVMONTHNAME8
|
||||
CAL_SABBREVMONTHNAME9
|
||||
CAL_SCALNAME
|
||||
CAL_SDAYNAME1
|
||||
CAL_SDAYNAME2
|
||||
CAL_SDAYNAME3
|
||||
CAL_SDAYNAME4
|
||||
CAL_SDAYNAME5
|
||||
CAL_SDAYNAME6
|
||||
CAL_SDAYNAME7
|
||||
CAL_SERASTRING
|
||||
CAL_SLONGDATE
|
||||
CAL_SMONTHNAME1
|
||||
CAL_SMONTHNAME10
|
||||
CAL_SMONTHNAME11
|
||||
CAL_SMONTHNAME12
|
||||
CAL_SMONTHNAME13
|
||||
CAL_SMONTHNAME2
|
||||
CAL_SMONTHNAME3
|
||||
CAL_SMONTHNAME4
|
||||
CAL_SMONTHNAME5
|
||||
CAL_SMONTHNAME6
|
||||
CAL_SMONTHNAME7
|
||||
CAL_SMONTHNAME8
|
||||
CAL_SMONTHNAME9
|
||||
CAL_SSHORTDATE
|
||||
CAL_SYEARMONTH
|
||||
CAL_TAIWAN
|
||||
CAL_THAI
|
||||
CP_ACP
|
||||
CP_MACCP
|
||||
CP_OEMCP
|
||||
CP_SYMBOL
|
||||
CP_THREAD_ACP
|
||||
CP_UTF7
|
||||
CP_UTF8
|
||||
CT_CTYPE1
|
||||
CT_CTYPE2
|
||||
CT_CTYPE3
|
||||
DATE_DATEVARSONLY
|
||||
DATE_LONGDATE
|
||||
DATE_SHORTDATE
|
||||
DATE_USE_ALT_CALENDAR
|
||||
ITU_IMPLEMENTED_TESTS
|
||||
LCID_INSTALLED
|
||||
LCMAP_BYTEREV
|
||||
LCMAP_FULLWIDTH
|
||||
LCMAP_HALFWIDTH
|
||||
LCMAP_HIRAGANA
|
||||
LCMAP_KATAKANA
|
||||
LCMAP_LOWERCASE
|
||||
LCMAP_SORTKEY
|
||||
LCMAP_UPPERCASE
|
||||
LOCALE_FONTSIGNATURE
|
||||
LOCALE_ICALENDARTYPE
|
||||
LOCALE_ICENTURY
|
||||
LOCALE_ICOUNTRY
|
||||
LOCALE_ICURRDIGITS
|
||||
LOCALE_ICURRENCY
|
||||
LOCALE_IDATE
|
||||
LOCALE_IDAYLZERO
|
||||
LOCALE_IDEFAULTANSICODEPAGE
|
||||
LOCALE_IDEFAULTCODEPAGE
|
||||
LOCALE_IDEFAULTCOUNTRY
|
||||
LOCALE_IDEFAULTEBCDICCODEPAGE
|
||||
LOCALE_IDEFAULTLANGUAGE
|
||||
LOCALE_IDEFAULTMACCODEPAGE
|
||||
LOCALE_IDIGITS
|
||||
LOCALE_IDIGITSUBSTITUTION
|
||||
LOCALE_IFIRSTDAYOFWEEK
|
||||
LOCALE_IFIRSTWEEKOFYEAR
|
||||
LOCALE_IINTLCURRDIGITS
|
||||
LOCALE_ILANGUAGE
|
||||
LOCALE_ILDATE
|
||||
LOCALE_ILZERO
|
||||
LOCALE_IMEASURE
|
||||
LOCALE_IMONLZERO
|
||||
LOCALE_INEGCURR
|
||||
LOCALE_INEGNUMBER
|
||||
LOCALE_INEGSEPBYSPACE
|
||||
LOCALE_INEGSIGNPOSN
|
||||
LOCALE_INEGSYMPRECEDES
|
||||
LOCALE_IOPTIONALCALENDAR
|
||||
LOCALE_IPAPERSIZE
|
||||
LOCALE_IPOSSEPBYSPACE
|
||||
LOCALE_IPOSSIGNPOSN
|
||||
LOCALE_IPOSSYMPRECEDES
|
||||
LOCALE_ITIME
|
||||
LOCALE_ITIMEMARKPOSN
|
||||
LOCALE_ITLZERO
|
||||
LOCALE_LOCALEINFOFLAGSMASK
|
||||
LOCALE_NOUSEROVERRIDE
|
||||
LOCALE_S1159
|
||||
LOCALE_S2359
|
||||
LOCALE_SABBREVCTRYNAME
|
||||
LOCALE_SABBREVDAYNAME1
|
||||
LOCALE_SABBREVDAYNAME2
|
||||
LOCALE_SABBREVDAYNAME3
|
||||
LOCALE_SABBREVDAYNAME4
|
||||
LOCALE_SABBREVDAYNAME5
|
||||
LOCALE_SABBREVDAYNAME6
|
||||
LOCALE_SABBREVDAYNAME7
|
||||
LOCALE_SABBREVLANGNAME
|
||||
LOCALE_SABBREVMONTHNAME1
|
||||
LOCALE_SABBREVMONTHNAME10
|
||||
LOCALE_SABBREVMONTHNAME11
|
||||
LOCALE_SABBREVMONTHNAME12
|
||||
LOCALE_SABBREVMONTHNAME13
|
||||
LOCALE_SABBREVMONTHNAME2
|
||||
LOCALE_SABBREVMONTHNAME3
|
||||
LOCALE_SABBREVMONTHNAME4
|
||||
LOCALE_SABBREVMONTHNAME5
|
||||
LOCALE_SABBREVMONTHNAME6
|
||||
LOCALE_SABBREVMONTHNAME7
|
||||
LOCALE_SABBREVMONTHNAME8
|
||||
LOCALE_SABBREVMONTHNAME9
|
||||
LOCALE_SCOUNTRY
|
||||
LOCALE_SCURRENCY
|
||||
LOCALE_SDATE
|
||||
LOCALE_SDAYNAME1
|
||||
LOCALE_SDAYNAME2
|
||||
LOCALE_SDAYNAME3
|
||||
LOCALE_SDAYNAME4
|
||||
LOCALE_SDAYNAME5
|
||||
LOCALE_SDAYNAME6
|
||||
LOCALE_SDAYNAME7
|
||||
LOCALE_SDECIMAL
|
||||
LOCALE_SENGCOUNTRY
|
||||
LOCALE_SENGCURRNAME
|
||||
LOCALE_SENGLANGUAGE
|
||||
LOCALE_SGROUPING
|
||||
LOCALE_SINTLSYMBOL
|
||||
LOCALE_SISO3166CTRYNAME
|
||||
LOCALE_SISO639LANGNAME
|
||||
LOCALE_SLANGUAGE
|
||||
LOCALE_SLIST
|
||||
LOCALE_SLONGDATE
|
||||
LOCALE_SMONDECIMALSEP
|
||||
LOCALE_SMONGROUPING
|
||||
LOCALE_SMONTHNAME1
|
||||
LOCALE_SMONTHNAME10
|
||||
LOCALE_SMONTHNAME11
|
||||
LOCALE_SMONTHNAME12
|
||||
LOCALE_SMONTHNAME13
|
||||
LOCALE_SMONTHNAME2
|
||||
LOCALE_SMONTHNAME3
|
||||
LOCALE_SMONTHNAME4
|
||||
LOCALE_SMONTHNAME5
|
||||
LOCALE_SMONTHNAME6
|
||||
LOCALE_SMONTHNAME7
|
||||
LOCALE_SMONTHNAME8
|
||||
LOCALE_SMONTHNAME9
|
||||
LOCALE_SMONTHOUSANDSEP
|
||||
LOCALE_SNATIVECTRYNAME
|
||||
LOCALE_SNATIVECURRNAME
|
||||
LOCALE_SNATIVEDIGITS
|
||||
LOCALE_SNATIVELANGNAME
|
||||
LOCALE_SNEGATIVESIGN
|
||||
LOCALE_SPOSITIVESIGN
|
||||
LOCALE_SSHORTDATE
|
||||
LOCALE_SSORTNAME
|
||||
LOCALE_STHOUSAND
|
||||
LOCALE_STIME
|
||||
LOCALE_STIMEFORMAT
|
||||
LOCALE_SYEARMONTH
|
||||
LOCALE_TIMEDATEBOTH
|
||||
LOCALE_USE_CP_ACP
|
||||
MAX_DEFAULTCHAR
|
||||
MAX_LEADBYTES
|
||||
MB_COMPOSITE
|
||||
MB_ERR_INVALID_CHARS
|
||||
MB_PRECOMPOSED
|
||||
MB_USEGLYPHCHARS
|
||||
NORM_IGNORECASE
|
||||
NORM_IGNOREKANATYPE
|
||||
NORM_IGNORENONSPACE
|
||||
NORM_IGNORESYMBOLS
|
||||
NORM_IGNOREWIDTH
|
||||
NORM_STRINGSORT
|
||||
SORT_STRINGSORT
|
||||
TIME_FORCE24HOURFORMAT
|
||||
TIME_NOMINUTESORSECONDS
|
||||
TIME_NOSECONDS
|
||||
TIME_NOTIMEMARKER
|
||||
TIME_TIMEVARSONLY
|
||||
WC_COMPOSITECHECK
|
||||
WC_DEFAULTCHAR
|
||||
WC_DISCARDNS
|
||||
WC_NO_BEST_FIT_CHARS
|
||||
WC_SEPCHARS
|
||||
);
|
||||
@EXPORT_OK = qw();
|
||||
|
||||
use constant C1_ALPHA => 256;
|
||||
use constant C1_BLANK => 64;
|
||||
use constant C1_CNTRL => 32;
|
||||
use constant C1_DIGIT => 4;
|
||||
use constant C1_LOWER => 2;
|
||||
use constant C1_PUNCT => 16;
|
||||
use constant C1_SPACE => 8;
|
||||
use constant C1_UPPER => 1;
|
||||
use constant C1_XDIGIT => 128;
|
||||
use constant C2_ARABICNUMBER => 6;
|
||||
use constant C2_BLOCKSEPARATOR => 8;
|
||||
use constant C2_COMMONSEPARATOR => 7;
|
||||
use constant C2_EUROPENUMBER => 3;
|
||||
use constant C2_EUROPESEPARATOR => 4;
|
||||
use constant C2_EUROPETERMINATOR => 5;
|
||||
use constant C2_LEFTTORIGHT => 1;
|
||||
use constant C2_NOTAPPLICABLE => 0;
|
||||
use constant C2_OTHERNEUTRAL => 11;
|
||||
use constant C2_RIGHTTOLEFT => 2;
|
||||
use constant C2_SEGMENTSEPARATOR => 9;
|
||||
use constant C2_WHITESPACE => 10;
|
||||
use constant C3_ALPHA => 32768;
|
||||
use constant C3_DIACRITIC => 2;
|
||||
use constant C3_FULLWIDTH => 128;
|
||||
use constant C3_HALFWIDTH => 64;
|
||||
use constant C3_HIRAGANA => 32;
|
||||
use constant C3_IDEOGRAPH => 256;
|
||||
use constant C3_KASHIDA => 512;
|
||||
use constant C3_KATAKANA => 16;
|
||||
use constant C3_LEXICAL => 1024;
|
||||
use constant C3_NONSPACING => 1;
|
||||
use constant C3_NOTAPPLICABLE => 0;
|
||||
use constant C3_SYMBOL => 8;
|
||||
use constant C3_VOWELMARK => 4;
|
||||
use constant CAL_GREGORIAN => 1;
|
||||
use constant CAL_GREGORIAN_ARABIC => 10;
|
||||
use constant CAL_GREGORIAN_ME_FRENCH => 9;
|
||||
use constant CAL_GREGORIAN_US => 2;
|
||||
use constant CAL_GREGORIAN_XLIT_ENGLISH => 11;
|
||||
use constant CAL_GREGORIAN_XLIT_FRENCH => 12;
|
||||
use constant CAL_HEBREW => 8;
|
||||
use constant CAL_HIJRI => 6;
|
||||
use constant CAL_ICALINTVALUE => 1;
|
||||
use constant CAL_IYEAROFFSETRANGE => 3;
|
||||
use constant CAL_JAPAN => 3;
|
||||
use constant CAL_KOREA => 5;
|
||||
use constant CAL_SABBREVDAYNAME1 => 14;
|
||||
use constant CAL_SABBREVDAYNAME2 => 15;
|
||||
use constant CAL_SABBREVDAYNAME3 => 16;
|
||||
use constant CAL_SABBREVDAYNAME4 => 17;
|
||||
use constant CAL_SABBREVDAYNAME5 => 18;
|
||||
use constant CAL_SABBREVDAYNAME6 => 19;
|
||||
use constant CAL_SABBREVDAYNAME7 => 20;
|
||||
use constant CAL_SABBREVMONTHNAME1 => 34;
|
||||
use constant CAL_SABBREVMONTHNAME10 => 43;
|
||||
use constant CAL_SABBREVMONTHNAME11 => 44;
|
||||
use constant CAL_SABBREVMONTHNAME12 => 45;
|
||||
use constant CAL_SABBREVMONTHNAME13 => 46;
|
||||
use constant CAL_SABBREVMONTHNAME2 => 35;
|
||||
use constant CAL_SABBREVMONTHNAME3 => 36;
|
||||
use constant CAL_SABBREVMONTHNAME4 => 37;
|
||||
use constant CAL_SABBREVMONTHNAME5 => 38;
|
||||
use constant CAL_SABBREVMONTHNAME6 => 39;
|
||||
use constant CAL_SABBREVMONTHNAME7 => 40;
|
||||
use constant CAL_SABBREVMONTHNAME8 => 41;
|
||||
use constant CAL_SABBREVMONTHNAME9 => 42;
|
||||
use constant CAL_SCALNAME => 2;
|
||||
use constant CAL_SDAYNAME1 => 7;
|
||||
use constant CAL_SDAYNAME2 => 8;
|
||||
use constant CAL_SDAYNAME3 => 9;
|
||||
use constant CAL_SDAYNAME4 => 10;
|
||||
use constant CAL_SDAYNAME5 => 11;
|
||||
use constant CAL_SDAYNAME6 => 12;
|
||||
use constant CAL_SDAYNAME7 => 13;
|
||||
use constant CAL_SERASTRING => 4;
|
||||
use constant CAL_SLONGDATE => 6;
|
||||
use constant CAL_SMONTHNAME1 => 21;
|
||||
use constant CAL_SMONTHNAME10 => 30;
|
||||
use constant CAL_SMONTHNAME11 => 31;
|
||||
use constant CAL_SMONTHNAME12 => 32;
|
||||
use constant CAL_SMONTHNAME13 => 33;
|
||||
use constant CAL_SMONTHNAME2 => 22;
|
||||
use constant CAL_SMONTHNAME3 => 23;
|
||||
use constant CAL_SMONTHNAME4 => 24;
|
||||
use constant CAL_SMONTHNAME5 => 25;
|
||||
use constant CAL_SMONTHNAME6 => 26;
|
||||
use constant CAL_SMONTHNAME7 => 27;
|
||||
use constant CAL_SMONTHNAME8 => 28;
|
||||
use constant CAL_SMONTHNAME9 => 29;
|
||||
use constant CAL_SSHORTDATE => 5;
|
||||
use constant CAL_SYEARMONTH => 47;
|
||||
use constant CAL_TAIWAN => 4;
|
||||
use constant CAL_THAI => 7;
|
||||
use constant CP_ACP => 0;
|
||||
use constant CP_MACCP => 2;
|
||||
use constant CP_OEMCP => 1;
|
||||
use constant CP_SYMBOL => 42;
|
||||
use constant CP_THREAD_ACP => 3;
|
||||
use constant CP_UTF7 => 65000;
|
||||
use constant CP_UTF8 => 65001;
|
||||
use constant CT_CTYPE1 => 1;
|
||||
use constant CT_CTYPE2 => 2;
|
||||
use constant CT_CTYPE3 => 4;
|
||||
use constant DATE_DATEVARSONLY => 256;
|
||||
use constant DATE_LONGDATE => 2;
|
||||
use constant DATE_SHORTDATE => 1;
|
||||
use constant DATE_USE_ALT_CALENDAR => 4;
|
||||
use constant ITU_IMPLEMENTED_TESTS => 520;
|
||||
use constant LCID_INSTALLED => 1;
|
||||
use constant LCMAP_BYTEREV => 2048;
|
||||
use constant LCMAP_FULLWIDTH => 8388608;
|
||||
use constant LCMAP_HALFWIDTH => 4194304;
|
||||
use constant LCMAP_HIRAGANA => 1048576;
|
||||
use constant LCMAP_KATAKANA => 2097152;
|
||||
use constant LCMAP_LOWERCASE => 256;
|
||||
use constant LCMAP_SORTKEY => 1024;
|
||||
use constant LCMAP_UPPERCASE => 512;
|
||||
use constant LOCALE_FONTSIGNATURE => 88;
|
||||
use constant LOCALE_ICALENDARTYPE => 4105;
|
||||
use constant LOCALE_ICENTURY => 36;
|
||||
use constant LOCALE_ICOUNTRY => 5;
|
||||
use constant LOCALE_ICURRDIGITS => 25;
|
||||
use constant LOCALE_ICURRENCY => 27;
|
||||
use constant LOCALE_IDATE => 33;
|
||||
use constant LOCALE_IDAYLZERO => 38;
|
||||
use constant LOCALE_IDEFAULTANSICODEPAGE => 4100;
|
||||
use constant LOCALE_IDEFAULTCODEPAGE => 11;
|
||||
use constant LOCALE_IDEFAULTCOUNTRY => 10;
|
||||
use constant LOCALE_IDEFAULTEBCDICCODEPAGE => 4114;
|
||||
use constant LOCALE_IDEFAULTLANGUAGE => 9;
|
||||
use constant LOCALE_IDEFAULTMACCODEPAGE => 4113;
|
||||
use constant LOCALE_IDIGITS => 17;
|
||||
use constant LOCALE_IDIGITSUBSTITUTION => 4116;
|
||||
use constant LOCALE_IFIRSTDAYOFWEEK => 4108;
|
||||
use constant LOCALE_IFIRSTWEEKOFYEAR => 4109;
|
||||
use constant LOCALE_IINTLCURRDIGITS => 26;
|
||||
use constant LOCALE_ILANGUAGE => 1;
|
||||
use constant LOCALE_ILDATE => 34;
|
||||
use constant LOCALE_ILZERO => 18;
|
||||
use constant LOCALE_IMEASURE => 13;
|
||||
use constant LOCALE_IMONLZERO => 39;
|
||||
use constant LOCALE_INEGCURR => 28;
|
||||
use constant LOCALE_INEGNUMBER => 4112;
|
||||
use constant LOCALE_INEGSEPBYSPACE => 87;
|
||||
use constant LOCALE_INEGSIGNPOSN => 83;
|
||||
use constant LOCALE_INEGSYMPRECEDES => 86;
|
||||
use constant LOCALE_IOPTIONALCALENDAR => 4107;
|
||||
use constant LOCALE_IPAPERSIZE => 4106;
|
||||
use constant LOCALE_IPOSSEPBYSPACE => 85;
|
||||
use constant LOCALE_IPOSSIGNPOSN => 82;
|
||||
use constant LOCALE_IPOSSYMPRECEDES => 84;
|
||||
use constant LOCALE_ITIME => 35;
|
||||
use constant LOCALE_ITIMEMARKPOSN => 4101;
|
||||
use constant LOCALE_ITLZERO => 37;
|
||||
use constant LOCALE_LOCALEINFOFLAGSMASK => -1073741824;
|
||||
use constant LOCALE_NOUSEROVERRIDE => -2147483648;
|
||||
use constant LOCALE_S1159 => 40;
|
||||
use constant LOCALE_S2359 => 41;
|
||||
use constant LOCALE_SABBREVCTRYNAME => 7;
|
||||
use constant LOCALE_SABBREVDAYNAME1 => 49;
|
||||
use constant LOCALE_SABBREVDAYNAME2 => 50;
|
||||
use constant LOCALE_SABBREVDAYNAME3 => 51;
|
||||
use constant LOCALE_SABBREVDAYNAME4 => 52;
|
||||
use constant LOCALE_SABBREVDAYNAME5 => 53;
|
||||
use constant LOCALE_SABBREVDAYNAME6 => 54;
|
||||
use constant LOCALE_SABBREVDAYNAME7 => 55;
|
||||
use constant LOCALE_SABBREVLANGNAME => 3;
|
||||
use constant LOCALE_SABBREVMONTHNAME1 => 68;
|
||||
use constant LOCALE_SABBREVMONTHNAME10 => 77;
|
||||
use constant LOCALE_SABBREVMONTHNAME11 => 78;
|
||||
use constant LOCALE_SABBREVMONTHNAME12 => 79;
|
||||
use constant LOCALE_SABBREVMONTHNAME13 => 4111;
|
||||
use constant LOCALE_SABBREVMONTHNAME2 => 69;
|
||||
use constant LOCALE_SABBREVMONTHNAME3 => 70;
|
||||
use constant LOCALE_SABBREVMONTHNAME4 => 71;
|
||||
use constant LOCALE_SABBREVMONTHNAME5 => 72;
|
||||
use constant LOCALE_SABBREVMONTHNAME6 => 73;
|
||||
use constant LOCALE_SABBREVMONTHNAME7 => 74;
|
||||
use constant LOCALE_SABBREVMONTHNAME8 => 75;
|
||||
use constant LOCALE_SABBREVMONTHNAME9 => 76;
|
||||
use constant LOCALE_SCOUNTRY => 6;
|
||||
use constant LOCALE_SCURRENCY => 20;
|
||||
use constant LOCALE_SDATE => 29;
|
||||
use constant LOCALE_SDAYNAME1 => 42;
|
||||
use constant LOCALE_SDAYNAME2 => 43;
|
||||
use constant LOCALE_SDAYNAME3 => 44;
|
||||
use constant LOCALE_SDAYNAME4 => 45;
|
||||
use constant LOCALE_SDAYNAME5 => 46;
|
||||
use constant LOCALE_SDAYNAME6 => 47;
|
||||
use constant LOCALE_SDAYNAME7 => 48;
|
||||
use constant LOCALE_SDECIMAL => 14;
|
||||
use constant LOCALE_SENGCOUNTRY => 4098;
|
||||
use constant LOCALE_SENGCURRNAME => 4103;
|
||||
use constant LOCALE_SENGLANGUAGE => 4097;
|
||||
use constant LOCALE_SGROUPING => 16;
|
||||
use constant LOCALE_SINTLSYMBOL => 21;
|
||||
use constant LOCALE_SISO3166CTRYNAME => 90;
|
||||
use constant LOCALE_SISO639LANGNAME => 89;
|
||||
use constant LOCALE_SLANGUAGE => 2;
|
||||
use constant LOCALE_SLIST => 12;
|
||||
use constant LOCALE_SLONGDATE => 32;
|
||||
use constant LOCALE_SMONDECIMALSEP => 22;
|
||||
use constant LOCALE_SMONGROUPING => 24;
|
||||
use constant LOCALE_SMONTHNAME1 => 56;
|
||||
use constant LOCALE_SMONTHNAME10 => 65;
|
||||
use constant LOCALE_SMONTHNAME11 => 66;
|
||||
use constant LOCALE_SMONTHNAME12 => 67;
|
||||
use constant LOCALE_SMONTHNAME13 => 4110;
|
||||
use constant LOCALE_SMONTHNAME2 => 57;
|
||||
use constant LOCALE_SMONTHNAME3 => 58;
|
||||
use constant LOCALE_SMONTHNAME4 => 59;
|
||||
use constant LOCALE_SMONTHNAME5 => 60;
|
||||
use constant LOCALE_SMONTHNAME6 => 61;
|
||||
use constant LOCALE_SMONTHNAME7 => 62;
|
||||
use constant LOCALE_SMONTHNAME8 => 63;
|
||||
use constant LOCALE_SMONTHNAME9 => 64;
|
||||
use constant LOCALE_SMONTHOUSANDSEP => 23;
|
||||
use constant LOCALE_SNATIVECTRYNAME => 8;
|
||||
use constant LOCALE_SNATIVECURRNAME => 4104;
|
||||
use constant LOCALE_SNATIVEDIGITS => 19;
|
||||
use constant LOCALE_SNATIVELANGNAME => 4;
|
||||
use constant LOCALE_SNEGATIVESIGN => 81;
|
||||
use constant LOCALE_SPOSITIVESIGN => 80;
|
||||
use constant LOCALE_SSHORTDATE => 31;
|
||||
use constant LOCALE_SSORTNAME => 4115;
|
||||
use constant LOCALE_STHOUSAND => 15;
|
||||
use constant LOCALE_STIME => 30;
|
||||
use constant LOCALE_STIMEFORMAT => 4099;
|
||||
use constant LOCALE_SYEARMONTH => 4102;
|
||||
use constant LOCALE_TIMEDATEBOTH => 768;
|
||||
use constant LOCALE_USE_CP_ACP => 1073741824;
|
||||
use constant MAX_DEFAULTCHAR => 2;
|
||||
use constant MAX_LEADBYTES => 12;
|
||||
use constant MB_COMPOSITE => 2;
|
||||
use constant MB_ERR_INVALID_CHARS => 8;
|
||||
use constant MB_PRECOMPOSED => 1;
|
||||
use constant MB_USEGLYPHCHARS => 4;
|
||||
use constant NORM_IGNORECASE => 1;
|
||||
use constant NORM_IGNOREKANATYPE => 65536;
|
||||
use constant NORM_IGNORENONSPACE => 2;
|
||||
use constant NORM_IGNORESYMBOLS => 4;
|
||||
use constant NORM_IGNOREWIDTH => 131072;
|
||||
use constant NORM_STRINGSORT => 4096;
|
||||
use constant SORT_STRINGSORT => 4096;
|
||||
use constant TIME_FORCE24HOURFORMAT => 8;
|
||||
use constant TIME_NOMINUTESORSECONDS => 1;
|
||||
use constant TIME_NOSECONDS => 2;
|
||||
use constant TIME_NOTIMEMARKER => 4;
|
||||
use constant TIME_TIMEVARSONLY => 512;
|
||||
use constant WC_COMPOSITECHECK => 512;
|
||||
use constant WC_DEFAULTCHAR => 64;
|
||||
use constant WC_DISCARDNS => 16;
|
||||
use constant WC_NO_BEST_FIT_CHARS => 1024;
|
||||
use constant WC_SEPCHARS => 32;
|
||||
|
||||
1;
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -3,10 +3,33 @@
|
|||
# Perl definitions for header file winreg.h
|
||||
#
|
||||
|
||||
$HKEY_CLASSES_ROOT = -2147483648;
|
||||
$HKEY_CURRENT_CONFIG = -2147483643;
|
||||
$HKEY_CURRENT_USER = -2147483647;
|
||||
$HKEY_DYN_DATA = -2147483642;
|
||||
$HKEY_LOCAL_MACHINE = -2147483646;
|
||||
$HKEY_PERFORMANCE_DATA = -2147483644;
|
||||
$HKEY_USERS = -2147483645;
|
||||
|
||||
package winreg;
|
||||
|
||||
use strict;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
||||
|
||||
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;
|
||||
|
|
|
|||
|
|
@ -3,72 +3,157 @@
|
|||
# Perl definitions for header file winsock2.h
|
||||
#
|
||||
|
||||
$BASE_PROTOCOL = 1;
|
||||
$CF_ACCEPT = 0;
|
||||
$CF_DEFER = 2;
|
||||
$CF_REJECT = 1;
|
||||
$FD_ACCEPT_BIT = 3;
|
||||
$FD_CLOSE_BIT = 5;
|
||||
$FD_CONNECT_BIT = 4;
|
||||
$FD_MAX_EVENTS = 10;
|
||||
$FD_OOB_BIT = 2;
|
||||
$FD_READ_BIT = 0;
|
||||
$FD_WRITE_BIT = 1;
|
||||
$INCL_WINSOCK_API_PROTOTYPES = 1;
|
||||
$INCL_WINSOCK_API_TYPEDEFS = 0;
|
||||
$IOC_PROTOCOL = 268435456;
|
||||
$IOC_UNIX = 0;
|
||||
$IOC_VENDOR = 402653184;
|
||||
$IOC_WS2 = 134217728;
|
||||
$LAYERED_PROTOCOL = 0;
|
||||
$MAX_PROTOCOL_CHAIN = 7;
|
||||
$PVD_CONFIG = 12289;
|
||||
$SD_BOTH = 2;
|
||||
$SD_RECEIVE = 0;
|
||||
$SD_SEND = 1;
|
||||
$SG_CONSTRAINED_GROUP = 2;
|
||||
$SG_UNCONSTRAINED_GROUP = 1;
|
||||
$SIO_ADDRESS_LIST_CHANGE = 671088663;
|
||||
$SIO_ADDRESS_LIST_QUERY = 1207959574;
|
||||
$SIO_ASSOCIATE_HANDLE = -2013265919;
|
||||
$SIO_ENABLE_CIRCULAR_QUEUEING = 671088642;
|
||||
$SIO_FIND_ROUTE = 1207959555;
|
||||
$SIO_FLUSH = 671088644;
|
||||
$SIO_GET_BROADCAST_ADDRESS = 1207959557;
|
||||
$SIO_GET_EXTENSION_FUNCTION_POINTER = -939524090;
|
||||
$SIO_GET_GROUP_QOS = -939524088;
|
||||
$SIO_GET_INTERFACE_LIST = 1074033791;
|
||||
$SIO_GET_QOS = -939524089;
|
||||
$SIO_MULTICAST_SCOPE = -2013265910;
|
||||
$SIO_MULTIPOINT_LOOPBACK = -2013265911;
|
||||
$SIO_QUERY_TARGET_PNP_HANDLE = 1207959576;
|
||||
$SIO_ROUTING_INTERFACE_CHANGE = -2013265899;
|
||||
$SIO_ROUTING_INTERFACE_QUERY = -939524076;
|
||||
$SIO_SET_GROUP_QOS = -2013265908;
|
||||
$SIO_SET_QOS = -2013265909;
|
||||
$SIO_TRANSLATE_HANDLE = -939524083;
|
||||
$SO_CONDITIONAL_ACCEPT = 12290;
|
||||
$SO_GROUP_ID = 8193;
|
||||
$SO_GROUP_PRIORITY = 8194;
|
||||
$SO_MAX_MSG_SIZE = 8195;
|
||||
$SO_PROTOCOL_INFOA = 8196;
|
||||
$SO_PROTOCOL_INFOW = 8197;
|
||||
$WSAPROTOCOL_LEN = 255;
|
||||
$WSA_FLAG_MULTIPOINT_C_LEAF = 4;
|
||||
$WSA_FLAG_MULTIPOINT_C_ROOT = 2;
|
||||
$WSA_FLAG_MULTIPOINT_D_LEAF = 16;
|
||||
$WSA_FLAG_MULTIPOINT_D_ROOT = 8;
|
||||
$WSA_FLAG_OVERLAPPED = 1;
|
||||
$WSA_INFINITE = -1;
|
||||
$WSA_INVALID_EVENT = 0;
|
||||
$WSA_INVALID_HANDLE = 6;
|
||||
$WSA_INVALID_PARAMETER = 87;
|
||||
$WSA_IO_INCOMPLETE = 996;
|
||||
$WSA_IO_PENDING = 997;
|
||||
$WSA_MAXIMUM_WAIT_EVENTS = 64;
|
||||
$WSA_NOT_ENOUGH_MEMORY = 8;
|
||||
$WSA_OPERATION_ABORTED = 995;
|
||||
$WSA_WAIT_EVENT_0 = 0;
|
||||
$WSA_WAIT_FAILED = -1;
|
||||
$WSA_WAIT_IO_COMPLETION = 192;
|
||||
$WSA_WAIT_TIMEOUT = 258;
|
||||
|
||||
package winsock2;
|
||||
|
||||
use strict;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
||||
|
||||
require Exporter;
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(
|
||||
BASE_PROTOCOL
|
||||
CF_ACCEPT
|
||||
CF_DEFER
|
||||
CF_REJECT
|
||||
FD_ACCEPT_BIT
|
||||
FD_CLOSE_BIT
|
||||
FD_CONNECT_BIT
|
||||
FD_MAX_EVENTS
|
||||
FD_OOB_BIT
|
||||
FD_READ_BIT
|
||||
FD_WRITE_BIT
|
||||
INCL_WINSOCK_API_PROTOTYPES
|
||||
INCL_WINSOCK_API_TYPEDEFS
|
||||
IOC_PROTOCOL
|
||||
IOC_UNIX
|
||||
IOC_VENDOR
|
||||
IOC_WS2
|
||||
LAYERED_PROTOCOL
|
||||
MAX_PROTOCOL_CHAIN
|
||||
PVD_CONFIG
|
||||
SD_BOTH
|
||||
SD_RECEIVE
|
||||
SD_SEND
|
||||
SG_CONSTRAINED_GROUP
|
||||
SG_UNCONSTRAINED_GROUP
|
||||
SIO_ADDRESS_LIST_CHANGE
|
||||
SIO_ADDRESS_LIST_QUERY
|
||||
SIO_ASSOCIATE_HANDLE
|
||||
SIO_ENABLE_CIRCULAR_QUEUEING
|
||||
SIO_FIND_ROUTE
|
||||
SIO_FLUSH
|
||||
SIO_GET_BROADCAST_ADDRESS
|
||||
SIO_GET_EXTENSION_FUNCTION_POINTER
|
||||
SIO_GET_GROUP_QOS
|
||||
SIO_GET_INTERFACE_LIST
|
||||
SIO_GET_QOS
|
||||
SIO_MULTICAST_SCOPE
|
||||
SIO_MULTIPOINT_LOOPBACK
|
||||
SIO_QUERY_TARGET_PNP_HANDLE
|
||||
SIO_ROUTING_INTERFACE_CHANGE
|
||||
SIO_ROUTING_INTERFACE_QUERY
|
||||
SIO_SET_GROUP_QOS
|
||||
SIO_SET_QOS
|
||||
SIO_TRANSLATE_HANDLE
|
||||
SO_CONDITIONAL_ACCEPT
|
||||
SO_GROUP_ID
|
||||
SO_GROUP_PRIORITY
|
||||
SO_MAX_MSG_SIZE
|
||||
SO_PROTOCOL_INFOA
|
||||
SO_PROTOCOL_INFOW
|
||||
WSAPROTOCOL_LEN
|
||||
WSA_FLAG_MULTIPOINT_C_LEAF
|
||||
WSA_FLAG_MULTIPOINT_C_ROOT
|
||||
WSA_FLAG_MULTIPOINT_D_LEAF
|
||||
WSA_FLAG_MULTIPOINT_D_ROOT
|
||||
WSA_FLAG_OVERLAPPED
|
||||
WSA_INFINITE
|
||||
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;
|
||||
|
|
|
|||
|
|
@ -3,197 +3,407 @@
|
|||
# Perl definitions for header file winspool.h
|
||||
#
|
||||
|
||||
$DEF_PRIORITY = 1;
|
||||
$DI_CHANNEL = 1;
|
||||
$DI_READ_SPOOL_JOB = 3;
|
||||
$FORM_BUILTIN = 1;
|
||||
$FORM_PRINTER = 2;
|
||||
$FORM_USER = 0;
|
||||
$JOB_CONTROL_CANCEL = 3;
|
||||
$JOB_CONTROL_DELETE = 5;
|
||||
$JOB_CONTROL_LAST_PAGE_EJECTED = 7;
|
||||
$JOB_CONTROL_PAUSE = 1;
|
||||
$JOB_CONTROL_RESTART = 4;
|
||||
$JOB_CONTROL_RESUME = 2;
|
||||
$JOB_CONTROL_SENT_TO_PRINTER = 6;
|
||||
$JOB_NOTIFY_FIELD_BYTES_PRINTED = 23;
|
||||
$JOB_NOTIFY_FIELD_DATATYPE = 5;
|
||||
$JOB_NOTIFY_FIELD_DEVMODE = 9;
|
||||
$JOB_NOTIFY_FIELD_DOCUMENT = 13;
|
||||
$JOB_NOTIFY_FIELD_DRIVER_NAME = 8;
|
||||
$JOB_NOTIFY_FIELD_MACHINE_NAME = 1;
|
||||
$JOB_NOTIFY_FIELD_NOTIFY_NAME = 4;
|
||||
$JOB_NOTIFY_FIELD_PAGES_PRINTED = 21;
|
||||
$JOB_NOTIFY_FIELD_PARAMETERS = 7;
|
||||
$JOB_NOTIFY_FIELD_PORT_NAME = 2;
|
||||
$JOB_NOTIFY_FIELD_POSITION = 15;
|
||||
$JOB_NOTIFY_FIELD_PRINTER_NAME = 0;
|
||||
$JOB_NOTIFY_FIELD_PRINT_PROCESSOR = 6;
|
||||
$JOB_NOTIFY_FIELD_PRIORITY = 14;
|
||||
$JOB_NOTIFY_FIELD_SECURITY_DESCRIPTOR = 12;
|
||||
$JOB_NOTIFY_FIELD_START_TIME = 17;
|
||||
$JOB_NOTIFY_FIELD_STATUS = 10;
|
||||
$JOB_NOTIFY_FIELD_STATUS_STRING = 11;
|
||||
$JOB_NOTIFY_FIELD_SUBMITTED = 16;
|
||||
$JOB_NOTIFY_FIELD_TIME = 19;
|
||||
$JOB_NOTIFY_FIELD_TOTAL_BYTES = 22;
|
||||
$JOB_NOTIFY_FIELD_TOTAL_PAGES = 20;
|
||||
$JOB_NOTIFY_FIELD_UNTIL_TIME = 18;
|
||||
$JOB_NOTIFY_FIELD_USER_NAME = 3;
|
||||
$JOB_NOTIFY_TYPE = 1;
|
||||
$JOB_POSITION_UNSPECIFIED = 1;
|
||||
$JOB_STATUS_BLOCKED_DEVQ = 512;
|
||||
$JOB_STATUS_DELETED = 256;
|
||||
$JOB_STATUS_DELETING = 4;
|
||||
$JOB_STATUS_ERROR = 2;
|
||||
$JOB_STATUS_OFFLINE = 32;
|
||||
$JOB_STATUS_PAPEROUT = 64;
|
||||
$JOB_STATUS_PAUSED = 1;
|
||||
$JOB_STATUS_PRINTED = 128;
|
||||
$JOB_STATUS_PRINTING = 16;
|
||||
$JOB_STATUS_SPOOLING = 8;
|
||||
$JOB_STATUS_USER_INTERVENTION = 1024;
|
||||
$MAX_PRIORITY = 99;
|
||||
$MIN_PRIORITY = 1;
|
||||
$NO_PRIORITY = 0;
|
||||
$PORT_STATUS_DOOR_OPEN = 7;
|
||||
$PORT_STATUS_NO_TONER = 6;
|
||||
$PORT_STATUS_OFFLINE = 1;
|
||||
$PORT_STATUS_OUTPUT_BIN_FULL = 4;
|
||||
$PORT_STATUS_OUT_OF_MEMORY = 9;
|
||||
$PORT_STATUS_PAPER_JAM = 2;
|
||||
$PORT_STATUS_PAPER_OUT = 3;
|
||||
$PORT_STATUS_PAPER_PROBLEM = 5;
|
||||
$PORT_STATUS_POWER_SAVE = 12;
|
||||
$PORT_STATUS_TONER_LOW = 10;
|
||||
$PORT_STATUS_TYPE_ERROR = 1;
|
||||
$PORT_STATUS_TYPE_INFO = 3;
|
||||
$PORT_STATUS_TYPE_WARNING = 2;
|
||||
$PORT_STATUS_USER_INTERVENTION = 8;
|
||||
$PORT_STATUS_WARMING_UP = 11;
|
||||
$PORT_TYPE_NET_ATTACHED = 8;
|
||||
$PORT_TYPE_READ = 2;
|
||||
$PORT_TYPE_REDIRECTED = 4;
|
||||
$PORT_TYPE_WRITE = 1;
|
||||
$PRINTER_ATTRIBUTE_DEFAULT = 4;
|
||||
$PRINTER_ATTRIBUTE_DIRECT = 2;
|
||||
$PRINTER_ATTRIBUTE_DO_COMPLETE_FIRST = 512;
|
||||
$PRINTER_ATTRIBUTE_ENABLE_BIDI = 2048;
|
||||
$PRINTER_ATTRIBUTE_ENABLE_DEVQ = 128;
|
||||
$PRINTER_ATTRIBUTE_HIDDEN = 32;
|
||||
$PRINTER_ATTRIBUTE_KEEPPRINTEDJOBS = 256;
|
||||
$PRINTER_ATTRIBUTE_LOCAL = 64;
|
||||
$PRINTER_ATTRIBUTE_NETWORK = 16;
|
||||
$PRINTER_ATTRIBUTE_QUEUED = 1;
|
||||
$PRINTER_ATTRIBUTE_SHARED = 8;
|
||||
$PRINTER_ATTRIBUTE_WORK_OFFLINE = 1024;
|
||||
$PRINTER_CHANGE_ADD_FORM = 65536;
|
||||
$PRINTER_CHANGE_ADD_JOB = 256;
|
||||
$PRINTER_CHANGE_ADD_PORT = 1048576;
|
||||
$PRINTER_CHANGE_ADD_PRINTER = 1;
|
||||
$PRINTER_CHANGE_ADD_PRINTER_DRIVER = 268435456;
|
||||
$PRINTER_CHANGE_ADD_PRINT_PROCESSOR = 16777216;
|
||||
$PRINTER_CHANGE_ALL = 2004353023;
|
||||
$PRINTER_CHANGE_CONFIGURE_PORT = 2097152;
|
||||
$PRINTER_CHANGE_DELETE_FORM = 262144;
|
||||
$PRINTER_CHANGE_DELETE_JOB = 1024;
|
||||
$PRINTER_CHANGE_DELETE_PORT = 4194304;
|
||||
$PRINTER_CHANGE_DELETE_PRINTER = 4;
|
||||
$PRINTER_CHANGE_DELETE_PRINTER_DRIVER = 1073741824;
|
||||
$PRINTER_CHANGE_DELETE_PRINTER_PROCESSOR = 67108864;
|
||||
$PRINTER_CHANGE_FAILED_CONNECTION_PRINTER = 8;
|
||||
$PRINTER_CHANGE_FORM = 458752;
|
||||
$PRINTER_CHANGE_JOB = 65280;
|
||||
$PRINTER_CHANGE_PORT = 7340032;
|
||||
$PRINTER_CHANGE_PRINTER = 255;
|
||||
$PRINTER_CHANGE_PRINTER_DRIVER = 1879048192;
|
||||
$PRINTER_CHANGE_PRINT_PROCESSOR = 117440512;
|
||||
$PRINTER_CHANGE_SET_FORM = 131072;
|
||||
$PRINTER_CHANGE_SET_JOB = 512;
|
||||
$PRINTER_CHANGE_SET_PRINTER = 2;
|
||||
$PRINTER_CHANGE_SET_PRINTER_DRIVER = 536870912;
|
||||
$PRINTER_CHANGE_TIMEOUT = -2147483648;
|
||||
$PRINTER_CHANGE_WRITE_JOB = 2048;
|
||||
$PRINTER_CONTROL_PAUSE = 1;
|
||||
$PRINTER_CONTROL_PURGE = 3;
|
||||
$PRINTER_CONTROL_RESUME = 2;
|
||||
$PRINTER_CONTROL_SET_STATUS = 4;
|
||||
$PRINTER_ENUM_CONNECTIONS = 4;
|
||||
$PRINTER_ENUM_CONTAINER = 32768;
|
||||
$PRINTER_ENUM_DEFAULT = 1;
|
||||
$PRINTER_ENUM_EXPAND = 16384;
|
||||
$PRINTER_ENUM_FAVORITE = 4;
|
||||
$PRINTER_ENUM_ICON1 = 65536;
|
||||
$PRINTER_ENUM_ICON2 = 131072;
|
||||
$PRINTER_ENUM_ICON3 = 262144;
|
||||
$PRINTER_ENUM_ICON4 = 524288;
|
||||
$PRINTER_ENUM_ICON5 = 1048576;
|
||||
$PRINTER_ENUM_ICON6 = 2097152;
|
||||
$PRINTER_ENUM_ICON7 = 4194304;
|
||||
$PRINTER_ENUM_ICON8 = 8388608;
|
||||
$PRINTER_ENUM_ICONMASK = 16711680;
|
||||
$PRINTER_ENUM_LOCAL = 2;
|
||||
$PRINTER_ENUM_NAME = 8;
|
||||
$PRINTER_ENUM_NETWORK = 64;
|
||||
$PRINTER_ENUM_REMOTE = 16;
|
||||
$PRINTER_ENUM_SHARED = 32;
|
||||
$PRINTER_ERROR_INFORMATION = -2147483648;
|
||||
$PRINTER_ERROR_JAM = 2;
|
||||
$PRINTER_ERROR_OUTODPAPER = 1;
|
||||
$PRINTER_ERROR_OUTOFTONER = 4;
|
||||
$PRINTER_ERROR_SEVERE = 536870912;
|
||||
$PRINTER_ERROR_WARNING = 1073741824;
|
||||
$PRINTER_NOTIFY_FIELD_ATTRIBUTES = 13;
|
||||
$PRINTER_NOTIFY_FIELD_AVERAGE_PPM = 21;
|
||||
$PRINTER_NOTIFY_FIELD_BYTES_PRINTED = 25;
|
||||
$PRINTER_NOTIFY_FIELD_CJOBS = 20;
|
||||
$PRINTER_NOTIFY_FIELD_COMMENT = 5;
|
||||
$PRINTER_NOTIFY_FIELD_DATATYPE = 11;
|
||||
$PRINTER_NOTIFY_FIELD_DEFAULT_PRIORITY = 15;
|
||||
$PRINTER_NOTIFY_FIELD_DEVMODE = 7;
|
||||
$PRINTER_NOTIFY_FIELD_DRIVER_NAME = 4;
|
||||
$PRINTER_NOTIFY_FIELD_LOCATION = 6;
|
||||
$PRINTER_NOTIFY_FIELD_PAGES_PRINTED = 23;
|
||||
$PRINTER_NOTIFY_FIELD_PARAMETERS = 10;
|
||||
$PRINTER_NOTIFY_FIELD_PORT_NAME = 3;
|
||||
$PRINTER_NOTIFY_FIELD_PRINTER_NAME = 1;
|
||||
$PRINTER_NOTIFY_FIELD_PRINT_PROCESSOR = 9;
|
||||
$PRINTER_NOTIFY_FIELD_PRIORITY = 14;
|
||||
$PRINTER_NOTIFY_FIELD_SECURITY_DESCRIPTOR = 12;
|
||||
$PRINTER_NOTIFY_FIELD_SEPFILE = 8;
|
||||
$PRINTER_NOTIFY_FIELD_SERVER_NAME = 0;
|
||||
$PRINTER_NOTIFY_FIELD_SHARE_NAME = 2;
|
||||
$PRINTER_NOTIFY_FIELD_START_TIME = 16;
|
||||
$PRINTER_NOTIFY_FIELD_STATUS = 18;
|
||||
$PRINTER_NOTIFY_FIELD_STATUS_STRING = 19;
|
||||
$PRINTER_NOTIFY_FIELD_TOTAL_BYTES = 24;
|
||||
$PRINTER_NOTIFY_FIELD_TOTAL_PAGES = 22;
|
||||
$PRINTER_NOTIFY_FIELD_UNTIL_TIME = 17;
|
||||
$PRINTER_NOTIFY_INFO_DISCARDED = 1;
|
||||
$PRINTER_NOTIFY_OPTIONS_REFRESH = 1;
|
||||
$PRINTER_NOTIFY_TYPE = 0;
|
||||
$PRINTER_STATUS_BUSY = 512;
|
||||
$PRINTER_STATUS_DOOR_OPEN = 4194304;
|
||||
$PRINTER_STATUS_ERROR = 2;
|
||||
$PRINTER_STATUS_INITIALIZING = 32768;
|
||||
$PRINTER_STATUS_IO_ACTIVE = 256;
|
||||
$PRINTER_STATUS_MANUAL_FEED = 32;
|
||||
$PRINTER_STATUS_NOT_AVAILABLE = 4096;
|
||||
$PRINTER_STATUS_NO_TONER = 262144;
|
||||
$PRINTER_STATUS_OFFLINE = 128;
|
||||
$PRINTER_STATUS_OUTPUT_BIN_FULL = 2048;
|
||||
$PRINTER_STATUS_OUT_OF_MEMORY = 2097152;
|
||||
$PRINTER_STATUS_PAGE_PUNT = 524288;
|
||||
$PRINTER_STATUS_PAPER_JAM = 8;
|
||||
$PRINTER_STATUS_PAPER_OUT = 16;
|
||||
$PRINTER_STATUS_PAPER_PROBLEM = 64;
|
||||
$PRINTER_STATUS_PAUSED = 1;
|
||||
$PRINTER_STATUS_PENDING_DELETION = 4;
|
||||
$PRINTER_STATUS_POWER_SAVE = 16777216;
|
||||
$PRINTER_STATUS_PRINTING = 1024;
|
||||
$PRINTER_STATUS_PROCESSING = 16384;
|
||||
$PRINTER_STATUS_SERVER_UNKNOWN = 8388608;
|
||||
$PRINTER_STATUS_TONER_LOW = 131072;
|
||||
$PRINTER_STATUS_USER_INTERVENTION = 1048576;
|
||||
$PRINTER_STATUS_WAITING = 8192;
|
||||
$PRINTER_STATUS_WARMING_UP = 65536;
|
||||
|
||||
package winspool;
|
||||
|
||||
use strict;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
||||
|
||||
require Exporter;
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(
|
||||
DEF_PRIORITY
|
||||
DI_CHANNEL
|
||||
DI_READ_SPOOL_JOB
|
||||
FORM_BUILTIN
|
||||
FORM_PRINTER
|
||||
FORM_USER
|
||||
JOB_CONTROL_CANCEL
|
||||
JOB_CONTROL_DELETE
|
||||
JOB_CONTROL_LAST_PAGE_EJECTED
|
||||
JOB_CONTROL_PAUSE
|
||||
JOB_CONTROL_RESTART
|
||||
JOB_CONTROL_RESUME
|
||||
JOB_CONTROL_SENT_TO_PRINTER
|
||||
JOB_NOTIFY_FIELD_BYTES_PRINTED
|
||||
JOB_NOTIFY_FIELD_DATATYPE
|
||||
JOB_NOTIFY_FIELD_DEVMODE
|
||||
JOB_NOTIFY_FIELD_DOCUMENT
|
||||
JOB_NOTIFY_FIELD_DRIVER_NAME
|
||||
JOB_NOTIFY_FIELD_MACHINE_NAME
|
||||
JOB_NOTIFY_FIELD_NOTIFY_NAME
|
||||
JOB_NOTIFY_FIELD_PAGES_PRINTED
|
||||
JOB_NOTIFY_FIELD_PARAMETERS
|
||||
JOB_NOTIFY_FIELD_PORT_NAME
|
||||
JOB_NOTIFY_FIELD_POSITION
|
||||
JOB_NOTIFY_FIELD_PRINTER_NAME
|
||||
JOB_NOTIFY_FIELD_PRINT_PROCESSOR
|
||||
JOB_NOTIFY_FIELD_PRIORITY
|
||||
JOB_NOTIFY_FIELD_SECURITY_DESCRIPTOR
|
||||
JOB_NOTIFY_FIELD_START_TIME
|
||||
JOB_NOTIFY_FIELD_STATUS
|
||||
JOB_NOTIFY_FIELD_STATUS_STRING
|
||||
JOB_NOTIFY_FIELD_SUBMITTED
|
||||
JOB_NOTIFY_FIELD_TIME
|
||||
JOB_NOTIFY_FIELD_TOTAL_BYTES
|
||||
JOB_NOTIFY_FIELD_TOTAL_PAGES
|
||||
JOB_NOTIFY_FIELD_UNTIL_TIME
|
||||
JOB_NOTIFY_FIELD_USER_NAME
|
||||
JOB_NOTIFY_TYPE
|
||||
JOB_POSITION_UNSPECIFIED
|
||||
JOB_STATUS_BLOCKED_DEVQ
|
||||
JOB_STATUS_DELETED
|
||||
JOB_STATUS_DELETING
|
||||
JOB_STATUS_ERROR
|
||||
JOB_STATUS_OFFLINE
|
||||
JOB_STATUS_PAPEROUT
|
||||
JOB_STATUS_PAUSED
|
||||
JOB_STATUS_PRINTED
|
||||
JOB_STATUS_PRINTING
|
||||
JOB_STATUS_SPOOLING
|
||||
JOB_STATUS_USER_INTERVENTION
|
||||
MAX_PRIORITY
|
||||
MIN_PRIORITY
|
||||
NO_PRIORITY
|
||||
PORT_STATUS_DOOR_OPEN
|
||||
PORT_STATUS_NO_TONER
|
||||
PORT_STATUS_OFFLINE
|
||||
PORT_STATUS_OUTPUT_BIN_FULL
|
||||
PORT_STATUS_OUT_OF_MEMORY
|
||||
PORT_STATUS_PAPER_JAM
|
||||
PORT_STATUS_PAPER_OUT
|
||||
PORT_STATUS_PAPER_PROBLEM
|
||||
PORT_STATUS_POWER_SAVE
|
||||
PORT_STATUS_TONER_LOW
|
||||
PORT_STATUS_TYPE_ERROR
|
||||
PORT_STATUS_TYPE_INFO
|
||||
PORT_STATUS_TYPE_WARNING
|
||||
PORT_STATUS_USER_INTERVENTION
|
||||
PORT_STATUS_WARMING_UP
|
||||
PORT_TYPE_NET_ATTACHED
|
||||
PORT_TYPE_READ
|
||||
PORT_TYPE_REDIRECTED
|
||||
PORT_TYPE_WRITE
|
||||
PRINTER_ATTRIBUTE_DEFAULT
|
||||
PRINTER_ATTRIBUTE_DIRECT
|
||||
PRINTER_ATTRIBUTE_DO_COMPLETE_FIRST
|
||||
PRINTER_ATTRIBUTE_ENABLE_BIDI
|
||||
PRINTER_ATTRIBUTE_ENABLE_DEVQ
|
||||
PRINTER_ATTRIBUTE_HIDDEN
|
||||
PRINTER_ATTRIBUTE_KEEPPRINTEDJOBS
|
||||
PRINTER_ATTRIBUTE_LOCAL
|
||||
PRINTER_ATTRIBUTE_NETWORK
|
||||
PRINTER_ATTRIBUTE_QUEUED
|
||||
PRINTER_ATTRIBUTE_SHARED
|
||||
PRINTER_ATTRIBUTE_WORK_OFFLINE
|
||||
PRINTER_CHANGE_ADD_FORM
|
||||
PRINTER_CHANGE_ADD_JOB
|
||||
PRINTER_CHANGE_ADD_PORT
|
||||
PRINTER_CHANGE_ADD_PRINTER
|
||||
PRINTER_CHANGE_ADD_PRINTER_DRIVER
|
||||
PRINTER_CHANGE_ADD_PRINT_PROCESSOR
|
||||
PRINTER_CHANGE_ALL
|
||||
PRINTER_CHANGE_CONFIGURE_PORT
|
||||
PRINTER_CHANGE_DELETE_FORM
|
||||
PRINTER_CHANGE_DELETE_JOB
|
||||
PRINTER_CHANGE_DELETE_PORT
|
||||
PRINTER_CHANGE_DELETE_PRINTER
|
||||
PRINTER_CHANGE_DELETE_PRINTER_DRIVER
|
||||
PRINTER_CHANGE_DELETE_PRINTER_PROCESSOR
|
||||
PRINTER_CHANGE_FAILED_CONNECTION_PRINTER
|
||||
PRINTER_CHANGE_FORM
|
||||
PRINTER_CHANGE_JOB
|
||||
PRINTER_CHANGE_PORT
|
||||
PRINTER_CHANGE_PRINTER
|
||||
PRINTER_CHANGE_PRINTER_DRIVER
|
||||
PRINTER_CHANGE_PRINT_PROCESSOR
|
||||
PRINTER_CHANGE_SET_FORM
|
||||
PRINTER_CHANGE_SET_JOB
|
||||
PRINTER_CHANGE_SET_PRINTER
|
||||
PRINTER_CHANGE_SET_PRINTER_DRIVER
|
||||
PRINTER_CHANGE_TIMEOUT
|
||||
PRINTER_CHANGE_WRITE_JOB
|
||||
PRINTER_CONTROL_PAUSE
|
||||
PRINTER_CONTROL_PURGE
|
||||
PRINTER_CONTROL_RESUME
|
||||
PRINTER_CONTROL_SET_STATUS
|
||||
PRINTER_ENUM_CONNECTIONS
|
||||
PRINTER_ENUM_CONTAINER
|
||||
PRINTER_ENUM_DEFAULT
|
||||
PRINTER_ENUM_EXPAND
|
||||
PRINTER_ENUM_FAVORITE
|
||||
PRINTER_ENUM_ICON1
|
||||
PRINTER_ENUM_ICON2
|
||||
PRINTER_ENUM_ICON3
|
||||
PRINTER_ENUM_ICON4
|
||||
PRINTER_ENUM_ICON5
|
||||
PRINTER_ENUM_ICON6
|
||||
PRINTER_ENUM_ICON7
|
||||
PRINTER_ENUM_ICON8
|
||||
PRINTER_ENUM_ICONMASK
|
||||
PRINTER_ENUM_LOCAL
|
||||
PRINTER_ENUM_NAME
|
||||
PRINTER_ENUM_NETWORK
|
||||
PRINTER_ENUM_REMOTE
|
||||
PRINTER_ENUM_SHARED
|
||||
PRINTER_ERROR_INFORMATION
|
||||
PRINTER_ERROR_JAM
|
||||
PRINTER_ERROR_OUTODPAPER
|
||||
PRINTER_ERROR_OUTOFTONER
|
||||
PRINTER_ERROR_SEVERE
|
||||
PRINTER_ERROR_WARNING
|
||||
PRINTER_NOTIFY_FIELD_ATTRIBUTES
|
||||
PRINTER_NOTIFY_FIELD_AVERAGE_PPM
|
||||
PRINTER_NOTIFY_FIELD_BYTES_PRINTED
|
||||
PRINTER_NOTIFY_FIELD_CJOBS
|
||||
PRINTER_NOTIFY_FIELD_COMMENT
|
||||
PRINTER_NOTIFY_FIELD_DATATYPE
|
||||
PRINTER_NOTIFY_FIELD_DEFAULT_PRIORITY
|
||||
PRINTER_NOTIFY_FIELD_DEVMODE
|
||||
PRINTER_NOTIFY_FIELD_DRIVER_NAME
|
||||
PRINTER_NOTIFY_FIELD_LOCATION
|
||||
PRINTER_NOTIFY_FIELD_PAGES_PRINTED
|
||||
PRINTER_NOTIFY_FIELD_PARAMETERS
|
||||
PRINTER_NOTIFY_FIELD_PORT_NAME
|
||||
PRINTER_NOTIFY_FIELD_PRINTER_NAME
|
||||
PRINTER_NOTIFY_FIELD_PRINT_PROCESSOR
|
||||
PRINTER_NOTIFY_FIELD_PRIORITY
|
||||
PRINTER_NOTIFY_FIELD_SECURITY_DESCRIPTOR
|
||||
PRINTER_NOTIFY_FIELD_SEPFILE
|
||||
PRINTER_NOTIFY_FIELD_SERVER_NAME
|
||||
PRINTER_NOTIFY_FIELD_SHARE_NAME
|
||||
PRINTER_NOTIFY_FIELD_START_TIME
|
||||
PRINTER_NOTIFY_FIELD_STATUS
|
||||
PRINTER_NOTIFY_FIELD_STATUS_STRING
|
||||
PRINTER_NOTIFY_FIELD_TOTAL_BYTES
|
||||
PRINTER_NOTIFY_FIELD_TOTAL_PAGES
|
||||
PRINTER_NOTIFY_FIELD_UNTIL_TIME
|
||||
PRINTER_NOTIFY_INFO_DISCARDED
|
||||
PRINTER_NOTIFY_OPTIONS_REFRESH
|
||||
PRINTER_NOTIFY_TYPE
|
||||
PRINTER_STATUS_BUSY
|
||||
PRINTER_STATUS_DOOR_OPEN
|
||||
PRINTER_STATUS_ERROR
|
||||
PRINTER_STATUS_INITIALIZING
|
||||
PRINTER_STATUS_IO_ACTIVE
|
||||
PRINTER_STATUS_MANUAL_FEED
|
||||
PRINTER_STATUS_NOT_AVAILABLE
|
||||
PRINTER_STATUS_NO_TONER
|
||||
PRINTER_STATUS_OFFLINE
|
||||
PRINTER_STATUS_OUTPUT_BIN_FULL
|
||||
PRINTER_STATUS_OUT_OF_MEMORY
|
||||
PRINTER_STATUS_PAGE_PUNT
|
||||
PRINTER_STATUS_PAPER_JAM
|
||||
PRINTER_STATUS_PAPER_OUT
|
||||
PRINTER_STATUS_PAPER_PROBLEM
|
||||
PRINTER_STATUS_PAUSED
|
||||
PRINTER_STATUS_PENDING_DELETION
|
||||
PRINTER_STATUS_POWER_SAVE
|
||||
PRINTER_STATUS_PRINTING
|
||||
PRINTER_STATUS_PROCESSING
|
||||
PRINTER_STATUS_SERVER_UNKNOWN
|
||||
PRINTER_STATUS_TONER_LOW
|
||||
PRINTER_STATUS_USER_INTERVENTION
|
||||
PRINTER_STATUS_WAITING
|
||||
PRINTER_STATUS_WARMING_UP
|
||||
);
|
||||
@EXPORT_OK = qw();
|
||||
|
||||
use constant DEF_PRIORITY => 1;
|
||||
use constant DI_CHANNEL => 1;
|
||||
use constant DI_READ_SPOOL_JOB => 3;
|
||||
use constant FORM_BUILTIN => 1;
|
||||
use constant FORM_PRINTER => 2;
|
||||
use constant FORM_USER => 0;
|
||||
use constant JOB_CONTROL_CANCEL => 3;
|
||||
use constant JOB_CONTROL_DELETE => 5;
|
||||
use constant JOB_CONTROL_LAST_PAGE_EJECTED => 7;
|
||||
use constant JOB_CONTROL_PAUSE => 1;
|
||||
use constant JOB_CONTROL_RESTART => 4;
|
||||
use constant JOB_CONTROL_RESUME => 2;
|
||||
use constant JOB_CONTROL_SENT_TO_PRINTER => 6;
|
||||
use constant JOB_NOTIFY_FIELD_BYTES_PRINTED => 23;
|
||||
use constant JOB_NOTIFY_FIELD_DATATYPE => 5;
|
||||
use constant JOB_NOTIFY_FIELD_DEVMODE => 9;
|
||||
use constant JOB_NOTIFY_FIELD_DOCUMENT => 13;
|
||||
use constant JOB_NOTIFY_FIELD_DRIVER_NAME => 8;
|
||||
use constant JOB_NOTIFY_FIELD_MACHINE_NAME => 1;
|
||||
use constant JOB_NOTIFY_FIELD_NOTIFY_NAME => 4;
|
||||
use constant JOB_NOTIFY_FIELD_PAGES_PRINTED => 21;
|
||||
use constant JOB_NOTIFY_FIELD_PARAMETERS => 7;
|
||||
use constant JOB_NOTIFY_FIELD_PORT_NAME => 2;
|
||||
use constant JOB_NOTIFY_FIELD_POSITION => 15;
|
||||
use constant JOB_NOTIFY_FIELD_PRINTER_NAME => 0;
|
||||
use constant JOB_NOTIFY_FIELD_PRINT_PROCESSOR => 6;
|
||||
use constant JOB_NOTIFY_FIELD_PRIORITY => 14;
|
||||
use constant JOB_NOTIFY_FIELD_SECURITY_DESCRIPTOR => 12;
|
||||
use constant JOB_NOTIFY_FIELD_START_TIME => 17;
|
||||
use constant JOB_NOTIFY_FIELD_STATUS => 10;
|
||||
use constant JOB_NOTIFY_FIELD_STATUS_STRING => 11;
|
||||
use constant JOB_NOTIFY_FIELD_SUBMITTED => 16;
|
||||
use constant JOB_NOTIFY_FIELD_TIME => 19;
|
||||
use constant JOB_NOTIFY_FIELD_TOTAL_BYTES => 22;
|
||||
use constant JOB_NOTIFY_FIELD_TOTAL_PAGES => 20;
|
||||
use constant JOB_NOTIFY_FIELD_UNTIL_TIME => 18;
|
||||
use constant JOB_NOTIFY_FIELD_USER_NAME => 3;
|
||||
use constant JOB_NOTIFY_TYPE => 1;
|
||||
use constant JOB_POSITION_UNSPECIFIED => 1;
|
||||
use constant JOB_STATUS_BLOCKED_DEVQ => 512;
|
||||
use constant JOB_STATUS_DELETED => 256;
|
||||
use constant JOB_STATUS_DELETING => 4;
|
||||
use constant JOB_STATUS_ERROR => 2;
|
||||
use constant JOB_STATUS_OFFLINE => 32;
|
||||
use constant JOB_STATUS_PAPEROUT => 64;
|
||||
use constant JOB_STATUS_PAUSED => 1;
|
||||
use constant JOB_STATUS_PRINTED => 128;
|
||||
use constant JOB_STATUS_PRINTING => 16;
|
||||
use constant JOB_STATUS_SPOOLING => 8;
|
||||
use constant JOB_STATUS_USER_INTERVENTION => 1024;
|
||||
use constant MAX_PRIORITY => 99;
|
||||
use constant MIN_PRIORITY => 1;
|
||||
use constant NO_PRIORITY => 0;
|
||||
use constant PORT_STATUS_DOOR_OPEN => 7;
|
||||
use constant PORT_STATUS_NO_TONER => 6;
|
||||
use constant PORT_STATUS_OFFLINE => 1;
|
||||
use constant PORT_STATUS_OUTPUT_BIN_FULL => 4;
|
||||
use constant PORT_STATUS_OUT_OF_MEMORY => 9;
|
||||
use constant PORT_STATUS_PAPER_JAM => 2;
|
||||
use constant PORT_STATUS_PAPER_OUT => 3;
|
||||
use constant PORT_STATUS_PAPER_PROBLEM => 5;
|
||||
use constant PORT_STATUS_POWER_SAVE => 12;
|
||||
use constant PORT_STATUS_TONER_LOW => 10;
|
||||
use constant PORT_STATUS_TYPE_ERROR => 1;
|
||||
use constant PORT_STATUS_TYPE_INFO => 3;
|
||||
use constant PORT_STATUS_TYPE_WARNING => 2;
|
||||
use constant PORT_STATUS_USER_INTERVENTION => 8;
|
||||
use constant PORT_STATUS_WARMING_UP => 11;
|
||||
use constant PORT_TYPE_NET_ATTACHED => 8;
|
||||
use constant PORT_TYPE_READ => 2;
|
||||
use constant PORT_TYPE_REDIRECTED => 4;
|
||||
use constant PORT_TYPE_WRITE => 1;
|
||||
use constant PRINTER_ATTRIBUTE_DEFAULT => 4;
|
||||
use constant PRINTER_ATTRIBUTE_DIRECT => 2;
|
||||
use constant PRINTER_ATTRIBUTE_DO_COMPLETE_FIRST => 512;
|
||||
use constant PRINTER_ATTRIBUTE_ENABLE_BIDI => 2048;
|
||||
use constant PRINTER_ATTRIBUTE_ENABLE_DEVQ => 128;
|
||||
use constant PRINTER_ATTRIBUTE_HIDDEN => 32;
|
||||
use constant PRINTER_ATTRIBUTE_KEEPPRINTEDJOBS => 256;
|
||||
use constant PRINTER_ATTRIBUTE_LOCAL => 64;
|
||||
use constant PRINTER_ATTRIBUTE_NETWORK => 16;
|
||||
use constant PRINTER_ATTRIBUTE_QUEUED => 1;
|
||||
use constant PRINTER_ATTRIBUTE_SHARED => 8;
|
||||
use constant PRINTER_ATTRIBUTE_WORK_OFFLINE => 1024;
|
||||
use constant PRINTER_CHANGE_ADD_FORM => 65536;
|
||||
use constant PRINTER_CHANGE_ADD_JOB => 256;
|
||||
use constant PRINTER_CHANGE_ADD_PORT => 1048576;
|
||||
use constant PRINTER_CHANGE_ADD_PRINTER => 1;
|
||||
use constant PRINTER_CHANGE_ADD_PRINTER_DRIVER => 268435456;
|
||||
use constant PRINTER_CHANGE_ADD_PRINT_PROCESSOR => 16777216;
|
||||
use constant PRINTER_CHANGE_ALL => 2004353023;
|
||||
use constant PRINTER_CHANGE_CONFIGURE_PORT => 2097152;
|
||||
use constant PRINTER_CHANGE_DELETE_FORM => 262144;
|
||||
use constant PRINTER_CHANGE_DELETE_JOB => 1024;
|
||||
use constant PRINTER_CHANGE_DELETE_PORT => 4194304;
|
||||
use constant PRINTER_CHANGE_DELETE_PRINTER => 4;
|
||||
use constant PRINTER_CHANGE_DELETE_PRINTER_DRIVER => 1073741824;
|
||||
use constant PRINTER_CHANGE_DELETE_PRINTER_PROCESSOR => 67108864;
|
||||
use constant PRINTER_CHANGE_FAILED_CONNECTION_PRINTER => 8;
|
||||
use constant PRINTER_CHANGE_FORM => 458752;
|
||||
use constant PRINTER_CHANGE_JOB => 65280;
|
||||
use constant PRINTER_CHANGE_PORT => 7340032;
|
||||
use constant PRINTER_CHANGE_PRINTER => 255;
|
||||
use constant PRINTER_CHANGE_PRINTER_DRIVER => 1879048192;
|
||||
use constant PRINTER_CHANGE_PRINT_PROCESSOR => 117440512;
|
||||
use constant PRINTER_CHANGE_SET_FORM => 131072;
|
||||
use constant PRINTER_CHANGE_SET_JOB => 512;
|
||||
use constant PRINTER_CHANGE_SET_PRINTER => 2;
|
||||
use constant PRINTER_CHANGE_SET_PRINTER_DRIVER => 536870912;
|
||||
use constant PRINTER_CHANGE_TIMEOUT => -2147483648;
|
||||
use constant PRINTER_CHANGE_WRITE_JOB => 2048;
|
||||
use constant PRINTER_CONTROL_PAUSE => 1;
|
||||
use constant PRINTER_CONTROL_PURGE => 3;
|
||||
use constant PRINTER_CONTROL_RESUME => 2;
|
||||
use constant PRINTER_CONTROL_SET_STATUS => 4;
|
||||
use constant PRINTER_ENUM_CONNECTIONS => 4;
|
||||
use constant PRINTER_ENUM_CONTAINER => 32768;
|
||||
use constant PRINTER_ENUM_DEFAULT => 1;
|
||||
use constant PRINTER_ENUM_EXPAND => 16384;
|
||||
use constant PRINTER_ENUM_FAVORITE => 4;
|
||||
use constant PRINTER_ENUM_ICON1 => 65536;
|
||||
use constant PRINTER_ENUM_ICON2 => 131072;
|
||||
use constant PRINTER_ENUM_ICON3 => 262144;
|
||||
use constant PRINTER_ENUM_ICON4 => 524288;
|
||||
use constant PRINTER_ENUM_ICON5 => 1048576;
|
||||
use constant PRINTER_ENUM_ICON6 => 2097152;
|
||||
use constant PRINTER_ENUM_ICON7 => 4194304;
|
||||
use constant PRINTER_ENUM_ICON8 => 8388608;
|
||||
use constant PRINTER_ENUM_ICONMASK => 16711680;
|
||||
use constant PRINTER_ENUM_LOCAL => 2;
|
||||
use constant PRINTER_ENUM_NAME => 8;
|
||||
use constant PRINTER_ENUM_NETWORK => 64;
|
||||
use constant PRINTER_ENUM_REMOTE => 16;
|
||||
use constant PRINTER_ENUM_SHARED => 32;
|
||||
use constant PRINTER_ERROR_INFORMATION => -2147483648;
|
||||
use constant PRINTER_ERROR_JAM => 2;
|
||||
use constant PRINTER_ERROR_OUTODPAPER => 1;
|
||||
use constant PRINTER_ERROR_OUTOFTONER => 4;
|
||||
use constant PRINTER_ERROR_SEVERE => 536870912;
|
||||
use constant PRINTER_ERROR_WARNING => 1073741824;
|
||||
use constant PRINTER_NOTIFY_FIELD_ATTRIBUTES => 13;
|
||||
use constant PRINTER_NOTIFY_FIELD_AVERAGE_PPM => 21;
|
||||
use constant PRINTER_NOTIFY_FIELD_BYTES_PRINTED => 25;
|
||||
use constant PRINTER_NOTIFY_FIELD_CJOBS => 20;
|
||||
use constant PRINTER_NOTIFY_FIELD_COMMENT => 5;
|
||||
use constant PRINTER_NOTIFY_FIELD_DATATYPE => 11;
|
||||
use constant PRINTER_NOTIFY_FIELD_DEFAULT_PRIORITY => 15;
|
||||
use constant PRINTER_NOTIFY_FIELD_DEVMODE => 7;
|
||||
use constant PRINTER_NOTIFY_FIELD_DRIVER_NAME => 4;
|
||||
use constant PRINTER_NOTIFY_FIELD_LOCATION => 6;
|
||||
use constant PRINTER_NOTIFY_FIELD_PAGES_PRINTED => 23;
|
||||
use constant PRINTER_NOTIFY_FIELD_PARAMETERS => 10;
|
||||
use constant PRINTER_NOTIFY_FIELD_PORT_NAME => 3;
|
||||
use constant PRINTER_NOTIFY_FIELD_PRINTER_NAME => 1;
|
||||
use constant PRINTER_NOTIFY_FIELD_PRINT_PROCESSOR => 9;
|
||||
use constant PRINTER_NOTIFY_FIELD_PRIORITY => 14;
|
||||
use constant PRINTER_NOTIFY_FIELD_SECURITY_DESCRIPTOR => 12;
|
||||
use constant PRINTER_NOTIFY_FIELD_SEPFILE => 8;
|
||||
use constant PRINTER_NOTIFY_FIELD_SERVER_NAME => 0;
|
||||
use constant PRINTER_NOTIFY_FIELD_SHARE_NAME => 2;
|
||||
use constant PRINTER_NOTIFY_FIELD_START_TIME => 16;
|
||||
use constant PRINTER_NOTIFY_FIELD_STATUS => 18;
|
||||
use constant PRINTER_NOTIFY_FIELD_STATUS_STRING => 19;
|
||||
use constant PRINTER_NOTIFY_FIELD_TOTAL_BYTES => 24;
|
||||
use constant PRINTER_NOTIFY_FIELD_TOTAL_PAGES => 22;
|
||||
use constant PRINTER_NOTIFY_FIELD_UNTIL_TIME => 17;
|
||||
use constant PRINTER_NOTIFY_INFO_DISCARDED => 1;
|
||||
use constant PRINTER_NOTIFY_OPTIONS_REFRESH => 1;
|
||||
use constant PRINTER_NOTIFY_TYPE => 0;
|
||||
use constant PRINTER_STATUS_BUSY => 512;
|
||||
use constant PRINTER_STATUS_DOOR_OPEN => 4194304;
|
||||
use constant PRINTER_STATUS_ERROR => 2;
|
||||
use constant PRINTER_STATUS_INITIALIZING => 32768;
|
||||
use constant PRINTER_STATUS_IO_ACTIVE => 256;
|
||||
use constant PRINTER_STATUS_MANUAL_FEED => 32;
|
||||
use constant PRINTER_STATUS_NOT_AVAILABLE => 4096;
|
||||
use constant PRINTER_STATUS_NO_TONER => 262144;
|
||||
use constant PRINTER_STATUS_OFFLINE => 128;
|
||||
use constant PRINTER_STATUS_OUTPUT_BIN_FULL => 2048;
|
||||
use constant PRINTER_STATUS_OUT_OF_MEMORY => 2097152;
|
||||
use constant PRINTER_STATUS_PAGE_PUNT => 524288;
|
||||
use constant PRINTER_STATUS_PAPER_JAM => 8;
|
||||
use constant PRINTER_STATUS_PAPER_OUT => 16;
|
||||
use constant PRINTER_STATUS_PAPER_PROBLEM => 64;
|
||||
use constant PRINTER_STATUS_PAUSED => 1;
|
||||
use constant PRINTER_STATUS_PENDING_DELETION => 4;
|
||||
use constant PRINTER_STATUS_POWER_SAVE => 16777216;
|
||||
use constant PRINTER_STATUS_PRINTING => 1024;
|
||||
use constant PRINTER_STATUS_PROCESSING => 16384;
|
||||
use constant PRINTER_STATUS_SERVER_UNKNOWN => 8388608;
|
||||
use constant PRINTER_STATUS_TONER_LOW => 131072;
|
||||
use constant PRINTER_STATUS_USER_INTERVENTION => 1048576;
|
||||
use constant PRINTER_STATUS_WAITING => 8192;
|
||||
use constant PRINTER_STATUS_WARMING_UP => 65536;
|
||||
|
||||
1;
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -3,77 +3,167 @@
|
|||
# Perl definitions for header file winver.h
|
||||
#
|
||||
|
||||
$VFFF_ISSHAREDFILE = 1;
|
||||
$VFF_BUFFTOOSMALL = 4;
|
||||
$VFF_CURNEDEST = 1;
|
||||
$VFF_FILEINUSE = 2;
|
||||
$VFT2_DRV_COMM = 10;
|
||||
$VFT2_DRV_DISPLAY = 4;
|
||||
$VFT2_DRV_INPUTMETHOD = 11;
|
||||
$VFT2_DRV_INSTALLABLE = 8;
|
||||
$VFT2_DRV_KEYBOARD = 2;
|
||||
$VFT2_DRV_LANGUAGE = 3;
|
||||
$VFT2_DRV_MOUSE = 5;
|
||||
$VFT2_DRV_NETWORK = 6;
|
||||
$VFT2_DRV_PRINTER = 1;
|
||||
$VFT2_DRV_SOUND = 9;
|
||||
$VFT2_DRV_SYSTEM = 7;
|
||||
$VFT2_FONT_RASTER = 1;
|
||||
$VFT2_FONT_TRUETYPE = 3;
|
||||
$VFT2_FONT_VECTOR = 2;
|
||||
$VFT2_UNKNOWN = 0;
|
||||
$VFT_APP = 1;
|
||||
$VFT_DLL = 2;
|
||||
$VFT_DRV = 3;
|
||||
$VFT_FONT = 4;
|
||||
$VFT_STATIC_LIB = 7;
|
||||
$VFT_UNKNOWN = 0;
|
||||
$VFT_VXD = 5;
|
||||
$VIFF_DONTDELETEOLD = 2;
|
||||
$VIFF_FORCEINSTALL = 1;
|
||||
$VIF_ACCESSVIOLATION = 512;
|
||||
$VIF_BUFFTOOSMALL = 262144;
|
||||
$VIF_CANNOTCREATE = 2048;
|
||||
$VIF_CANNOTDELETE = 4096;
|
||||
$VIF_CANNOTDELETECUR = 16384;
|
||||
$VIF_CANNOTREADDST = 131072;
|
||||
$VIF_CANNOTREADSRC = 65536;
|
||||
$VIF_CANNOTRENAME = 8192;
|
||||
$VIF_DIFFCODEPG = 16;
|
||||
$VIF_DIFFLANG = 8;
|
||||
$VIF_DIFFTYPE = 32;
|
||||
$VIF_FILEINUSE = 128;
|
||||
$VIF_MISMATCH = 2;
|
||||
$VIF_OUTOFMEMORY = 32768;
|
||||
$VIF_OUTOFSPACE = 256;
|
||||
$VIF_SHARINGVIOLATION = 1024;
|
||||
$VIF_SRCOLD = 4;
|
||||
$VIF_TEMPFILE = 1;
|
||||
$VIF_WRITEPROT = 64;
|
||||
$VOS_DOS = 65536;
|
||||
$VOS_DOS_WINDOWS16 = 65537;
|
||||
$VOS_DOS_WINDOWS32 = 65540;
|
||||
$VOS_NT = 262144;
|
||||
$VOS_NT_WINDOWS32 = 262148;
|
||||
$VOS_OS216 = 131072;
|
||||
$VOS_OS216_PM16 = 131074;
|
||||
$VOS_OS232 = 196608;
|
||||
$VOS_OS232_PM32 = 196611;
|
||||
$VOS_UNKNOWN = 0;
|
||||
$VOS__BASE = 0;
|
||||
$VOS__PM16 = 2;
|
||||
$VOS__PM32 = 3;
|
||||
$VOS__WINDOWS16 = 1;
|
||||
$VOS__WINDOWS32 = 4;
|
||||
$VS_FFI_FILEFLAGSMASK = 63;
|
||||
$VS_FFI_SIGNATURE = -17890115;
|
||||
$VS_FFI_STRUCVERSION = 65536;
|
||||
$VS_FF_DEBUG = 1;
|
||||
$VS_FF_INFOINFERRED = 16;
|
||||
$VS_FF_PATCHED = 4;
|
||||
$VS_FF_PRERELEASE = 2;
|
||||
$VS_FF_PRIVATEBUILD = 8;
|
||||
$VS_FF_SPECIALBUILD = 32;
|
||||
$VS_FILE_INFO = 16;
|
||||
$VS_USER_DEFINED = 100;
|
||||
$VS_VERSION_INFO = 1;
|
||||
|
||||
package winver;
|
||||
|
||||
use strict;
|
||||
|
||||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
|
||||
|
||||
require Exporter;
|
||||
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(
|
||||
VFFF_ISSHAREDFILE
|
||||
VFF_BUFFTOOSMALL
|
||||
VFF_CURNEDEST
|
||||
VFF_FILEINUSE
|
||||
VFT2_DRV_COMM
|
||||
VFT2_DRV_DISPLAY
|
||||
VFT2_DRV_INPUTMETHOD
|
||||
VFT2_DRV_INSTALLABLE
|
||||
VFT2_DRV_KEYBOARD
|
||||
VFT2_DRV_LANGUAGE
|
||||
VFT2_DRV_MOUSE
|
||||
VFT2_DRV_NETWORK
|
||||
VFT2_DRV_PRINTER
|
||||
VFT2_DRV_SOUND
|
||||
VFT2_DRV_SYSTEM
|
||||
VFT2_FONT_RASTER
|
||||
VFT2_FONT_TRUETYPE
|
||||
VFT2_FONT_VECTOR
|
||||
VFT2_UNKNOWN
|
||||
VFT_APP
|
||||
VFT_DLL
|
||||
VFT_DRV
|
||||
VFT_FONT
|
||||
VFT_STATIC_LIB
|
||||
VFT_UNKNOWN
|
||||
VFT_VXD
|
||||
VIFF_DONTDELETEOLD
|
||||
VIFF_FORCEINSTALL
|
||||
VIF_ACCESSVIOLATION
|
||||
VIF_BUFFTOOSMALL
|
||||
VIF_CANNOTCREATE
|
||||
VIF_CANNOTDELETE
|
||||
VIF_CANNOTDELETECUR
|
||||
VIF_CANNOTREADDST
|
||||
VIF_CANNOTREADSRC
|
||||
VIF_CANNOTRENAME
|
||||
VIF_DIFFCODEPG
|
||||
VIF_DIFFLANG
|
||||
VIF_DIFFTYPE
|
||||
VIF_FILEINUSE
|
||||
VIF_MISMATCH
|
||||
VIF_OUTOFMEMORY
|
||||
VIF_OUTOFSPACE
|
||||
VIF_SHARINGVIOLATION
|
||||
VIF_SRCOLD
|
||||
VIF_TEMPFILE
|
||||
VIF_WRITEPROT
|
||||
VOS_DOS
|
||||
VOS_DOS_WINDOWS16
|
||||
VOS_DOS_WINDOWS32
|
||||
VOS_NT
|
||||
VOS_NT_WINDOWS32
|
||||
VOS_OS216
|
||||
VOS_OS216_PM16
|
||||
VOS_OS232
|
||||
VOS_OS232_PM32
|
||||
VOS_UNKNOWN
|
||||
VOS__BASE
|
||||
VOS__PM16
|
||||
VOS__PM32
|
||||
VOS__WINDOWS16
|
||||
VOS__WINDOWS32
|
||||
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;
|
||||
|
|
|
|||
|
|
@ -46,6 +46,9 @@ foreach $basename (@list)
|
|||
my $result = "include/" . $basename;
|
||||
$result =~ s!\.h$!.pm!;
|
||||
|
||||
my $package = $basename;
|
||||
$package =~ s/\.h$//;
|
||||
|
||||
open INPUT, "$include_dir/$basename" or die "Cannot open $include_dir/$basename";
|
||||
open OUTPUT, ">sym.c" or die "Cannot create sym.c";
|
||||
print "Building $result\n";
|
||||
|
|
@ -64,6 +67,17 @@ int main()
|
|||
printf( "#\\n" );
|
||||
printf( "# Perl definitions for header file $basename\\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
|
||||
|
||||
my %symbols = ();
|
||||
|
|
@ -84,8 +98,18 @@ EOF
|
|||
}
|
||||
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";
|
||||
close OUTPUT;
|
||||
#print "cc -I../../include -o sym sym.c\n";
|
||||
|
|
|
|||
Loading…
Reference in New Issue