regen/unicode_constants.pl: Add Arabic radix

This will be helpful to vutil.c
Perl · Jul 10, 2023 · f360b1c · f360b1c
1 parent 7beabcd
commit f360b1c
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/regen/unicode_constants.pl b/regen/unicode_constants.pl
@@ -1043,3 +1043,7 @@ END
 U+00FF native
 U+00B5 native
 U+00B5 string
+U+066B string
+U+066B first
+U+066B tail
+U+066B first_s
diff --git a/unicode_constants.h b/unicode_constants.h
@@ -90,6 +90,10 @@ bytes.
 #   define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE  0xFF    /* U+00FF */
 #   define MICRO_SIGN_NATIVE  0xB5    /* U+00B5 */
 #   define MICRO_SIGN_UTF8  "\xC2\xB5"    /* U+00B5 */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8  "\xD9\xAB"    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_FIRST_BYTE  0xD9    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_TAIL  "\xAB"    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_FIRST_BYTE_s  "\xD9"    /* U+066B */
 
 #   ifdef PERL_IN_TOKE_C
        /* Paired characters for quote-like operators, in UTF-8 */
@@ -151,6 +155,10 @@ bytes.
 #   define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE  0xDF    /* U+00FF */
 #   define MICRO_SIGN_NATIVE  0xA0    /* U+00B5 */
 #   define MICRO_SIGN_UTF8  "\x80\x64"    /* U+00B5 */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8  "\xB8\x62\x52"    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_FIRST_BYTE  0xB8    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_TAIL  "\x62\x52"    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_FIRST_BYTE_s  "\xB8"    /* U+066B */
 
 #   ifdef PERL_IN_TOKE_C
        /* Paired characters for quote-like operators, in UTF-8 */
@@ -212,6 +220,10 @@ bytes.
 #   define LATIN_SMALL_LETTER_Y_WITH_DIAERESIS_NATIVE  0xDF    /* U+00FF */
 #   define MICRO_SIGN_NATIVE  0xA0    /* U+00B5 */
 #   define MICRO_SIGN_UTF8  "\x78\x63"    /* U+00B5 */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8  "\xB7\x5F\x52"    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_FIRST_BYTE  0xB7    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_TAIL  "\x5F\x52"    /* U+066B */
+#   define ARABIC_DECIMAL_SEPARATOR_UTF8_FIRST_BYTE_s  "\xB7"    /* U+066B */
 
 #   ifdef PERL_IN_TOKE_C
        /* Paired characters for quote-like operators, in UTF-8 */