use strict;
use warnings;
use File::Spec;
-our $VERSION = '1.15';
+our $VERSION = '1.16';
use bytes (); # for $bytes::hint_bits
+# The hashes are stored as utf8 strings. This makes it easier to deal with
+# sequences. I (khw) also tried making Name.pl utf8, but it slowed things
+# down by a factor of 7. I then tried making Name.pl store the ut8
+# equivalents but not calling them utf8. That led to similar speed as leaving
+# it alone, but since that is harder for a human to parse, I left it as-is.
+
my %system_aliases = (
# Icky 3.2 names with parentheses.
- 'LINE FEED' => 0x0A, # LINE FEED (LF)
- 'FORM FEED' => 0x0C, # FORM FEED (FF)
- 'CARRIAGE RETURN' => 0x0D, # CARRIAGE RETURN (CR)
- 'NEXT LINE' => 0x85, # NEXT LINE (NEL)
+ 'LINE FEED' => pack("U", 0x0A), # LINE FEED (LF)
+ 'FORM FEED' => pack("U", 0x0C), # FORM FEED (FF)
+ 'CARRIAGE RETURN' => pack("U", 0x0D), # CARRIAGE RETURN (CR)
+ 'NEXT LINE' => pack("U", 0x85), # NEXT LINE (NEL)
# Some variant names from Wikipedia
- 'SINGLE-SHIFT 2' => 0x8E,
- 'SINGLE-SHIFT 3' => 0x8F,
- 'PRIVATE USE 1' => 0x91,
- 'PRIVATE USE 2' => 0x92,
- 'START OF PROTECTED AREA' => 0x96,
- 'END OF PROTECTED AREA' => 0x97,
+ 'SINGLE-SHIFT 2' => pack("U", 0x8E),
+ 'SINGLE-SHIFT 3' => pack("U", 0x8F),
+ 'PRIVATE USE 1' => pack("U", 0x91),
+ 'PRIVATE USE 2' => pack("U", 0x92),
+ 'START OF PROTECTED AREA' => pack("U", 0x96),
+ 'END OF PROTECTED AREA' => pack("U", 0x97),
# Convenience. Standard abbreviations for the controls
- 'NUL' => 0x00, # NULL
- 'SOH' => 0x01, # START OF HEADING
- 'STX' => 0x02, # START OF TEXT
- 'ETX' => 0x03, # END OF TEXT
- 'EOT' => 0x04, # END OF TRANSMISSION
- 'ENQ' => 0x05, # ENQUIRY
- 'ACK' => 0x06, # ACKNOWLEDGE
- 'BEL' => 0x07, # BELL
- 'BS' => 0x08, # BACKSPACE
- 'HT' => 0x09, # HORIZONTAL TABULATION
- 'LF' => 0x0A, # LINE FEED (LF)
- 'VT' => 0x0B, # VERTICAL TABULATION
- 'FF' => 0x0C, # FORM FEED (FF)
- 'CR' => 0x0D, # CARRIAGE RETURN (CR)
- 'SO' => 0x0E, # SHIFT OUT
- 'SI' => 0x0F, # SHIFT IN
- 'DLE' => 0x10, # DATA LINK ESCAPE
- 'DC1' => 0x11, # DEVICE CONTROL ONE
- 'DC2' => 0x12, # DEVICE CONTROL TWO
- 'DC3' => 0x13, # DEVICE CONTROL THREE
- 'DC4' => 0x14, # DEVICE CONTROL FOUR
- 'NAK' => 0x15, # NEGATIVE ACKNOWLEDGE
- 'SYN' => 0x16, # SYNCHRONOUS IDLE
- 'ETB' => 0x17, # END OF TRANSMISSION BLOCK
- 'CAN' => 0x18, # CANCEL
- 'EOM' => 0x19, # END OF MEDIUM
- 'SUB' => 0x1A, # SUBSTITUTE
- 'ESC' => 0x1B, # ESCAPE
- 'FS' => 0x1C, # FILE SEPARATOR
- 'GS' => 0x1D, # GROUP SEPARATOR
- 'RS' => 0x1E, # RECORD SEPARATOR
- 'US' => 0x1F, # UNIT SEPARATOR
- 'DEL' => 0x7F, # DELETE
- 'BPH' => 0x82, # BREAK PERMITTED HERE
- 'NBH' => 0x83, # NO BREAK HERE
- 'NEL' => 0x85, # NEXT LINE (NEL)
- 'SSA' => 0x86, # START OF SELECTED AREA
- 'ESA' => 0x87, # END OF SELECTED AREA
- 'HTS' => 0x88, # CHARACTER TABULATION SET
- 'HTJ' => 0x89, # CHARACTER TABULATION WITH JUSTIFICATION
- 'VTS' => 0x8A, # LINE TABULATION SET
- 'PLD' => 0x8B, # PARTIAL LINE FORWARD
- 'PLU' => 0x8C, # PARTIAL LINE BACKWARD
- 'RI ' => 0x8D, # REVERSE LINE FEED
- 'SS2' => 0x8E, # SINGLE SHIFT TWO
- 'SS3' => 0x8F, # SINGLE SHIFT THREE
- 'DCS' => 0x90, # DEVICE CONTROL STRING
- 'PU1' => 0x91, # PRIVATE USE ONE
- 'PU2' => 0x92, # PRIVATE USE TWO
- 'STS' => 0x93, # SET TRANSMIT STATE
- 'CCH' => 0x94, # CANCEL CHARACTER
- 'MW ' => 0x95, # MESSAGE WAITING
- 'SPA' => 0x96, # START OF GUARDED AREA
- 'EPA' => 0x97, # END OF GUARDED AREA
- 'SOS' => 0x98, # START OF STRING
- 'SCI' => 0x9A, # SINGLE CHARACTER INTRODUCER
- 'CSI' => 0x9B, # CONTROL SEQUENCE INTRODUCER
- 'ST ' => 0x9C, # STRING TERMINATOR
- 'OSC' => 0x9D, # OPERATING SYSTEM COMMAND
- 'PM ' => 0x9E, # PRIVACY MESSAGE
- 'APC' => 0x9F, # APPLICATION PROGRAM COMMAND
+ 'NUL' => pack("U", 0x00), # NULL
+ 'SOH' => pack("U", 0x01), # START OF HEADING
+ 'STX' => pack("U", 0x02), # START OF TEXT
+ 'ETX' => pack("U", 0x03), # END OF TEXT
+ 'EOT' => pack("U", 0x04), # END OF TRANSMISSION
+ 'ENQ' => pack("U", 0x05), # ENQUIRY
+ 'ACK' => pack("U", 0x06), # ACKNOWLEDGE
+ 'BEL' => pack("U", 0x07), # BELL
+ 'BS' => pack("U", 0x08), # BACKSPACE
+ 'HT' => pack("U", 0x09), # HORIZONTAL TABULATION
+ 'LF' => pack("U", 0x0A), # LINE FEED (LF)
+ 'VT' => pack("U", 0x0B), # VERTICAL TABULATION
+ 'FF' => pack("U", 0x0C), # FORM FEED (FF)
+ 'CR' => pack("U", 0x0D), # CARRIAGE RETURN (CR)
+ 'SO' => pack("U", 0x0E), # SHIFT OUT
+ 'SI' => pack("U", 0x0F), # SHIFT IN
+ 'DLE' => pack("U", 0x10), # DATA LINK ESCAPE
+ 'DC1' => pack("U", 0x11), # DEVICE CONTROL ONE
+ 'DC2' => pack("U", 0x12), # DEVICE CONTROL TWO
+ 'DC3' => pack("U", 0x13), # DEVICE CONTROL THREE
+ 'DC4' => pack("U", 0x14), # DEVICE CONTROL FOUR
+ 'NAK' => pack("U", 0x15), # NEGATIVE ACKNOWLEDGE
+ 'SYN' => pack("U", 0x16), # SYNCHRONOUS IDLE
+ 'ETB' => pack("U", 0x17), # END OF TRANSMISSION BLOCK
+ 'CAN' => pack("U", 0x18), # CANCEL
+ 'EOM' => pack("U", 0x19), # END OF MEDIUM
+ 'SUB' => pack("U", 0x1A), # SUBSTITUTE
+ 'ESC' => pack("U", 0x1B), # ESCAPE
+ 'FS' => pack("U", 0x1C), # FILE SEPARATOR
+ 'GS' => pack("U", 0x1D), # GROUP SEPARATOR
+ 'RS' => pack("U", 0x1E), # RECORD SEPARATOR
+ 'US' => pack("U", 0x1F), # UNIT SEPARATOR
+ 'DEL' => pack("U", 0x7F), # DELETE
+ 'BPH' => pack("U", 0x82), # BREAK PERMITTED HERE
+ 'NBH' => pack("U", 0x83), # NO BREAK HERE
+ 'NEL' => pack("U", 0x85), # NEXT LINE (NEL)
+ 'SSA' => pack("U", 0x86), # START OF SELECTED AREA
+ 'ESA' => pack("U", 0x87), # END OF SELECTED AREA
+ 'HTS' => pack("U", 0x88), # CHARACTER TABULATION SET
+ 'HTJ' => pack("U", 0x89), # CHARACTER TABULATION WITH JUSTIFICATION
+ 'VTS' => pack("U", 0x8A), # LINE TABULATION SET
+ 'PLD' => pack("U", 0x8B), # PARTIAL LINE FORWARD
+ 'PLU' => pack("U", 0x8C), # PARTIAL LINE BACKWARD
+ 'RI ' => pack("U", 0x8D), # REVERSE LINE FEED
+ 'SS2' => pack("U", 0x8E), # SINGLE SHIFT TWO
+ 'SS3' => pack("U", 0x8F), # SINGLE SHIFT THREE
+ 'DCS' => pack("U", 0x90), # DEVICE CONTROL STRING
+ 'PU1' => pack("U", 0x91), # PRIVATE USE ONE
+ 'PU2' => pack("U", 0x92), # PRIVATE USE TWO
+ 'STS' => pack("U", 0x93), # SET TRANSMIT STATE
+ 'CCH' => pack("U", 0x94), # CANCEL CHARACTER
+ 'MW ' => pack("U", 0x95), # MESSAGE WAITING
+ 'SPA' => pack("U", 0x96), # START OF GUARDED AREA
+ 'EPA' => pack("U", 0x97), # END OF GUARDED AREA
+ 'SOS' => pack("U", 0x98), # START OF STRING
+ 'SCI' => pack("U", 0x9A), # SINGLE CHARACTER INTRODUCER
+ 'CSI' => pack("U", 0x9B), # CONTROL SEQUENCE INTRODUCER
+ 'ST ' => pack("U", 0x9C), # STRING TERMINATOR
+ 'OSC' => pack("U", 0x9D), # OPERATING SYSTEM COMMAND
+ 'PM ' => pack("U", 0x9E), # PRIVACY MESSAGE
+ 'APC' => pack("U", 0x9F), # APPLICATION PROGRAM COMMAND
# There are no names for these in the Unicode standard;
# perhaps should be deprecated, but then again there are
# no alternative names, so am not deprecating. And if
# did, the code would have to change to not recommend an
# alternative for these.
- 'PADDING CHARACTER' => 0x80,
- 'PAD' => 0x80,
- 'HIGH OCTET PRESET' => 0x81,
- 'HOP' => 0x81,
- 'INDEX' => 0x84,
- 'IND' => 0x84,
- 'SINGLE GRAPHIC CHARACTER INTRODUCER' => 0x99,
- 'SGC' => 0x99,
+ 'PADDING CHARACTER' => pack("U", 0x80),
+ 'PAD' => pack("U", 0x80),
+ 'HIGH OCTET PRESET' => pack("U", 0x81),
+ 'HOP' => pack("U", 0x81),
+ 'INDEX' => pack("U", 0x84),
+ 'IND' => pack("U", 0x84),
+ 'SINGLE GRAPHIC CHARACTER INTRODUCER' => pack("U", 0x99),
+ 'SGC' => pack("U", 0x99),
# More convenience. For further convenience,
# it is suggested some way of using the NamesList
# aliases be implemented, but there are ambiguities in
# NamesList.txt
- 'BOM' => 0xFEFF, # BYTE ORDER MARK
- 'BYTE ORDER MARK'=> 0xFEFF,
- 'CGJ' => 0x034F, # COMBINING GRAPHEME JOINER
- 'FVS1' => 0x180B, # MONGOLIAN FREE VARIATION SELECTOR ONE
- 'FVS2' => 0x180C, # MONGOLIAN FREE VARIATION SELECTOR TWO
- 'FVS3' => 0x180D, # MONGOLIAN FREE VARIATION SELECTOR THREE
- 'LRE' => 0x202A, # LEFT-TO-RIGHT EMBEDDING
- 'LRM' => 0x200E, # LEFT-TO-RIGHT MARK
- 'LRO' => 0x202D, # LEFT-TO-RIGHT OVERRIDE
- 'MMSP' => 0x205F, # MEDIUM MATHEMATICAL SPACE
- 'MVS' => 0x180E, # MONGOLIAN VOWEL SEPARATOR
- 'NBSP' => 0x00A0, # NO-BREAK SPACE
- 'NNBSP' => 0x202F, # NARROW NO-BREAK SPACE
- 'PDF' => 0x202C, # POP DIRECTIONAL FORMATTING
- 'RLE' => 0x202B, # RIGHT-TO-LEFT EMBEDDING
- 'RLM' => 0x200F, # RIGHT-TO-LEFT MARK
- 'RLO' => 0x202E, # RIGHT-TO-LEFT OVERRIDE
- 'SHY' => 0x00AD, # SOFT HYPHEN
- 'VS1' => 0xFE00, # VARIATION SELECTOR-1
- 'VS2' => 0xFE01, # VARIATION SELECTOR-2
- 'VS3' => 0xFE02, # VARIATION SELECTOR-3
- 'VS4' => 0xFE03, # VARIATION SELECTOR-4
- 'VS5' => 0xFE04, # VARIATION SELECTOR-5
- 'VS6' => 0xFE05, # VARIATION SELECTOR-6
- 'VS7' => 0xFE06, # VARIATION SELECTOR-7
- 'VS8' => 0xFE07, # VARIATION SELECTOR-8
- 'VS9' => 0xFE08, # VARIATION SELECTOR-9
- 'VS10' => 0xFE09, # VARIATION SELECTOR-10
- 'VS11' => 0xFE0A, # VARIATION SELECTOR-11
- 'VS12' => 0xFE0B, # VARIATION SELECTOR-12
- 'VS13' => 0xFE0C, # VARIATION SELECTOR-13
- 'VS14' => 0xFE0D, # VARIATION SELECTOR-14
- 'VS15' => 0xFE0E, # VARIATION SELECTOR-15
- 'VS16' => 0xFE0F, # VARIATION SELECTOR-16
- 'VS17' => 0xE0100, # VARIATION SELECTOR-17
- 'VS18' => 0xE0101, # VARIATION SELECTOR-18
- 'VS19' => 0xE0102, # VARIATION SELECTOR-19
- 'VS20' => 0xE0103, # VARIATION SELECTOR-20
- 'VS21' => 0xE0104, # VARIATION SELECTOR-21
- 'VS22' => 0xE0105, # VARIATION SELECTOR-22
- 'VS23' => 0xE0106, # VARIATION SELECTOR-23
- 'VS24' => 0xE0107, # VARIATION SELECTOR-24
- 'VS25' => 0xE0108, # VARIATION SELECTOR-25
- 'VS26' => 0xE0109, # VARIATION SELECTOR-26
- 'VS27' => 0xE010A, # VARIATION SELECTOR-27
- 'VS28' => 0xE010B, # VARIATION SELECTOR-28
- 'VS29' => 0xE010C, # VARIATION SELECTOR-29
- 'VS30' => 0xE010D, # VARIATION SELECTOR-30
- 'VS31' => 0xE010E, # VARIATION SELECTOR-31
- 'VS32' => 0xE010F, # VARIATION SELECTOR-32
- 'VS33' => 0xE0110, # VARIATION SELECTOR-33
- 'VS34' => 0xE0111, # VARIATION SELECTOR-34
- 'VS35' => 0xE0112, # VARIATION SELECTOR-35
- 'VS36' => 0xE0113, # VARIATION SELECTOR-36
- 'VS37' => 0xE0114, # VARIATION SELECTOR-37
- 'VS38' => 0xE0115, # VARIATION SELECTOR-38
- 'VS39' => 0xE0116, # VARIATION SELECTOR-39
- 'VS40' => 0xE0117, # VARIATION SELECTOR-40
- 'VS41' => 0xE0118, # VARIATION SELECTOR-41
- 'VS42' => 0xE0119, # VARIATION SELECTOR-42
- 'VS43' => 0xE011A, # VARIATION SELECTOR-43
- 'VS44' => 0xE011B, # VARIATION SELECTOR-44
- 'VS45' => 0xE011C, # VARIATION SELECTOR-45
- 'VS46' => 0xE011D, # VARIATION SELECTOR-46
- 'VS47' => 0xE011E, # VARIATION SELECTOR-47
- 'VS48' => 0xE011F, # VARIATION SELECTOR-48
- 'VS49' => 0xE0120, # VARIATION SELECTOR-49
- 'VS50' => 0xE0121, # VARIATION SELECTOR-50
- 'VS51' => 0xE0122, # VARIATION SELECTOR-51
- 'VS52' => 0xE0123, # VARIATION SELECTOR-52
- 'VS53' => 0xE0124, # VARIATION SELECTOR-53
- 'VS54' => 0xE0125, # VARIATION SELECTOR-54
- 'VS55' => 0xE0126, # VARIATION SELECTOR-55
- 'VS56' => 0xE0127, # VARIATION SELECTOR-56
- 'VS57' => 0xE0128, # VARIATION SELECTOR-57
- 'VS58' => 0xE0129, # VARIATION SELECTOR-58
- 'VS59' => 0xE012A, # VARIATION SELECTOR-59
- 'VS60' => 0xE012B, # VARIATION SELECTOR-60
- 'VS61' => 0xE012C, # VARIATION SELECTOR-61
- 'VS62' => 0xE012D, # VARIATION SELECTOR-62
- 'VS63' => 0xE012E, # VARIATION SELECTOR-63
- 'VS64' => 0xE012F, # VARIATION SELECTOR-64
- 'VS65' => 0xE0130, # VARIATION SELECTOR-65
- 'VS66' => 0xE0131, # VARIATION SELECTOR-66
- 'VS67' => 0xE0132, # VARIATION SELECTOR-67
- 'VS68' => 0xE0133, # VARIATION SELECTOR-68
- 'VS69' => 0xE0134, # VARIATION SELECTOR-69
- 'VS70' => 0xE0135, # VARIATION SELECTOR-70
- 'VS71' => 0xE0136, # VARIATION SELECTOR-71
- 'VS72' => 0xE0137, # VARIATION SELECTOR-72
- 'VS73' => 0xE0138, # VARIATION SELECTOR-73
- 'VS74' => 0xE0139, # VARIATION SELECTOR-74
- 'VS75' => 0xE013A, # VARIATION SELECTOR-75
- 'VS76' => 0xE013B, # VARIATION SELECTOR-76
- 'VS77' => 0xE013C, # VARIATION SELECTOR-77
- 'VS78' => 0xE013D, # VARIATION SELECTOR-78
- 'VS79' => 0xE013E, # VARIATION SELECTOR-79
- 'VS80' => 0xE013F, # VARIATION SELECTOR-80
- 'VS81' => 0xE0140, # VARIATION SELECTOR-81
- 'VS82' => 0xE0141, # VARIATION SELECTOR-82
- 'VS83' => 0xE0142, # VARIATION SELECTOR-83
- 'VS84' => 0xE0143, # VARIATION SELECTOR-84
- 'VS85' => 0xE0144, # VARIATION SELECTOR-85
- 'VS86' => 0xE0145, # VARIATION SELECTOR-86
- 'VS87' => 0xE0146, # VARIATION SELECTOR-87
- 'VS88' => 0xE0147, # VARIATION SELECTOR-88
- 'VS89' => 0xE0148, # VARIATION SELECTOR-89
- 'VS90' => 0xE0149, # VARIATION SELECTOR-90
- 'VS91' => 0xE014A, # VARIATION SELECTOR-91
- 'VS92' => 0xE014B, # VARIATION SELECTOR-92
- 'VS93' => 0xE014C, # VARIATION SELECTOR-93
- 'VS94' => 0xE014D, # VARIATION SELECTOR-94
- 'VS95' => 0xE014E, # VARIATION SELECTOR-95
- 'VS96' => 0xE014F, # VARIATION SELECTOR-96
- 'VS97' => 0xE0150, # VARIATION SELECTOR-97
- 'VS98' => 0xE0151, # VARIATION SELECTOR-98
- 'VS99' => 0xE0152, # VARIATION SELECTOR-99
- 'VS100' => 0xE0153, # VARIATION SELECTOR-100
- 'VS101' => 0xE0154, # VARIATION SELECTOR-101
- 'VS102' => 0xE0155, # VARIATION SELECTOR-102
- 'VS103' => 0xE0156, # VARIATION SELECTOR-103
- 'VS104' => 0xE0157, # VARIATION SELECTOR-104
- 'VS105' => 0xE0158, # VARIATION SELECTOR-105
- 'VS106' => 0xE0159, # VARIATION SELECTOR-106
- 'VS107' => 0xE015A, # VARIATION SELECTOR-107
- 'VS108' => 0xE015B, # VARIATION SELECTOR-108
- 'VS109' => 0xE015C, # VARIATION SELECTOR-109
- 'VS110' => 0xE015D, # VARIATION SELECTOR-110
- 'VS111' => 0xE015E, # VARIATION SELECTOR-111
- 'VS112' => 0xE015F, # VARIATION SELECTOR-112
- 'VS113' => 0xE0160, # VARIATION SELECTOR-113
- 'VS114' => 0xE0161, # VARIATION SELECTOR-114
- 'VS115' => 0xE0162, # VARIATION SELECTOR-115
- 'VS116' => 0xE0163, # VARIATION SELECTOR-116
- 'VS117' => 0xE0164, # VARIATION SELECTOR-117
- 'VS118' => 0xE0165, # VARIATION SELECTOR-118
- 'VS119' => 0xE0166, # VARIATION SELECTOR-119
- 'VS120' => 0xE0167, # VARIATION SELECTOR-120
- 'VS121' => 0xE0168, # VARIATION SELECTOR-121
- 'VS122' => 0xE0169, # VARIATION SELECTOR-122
- 'VS123' => 0xE016A, # VARIATION SELECTOR-123
- 'VS124' => 0xE016B, # VARIATION SELECTOR-124
- 'VS125' => 0xE016C, # VARIATION SELECTOR-125
- 'VS126' => 0xE016D, # VARIATION SELECTOR-126
- 'VS127' => 0xE016E, # VARIATION SELECTOR-127
- 'VS128' => 0xE016F, # VARIATION SELECTOR-128
- 'VS129' => 0xE0170, # VARIATION SELECTOR-129
- 'VS130' => 0xE0171, # VARIATION SELECTOR-130
- 'VS131' => 0xE0172, # VARIATION SELECTOR-131
- 'VS132' => 0xE0173, # VARIATION SELECTOR-132
- 'VS133' => 0xE0174, # VARIATION SELECTOR-133
- 'VS134' => 0xE0175, # VARIATION SELECTOR-134
- 'VS135' => 0xE0176, # VARIATION SELECTOR-135
- 'VS136' => 0xE0177, # VARIATION SELECTOR-136
- 'VS137' => 0xE0178, # VARIATION SELECTOR-137
- 'VS138' => 0xE0179, # VARIATION SELECTOR-138
- 'VS139' => 0xE017A, # VARIATION SELECTOR-139
- 'VS140' => 0xE017B, # VARIATION SELECTOR-140
- 'VS141' => 0xE017C, # VARIATION SELECTOR-141
- 'VS142' => 0xE017D, # VARIATION SELECTOR-142
- 'VS143' => 0xE017E, # VARIATION SELECTOR-143
- 'VS144' => 0xE017F, # VARIATION SELECTOR-144
- 'VS145' => 0xE0180, # VARIATION SELECTOR-145
- 'VS146' => 0xE0181, # VARIATION SELECTOR-146
- 'VS147' => 0xE0182, # VARIATION SELECTOR-147
- 'VS148' => 0xE0183, # VARIATION SELECTOR-148
- 'VS149' => 0xE0184, # VARIATION SELECTOR-149
- 'VS150' => 0xE0185, # VARIATION SELECTOR-150
- 'VS151' => 0xE0186, # VARIATION SELECTOR-151
- 'VS152' => 0xE0187, # VARIATION SELECTOR-152
- 'VS153' => 0xE0188, # VARIATION SELECTOR-153
- 'VS154' => 0xE0189, # VARIATION SELECTOR-154
- 'VS155' => 0xE018A, # VARIATION SELECTOR-155
- 'VS156' => 0xE018B, # VARIATION SELECTOR-156
- 'VS157' => 0xE018C, # VARIATION SELECTOR-157
- 'VS158' => 0xE018D, # VARIATION SELECTOR-158
- 'VS159' => 0xE018E, # VARIATION SELECTOR-159
- 'VS160' => 0xE018F, # VARIATION SELECTOR-160
- 'VS161' => 0xE0190, # VARIATION SELECTOR-161
- 'VS162' => 0xE0191, # VARIATION SELECTOR-162
- 'VS163' => 0xE0192, # VARIATION SELECTOR-163
- 'VS164' => 0xE0193, # VARIATION SELECTOR-164
- 'VS165' => 0xE0194, # VARIATION SELECTOR-165
- 'VS166' => 0xE0195, # VARIATION SELECTOR-166
- 'VS167' => 0xE0196, # VARIATION SELECTOR-167
- 'VS168' => 0xE0197, # VARIATION SELECTOR-168
- 'VS169' => 0xE0198, # VARIATION SELECTOR-169
- 'VS170' => 0xE0199, # VARIATION SELECTOR-170
- 'VS171' => 0xE019A, # VARIATION SELECTOR-171
- 'VS172' => 0xE019B, # VARIATION SELECTOR-172
- 'VS173' => 0xE019C, # VARIATION SELECTOR-173
- 'VS174' => 0xE019D, # VARIATION SELECTOR-174
- 'VS175' => 0xE019E, # VARIATION SELECTOR-175
- 'VS176' => 0xE019F, # VARIATION SELECTOR-176
- 'VS177' => 0xE01A0, # VARIATION SELECTOR-177
- 'VS178' => 0xE01A1, # VARIATION SELECTOR-178
- 'VS179' => 0xE01A2, # VARIATION SELECTOR-179
- 'VS180' => 0xE01A3, # VARIATION SELECTOR-180
- 'VS181' => 0xE01A4, # VARIATION SELECTOR-181
- 'VS182' => 0xE01A5, # VARIATION SELECTOR-182
- 'VS183' => 0xE01A6, # VARIATION SELECTOR-183
- 'VS184' => 0xE01A7, # VARIATION SELECTOR-184
- 'VS185' => 0xE01A8, # VARIATION SELECTOR-185
- 'VS186' => 0xE01A9, # VARIATION SELECTOR-186
- 'VS187' => 0xE01AA, # VARIATION SELECTOR-187
- 'VS188' => 0xE01AB, # VARIATION SELECTOR-188
- 'VS189' => 0xE01AC, # VARIATION SELECTOR-189
- 'VS190' => 0xE01AD, # VARIATION SELECTOR-190
- 'VS191' => 0xE01AE, # VARIATION SELECTOR-191
- 'VS192' => 0xE01AF, # VARIATION SELECTOR-192
- 'VS193' => 0xE01B0, # VARIATION SELECTOR-193
- 'VS194' => 0xE01B1, # VARIATION SELECTOR-194
- 'VS195' => 0xE01B2, # VARIATION SELECTOR-195
- 'VS196' => 0xE01B3, # VARIATION SELECTOR-196
- 'VS197' => 0xE01B4, # VARIATION SELECTOR-197
- 'VS198' => 0xE01B5, # VARIATION SELECTOR-198
- 'VS199' => 0xE01B6, # VARIATION SELECTOR-199
- 'VS200' => 0xE01B7, # VARIATION SELECTOR-200
- 'VS201' => 0xE01B8, # VARIATION SELECTOR-201
- 'VS202' => 0xE01B9, # VARIATION SELECTOR-202
- 'VS203' => 0xE01BA, # VARIATION SELECTOR-203
- 'VS204' => 0xE01BB, # VARIATION SELECTOR-204
- 'VS205' => 0xE01BC, # VARIATION SELECTOR-205
- 'VS206' => 0xE01BD, # VARIATION SELECTOR-206
- 'VS207' => 0xE01BE, # VARIATION SELECTOR-207
- 'VS208' => 0xE01BF, # VARIATION SELECTOR-208
- 'VS209' => 0xE01C0, # VARIATION SELECTOR-209
- 'VS210' => 0xE01C1, # VARIATION SELECTOR-210
- 'VS211' => 0xE01C2, # VARIATION SELECTOR-211
- 'VS212' => 0xE01C3, # VARIATION SELECTOR-212
- 'VS213' => 0xE01C4, # VARIATION SELECTOR-213
- 'VS214' => 0xE01C5, # VARIATION SELECTOR-214
- 'VS215' => 0xE01C6, # VARIATION SELECTOR-215
- 'VS216' => 0xE01C7, # VARIATION SELECTOR-216
- 'VS217' => 0xE01C8, # VARIATION SELECTOR-217
- 'VS218' => 0xE01C9, # VARIATION SELECTOR-218
- 'VS219' => 0xE01CA, # VARIATION SELECTOR-219
- 'VS220' => 0xE01CB, # VARIATION SELECTOR-220
- 'VS221' => 0xE01CC, # VARIATION SELECTOR-221
- 'VS222' => 0xE01CD, # VARIATION SELECTOR-222
- 'VS223' => 0xE01CE, # VARIATION SELECTOR-223
- 'VS224' => 0xE01CF, # VARIATION SELECTOR-224
- 'VS225' => 0xE01D0, # VARIATION SELECTOR-225
- 'VS226' => 0xE01D1, # VARIATION SELECTOR-226
- 'VS227' => 0xE01D2, # VARIATION SELECTOR-227
- 'VS228' => 0xE01D3, # VARIATION SELECTOR-228
- 'VS229' => 0xE01D4, # VARIATION SELECTOR-229
- 'VS230' => 0xE01D5, # VARIATION SELECTOR-230
- 'VS231' => 0xE01D6, # VARIATION SELECTOR-231
- 'VS232' => 0xE01D7, # VARIATION SELECTOR-232
- 'VS233' => 0xE01D8, # VARIATION SELECTOR-233
- 'VS234' => 0xE01D9, # VARIATION SELECTOR-234
- 'VS235' => 0xE01DA, # VARIATION SELECTOR-235
- 'VS236' => 0xE01DB, # VARIATION SELECTOR-236
- 'VS237' => 0xE01DC, # VARIATION SELECTOR-237
- 'VS238' => 0xE01DD, # VARIATION SELECTOR-238
- 'VS239' => 0xE01DE, # VARIATION SELECTOR-239
- 'VS240' => 0xE01DF, # VARIATION SELECTOR-240
- 'VS241' => 0xE01E0, # VARIATION SELECTOR-241
- 'VS242' => 0xE01E1, # VARIATION SELECTOR-242
- 'VS243' => 0xE01E2, # VARIATION SELECTOR-243
- 'VS244' => 0xE01E3, # VARIATION SELECTOR-244
- 'VS245' => 0xE01E4, # VARIATION SELECTOR-245
- 'VS246' => 0xE01E5, # VARIATION SELECTOR-246
- 'VS247' => 0xE01E6, # VARIATION SELECTOR-247
- 'VS248' => 0xE01E7, # VARIATION SELECTOR-248
- 'VS249' => 0xE01E8, # VARIATION SELECTOR-249
- 'VS250' => 0xE01E9, # VARIATION SELECTOR-250
- 'VS251' => 0xE01EA, # VARIATION SELECTOR-251
- 'VS252' => 0xE01EB, # VARIATION SELECTOR-252
- 'VS253' => 0xE01EC, # VARIATION SELECTOR-253
- 'VS254' => 0xE01ED, # VARIATION SELECTOR-254
- 'VS255' => 0xE01EE, # VARIATION SELECTOR-255
- 'VS256' => 0xE01EF, # VARIATION SELECTOR-256
- 'WJ' => 0x2060, # WORD JOINER
- 'ZWJ' => 0x200D, # ZERO WIDTH JOINER
- 'ZWNJ' => 0x200C, # ZERO WIDTH NON-JOINER
- 'ZWSP' => 0x200B, # ZERO WIDTH SPACE
+ 'BOM' => pack("U", 0xFEFF), # BYTE ORDER MARK
+ 'BYTE ORDER MARK'=> pack("U", 0xFEFF),
+ 'CGJ' => pack("U", 0x034F), # COMBINING GRAPHEME JOINER
+ 'FVS1' => pack("U", 0x180B), # MONGOLIAN FREE VARIATION SELECTOR ONE
+ 'FVS2' => pack("U", 0x180C), # MONGOLIAN FREE VARIATION SELECTOR TWO
+ 'FVS3' => pack("U", 0x180D), # MONGOLIAN FREE VARIATION SELECTOR THREE
+ 'LRE' => pack("U", 0x202A), # LEFT-TO-RIGHT EMBEDDING
+ 'LRM' => pack("U", 0x200E), # LEFT-TO-RIGHT MARK
+ 'LRO' => pack("U", 0x202D), # LEFT-TO-RIGHT OVERRIDE
+ 'MMSP' => pack("U", 0x205F), # MEDIUM MATHEMATICAL SPACE
+ 'MVS' => pack("U", 0x180E), # MONGOLIAN VOWEL SEPARATOR
+ 'NBSP' => pack("U", 0x00A0), # NO-BREAK SPACE
+ 'NNBSP' => pack("U", 0x202F), # NARROW NO-BREAK SPACE
+ 'PDF' => pack("U", 0x202C), # POP DIRECTIONAL FORMATTING
+ 'RLE' => pack("U", 0x202B), # RIGHT-TO-LEFT EMBEDDING
+ 'RLM' => pack("U", 0x200F), # RIGHT-TO-LEFT MARK
+ 'RLO' => pack("U", 0x202E), # RIGHT-TO-LEFT OVERRIDE
+ 'SHY' => pack("U", 0x00AD), # SOFT HYPHEN
+ 'VS1' => pack("U", 0xFE00), # VARIATION SELECTOR-1
+ 'VS2' => pack("U", 0xFE01), # VARIATION SELECTOR-2
+ 'VS3' => pack("U", 0xFE02), # VARIATION SELECTOR-3
+ 'VS4' => pack("U", 0xFE03), # VARIATION SELECTOR-4
+ 'VS5' => pack("U", 0xFE04), # VARIATION SELECTOR-5
+ 'VS6' => pack("U", 0xFE05), # VARIATION SELECTOR-6
+ 'VS7' => pack("U", 0xFE06), # VARIATION SELECTOR-7
+ 'VS8' => pack("U", 0xFE07), # VARIATION SELECTOR-8
+ 'VS9' => pack("U", 0xFE08), # VARIATION SELECTOR-9
+ 'VS10' => pack("U", 0xFE09), # VARIATION SELECTOR-10
+ 'VS11' => pack("U", 0xFE0A), # VARIATION SELECTOR-11
+ 'VS12' => pack("U", 0xFE0B), # VARIATION SELECTOR-12
+ 'VS13' => pack("U", 0xFE0C), # VARIATION SELECTOR-13
+ 'VS14' => pack("U", 0xFE0D), # VARIATION SELECTOR-14
+ 'VS15' => pack("U", 0xFE0E), # VARIATION SELECTOR-15
+ 'VS16' => pack("U", 0xFE0F), # VARIATION SELECTOR-16
+ 'VS17' => pack("U", 0xE0100), # VARIATION SELECTOR-17
+ 'VS18' => pack("U", 0xE0101), # VARIATION SELECTOR-18
+ 'VS19' => pack("U", 0xE0102), # VARIATION SELECTOR-19
+ 'VS20' => pack("U", 0xE0103), # VARIATION SELECTOR-20
+ 'VS21' => pack("U", 0xE0104), # VARIATION SELECTOR-21
+ 'VS22' => pack("U", 0xE0105), # VARIATION SELECTOR-22
+ 'VS23' => pack("U", 0xE0106), # VARIATION SELECTOR-23
+ 'VS24' => pack("U", 0xE0107), # VARIATION SELECTOR-24
+ 'VS25' => pack("U", 0xE0108), # VARIATION SELECTOR-25
+ 'VS26' => pack("U", 0xE0109), # VARIATION SELECTOR-26
+ 'VS27' => pack("U", 0xE010A), # VARIATION SELECTOR-27
+ 'VS28' => pack("U", 0xE010B), # VARIATION SELECTOR-28
+ 'VS29' => pack("U", 0xE010C), # VARIATION SELECTOR-29
+ 'VS30' => pack("U", 0xE010D), # VARIATION SELECTOR-30
+ 'VS31' => pack("U", 0xE010E), # VARIATION SELECTOR-31
+ 'VS32' => pack("U", 0xE010F), # VARIATION SELECTOR-32
+ 'VS33' => pack("U", 0xE0110), # VARIATION SELECTOR-33
+ 'VS34' => pack("U", 0xE0111), # VARIATION SELECTOR-34
+ 'VS35' => pack("U", 0xE0112), # VARIATION SELECTOR-35
+ 'VS36' => pack("U", 0xE0113), # VARIATION SELECTOR-36
+ 'VS37' => pack("U", 0xE0114), # VARIATION SELECTOR-37
+ 'VS38' => pack("U", 0xE0115), # VARIATION SELECTOR-38
+ 'VS39' => pack("U", 0xE0116), # VARIATION SELECTOR-39
+ 'VS40' => pack("U", 0xE0117), # VARIATION SELECTOR-40
+ 'VS41' => pack("U", 0xE0118), # VARIATION SELECTOR-41
+ 'VS42' => pack("U", 0xE0119), # VARIATION SELECTOR-42
+ 'VS43' => pack("U", 0xE011A), # VARIATION SELECTOR-43
+ 'VS44' => pack("U", 0xE011B), # VARIATION SELECTOR-44
+ 'VS45' => pack("U", 0xE011C), # VARIATION SELECTOR-45
+ 'VS46' => pack("U", 0xE011D), # VARIATION SELECTOR-46
+ 'VS47' => pack("U", 0xE011E), # VARIATION SELECTOR-47
+ 'VS48' => pack("U", 0xE011F), # VARIATION SELECTOR-48
+ 'VS49' => pack("U", 0xE0120), # VARIATION SELECTOR-49
+ 'VS50' => pack("U", 0xE0121), # VARIATION SELECTOR-50
+ 'VS51' => pack("U", 0xE0122), # VARIATION SELECTOR-51
+ 'VS52' => pack("U", 0xE0123), # VARIATION SELECTOR-52
+ 'VS53' => pack("U", 0xE0124), # VARIATION SELECTOR-53
+ 'VS54' => pack("U", 0xE0125), # VARIATION SELECTOR-54
+ 'VS55' => pack("U", 0xE0126), # VARIATION SELECTOR-55
+ 'VS56' => pack("U", 0xE0127), # VARIATION SELECTOR-56
+ 'VS57' => pack("U", 0xE0128), # VARIATION SELECTOR-57
+ 'VS58' => pack("U", 0xE0129), # VARIATION SELECTOR-58
+ 'VS59' => pack("U", 0xE012A), # VARIATION SELECTOR-59
+ 'VS60' => pack("U", 0xE012B), # VARIATION SELECTOR-60
+ 'VS61' => pack("U", 0xE012C), # VARIATION SELECTOR-61
+ 'VS62' => pack("U", 0xE012D), # VARIATION SELECTOR-62
+ 'VS63' => pack("U", 0xE012E), # VARIATION SELECTOR-63
+ 'VS64' => pack("U", 0xE012F), # VARIATION SELECTOR-64
+ 'VS65' => pack("U", 0xE0130), # VARIATION SELECTOR-65
+ 'VS66' => pack("U", 0xE0131), # VARIATION SELECTOR-66
+ 'VS67' => pack("U", 0xE0132), # VARIATION SELECTOR-67
+ 'VS68' => pack("U", 0xE0133), # VARIATION SELECTOR-68
+ 'VS69' => pack("U", 0xE0134), # VARIATION SELECTOR-69
+ 'VS70' => pack("U", 0xE0135), # VARIATION SELECTOR-70
+ 'VS71' => pack("U", 0xE0136), # VARIATION SELECTOR-71
+ 'VS72' => pack("U", 0xE0137), # VARIATION SELECTOR-72
+ 'VS73' => pack("U", 0xE0138), # VARIATION SELECTOR-73
+ 'VS74' => pack("U", 0xE0139), # VARIATION SELECTOR-74
+ 'VS75' => pack("U", 0xE013A), # VARIATION SELECTOR-75
+ 'VS76' => pack("U", 0xE013B), # VARIATION SELECTOR-76
+ 'VS77' => pack("U", 0xE013C), # VARIATION SELECTOR-77
+ 'VS78' => pack("U", 0xE013D), # VARIATION SELECTOR-78
+ 'VS79' => pack("U", 0xE013E), # VARIATION SELECTOR-79
+ 'VS80' => pack("U", 0xE013F), # VARIATION SELECTOR-80
+ 'VS81' => pack("U", 0xE0140), # VARIATION SELECTOR-81
+ 'VS82' => pack("U", 0xE0141), # VARIATION SELECTOR-82
+ 'VS83' => pack("U", 0xE0142), # VARIATION SELECTOR-83
+ 'VS84' => pack("U", 0xE0143), # VARIATION SELECTOR-84
+ 'VS85' => pack("U", 0xE0144), # VARIATION SELECTOR-85
+ 'VS86' => pack("U", 0xE0145), # VARIATION SELECTOR-86
+ 'VS87' => pack("U", 0xE0146), # VARIATION SELECTOR-87
+ 'VS88' => pack("U", 0xE0147), # VARIATION SELECTOR-88
+ 'VS89' => pack("U", 0xE0148), # VARIATION SELECTOR-89
+ 'VS90' => pack("U", 0xE0149), # VARIATION SELECTOR-90
+ 'VS91' => pack("U", 0xE014A), # VARIATION SELECTOR-91
+ 'VS92' => pack("U", 0xE014B), # VARIATION SELECTOR-92
+ 'VS93' => pack("U", 0xE014C), # VARIATION SELECTOR-93
+ 'VS94' => pack("U", 0xE014D), # VARIATION SELECTOR-94
+ 'VS95' => pack("U", 0xE014E), # VARIATION SELECTOR-95
+ 'VS96' => pack("U", 0xE014F), # VARIATION SELECTOR-96
+ 'VS97' => pack("U", 0xE0150), # VARIATION SELECTOR-97
+ 'VS98' => pack("U", 0xE0151), # VARIATION SELECTOR-98
+ 'VS99' => pack("U", 0xE0152), # VARIATION SELECTOR-99
+ 'VS100' => pack("U", 0xE0153), # VARIATION SELECTOR-100
+ 'VS101' => pack("U", 0xE0154), # VARIATION SELECTOR-101
+ 'VS102' => pack("U", 0xE0155), # VARIATION SELECTOR-102
+ 'VS103' => pack("U", 0xE0156), # VARIATION SELECTOR-103
+ 'VS104' => pack("U", 0xE0157), # VARIATION SELECTOR-104
+ 'VS105' => pack("U", 0xE0158), # VARIATION SELECTOR-105
+ 'VS106' => pack("U", 0xE0159), # VARIATION SELECTOR-106
+ 'VS107' => pack("U", 0xE015A), # VARIATION SELECTOR-107
+ 'VS108' => pack("U", 0xE015B), # VARIATION SELECTOR-108
+ 'VS109' => pack("U", 0xE015C), # VARIATION SELECTOR-109
+ 'VS110' => pack("U", 0xE015D), # VARIATION SELECTOR-110
+ 'VS111' => pack("U", 0xE015E), # VARIATION SELECTOR-111
+ 'VS112' => pack("U", 0xE015F), # VARIATION SELECTOR-112
+ 'VS113' => pack("U", 0xE0160), # VARIATION SELECTOR-113
+ 'VS114' => pack("U", 0xE0161), # VARIATION SELECTOR-114
+ 'VS115' => pack("U", 0xE0162), # VARIATION SELECTOR-115
+ 'VS116' => pack("U", 0xE0163), # VARIATION SELECTOR-116
+ 'VS117' => pack("U", 0xE0164), # VARIATION SELECTOR-117
+ 'VS118' => pack("U", 0xE0165), # VARIATION SELECTOR-118
+ 'VS119' => pack("U", 0xE0166), # VARIATION SELECTOR-119
+ 'VS120' => pack("U", 0xE0167), # VARIATION SELECTOR-120
+ 'VS121' => pack("U", 0xE0168), # VARIATION SELECTOR-121
+ 'VS122' => pack("U", 0xE0169), # VARIATION SELECTOR-122
+ 'VS123' => pack("U", 0xE016A), # VARIATION SELECTOR-123
+ 'VS124' => pack("U", 0xE016B), # VARIATION SELECTOR-124
+ 'VS125' => pack("U", 0xE016C), # VARIATION SELECTOR-125
+ 'VS126' => pack("U", 0xE016D), # VARIATION SELECTOR-126
+ 'VS127' => pack("U", 0xE016E), # VARIATION SELECTOR-127
+ 'VS128' => pack("U", 0xE016F), # VARIATION SELECTOR-128
+ 'VS129' => pack("U", 0xE0170), # VARIATION SELECTOR-129
+ 'VS130' => pack("U", 0xE0171), # VARIATION SELECTOR-130
+ 'VS131' => pack("U", 0xE0172), # VARIATION SELECTOR-131
+ 'VS132' => pack("U", 0xE0173), # VARIATION SELECTOR-132
+ 'VS133' => pack("U", 0xE0174), # VARIATION SELECTOR-133
+ 'VS134' => pack("U", 0xE0175), # VARIATION SELECTOR-134
+ 'VS135' => pack("U", 0xE0176), # VARIATION SELECTOR-135
+ 'VS136' => pack("U", 0xE0177), # VARIATION SELECTOR-136
+ 'VS137' => pack("U", 0xE0178), # VARIATION SELECTOR-137
+ 'VS138' => pack("U", 0xE0179), # VARIATION SELECTOR-138
+ 'VS139' => pack("U", 0xE017A), # VARIATION SELECTOR-139
+ 'VS140' => pack("U", 0xE017B), # VARIATION SELECTOR-140
+ 'VS141' => pack("U", 0xE017C), # VARIATION SELECTOR-141
+ 'VS142' => pack("U", 0xE017D), # VARIATION SELECTOR-142
+ 'VS143' => pack("U", 0xE017E), # VARIATION SELECTOR-143
+ 'VS144' => pack("U", 0xE017F), # VARIATION SELECTOR-144
+ 'VS145' => pack("U", 0xE0180), # VARIATION SELECTOR-145
+ 'VS146' => pack("U", 0xE0181), # VARIATION SELECTOR-146
+ 'VS147' => pack("U", 0xE0182), # VARIATION SELECTOR-147
+ 'VS148' => pack("U", 0xE0183), # VARIATION SELECTOR-148
+ 'VS149' => pack("U", 0xE0184), # VARIATION SELECTOR-149
+ 'VS150' => pack("U", 0xE0185), # VARIATION SELECTOR-150
+ 'VS151' => pack("U", 0xE0186), # VARIATION SELECTOR-151
+ 'VS152' => pack("U", 0xE0187), # VARIATION SELECTOR-152
+ 'VS153' => pack("U", 0xE0188), # VARIATION SELECTOR-153
+ 'VS154' => pack("U", 0xE0189), # VARIATION SELECTOR-154
+ 'VS155' => pack("U", 0xE018A), # VARIATION SELECTOR-155
+ 'VS156' => pack("U", 0xE018B), # VARIATION SELECTOR-156
+ 'VS157' => pack("U", 0xE018C), # VARIATION SELECTOR-157
+ 'VS158' => pack("U", 0xE018D), # VARIATION SELECTOR-158
+ 'VS159' => pack("U", 0xE018E), # VARIATION SELECTOR-159
+ 'VS160' => pack("U", 0xE018F), # VARIATION SELECTOR-160
+ 'VS161' => pack("U", 0xE0190), # VARIATION SELECTOR-161
+ 'VS162' => pack("U", 0xE0191), # VARIATION SELECTOR-162
+ 'VS163' => pack("U", 0xE0192), # VARIATION SELECTOR-163
+ 'VS164' => pack("U", 0xE0193), # VARIATION SELECTOR-164
+ 'VS165' => pack("U", 0xE0194), # VARIATION SELECTOR-165
+ 'VS166' => pack("U", 0xE0195), # VARIATION SELECTOR-166
+ 'VS167' => pack("U", 0xE0196), # VARIATION SELECTOR-167
+ 'VS168' => pack("U", 0xE0197), # VARIATION SELECTOR-168
+ 'VS169' => pack("U", 0xE0198), # VARIATION SELECTOR-169
+ 'VS170' => pack("U", 0xE0199), # VARIATION SELECTOR-170
+ 'VS171' => pack("U", 0xE019A), # VARIATION SELECTOR-171
+ 'VS172' => pack("U", 0xE019B), # VARIATION SELECTOR-172
+ 'VS173' => pack("U", 0xE019C), # VARIATION SELECTOR-173
+ 'VS174' => pack("U", 0xE019D), # VARIATION SELECTOR-174
+ 'VS175' => pack("U", 0xE019E), # VARIATION SELECTOR-175
+ 'VS176' => pack("U", 0xE019F), # VARIATION SELECTOR-176
+ 'VS177' => pack("U", 0xE01A0), # VARIATION SELECTOR-177
+ 'VS178' => pack("U", 0xE01A1), # VARIATION SELECTOR-178
+ 'VS179' => pack("U", 0xE01A2), # VARIATION SELECTOR-179
+ 'VS180' => pack("U", 0xE01A3), # VARIATION SELECTOR-180
+ 'VS181' => pack("U", 0xE01A4), # VARIATION SELECTOR-181
+ 'VS182' => pack("U", 0xE01A5), # VARIATION SELECTOR-182
+ 'VS183' => pack("U", 0xE01A6), # VARIATION SELECTOR-183
+ 'VS184' => pack("U", 0xE01A7), # VARIATION SELECTOR-184
+ 'VS185' => pack("U", 0xE01A8), # VARIATION SELECTOR-185
+ 'VS186' => pack("U", 0xE01A9), # VARIATION SELECTOR-186
+ 'VS187' => pack("U", 0xE01AA), # VARIATION SELECTOR-187
+ 'VS188' => pack("U", 0xE01AB), # VARIATION SELECTOR-188
+ 'VS189' => pack("U", 0xE01AC), # VARIATION SELECTOR-189
+ 'VS190' => pack("U", 0xE01AD), # VARIATION SELECTOR-190
+ 'VS191' => pack("U", 0xE01AE), # VARIATION SELECTOR-191
+ 'VS192' => pack("U", 0xE01AF), # VARIATION SELECTOR-192
+ 'VS193' => pack("U", 0xE01B0), # VARIATION SELECTOR-193
+ 'VS194' => pack("U", 0xE01B1), # VARIATION SELECTOR-194
+ 'VS195' => pack("U", 0xE01B2), # VARIATION SELECTOR-195
+ 'VS196' => pack("U", 0xE01B3), # VARIATION SELECTOR-196
+ 'VS197' => pack("U", 0xE01B4), # VARIATION SELECTOR-197
+ 'VS198' => pack("U", 0xE01B5), # VARIATION SELECTOR-198
+ 'VS199' => pack("U", 0xE01B6), # VARIATION SELECTOR-199
+ 'VS200' => pack("U", 0xE01B7), # VARIATION SELECTOR-200
+ 'VS201' => pack("U", 0xE01B8), # VARIATION SELECTOR-201
+ 'VS202' => pack("U", 0xE01B9), # VARIATION SELECTOR-202
+ 'VS203' => pack("U", 0xE01BA), # VARIATION SELECTOR-203
+ 'VS204' => pack("U", 0xE01BB), # VARIATION SELECTOR-204
+ 'VS205' => pack("U", 0xE01BC), # VARIATION SELECTOR-205
+ 'VS206' => pack("U", 0xE01BD), # VARIATION SELECTOR-206
+ 'VS207' => pack("U", 0xE01BE), # VARIATION SELECTOR-207
+ 'VS208' => pack("U", 0xE01BF), # VARIATION SELECTOR-208
+ 'VS209' => pack("U", 0xE01C0), # VARIATION SELECTOR-209
+ 'VS210' => pack("U", 0xE01C1), # VARIATION SELECTOR-210
+ 'VS211' => pack("U", 0xE01C2), # VARIATION SELECTOR-211
+ 'VS212' => pack("U", 0xE01C3), # VARIATION SELECTOR-212
+ 'VS213' => pack("U", 0xE01C4), # VARIATION SELECTOR-213
+ 'VS214' => pack("U", 0xE01C5), # VARIATION SELECTOR-214
+ 'VS215' => pack("U", 0xE01C6), # VARIATION SELECTOR-215
+ 'VS216' => pack("U", 0xE01C7), # VARIATION SELECTOR-216
+ 'VS217' => pack("U", 0xE01C8), # VARIATION SELECTOR-217
+ 'VS218' => pack("U", 0xE01C9), # VARIATION SELECTOR-218
+ 'VS219' => pack("U", 0xE01CA), # VARIATION SELECTOR-219
+ 'VS220' => pack("U", 0xE01CB), # VARIATION SELECTOR-220
+ 'VS221' => pack("U", 0xE01CC), # VARIATION SELECTOR-221
+ 'VS222' => pack("U", 0xE01CD), # VARIATION SELECTOR-222
+ 'VS223' => pack("U", 0xE01CE), # VARIATION SELECTOR-223
+ 'VS224' => pack("U", 0xE01CF), # VARIATION SELECTOR-224
+ 'VS225' => pack("U", 0xE01D0), # VARIATION SELECTOR-225
+ 'VS226' => pack("U", 0xE01D1), # VARIATION SELECTOR-226
+ 'VS227' => pack("U", 0xE01D2), # VARIATION SELECTOR-227
+ 'VS228' => pack("U", 0xE01D3), # VARIATION SELECTOR-228
+ 'VS229' => pack("U", 0xE01D4), # VARIATION SELECTOR-229
+ 'VS230' => pack("U", 0xE01D5), # VARIATION SELECTOR-230
+ 'VS231' => pack("U", 0xE01D6), # VARIATION SELECTOR-231
+ 'VS232' => pack("U", 0xE01D7), # VARIATION SELECTOR-232
+ 'VS233' => pack("U", 0xE01D8), # VARIATION SELECTOR-233
+ 'VS234' => pack("U", 0xE01D9), # VARIATION SELECTOR-234
+ 'VS235' => pack("U", 0xE01DA), # VARIATION SELECTOR-235
+ 'VS236' => pack("U", 0xE01DB), # VARIATION SELECTOR-236
+ 'VS237' => pack("U", 0xE01DC), # VARIATION SELECTOR-237
+ 'VS238' => pack("U", 0xE01DD), # VARIATION SELECTOR-238
+ 'VS239' => pack("U", 0xE01DE), # VARIATION SELECTOR-239
+ 'VS240' => pack("U", 0xE01DF), # VARIATION SELECTOR-240
+ 'VS241' => pack("U", 0xE01E0), # VARIATION SELECTOR-241
+ 'VS242' => pack("U", 0xE01E1), # VARIATION SELECTOR-242
+ 'VS243' => pack("U", 0xE01E2), # VARIATION SELECTOR-243
+ 'VS244' => pack("U", 0xE01E3), # VARIATION SELECTOR-244
+ 'VS245' => pack("U", 0xE01E4), # VARIATION SELECTOR-245
+ 'VS246' => pack("U", 0xE01E5), # VARIATION SELECTOR-246
+ 'VS247' => pack("U", 0xE01E6), # VARIATION SELECTOR-247
+ 'VS248' => pack("U", 0xE01E7), # VARIATION SELECTOR-248
+ 'VS249' => pack("U", 0xE01E8), # VARIATION SELECTOR-249
+ 'VS250' => pack("U", 0xE01E9), # VARIATION SELECTOR-250
+ 'VS251' => pack("U", 0xE01EA), # VARIATION SELECTOR-251
+ 'VS252' => pack("U", 0xE01EB), # VARIATION SELECTOR-252
+ 'VS253' => pack("U", 0xE01EC), # VARIATION SELECTOR-253
+ 'VS254' => pack("U", 0xE01ED), # VARIATION SELECTOR-254
+ 'VS255' => pack("U", 0xE01EE), # VARIATION SELECTOR-255
+ 'VS256' => pack("U", 0xE01EF), # VARIATION SELECTOR-256
+ 'WJ' => pack("U", 0x2060), # WORD JOINER
+ 'ZWJ' => pack("U", 0x200D), # ZERO WIDTH JOINER
+ 'ZWNJ' => pack("U", 0x200C), # ZERO WIDTH NON-JOINER
+ 'ZWSP' => pack("U", 0x200B), # ZERO WIDTH SPACE
);
my %deprecated_aliases = (
# Pre-3.2 compatibility (only for the first 256 characters).
# Use of these gives deprecated message.
- 'HORIZONTAL TABULATION' => 0x09, # CHARACTER TABULATION
- 'VERTICAL TABULATION' => 0x0B, # LINE TABULATION
- 'FILE SEPARATOR' => 0x1C, # INFORMATION SEPARATOR FOUR
- 'GROUP SEPARATOR' => 0x1D, # INFORMATION SEPARATOR THREE
- 'RECORD SEPARATOR' => 0x1E, # INFORMATION SEPARATOR TWO
- 'UNIT SEPARATOR' => 0x1F, # INFORMATION SEPARATOR ONE
- 'HORIZONTAL TABULATION SET' => 0x88, # CHARACTER TABULATION SET
- 'HORIZONTAL TABULATION WITH JUSTIFICATION' => 0x89, # CHARACTER TABULATION WITH JUSTIFICATION
- 'PARTIAL LINE DOWN' => 0x8B, # PARTIAL LINE FORWARD
- 'PARTIAL LINE UP' => 0x8C, # PARTIAL LINE BACKWARD
- 'VERTICAL TABULATION SET' => 0x8A, # LINE TABULATION SET
- 'REVERSE INDEX' => 0x8D, # REVERSE LINE FEED
+ 'HORIZONTAL TABULATION' => pack("U", 0x09), # CHARACTER TABULATION
+ 'VERTICAL TABULATION' => pack("U", 0x0B), # LINE TABULATION
+ 'FILE SEPARATOR' => pack("U", 0x1C), # INFORMATION SEPARATOR FOUR
+ 'GROUP SEPARATOR' => pack("U", 0x1D), # INFORMATION SEPARATOR THREE
+ 'RECORD SEPARATOR' => pack("U", 0x1E), # INFORMATION SEPARATOR TWO
+ 'UNIT SEPARATOR' => pack("U", 0x1F), # INFORMATION SEPARATOR ONE
+ 'HORIZONTAL TABULATION SET' => pack("U", 0x88), # CHARACTER TABULATION SET
+ 'HORIZONTAL TABULATION WITH JUSTIFICATION' => pack("U", 0x89), # CHARACTER TABULATION WITH JUSTIFICATION
+ 'PARTIAL LINE DOWN' => pack("U", 0x8B), # PARTIAL LINE FORWARD
+ 'PARTIAL LINE UP' => pack("U", 0x8C), # PARTIAL LINE BACKWARD
+ 'VERTICAL TABULATION SET' => pack("U", 0x8A), # LINE TABULATION SET
+ 'REVERSE INDEX' => pack("U", 0x8D), # REVERSE LINE FEED
);
$value = CORE::hex $1;
}
if ($value =~ $decimal_qr) {
- $^H{charnames_ord_aliases}{$name} = $value;
+ no warnings 'utf8'; # Allow even illegal characters
+ $^H{charnames_ord_aliases}{$name} = pack("U", $value);
# Use a canonical form.
$^H{charnames_inverse_ords}{sprintf("%05X", $value)} = $name;
} # alias
sub not_legal_use_bytes_msg {
- my ($name, $ord) = @_;
- return sprintf("Character 0x%04x with name '$name' is above 0xFF with 'use bytes' in effect", $ord);
+ my ($name, $utf8) = @_;
+ my $return;
+
+ if (length($utf8) == 1) {
+ $return = sprintf("Character 0x%04x with name '%s' is", ord $utf8, $name);
+ } else {
+ $return = sprintf("String with name '%s' (and ordinals %s) contains character(s)", $name, join(" ", map { sprintf "0x%04X", ord $_ } split(//, $utf8)));
+ }
+ return $return . " above 0xFF with 'use bytes' in effect";
}
sub alias_file ($) # Reads a file containing alias definitions
);
-sub lookup_name ($;$) {
+sub lookup_name ($$$) {
+ my ($name, $wants_ord, $runtime) = @_;
- # Finds the ordinal of a character name, first in the aliases, then in
- # the large table. If not found, returns undef if runtime; if
- # compile, complains and returns the Unicode replacement character.
+ # Lookup the name or sequence $name in the tables. If $wants_ord is false,
+ # returns the string equivalent of $name; if true, returns the ordinal value
+ # instead, but in this case $name must not be a sequence; otherwise undef is
+ # returned and a warning raised. $runtime is 0 if compiletime, otherwise
+ # gives the number of stack frames to go back to get the application caller
+ # info.
+ # If $name is not found, returns undef in runtime with no warning; and in
+ # compiletime, the Unicode replacement character, with a warning.
- my $runtime = (@_ > 1); # compile vs run time
-
- my ($name, $hints_ref) = @_;
+ # It looks first in the aliases, then in the large table of official Unicode
+ # names.
my $utf8; # The string result
my $save_input;
if ($runtime) {
+ my $hints_ref = (caller($runtime))[10];
+
# If we didn't import anything (which happens with 'use charnames ()',
# substitute a dummy structure.
$hints_ref = \%dummy_H if ! defined $hints_ref
}
elsif (exists $deprecated_aliases{$name}) {
require warnings;
- warnings::warnif('deprecated', "Unicode character name \"$name\" is deprecated, use \"" . viacode($deprecated_aliases{$name}) . "\" instead");
+ warnings::warnif('deprecated', "Unicode character name \"$name\" is deprecated, use \"" . viacode(ord $deprecated_aliases{$name}) . "\" instead");
$utf8 = $deprecated_aliases{$name};
}
## Suck in the code/name list as a big string.
## Lines look like:
## "00052\tLATIN CAPITAL LETTER R\n"
+ # or
+ # "0052 0303\tLATIN CAPITAL LETTER R WITH TILDE\n"
$txt = do "unicore/Name.pl" unless $txt;
## @off will hold the index into the code/name string of the start and
# Algorithmically determinables are not placed in the cache (that
# $found_full_in_table indicates) because that uses up memory,
# and finding these again is fast.
- if (! defined ($utf8 = name_to_code_point_special($name))) {
+ if (defined (my $ord = name_to_code_point_special($name))) {
+ $utf8 = pack("U", $ord);
+ }
+ else {
# Not algorthmically determinable; look up in the table.
if ($txt =~ /\t\Q$name\E$/m) {
# May have zapped input name, get it again.
$name = (defined $save_input) ? $save_input : $_[0];
carp "Unknown charname '$name'";
- return 0xFFFD;
+ return ($wants_ord) ? 0xFFFD : pack("U", 0xFFFD);
}
@off = ($-[0] + 1, $+[0]); # The 1 is for the tab
if (! defined $utf8) {
- # Now know where in the string the name starts.
- # The code, 5 hex digits long (and a tab), is before that.
- $utf8 = CORE::hex substr($txt, $off[0] - 6, 5);
+ # Here, we haven't set up the output, but we know where in the string
+ # the name starts. The string is set up so that for single characters
+ # (and not named sequences), the name is preceeded immediately by a
+ # tab and 5 hex digits for its code, with a \n before those. Named
+ # sequences won't have the 7th preceeding character be a \n.
+ # (Actually, for the very first entry in the table this isn't strictly
+ # true: subtracting 7 will yield -1, and the substr below will
+ # therefore yield the very last character in the table, which should
+ # also be a \n, so the statement works anyway.)
+ if (substr($txt, $off[0] - 7, 1) eq "\n") {
+ $utf8 = pack("U", CORE::hex substr($txt, $off[0] - 6, 5));
+ }
+ else {
+
+ # Here, is a named sequence. Need to go looking for the beginning,
+ # which is just after the \n from the previous entry in the table.
+ # The +1 skips past that newline, or, if the rindex() fails, to put
+ # us to an offset of zero.
+ my $charstart = rindex($txt, "\n", $off[0] - 7) + 1;
+ $utf8 = pack("U*", map { CORE::hex }
+ split " ", substr($txt, $charstart, $off[0] - $charstart - 1));
+ }
}
# Cache the input so as to not have to search the large table
}
}
- return $utf8 if $runtime || $utf8 <= 255 || ! ($^H & $bytes::hint_bits);
- # Here is compile time, "use bytes" is in effect, and the character
- # won't fit in a byte
- # Prefer any official name over the input one.
+ # Here, have the utf8. If the return is to be an ord, must be any single
+ # character.
+ if ($wants_ord) {
+ return ord($utf8) if length $utf8 == 1;
+ }
+ else {
+
+ # Here, wants string output. If utf8 is acceptable, just return what
+ # we've got; otherwise attempt to convert it to non-utf8 and return that.
+ my $in_bytes = ($runtime)
+ ? (caller $runtime)[8] & $bytes::hint_bits
+ : $^H & $bytes::hint_bits;
+ return $utf8 if (! $in_bytes || utf8::downgrade($utf8, 1)) # The 1 arg
+ # means don't die on failure
+ }
+
+ # Here, there is an error: either there are too many characters, or the
+ # result string needs to be non-utf8, and at least one character requires
+ # utf8. Prefer any official name over the input one for the error message.
if (@off) {
$name = substr($txt, $off[0], $off[1] - $off[0]) if @off;
}
else {
$name = (defined $save_input) ? $save_input : $_[0];
}
- croak not_legal_use_bytes_msg($name, $utf8);
+
+ if ($wants_ord) {
+ # Only way to get here in this case is if result too long. Message
+ # assumes that our only caller that requires single char result is
+ # vianame.
+ carp "charnames::vianame() doesn't handle named sequences ($name). Use charnames::string_vianame() instead";
+ return;
+ }
+
+ # Only other possible failure here is from use bytes.
+ if ($runtime) {
+ carp not_legal_use_bytes_msg($name, $utf8);
+ return;
+ } else {
+ croak not_legal_use_bytes_msg($name, $utf8);
+ }
+
} # lookup_name
sub charnames {
- my $name = shift;
# For \N{...}. Looks up the character name and returns the string
# representation of it.
- my $ord = lookup_name($name);
- return if ! defined $ord;
- return chr $ord if $^H & $bytes::hint_bits;
-
- no warnings 'utf8'; # allow even illegal characters
- return pack "U", $ord;
+ # The first 0 arg means wants a string returned; the second that we are in
+ # compile time
+ return lookup_name($_[0], 0, 0);
}
sub import
if ($arg =~ /^U\+([0-9a-fA-F]+)$/) {
- # khw claims that this is bad. The function should return either a
- # an ord or a chr for all inputs; not be bipolar.
+ # khw claims that this is poor interface design. The function should
+ # return either a an ord or a chr for all inputs; not be bipolar. But
+ # can't change it because of backward compatibility. New code can use
+ # string_vianame() instead.
my $ord = CORE::hex $1;
return chr $ord if $ord <= 255 || ! ((caller 0)[8] & $bytes::hint_bits);
- carp not_legal_use_bytes_msg($arg, $ord);
+ carp not_legal_use_bytes_msg($arg, chr $ord);
return;
}
- return lookup_name($arg, (caller(0))[10]);
+ # The first 1 arg means wants an ord returned; the second that we are in
+ # runtime, and this is the first level routine called from the user
+ return lookup_name($arg, 1, 1);
} # vianame
+sub string_vianame {
+
+ # Looks up the character name and returns its string representation if
+ # found, undef otherwise.
+
+ if (@_ != 1) {
+ carp "charnames::string_vianame() expects one name argument";
+ return;
+ }
+
+ my $arg = shift;
+
+ if ($arg =~ /^U\+([0-9a-fA-F]+)$/) {
+
+ my $ord = CORE::hex $1;
+ return chr $ord if $ord <= 255 || ! ((caller 0)[8] & $bytes::hint_bits);
+
+ carp not_legal_use_bytes_msg($arg, chr $ord);
+ return;
+ }
+
+ # The 0 arg means wants a string returned; the 1 arg means that we are in
+ # runtime, and this is the first level routine called from the user
+ return lookup_name($arg, 0, 1);
+} # string_vianame
+
+
1;
__END__
=head1 NAME
-charnames - access to Unicode character names; define character names for C<\N{named}> string literal escapes
+charnames - access to Unicode character names and named character sequences; also define character names
=head1 SYNOPSIS
use charnames ':full';
print "\N{GREEK SMALL LETTER SIGMA} is called sigma.\n";
+ print "\N{LATIN CAPITAL LETTER E WITH VERTICAL LINE BELOW}",
+ " is an officially named sequence of two Unicode characters\n";
use charnames ':short';
print "\N{greek:Sigma} is an upper-case sigma.\n";
print charnames::viacode(0x1234); # prints "ETHIOPIC SYLLABLE SEE"
printf "%04X", charnames::vianame("GOTHIC LETTER AHSA"); # prints
# "10330"
+ print charnames::vianame("LATIN CAPITAL LETTER A"); # prints 65 on
+ # ASCII platforms;
+ # 193 on EBCDIC
+ print charnames::string_vianame("LATIN CAPITAL LETTER A"); # prints "A"
=head1 DESCRIPTION
Pragma C<use charnames> is used to gain access to the names of the
-Unicode characters, and to allow you to define your own character names.
+Unicode characters and named character sequences, and to allow you to define
+your own character and character sequence names.
+
+All forms of the pragma enable use of the following 3 functions:
+
+=over
+
+=item *
+
+L</charnames::string_vianame(I<name>)> for run-time lookup of a
+either a character name or a named character sequence, returning its string
+representation
+
+=item *
+
+L</charnames::vianame(I<name>)> for run-time lookup of a
+character name (but not a named character sequence) to get its ordinal value
+(code point)
-All forms of the pragma enable use of the
-L</charnames::vianame(I<name>)> function for run-time lookup of a
-character name to get its ordinal (code point), and the inverse
-function, L</charnames::viacode(I<code>)>.
+=item *
-Forms other than C<S<"use charnames ();">> enable the use of of
+L</charnames::viacode(I<code>)> for run-time lookup of a code point to get its
+Unicode name.
+
+=back
+
+All forms other than C<S<"use charnames ();">> also enable the use of
C<\N{I<CHARNAME>}> sequences to compile a Unicode character into a
string, based on its name.
Note that C<\N{...}> is compile-time; it's a special form of string
constant used inside double-quotish strings; this means that you cannot
use variables inside the C<\N{...}>. If you want similar run-time
-functionality, use L<charnames::vianame()|/charnames::vianame(I<name>)>.
+functionality, use
+L<charnames::string_vianame()|/charnames::string_vianame(I<name>)>.
For the C0 and C1 control characters (U+0000..U+001F, U+0080..U+009F)
there are no official Unicode names but you can use instead the ISO 6429
Notice that the name returned for of U+FEFF is "ZERO WIDTH NO-BREAK
SPACE", not "BYTE ORDER MARK".
-=head1 charnames::vianame(I<name>)
+=head1 charnames::string_vianame(I<name>)
-Returns the code point indicated by the name.
-For example,
+This is a runtime equivalent to C<\N{...}>. I<name> can be any expression
+that evaluates to a name accepted by C<\N{...}> under the L<C<:full>
+option|/DESCRIPTION> to C<charnames>. In addition, any other options for the
+controlling C<"use charnames"> in the same scope apply, like any L<script
+list, C<:short> option|/DESCRIPTION>, or L<custom aliases|/CUSTOM ALIASES> you
+may have defined.
- printf "%04X", charnames::vianame("FOUR TEARDROP-SPOKED ASTERISK");
+The only difference is that if the input name is unknown, C<string_vianame>
+returns C<undef> instead of the REPLACEMENT CHARACTER and does not raise a
+warning message.
-prints "2722".
+=head1 charnames::vianame(I<name>)
+
+This is similar to C<string_vianame>. The main difference is that under most
+circumstances (see L</BUGS> for the others), vianame returns an ordinal code
+point, whereas C<string_vianame> returns a string. For example,
-C<vianame> takes the identical inputs that C<\N{...}> does under the
-L<C<:full> option|/DESCRIPTION> to C<charnames>. In addition, any other
-options for the controlling C<"use charnames"> in the same scope apply,
-like any L<script list, C<:short> option|/DESCRIPTION>, or L<custom
-aliases|/CUSTOM ALIASES> you may have defined.
+ printf "U+%04X", charnames::vianame("FOUR TEARDROP-SPOKED ASTERISK");
-There are just a few differences. The main one is that under
-most (see L</BUGS> for the others) circumstances, vianame returns
-an ord, whereas C<\\N{...}> is seamlessly placed as a chr into the
-string in which it appears. This leads to a second difference.
-Since an ord is returned, it can be that of any character, even one
-that isn't legal under the C<S<use bytes>> pragma.
+prints "U+2722".
-The final difference is that if the input name is unknown C<vianame>
-returns C<undef> instead of the REPLACEMENT CHARACTER, and it does not
-raise a warning message.
+This leads to the other two differences. Since a single code point is
+returned, the function can't handle named character sequences, as these are
+composed of multiple characters. And, the code point can be that of any
+character, even ones that aren't legal under the C<S<use bytes>> pragma,
=head1 CUSTOM TRANSLATORS
you want to create aliases in a language where some or all the characters of
the desired aliases are non-ASCII.
-Unicode standard named sequences are not recognized, such as
-C<LATIN CAPITAL LETTER A WITH MACRON AND GRAVE>
-(which should mean C<LATIN CAPITAL LETTER A WITH MACRON> with an additional
-C<COMBINING GRAVE ACCENT>).
-
Since evaluation of the translation function (see L</CUSTOM
TRANSLATORS>) happens in the middle of compilation (of a string
literal), the translation function should not do any C<eval>s or
my $warning_count = @WARN;
ok (! defined charnames::vianame("NONE SUCH"), "Verify vianame returns undef for an undefined name");
cmp_ok($warning_count, '==', scalar @WARN, "Verify vianame doesn't warn on unknown names");
+ ok (! defined charnames::string_vianame("MORE NONE SUCH"), "Verify string_vianame returns undef for an undefined name");
+ cmp_ok($warning_count, '==', scalar @WARN, "Verify string_vianame doesn't warn on unknown names");
use bytes;
is(charnames::vianame("GOTHIC LETTER AHSA"), 0x10330, "Verify vianame \\N{name} is unaffected by 'use bytes'");
cmp_ok($warning_count, '==', scalar @WARN, "Verify vianame doesn't warn on legal inputs under 'use bytes'");
ok(! defined charnames::vianame("U+100"), "Verify vianame \\N{U+100} is undef under 'use bytes'");
ok($warning_count == scalar @WARN - 1 && $WARN[-1] =~ /above 0xFF/, "Verify vianame gives appropriate warning for previous test");
+
+ $warning_count = @WARN;
+ ok(! defined charnames::string_vianame("GOTHIC LETTER AHSA"), "Verify string_vianame(\"GOTHIC LETTER AHSA\") is undefined under 'use bytes'");
+ ok($warning_count == scalar @WARN - 1 && $WARN[-1] =~ /above 0xFF/, "Verify string_vianame gives appropriate warning for previous test");
+ $warning_count = @WARN;
+ is(charnames::string_vianame("U+FF"), chr(0xFF), "Verify string_vianame(\"U+FF\") is chr(0xFF) under 'use bytes'");
+ cmp_ok($warning_count, '==', scalar @WARN, "Verify string_vianame doesn't warn on legal inputs under 'use bytes'");
+ is(charnames::string_vianame("LATIN SMALL LETTER Y WITH DIAERESIS"), chr(0xFF), "Verify string_vianame(\"LATIN SMALL LETTER Y WITH DIAERESIS\") is chr(0xFF) under 'use bytes'");
+ cmp_ok($warning_count, '==', scalar @WARN, "Verify string_vianame doesn't warn on legal inputs under 'use bytes'");
+ ok(! defined charnames::string_vianame("U+100"), "Verify string_vianame \\N{U+100} is undef under 'use bytes'");
+ ok($warning_count == scalar @WARN - 1 && $WARN[-1] =~ /above 0xFF/, "Verify string_vianame gives appropriate warning for previous test");
+ $warning_count = @WARN;
+ ok(! defined charnames::string_vianame("LATIN SMALL LETTER L WITH TILDE"), "Verify string_vianame(\"LATIN SMALL LETTER L WITH TILDE\") is undef under 'use bytes'");
+ ok($warning_count == scalar @WARN - 1 && $WARN[-1] =~ /String.*above 0xFF/, "Verify string_vianame gives appropriate warning for previous test");
+
}
{
}
+# That these return the correct values is tested below when reading
+# NamedSequences.txt
+is("\N{TAMIL CONSONANT K}", charnames::string_vianame("TAMIL CONSONANT K"), "Verify \\N{TAMIL CONSONANT K} eq charnames::vianame(\"TAMIL CONSONANT K\")");
+
is("\N{CHARACTER TABULATION}", "\t");
is("\N{ESCAPE}", "\e");
is("\N{mychar1}", "e", "Outer block: verify that \\N{mychar1} works");
is(charnames::vianame("mychar1"), ord("e"), "Outer block: verify that vianame(mychar1) works");
+ is(charnames::string_vianame("mychar1"), "e", "Outer block: verify that string_vianame(mychar1) works");
is("\N{mychar2}", "A", "Outer block: verify that \\N{mychar2} works");
is(charnames::vianame("mychar2"), ord("A"), "Outer block: verify that vianame(mychar2) works");
+ is(charnames::string_vianame("mychar2"), "A", "Outer block: verify that string_vianame(mychar2) works");
is("\N{myprivate1}", "\x{E8000}", "Outer block: verify that \\N{myprivate1} works");
cmp_ok(charnames::vianame("myprivate1"), "==", 0xE8000, "Outer block: verify that vianame(myprivate1) works");
+ is(charnames::string_vianame("myprivate1"), chr(0xE8000), "Outer block: verify that string_vianame(myprivate1) works");
is(charnames::viacode(0xE8000), "myprivate1", "Outer block: verify that myprivate1 viacode works");
is("\N{myprivate2}", "\x{100000}", "Outer block: verify that \\N{myprivate2} works");
cmp_ok(charnames::vianame("myprivate2"), "==", 0x100000, "Outer block: verify that vianame(myprivate2) works");
+ is(charnames::string_vianame("myprivate2"), chr(0x100000), "Outer block: verify that string_vianame(myprivate2) works");
is(charnames::viacode(0x100000), "myprivate2", "Outer block: verify that myprivate2 viacode works");
is("\N{BE}", "\N{KATAKANA LETTER BE}", "Outer block: verify that \\N uses the correct script ");
cmp_ok(charnames::vianame("BE"), "==", ord("\N{KATAKANA LETTER BE}"), "Outer block: verify that vianame uses the correct script");
+ cmp_ok(charnames::string_vianame("BE"), "==", "\N{KATAKANA LETTER BE}", "Outer block: verify that string_vianame uses the correct script");
is("\N{Hiragana: BE}", $hiragana_be, "Outer block: verify that :short works with \\N");
cmp_ok(charnames::vianame("Hiragana: BE"), "==", ord($hiragana_be), "Outer block: verify that :short works with vianame");
+ cmp_ok(charnames::string_vianame("Hiragana: BE"), "==", $hiragana_be, "Outer block: verify that :short works with string_vianame");
{
use charnames ":full",
;
is("\N{mychar1}", "f", "Inner block: verify that \\N{mychar1} is redefined");
is(charnames::vianame("mychar1"), ord("f"), "Inner block: verify that vianame(mychar1) is redefined");
+ is(charnames::string_vianame("mychar1"), "f", "Inner block: verify that string_vianame(mychar1) is redefined");
is("\N{mychar2}", "\x{FFFD}", "Inner block: verify that \\N{mychar2} outer definition didn't leak");
ok( ! defined charnames::vianame("mychar2"), "Inner block: verify that vianame(mychar2) outer definition didn't leak");
+ ok( ! defined charnames::string_vianame("mychar2"), "Inner block: verify that string_vianame(mychar2) outer definition didn't leak");
is("\N{myprivate1}", "\x{E8001}", "Inner block: verify that \\N{myprivate1} is redefined ");
cmp_ok(charnames::vianame("myprivate1"), "==", 0xE8001, "Inner block: verify that vianame(myprivate1) is redefined");
+ is(charnames::string_vianame("myprivate1"), chr(0xE8001), "Inner block: verify that string_vianame(myprivate1) is redefined");
is(charnames::viacode(0xE8001), "myprivate1", "Inner block: verify that myprivate1 viacode is redefined");
ok(! defined charnames::viacode(0xE8000), "Inner block: verify that outer myprivate1 viacode didn't leak");
is("\N{myprivate2}", "\x{FFFD}", "Inner block: verify that \\N{myprivate2} outer definition didn't leak");
ok(! defined charnames::vianame("myprivate2"), "Inner block: verify that vianame(myprivate2) outer definition didn't leak");
+ ok(! defined charnames::string_vianame("myprivate2"), "Inner block: verify that string_vianame(myprivate2) outer definition didn't leak");
ok(! defined charnames::viacode(0x100000), "Inner block: verify that myprivate2 viacode outer definition didn't leak");
is("\N{BE}", $hiragana_be, "Inner block: verify that \\N uses the correct script");
cmp_ok(charnames::vianame("BE"), "==", ord($hiragana_be), "Inner block: verify that vianame uses the correct script");
+ cmp_ok(charnames::string_vianame("BE"), "==", $hiragana_be, "Inner block: verify that string_vianame uses the correct script");
is("\N{Hiragana: BE}", "\x{FFFD}", "Inner block without :short: \\N with short doesn't work");
ok(! defined charnames::vianame("Hiragana: BE"), "Inner block without :short: verify that vianame with short doesn't work");
+ ok(! defined charnames::string_vianame("Hiragana: BE"), "Inner block without :short: verify that string_vianame with short doesn't work");
{ # An inner block where only :short definitions are valid.
use charnames ":short";
is("\N{mychar1}", "\x{FFFD}", "Inner inner block: verify that mychar1 outer definition didn't leak with \\N");
ok( ! defined charnames::vianame("mychar1"), "Inner inner block: verify that mychar1 outer definition didn't leak with vianame");
+ ok( ! defined charnames::string_vianame("mychar1"), "Inner inner block: verify that mychar1 outer definition didn't leak with string_vianame");
is("\N{mychar2}", "\x{FFFD}", "Inner inner block: verify that mychar2 outer definition didn't leak with \\N");
ok( ! defined charnames::vianame("mychar2"), "Inner inner block: verify that mychar2 outer definition didn't leak with vianame");
+ ok( ! defined charnames::string_vianame("mychar2"), "Inner inner block: verify that mychar2 outer definition didn't leak with string_vianame");
is("\N{myprivate1}", "\x{FFFD}", "Inner inner block: verify that myprivate1 outer definition didn't leak with \\N");
ok(! defined charnames::vianame("myprivate1"), "Inner inner block: verify that myprivate1 outer definition didn't leak with vianame");
+ ok(! defined charnames::string_vianame("myprivate1"), "Inner inner block: verify that myprivate1 outer definition didn't leak with string_vianame");
is("\N{myprivate2}", "\x{FFFD}", "Inner inner block: verify that myprivate2 outer definition didn't leak with \\N");
ok(! defined charnames::vianame("myprivate2"), "Inner inner block: verify that myprivate2 outer definition didn't leak with vianame");
+ ok(! defined charnames::string_vianame("myprivate2"), "Inner inner block: verify that myprivate2 outer definition didn't leak with string_vianame");
ok(! defined charnames::viacode(0xE8000), "Inner inner block: verify that mychar1 outer outer definition didn't leak with viacode");
ok(! defined charnames::viacode(0xE8001), "Inner inner block: verify that mychar1 outer definition didn't leak with viacode");
ok(! defined charnames::viacode(0x100000), "Inner inner block: verify that mychar2 outer definition didn't leak with viacode");
is("\N{BE}", "\x{FFFD}", "Inner inner block without script: verify that outer :script didn't leak with \\N");
ok(! defined charnames::vianame("BE"), "Inner inner block without script: verify that outer :script didn't leak with vianames");
+ ok(! defined charnames::string_vianame("BE"), "Inner inner block without script: verify that outer :script didn't leak with string_vianames");
is("\N{HIRAGANA LETTER BE}", "\x{FFFD}", "Inner inner block without :full: verify that outer :full didn't leak with \\N");
is("\N{Hiragana: BE}", $hiragana_be, "Inner inner block with :short: verify that \\N works with :short");
cmp_ok(charnames::vianame("Hiragana: BE"), "==", ord($hiragana_be), "Inner inner block with :short: verify that vianame works with :short");
+ cmp_ok(charnames::string_vianame("Hiragana: BE"), "==", $hiragana_be, "Inner inner block with :short: verify that string_vianame works with :short");
}
# Back to previous block. All previous tests should work again.
is("\N{mychar1}", "f", "Inner block: verify that \\N{mychar1} is redefined");
is(charnames::vianame("mychar1"), ord("f"), "Inner block: verify that vianame(mychar1) is redefined");
+ is(charnames::string_vianame("mychar1"), "f", "Inner block: verify that string_vianame(mychar1) is redefined");
is("\N{mychar2}", "\x{FFFD}", "Inner block: verify that \\N{mychar2} outer definition didn't leak");
ok( ! defined charnames::vianame("mychar2"), "Inner block: verify that vianame(mychar2) outer definition didn't leak");
+ ok( ! defined charnames::string_vianame("mychar2"), "Inner block: verify that string_vianame(mychar2) outer definition didn't leak");
is("\N{myprivate1}", "\x{E8001}", "Inner block: verify that \\N{myprivate1} is redefined ");
cmp_ok(charnames::vianame("myprivate1"), "==", 0xE8001, "Inner block: verify that vianame(myprivate1) is redefined");
+ is(charnames::string_vianame("myprivate1"), chr(0xE8001), "Inner block: verify that string_vianame(myprivate1) is redefined");
is(charnames::viacode(0xE8001), "myprivate1", "Inner block: verify that myprivate1 viacode is redefined");
ok(! defined charnames::viacode(0xE8000), "Inner block: verify that outer myprivate1 viacode didn't leak");
is("\N{myprivate2}", "\x{FFFD}", "Inner block: verify that \\N{myprivate2} outer definition didn't leak");
ok(! defined charnames::vianame("myprivate2"), "Inner block: verify that vianame(myprivate2) outer definition didn't leak");
+ ok(! defined charnames::string_vianame("myprivate2"), "Inner block: verify that string_vianame(myprivate2) outer definition didn't leak");
ok(! defined charnames::viacode(0x100000), "Inner block: verify that myprivate2 viacode outer definition didn't leak");
is("\N{BE}", $hiragana_be, "Inner block: verify that \\N uses the correct script");
cmp_ok(charnames::vianame("BE"), "==", ord($hiragana_be), "Inner block: verify that vianame uses the correct script");
+ cmp_ok(charnames::string_vianame("BE"), "==", $hiragana_be, "Inner block: verify that string_vianame uses the correct script");
is("\N{Hiragana: BE}", "\x{FFFD}", "Inner block without :short: \\N with short doesn't work");
ok(! defined charnames::vianame("Hiragana: BE"), "Inner block without :short: verify that vianame with short doesn't work");
+ ok(! defined charnames::string_vianame("Hiragana: BE"), "Inner block without :short: verify that string_vianame with short doesn't work");
}
# Back to previous block. All tests from that block should work again.
is("\N{mychar1}", "e", "Outer block: verify that \\N{mychar1} works");
is(charnames::vianame("mychar1"), ord("e"), "Outer block: verify that vianame(mychar1) works");
+ is(charnames::string_vianame("mychar1"), "e", "Outer block: verify that string_vianame(mychar1) works");
is("\N{mychar2}", "A", "Outer block: verify that \\N{mychar2} works");
is(charnames::vianame("mychar2"), ord("A"), "Outer block: verify that vianame(mychar2) works");
+ is(charnames::string_vianame("mychar2"), "A", "Outer block: verify that string_vianame(mychar2) works");
is("\N{myprivate1}", "\x{E8000}", "Outer block: verify that \\N{myprivate1} works");
cmp_ok(charnames::vianame("myprivate1"), "==", 0xE8000, "Outer block: verify that vianame(myprivate1) works");
+ is(charnames::string_vianame("myprivate1"), chr(0xE8000), "Outer block: verify that string_vianame(myprivate1) works");
is(charnames::viacode(0xE8000), "myprivate1", "Outer block: verify that myprivate1 viacode works");
is("\N{myprivate2}", "\x{100000}", "Outer block: verify that \\N{myprivate2} works");
cmp_ok(charnames::vianame("myprivate2"), "==", 0x100000, "Outer block: verify that vianame(myprivate2) works");
+ is(charnames::string_vianame("myprivate2"), chr(0x100000), "Outer block: verify that string_vianame(myprivate2) works");
is(charnames::viacode(0x100000), "myprivate2", "Outer block: verify that myprivate2 viacode works");
is("\N{BE}", "\N{KATAKANA LETTER BE}", "Outer block: verify that \\N uses the correct script ");
cmp_ok(charnames::vianame("BE"), "==", ord("\N{KATAKANA LETTER BE}"), "Outer block: verify that vianame uses the correct script");
+ cmp_ok(charnames::string_vianame("BE"), "==", "\N{KATAKANA LETTER BE}", "Outer block: verify that string_vianame uses the correct script");
is("\N{Hiragana: BE}", $hiragana_be, "Outer block: verify that :short works with \\N");
cmp_ok(charnames::vianame("Hiragana: BE"), "==", ord($hiragana_be), "Outer block: verify that :short works with vianame");
+ cmp_ok(charnames::string_vianame("Hiragana: BE"), "==", $hiragana_be, "Outer block: verify that :short works with string_vianame");
}
{
s/^\s*#.*//;
next unless $_;
my ($hex, $name) = split ";";
- is(charnames::vianame($name), hex $hex, "Verify vianame(\"$name\") is 0x$hex");
+ if (rand() < .5) {
+ is(charnames::vianame($name), hex $hex, "Verify vianame(\"$name\") is 0x$hex");
+ }
+ else {
+ is(charnames::string_vianame($name), chr(hex $hex), "Verify string_vianame(\"$name\") is chr(0x$hex)");
+ }
}
close $fh;
} else {
# Otherwise, test that the name and code point map
- # correctly
- $all_pass &= is(charnames::vianame($names[$i]), $i, "Verify vianame(\"$names[$i]\") is 0x$hex");
+ # correctly. Half the time use vianame, and half
+ # string_vianame
+ if (rand() < .5) {
+ $all_pass &= is(charnames::vianame($names[$i]), $i, "Verify vianame(\"$names[$i]\") is 0x$hex");
+ } else {
+ $all_pass &= is(charnames::string_vianame($names[$i]), chr($i), "Verify string_vianame(\"$names[$i]\") is chr(0x$hex)");
+ }
$all_pass &= is(charnames::viacode($i), $names[$i], "Verify viacode(0x$hex) is \"$names[$i]\"");
# And make sure that a non-algorithmically named code
# point doesn't also map to one that is.
if ($names[$i] !~ /$hex$/) {
- $all_pass &= ok(! defined charnames::vianame("CJK UNIFIED IDEOGRAPH-$hex"), "Verify vianame(\"CJK UNIFIED IDEOGRAPH-$hex\") is undefined");
+ if (rand() < .5) {
+ $all_pass &= ok(! defined charnames::vianame("CJK UNIFIED IDEOGRAPH-$hex"), "Verify vianame(\"CJK UNIFIED IDEOGRAPH-$hex\") is undefined");
+ } else {
+ $all_pass &= ok(! defined charnames::string_vianame("CJK UNIFIED IDEOGRAPH-$hex"), "Verify string_vianame(\"CJK UNIFIED IDEOGRAPH-$hex\") is undefined");
+ }
}
}
}
$block = $end_block + 1;
}
+ open $fh, "<", "../../lib/unicore/NamedSequences.txt" or
+ die "Can't open ../../lib/unicore/NamedSequences.txt: $!";
+ while (<$fh>) {
+ chomp;
+ s/^\s*#.*//;
+ next unless $_;
+ my ($name, $codes) = split ";";
+ my $utf8 = pack("U*", map { hex } split " ", $codes);
+ is(charnames::string_vianame($name), $utf8, "Verify string_vianame(\"$name\") is the proper utf8");
+ is(charnames::string_vianame($name), $utf8, "Verify string_vianame(\"$name\") is the proper utf8");
+ #diag("$name, $utf8");
+ }
+ close $fh;
+
+
unless ($all_pass) {
diag(<<END
Not all tests succeeded. Because testing every single Unicode code
https://perl5.git.perl.org / perl5.git / commitdiff