Add macThai

Author: haldun

bin/encodings

@@ -83,6 +83,7 @@ when "koi8-r"       then table(Encoding::KOI8_R)
 when "macgreek"     then table(Encoding::MACGREEK)
 when "maciceland"   then table(Encoding::MACICELAND)
 when "macromania"   then table(Encoding::MACROMANIA)
+when "macthai"      then table(Encoding::MACTHAI)
 when "macturkish"   then table(Encoding::MACTURKISH)
 when "shift_jis"    then lists("shift_jis", 0...0x10000, Encoding::Shift_JIS)
 when "utf8"         then table(Encoding::UTF_8) and lists("utf8", 0x100...0x110000, Encoding::UTF_8)

docs/encoding.md

@@ -49,6 +49,7 @@ The key of the comment can be either "encoding" or "coding". The value of the co
 * `macGreek`
 * `macIceland`
 * `macRomania`
+* `macThai`
 * `macTurkish`
 * `Shift_JIS`
 * `US-ASCII`

include/prism/enc/pm_encoding.h

@@ -193,6 +193,7 @@ extern pm_encoding_t pm_encoding_koi8_r;
 extern pm_encoding_t pm_encoding_mac_greek;
 extern pm_encoding_t pm_encoding_mac_iceland;
 extern pm_encoding_t pm_encoding_mac_romania;
+extern pm_encoding_t pm_encoding_mac_thai;
 extern pm_encoding_t pm_encoding_mac_turkish;
 extern pm_encoding_t pm_encoding_shift_jis;
 extern pm_encoding_t pm_encoding_utf_8;

src/enc/pm_tables.c

@@ -792,6 +792,30 @@ static uint8_t pm_encoding_mac_romania_table[256] = {
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // Fx
 };
 
+/**
+ * Each element of the following table contains a bitfield that indicates a
+ * piece of information about the corresponding macThai character.
+ */
+static uint8_t pm_encoding_mac_thai_table[256] = {
+//  0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 0x
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 1x
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 2x
+    2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 0, 0, 0, 0, 0, 0, // 3x
+    0, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, // 4x
+    7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 0, 0, 0, 0, 0, // 5x
+    0, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, // 6x
+    3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 0, 0, 0, 0, 0, // 7x
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 8x
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // 9x
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // Ax
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // Bx
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // Cx
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // Dx
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // Ex
+    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, // Fx
+};
+
 /**
  * Each element of the following table contains a bitfield that indicates a
  * piece of information about the corresponding macTurkish character.
@@ -1129,6 +1153,7 @@ PRISM_ENCODING_TABLE(koi8_r)
 PRISM_ENCODING_TABLE(mac_greek)
 PRISM_ENCODING_TABLE(mac_iceland)
 PRISM_ENCODING_TABLE(mac_romania)
+PRISM_ENCODING_TABLE(mac_thai)
 PRISM_ENCODING_TABLE(mac_turkish)
 PRISM_ENCODING_TABLE(windows_1250)
 PRISM_ENCODING_TABLE(windows_1251)
@@ -1482,6 +1507,16 @@ pm_encoding_t pm_encoding_mac_romania = {
     .multibyte = false
 };
 
+/** macThai */
+pm_encoding_t pm_encoding_mac_thai = {
+    .name = "macThai",
+    .char_width = pm_encoding_single_char_width,
+    .alnum_char = pm_encoding_mac_thai_alnum_char,
+    .alpha_char = pm_encoding_mac_thai_alpha_char,
+    .isupper_char = pm_encoding_mac_thai_isupper_char,
+    .multibyte = false
+};
+
 /** macTurkish */
 pm_encoding_t pm_encoding_mac_turkish = {
     .name = "macTurkish",

src/prism.c

@@ -6138,6 +6138,7 @@ parser_lex_magic_comment_encoding_value(pm_parser_t *parser, const uint8_t *star
                 ENCODING1("macGreek", pm_encoding_mac_greek);
                 ENCODING1("macIceland", pm_encoding_mac_iceland);
                 ENCODING1("macRomania", pm_encoding_mac_romania);
+                ENCODING1("macThai", pm_encoding_mac_thai);
                 ENCODING1("macTurkish", pm_encoding_mac_turkish);
                 break;
             case 'P': case 'p':

test/prism/encoding_test.rb

@@ -41,6 +41,7 @@ class EncodingTest < TestCase
       Encoding::MACGREEK =>     0x00...0x100,
       Encoding::MACICELAND =>   0x00...0x100,
       Encoding::MACROMANIA =>   0x00...0x100,
+      Encoding::MACTHAI =>   0x00...0x100,
       Encoding::MACTURKISH =>   0x00...0x100,
       Encoding::Windows_1250 => 0x00...0x100,
       Encoding::Windows_1251 => 0x00...0x100,