This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
unicode_constants.h: Add some #defines
authorKarl Williamson <public@khwilliamson.com>
Fri, 17 May 2013 03:37:43 +0000 (21:37 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 20 May 2013 17:01:52 +0000 (11:01 -0600)
These will be used in future commits

regen/unicode_constants.pl
unicode_constants.h

index 0c45cf0..ba4cf54 100644 (file)
@@ -140,6 +140,7 @@ print $out_fh "\n#endif /* H_UNICODE_CONSTANTS */\n";
 read_only_bottom_close_and_rename($out_fh);
 
 __DATA__
+U+017F string
 
 U+0300 string
 U+0301 string
@@ -152,6 +153,8 @@ U+03B9 string
 
 U+03C5 string
 
+U+1E9E string
+
 U+2010 string
 U+D800 first FIRST_SURROGATE
 
index 90521ec..5281c6a 100644 (file)
@@ -20,6 +20,7 @@
  *  "_TAIL"       if instead it represents all but the first byte.  This, and
  *                with no additional suffix are both string constants */
 
+#define LATIN_SMALL_LETTER_LONG_S_UTF8  "\xC5\xBF"    /* U+017F */
 
 #define COMBINING_GRAVE_ACCENT_UTF8  "\xCC\x80"    /* U+0300 */
 #define COMBINING_ACUTE_ACCENT_UTF8  "\xCC\x81"    /* U+0301 */
@@ -32,6 +33,8 @@
 
 #define GREEK_SMALL_LETTER_UPSILON_UTF8  "\xCF\x85"    /* U+03C5 */
 
+#define LATIN_CAPITAL_LETTER_SHARP_S_UTF8  "\xE1\xBA\x9E"    /* U+1E9E */
+
 #define HYPHEN_UTF8  "\xE2\x80\x90"    /* U+2010 */
 #define FIRST_SURROGATE_UTF8_FIRST_BYTE  0xED    /* U+D800 */