This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
unicode_constants.h: Add #defines for Byte Order Mark
authorKarl Williamson <public@khwilliamson.com>
Mon, 4 Mar 2013 16:10:27 +0000 (09:10 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 29 Aug 2013 15:56:00 +0000 (09:56 -0600)
These will be used in future commits

regen/unicode_constants.pl
unicode_constants.h

index ba4cf54..78e0110 100644 (file)
@@ -157,6 +157,8 @@ U+1E9E string
 
 U+2010 string
 U+D800 first FIRST_SURROGATE
 
 U+2010 string
 U+D800 first FIRST_SURROGATE
+BOM first
+BOM tail
 
 DEL native
 U+00DF native
 
 DEL native
 U+00DF native
index 5281c6a..35842a3 100644 (file)
@@ -37,6 +37,8 @@
 
 #define HYPHEN_UTF8  "\xE2\x80\x90"    /* U+2010 */
 #define FIRST_SURROGATE_UTF8_FIRST_BYTE  0xED    /* U+D800 */
 
 #define HYPHEN_UTF8  "\xE2\x80\x90"    /* U+2010 */
 #define FIRST_SURROGATE_UTF8_FIRST_BYTE  0xED    /* U+D800 */
+#define BOM_UTF8_FIRST_BYTE  0xEF    /* U+FEFF */
+#define BOM_UTF8_TAIL  "\xBB\xBF"    /* U+FEFF */
 
 #define DEL_NATIVE  0x7F    /* U+007F */
 #define LATIN_SMALL_LETTER_SHARP_S_NATIVE  0xDF    /* U+00DF */
 
 #define DEL_NATIVE  0x7F    /* U+007F */
 #define LATIN_SMALL_LETTER_SHARP_S_NATIVE  0xDF    /* U+00DF */