481 lines
14 KiB
PHP
Executable File
481 lines
14 KiB
PHP
Executable File
<?php
|
|
|
|
|
|
class MYANMAR {
|
|
|
|
/* FROM hb-ot-shape-complex-indic-private.hh */
|
|
// indic_category
|
|
const OT_X = 0;
|
|
const OT_C = 1;
|
|
const OT_V = 2;
|
|
const OT_N = 3;
|
|
const OT_H = 4;
|
|
const OT_ZWNJ = 5;
|
|
const OT_ZWJ = 6;
|
|
const OT_M = 7; /* Matra or Dependent Vowel */
|
|
const OT_SM = 8;
|
|
const OT_VD = 9;
|
|
const OT_A = 10;
|
|
const OT_NBSP = 11;
|
|
const OT_DOTTEDCIRCLE = 12; /* Not in the spec, but special in Uniscribe. /Very very/ special! */
|
|
const OT_RS = 13; /* Register Shifter, used in Khmer OT spec */
|
|
const OT_Coeng = 14;
|
|
const OT_Repha = 15;
|
|
const OT_Ra = 16; /* Not explicitly listed in the OT spec, but used in the grammar. */
|
|
const OT_CM = 17;
|
|
|
|
/* FROM hb-ot-shape-complex-myanmar.hh */
|
|
// myanmar_category
|
|
const OT_DB = 3; // same as INDIC::OT_N; /* Dot below */
|
|
const OT_GB = 12; // same as INDIC::OT_DOTTEDCIRCLE;
|
|
|
|
const OT_As = 18; /* Asat */
|
|
const OT_D = 19; /* Digits except zero */
|
|
const OT_D0 = 20; /* Digit zero */
|
|
const OT_MH = 21; /* Various consonant medial types */
|
|
const OT_MR = 22; /* Various consonant medial types */
|
|
const OT_MW = 23; /* Various consonant medial types */
|
|
const OT_MY = 24; /* Various consonant medial types */
|
|
const OT_PT = 25; /* Pwo and other tones */
|
|
const OT_VAbv = 26;
|
|
const OT_VBlw = 27;
|
|
const OT_VPre = 28;
|
|
const OT_VPst = 29;
|
|
const OT_VS = 30; /* Variation selectors */
|
|
|
|
|
|
// Based on myanmar_category used to make string to find syllables
|
|
// OT_ to string character (using e.g. OT_C from MYANMAR) hb-ot-shape-complex-myanmar-private.hh
|
|
public static $myanmar_category_char = array(
|
|
'x',
|
|
'C',
|
|
'V',
|
|
'N',
|
|
'H',
|
|
'Z',
|
|
'J',
|
|
'x',
|
|
'S',
|
|
'x',
|
|
'A',
|
|
'x',
|
|
'D',
|
|
'x',
|
|
'x',
|
|
'x',
|
|
'R',
|
|
'x',
|
|
|
|
|
|
'a', /* As Asat */
|
|
'd', /* Digits except zero */
|
|
'o', /* Digit zero */
|
|
'k', /* Medial types */
|
|
'l', /* Medial types */
|
|
'm', /* Medial types */
|
|
'n', /* Medial types */
|
|
'p', /* Pwo and other tones */
|
|
'v', /* Vowel aboVe */
|
|
'b', /* Vowel Below */
|
|
'e', /* Vowel prE */
|
|
't', /* Vowel posT */
|
|
's', /* variation Selector */
|
|
|
|
);
|
|
|
|
|
|
/* Visual positions in a syllable from left to right. */
|
|
/* FROM hb-ot-shape-complex-myanmar-private.hh */
|
|
// myanmar_position
|
|
const POS_START = 0;
|
|
|
|
const POS_RA_TO_BECOME_REPH = 1;
|
|
const POS_PRE_M = 2;
|
|
const POS_PRE_C = 3;
|
|
|
|
const POS_BASE_C = 4;
|
|
const POS_AFTER_MAIN = 5;
|
|
|
|
const POS_ABOVE_C = 6;
|
|
|
|
const POS_BEFORE_SUB = 7;
|
|
const POS_BELOW_C = 8;
|
|
const POS_AFTER_SUB = 9;
|
|
|
|
const POS_BEFORE_POST = 10;
|
|
const POS_POST_C = 11;
|
|
const POS_AFTER_POST = 12;
|
|
|
|
const POS_FINAL_C = 13;
|
|
const POS_SMVD = 14;
|
|
|
|
const POS_END = 15;
|
|
|
|
|
|
|
|
public static function set_myanmar_properties(&$info) {
|
|
$u = $info['uni'];
|
|
$type = self::myanmar_get_categories($u);
|
|
$cat = ($type & 0x7F);
|
|
$pos = ($type >> 8);
|
|
/*
|
|
* Re-assign category
|
|
* http://www.microsoft.com/typography/OpenTypeDev/myanmar/intro.htm#analyze
|
|
*/
|
|
if (self::in_range($u, 0xFE00, 0xFE0F))
|
|
$cat = self::OT_VS;
|
|
else if ($u == 0x200C) $cat = self::OT_ZWNJ;
|
|
else if ($u == 0x200D) $cat = self::OT_ZWJ;
|
|
|
|
switch ($u) {
|
|
case 0x002D: case 0x00A0: case 0x00D7: case 0x2012:
|
|
case 0x2013: case 0x2014: case 0x2015: case 0x2022:
|
|
case 0x25CC: case 0x25FB: case 0x25FC: case 0x25FD:
|
|
case 0x25FE:
|
|
$cat = self::OT_GB;
|
|
break;
|
|
|
|
case 0x1004: case 0x101B: case 0x105A:
|
|
$cat = self::OT_Ra;
|
|
break;
|
|
|
|
case 0x1032: case 0x1036:
|
|
$cat = self::OT_A;
|
|
break;
|
|
|
|
case 0x103A:
|
|
$cat = self::OT_As;
|
|
break;
|
|
|
|
case 0x1041: case 0x1042: case 0x1043: case 0x1044:
|
|
case 0x1045: case 0x1046: case 0x1047: case 0x1048:
|
|
case 0x1049: case 0x1090: case 0x1091: case 0x1092:
|
|
case 0x1093: case 0x1094: case 0x1095: case 0x1096:
|
|
case 0x1097: case 0x1098: case 0x1099:
|
|
$cat = self::OT_D;
|
|
break;
|
|
|
|
case 0x1040:
|
|
$cat = self::OT_D; /* XXX The spec says D0, but Uniscribe doesn't seem to do. */
|
|
break;
|
|
|
|
case 0x103E: case 0x1060:
|
|
$cat = self::OT_MH;
|
|
break;
|
|
|
|
case 0x103C:
|
|
$cat = self::OT_MR;
|
|
break;
|
|
|
|
case 0x103D: case 0x1082:
|
|
$cat = self::OT_MW;
|
|
break;
|
|
|
|
case 0x103B: case 0x105E: case 0x105F:
|
|
$cat = self::OT_MY;
|
|
break;
|
|
|
|
case 0x1063: case 0x1064: case 0x1069: case 0x106A:
|
|
case 0x106B: case 0x106C: case 0x106D: case 0xAA7B:
|
|
$cat = self::OT_PT;
|
|
break;
|
|
|
|
case 0x1038: case 0x1087: case 0x1088: case 0x1089:
|
|
case 0x108A: case 0x108B: case 0x108C: case 0x108D:
|
|
case 0x108F: case 0x109A: case 0x109B: case 0x109C:
|
|
$cat = self::OT_SM;
|
|
break;
|
|
}
|
|
|
|
if ($cat == self::OT_M) {
|
|
switch ($pos) {
|
|
case self::POS_PRE_C:
|
|
$cat = self::OT_VPre;
|
|
$pos = self::POS_PRE_M;
|
|
break;
|
|
case self::POS_ABOVE_C: $cat = self::OT_VAbv; break;
|
|
case self::POS_BELOW_C: $cat = self::OT_VBlw; break;
|
|
case self::POS_POST_C: $cat = self::OT_VPst; break;
|
|
}
|
|
}
|
|
$info['myanmar_category'] = $cat;
|
|
$info['myanmar_position'] = $pos;
|
|
}
|
|
|
|
// syllable_type
|
|
const CONSONANT_SYLLABLE = 0;
|
|
const BROKEN_CLUSTER = 3;
|
|
const NON_MYANMAR_CLUSTER = 4;
|
|
|
|
|
|
|
|
public static function set_syllables(&$o, $s, &$broken_syllables) {
|
|
$ptr = 0;
|
|
$syllable_serial = 1;
|
|
$broken_syllables = false;
|
|
|
|
while($ptr < strlen($s)) {
|
|
$match = '';
|
|
$syllable_length = 1;
|
|
$syllable_type = self::NON_MYANMAR_CLUSTER ;
|
|
// CONSONANT_SYLLABLE Consonant syllable
|
|
// From OT spec:
|
|
if (preg_match('/^(RaH)?([C|R]|V|d|D)[s]?(H([C|R|V])[s]?)*(H|[a]*[n]?[l]?((m[k]?|k)[a]?)?[e]*[v]*[b]*[A]*(N[a]?)?(t[k]?[a]*[v]*[A]*(N[a]?)?)*(p[A]*(N[a]?)?)*S*[J|Z]?)/', substr($s,$ptr), $ma)) {
|
|
$syllable_length = strlen($ma[0]);
|
|
$syllable_type = self::CONSONANT_SYLLABLE ;
|
|
}
|
|
|
|
// BROKEN_CLUSTER syllable
|
|
else if (preg_match('/^(RaH)?s?(H|[a]*[n]?[l]?((m[k]?|k)[a]?)?[e]*[v]*[b]*[A]*(N[a]?)?(t[k]?[a]*[v]*[A]*(N[a]?)?)*(p[A]*(N[a]?)?)*S*[J|Z]?)/', substr($s,$ptr), $ma)) {
|
|
if (strlen($ma[0])) { // May match blank
|
|
$syllable_length = strlen($ma[0]);
|
|
$syllable_type = self::BROKEN_CLUSTER ;
|
|
$broken_syllables = true;
|
|
}
|
|
}
|
|
for ($i = $ptr; $i < $ptr+$syllable_length; $i++) { $o[$i]['syllable'] = ($syllable_serial << 4) | $syllable_type; }
|
|
$ptr += $syllable_length ;
|
|
$syllable_serial++;
|
|
if ($syllable_serial == 16) $syllable_serial = 1;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
public static function reordering(&$info, $GSUBdata, $broken_syllables, $dottedcircle) {
|
|
if ($broken_syllables && $dottedcircle) { self::insert_dotted_circles ($info, $dottedcircle); }
|
|
$count = count($info);
|
|
if (!$count) return;
|
|
$last = 0;
|
|
$last_syllable = $info[0]['syllable'];
|
|
for ($i = 1; $i < $count; $i++) {
|
|
if ($last_syllable != $info[$i]['syllable']) {
|
|
self::reordering_syllable ($info, $GSUBdata, $last, $i);
|
|
$last = $i;
|
|
$last_syllable = $info[$last]['syllable'];
|
|
}
|
|
}
|
|
self::reordering_syllable($info, $GSUBdata, $last, $count);
|
|
}
|
|
|
|
public static function insert_dotted_circles(&$info, $dottedcircle) {
|
|
$idx = 0;
|
|
$last_syllable = 0;
|
|
while ($idx < count($info)) {
|
|
$syllable = $info[$idx]['syllable'];
|
|
$syllable_type = ($syllable & 0x0F);
|
|
if ($last_syllable != $syllable && $syllable_type == self::BROKEN_CLUSTER) {
|
|
$last_syllable = $syllable;
|
|
$dottedcircle[0]['syllable'] = $info[$idx]['syllable'];
|
|
array_splice($info, $idx, 0, $dottedcircle);
|
|
}
|
|
else
|
|
$idx++;
|
|
}
|
|
// In case of final bloken cluster...
|
|
$syllable = $info[$idx]['syllable'];
|
|
$syllable_type = ($syllable & 0x0F);
|
|
if ($last_syllable != $syllable && $syllable_type == self::BROKEN_CLUSTER) {
|
|
$dottedcircle[0]['syllable'] = $info[$idx]['syllable'];
|
|
array_splice($info, $idx, 0, $dottedcircle);
|
|
}
|
|
}
|
|
|
|
|
|
|
|
/* Rules from:
|
|
* https://www.microsoft.com/typography/otfntdev/devanot/shaping.aspx */
|
|
|
|
public static function reordering_syllable (&$info, $GSUBdata, $start, $end) {
|
|
/* vowel_syllable: We made the vowels look like consonants. So uses the consonant logic! */
|
|
/* broken_cluster: We already inserted dotted-circles, so just call the standalone_cluster. */
|
|
|
|
$syllable_type = ($info[$start]['syllable'] & 0x0F);
|
|
if ($syllable_type==self::NON_MYANMAR_CLUSTER ) { return; }
|
|
if ($syllable_type==self::BROKEN_CLUSTER) {
|
|
//if ($uniscribe_bug_compatible) {
|
|
/* For dotted-circle, this is what Uniscribe does:
|
|
* If dotted-circle is the last glyph, it just does nothing.
|
|
* i.e. It doesn't form Reph. */
|
|
if ($info[$end - 1]['myanmar_category'] == self::OT_DOTTEDCIRCLE) {
|
|
return;
|
|
}
|
|
}
|
|
|
|
$base = $end;
|
|
$has_reph = false;
|
|
$limit = $start;
|
|
|
|
if (($start + 3 <= $end) &&
|
|
$info[$start]['myanmar_category'] == self::OT_Ra &&
|
|
$info[$start+1]['myanmar_category'] == self::OT_As &&
|
|
$info[$start+2]['myanmar_category'] == self::OT_H ) {
|
|
$limit += 3;
|
|
$base = $start;
|
|
$has_reph = true;
|
|
}
|
|
|
|
if (!$has_reph)
|
|
$base = $limit;
|
|
|
|
for ($i = $limit; $i < $end; $i++) {
|
|
if (self::is_consonant($info[$i])) {
|
|
$base = $i;
|
|
break;
|
|
}
|
|
}
|
|
|
|
|
|
/* Reorder! */
|
|
$i = $start;
|
|
for (; $i < $start + ($has_reph ? 3 : 0); $i++)
|
|
$info[$i]['myanmar_position'] = self::POS_AFTER_MAIN;
|
|
for (; $i < $base; $i++)
|
|
$info[$i]['myanmar_position'] = self::POS_PRE_C;
|
|
if ($i < $end) {
|
|
$info[$i]['myanmar_position'] = self::POS_BASE_C;
|
|
$i++;
|
|
}
|
|
$pos = self::POS_AFTER_MAIN;
|
|
/* The following loop may be ugly, but it implements all of
|
|
* Myanmar reordering! */
|
|
for (; $i < $end; $i++) {
|
|
if ($info[$i]['myanmar_category'] == self::OT_MR) /* Pre-base reordering */
|
|
{
|
|
$info[$i]['myanmar_position'] = self::POS_PRE_C;
|
|
continue;
|
|
}
|
|
if ($info[$i]['myanmar_position'] < self::POS_BASE_C) /* Left matra */
|
|
{
|
|
continue;
|
|
}
|
|
|
|
if ($pos == self::POS_AFTER_MAIN && $info[$i]['myanmar_category'] == self::OT_VBlw)
|
|
{
|
|
$pos = self::POS_BELOW_C;
|
|
$info[$i]['myanmar_position'] = $pos;
|
|
continue;
|
|
}
|
|
|
|
if ($pos == self::POS_BELOW_C && $info[$i]['myanmar_category'] == self::OT_A)
|
|
{
|
|
$info[$i]['myanmar_position'] = self::POS_BEFORE_SUB;
|
|
continue;
|
|
}
|
|
if ($pos == self::POS_BELOW_C && $info[$i]['myanmar_category'] == self::OT_VBlw)
|
|
{
|
|
$info[$i]['myanmar_position'] = $pos;
|
|
continue;
|
|
}
|
|
if ($pos == self::POS_BELOW_C && $info[$i]['myanmar_category'] != self::OT_A)
|
|
{
|
|
$pos = self::POS_AFTER_SUB;
|
|
$info[$i]['myanmar_position'] = $pos;
|
|
continue;
|
|
}
|
|
$info[$i]['myanmar_position'] = $pos;
|
|
}
|
|
|
|
|
|
/* Sit tight, rock 'n roll! */
|
|
self::bubble_sort ($info, $start, $end - $start);
|
|
|
|
}
|
|
|
|
|
|
public static function is_one_of ($info, $flags) {
|
|
if (isset($info['is_ligature']) && $info['is_ligature']) return false; /* If it ligated, all bets are off. */
|
|
return !!(self::FLAG($info['myanmar_category']) & $flags);
|
|
}
|
|
|
|
/* Vowels and placeholders treated as if they were consonants. */
|
|
public static function is_consonant($info) {
|
|
return self::is_one_of($info, (self::FLAG(self::OT_C) | self::FLAG(self::OT_CM) | self::FLAG(self::OT_Ra) | self::FLAG(self::OT_V) | self::FLAG(self::OT_NBSP) | self::FLAG(self::OT_GB)));
|
|
}
|
|
|
|
|
|
|
|
// From hb-private.hh
|
|
public static function in_range ($u, $lo, $hi) {
|
|
if ( (($lo^$hi) & $lo) == 0 && (($lo^$hi) & $hi) == ($lo^$hi) && (($lo^$hi) & (($lo^$hi) + 1)) == 0 )
|
|
return ($u & ~($lo^$hi)) == $lo;
|
|
else
|
|
return $lo <= $u && $u <= $hi;
|
|
}
|
|
|
|
// From hb-private.hh
|
|
public static function FLAG($x) { return (1<<($x)); }
|
|
|
|
public static function FLAG_RANGE($x,$y) { self::FLAG(y+1) - self::FLAG(x); }
|
|
|
|
|
|
|
|
// BELOW from hb-ot-shape-complex-indic.cc
|
|
// see INDIC for details
|
|
|
|
public static $myanmar_table = array(
|
|
|
|
/* Myanmar (1000..109F) */
|
|
|
|
/* 1000 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
|
|
/* 1008 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
|
|
/* 1010 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
|
|
/* 1018 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
|
|
/* 1020 */ 3841, 3842, 3842, 3842, 3842, 3842, 3842, 3842,
|
|
/* 1028 */ 3842, 3842, 3842, 2823, 2823, 1543, 1543, 2055,
|
|
/* 1030 */ 2055, 775, 1543, 1543, 1543, 1543, 3848, 3843,
|
|
/* 1038 */ 3848, 3844, 1540, 3857, 3857, 3857, 3857, 3841,
|
|
/* 1040 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
|
|
/* 1048 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
|
|
/* 1050 */ 3841, 3841, 3842, 3842, 3842, 3842, 2823, 2823,
|
|
/* 1058 */ 2055, 2055, 3841, 3841, 3841, 3841, 3857, 3857,
|
|
/* 1060 */ 3857, 3841, 2823, 3843, 3843, 3841, 3841, 2823,
|
|
/* 1068 */ 2823, 3843, 3843, 3843, 3843, 3843, 3841, 3841,
|
|
/* 1070 */ 3841, 1543, 1543, 1543, 1543, 3841, 3841, 3841,
|
|
/* 1078 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
|
|
/* 1080 */ 3841, 3841, 3857, 2823, 775, 1543, 1543, 3843,
|
|
/* 1088 */ 3843, 3843, 3843, 3843, 3843, 3843, 3841, 3843,
|
|
/* 1090 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
|
|
/* 1098 */ 3840, 3840, 3843, 3843, 2823, 1543, 3840, 3840,
|
|
|
|
/* Myanmar Extended-A (AA60..AA7F) */
|
|
|
|
/* AA60 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
|
|
/* AA68 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
|
|
/* AA70 */ 3840, 3841, 3841, 3841, 3840, 3840, 3840, 3840,
|
|
/* AA78 */ 3840, 3840, 3841, 3843, 3840, 3840, 3840, 3840,
|
|
|
|
|
|
);
|
|
|
|
// from "hb-ot-shape-complex-indic-table.cc"
|
|
public static function myanmar_get_categories ($u) {
|
|
if (0x1000 <= $u && $u <= 0x109F) return self::$myanmar_table[$u - 0x1000 + 0]; // offset 0 for Most "myanmar"
|
|
if (0xAA60 <= $u && $u <= 0xAA7F) return self::$myanmar_table[$u - 0xAA60 + 160]; // offset for extensions
|
|
if ($u == 0x00A0) return 3851; // (ISC_CP | (IMC_x << 8))
|
|
if ($u == 0x25CC) return 3851; // (ISC_CP | (IMC_x << 8))
|
|
return 3840; // (ISC_x | (IMC_x << 8))
|
|
}
|
|
|
|
|
|
public static function bubble_sort(&$arr, $start, $len) {
|
|
if ($len<2) { return;}
|
|
$k = $start+$len-2;
|
|
while ($k >= $start) {
|
|
for ($j=$start; $j<=$k; $j++) {
|
|
if ($arr[$j]['myanmar_position'] > $arr[$j + 1]['myanmar_position']) {
|
|
$t = $arr[$j];
|
|
$arr[$j] = $arr[$j + 1];
|
|
$arr[$j + 1] = $t;
|
|
}
|
|
}
|
|
$k--;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
} // end Class
|
|
|
|
?>
|