[17_1] Add hanzi_nr to convert numbers to Chinese numerals

Kernel/Types/analyze.cpp

@@ -574,6 +574,105 @@ fnsymbol_nr (int nr) {
   return r;
 }
 
+static string chars_han[10]= {
+    "<unspecified>", "一", "二", "三", "四", "五", "六", "七", "八", "九"};
+
+string
+hanzi_sub (int nr, bool leading_zero) {
+  short thousand= (nr % 10000) / 1000, hundred= (nr % 1000) / 100,
+        ten= (nr % 100) / 10, one= nr % 10;
+  short cases= (leading_zero << 4) | ((thousand == 0) << 3) |
+               ((hundred == 0) << 2) | ((ten == 0) << 1) | (one == 0);
+  switch (cases) {
+  case 0x0:
+  case 0x10:
+    return chars_han[thousand] * "千" * chars_han[hundred] * "百" *
+           chars_han[ten] * "十" * chars_han[one];
+  case 0x1:
+  case 0x11:
+    return chars_han[thousand] * "千" * chars_han[hundred] * "百" *
+           chars_han[ten] * "十";
+  case 0x2:
+  case 0x12:
+    return chars_han[thousand] * "千" * chars_han[hundred] * "百零" *
+           chars_han[one];
+  case 0x3:
+  case 0x13:
+    return chars_han[thousand] * "千" * chars_han[hundred] * "百";
+  case 0x4:
+  case 0x14:
+    return chars_han[thousand] * "千零" * chars_han[ten] * "十" *
+           chars_han[one];
+  case 0x5:
+  case 0x15:
+    return chars_han[thousand] * "千零" * chars_han[ten] * "十";
+  case 0x6:
+  case 0x16:
+    return chars_han[thousand] * "千零" * chars_han[one];
+  case 0x7:
+  case 0x17:
+    return chars_han[thousand] * "千";
+  case 0x8:
+    return chars_han[hundred] * "百" * chars_han[ten] * "十" * chars_han[one];
+  case 0x18:
+    return "零" * chars_han[hundred] * "百" * chars_han[ten] * "十" *
+           chars_han[one];
+  case 0x9:
+    return chars_han[hundred] * "百" * chars_han[ten] * "十";
+  case 0x19:
+    return "零" * chars_han[hundred] * "百" * chars_han[ten] * "十";
+  case 0xA:
+    return chars_han[hundred] * "百零" * chars_han[one];
+  case 0x1A:
+    return "零" * chars_han[hundred] * "百零" * chars_han[one];
+  case 0xB:
+    return chars_han[hundred] * "百";
+  case 0x1B:
+    return "零" * chars_han[hundred] * "百";
+  case 0xC:
+    if (ten == 1) {
+      return "十" * chars_han[one];
+    }
+    else {
+      return chars_han[ten] * "十" * chars_han[one];
+    }
+  case 0x1C:
+    return "零" * chars_han[ten] * "十" * chars_han[one];
+  case 0xD:
+    if (ten == 1) {
+      return "十";
+    }
+    else {
+      return chars_han[ten] * "十";
+    }
+  case 0x1D:
+    return "零" * chars_han[ten] * "十";
+  case 0xE:
+    return chars_han[one];
+  case 0x1E:
+    return "零" * chars_han[one];
+  case 0xF:
+  case 0x1F:
+    return "";
+  default:
+    return "<unspecified>" * as_string (cases);
+  }
+}
+string
+hanzi_nr (int nr) {
+  if (nr < 0) return "负" * hanzi_nr (-nr);
+  if (nr == 0) return "零";
+  if (nr >= 100000000) {
+    return hanzi_sub (nr / 100000000, false) * "亿" *
+           hanzi_sub ((nr / 10000) % 10000, true) * "万" *
+           hanzi_sub (nr % 10000, true);
+  }
+  if (nr >= 10000) {
+    return hanzi_sub (nr / 10000, false) * "万" * hanzi_sub (nr % 10000, true);
+  }
+  return hanzi_sub (nr, false);
+}
+
 /******************************************************************************
  * Conversions to and from hexadecimal
  ******************************************************************************/

Kernel/Types/analyze.hpp

@@ -334,6 +334,14 @@ string Alpha_nr (int nr);
  */
 string fnsymbol_nr (int nr);
 
+/**
+ * @brief Generates a Chinese numeral for a given integer.
+ *
+ * @param nr The integer to be converted to a Chinese numeral.
+ * @return A string representing the Chinese numeral.
+ */
+string hanzi_nr (int nr);
+
 /**
  * @brief Converts an integer to a hexadecimal string.
  *

tests/Kernel/Types/analyze_test.cpp

@@ -140,3 +140,27 @@ TEST_CASE ("replace") {
   CHECK_EQ (replace ("a-b", "-", "_") == "a_b", true);
   CHECK_EQ (replace ("a-b-c", "-", "_") == "a_b_c", true);
 }
+
+TEST_CASE ("hanzi_nr") {
+  CHECK_EQ (hanzi_nr (-1605) == "负一千六百零五", true);
+  CHECK_EQ (hanzi_nr (0) == "零", true);
+  CHECK_EQ (hanzi_nr (1) == "一", true);
+  CHECK_EQ (hanzi_nr (10) == "十", true);
+  CHECK_EQ (hanzi_nr (11) == "十一", true);
+  CHECK_EQ (hanzi_nr (42) == "四十二", true);
+  CHECK_EQ (hanzi_nr (90) == "九十", true);
+  CHECK_EQ (hanzi_nr (100) == "一百", true);
+  CHECK_EQ (hanzi_nr (102) == "一百零二", true);
+  CHECK_EQ (hanzi_nr (110) == "一百一十", true);
+  CHECK_EQ (hanzi_nr (123) == "一百二十三", true);
+  CHECK_EQ (hanzi_nr (1000) == "一千", true);
+  CHECK_EQ (hanzi_nr (1001) == "一千零一", true);
+  CHECK_EQ (hanzi_nr (1024) == "一千零二十四", true);
+  CHECK_EQ (hanzi_nr (1030) == "一千零三十", true);
+  CHECK_EQ (hanzi_nr (1600) == "一千六百", true);
+  CHECK_EQ (hanzi_nr (1605) == "一千六百零五", true);
+  CHECK_EQ (hanzi_nr (10000) == "一万", true);
+  CHECK_EQ (hanzi_nr (10001) == "一万零一", true);
+  CHECK_EQ (hanzi_nr (153457) == "十五万三千四百五十七", true);
+  CHECK_EQ (hanzi_nr (300153457) == "三亿零一十五万三千四百五十七", true);
+}

xmake.lua

@@ -96,6 +96,7 @@ target("liblolly") do
     set_kind("static")
     set_languages("c++17")
     set_policy("check.auto_ignore_flags", false)
+    set_encodings("utf-8")
     my_configvar_check()
 
     set_basename("lolly")
@@ -190,7 +191,7 @@ function add_test_target(filepath)
         end
 
         if is_plat("windows") then
-            add_cxxflags("/utf-8")
+            set_encodings("utf-8")
             add_ldflags("/LTCG")
         end