Viewing file:  Myanmar.php (13.83 KB) -rw-r--r--
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
<?php
namespace Mpdf\Shaper;
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 */
/* 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;
// 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 = [
'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 */
];
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;
} elseif ($u == 0x200C) {
$cat = self::OT_ZWNJ;
} elseif ($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
elseif (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)
{
return self::FLAG($y + 1) - self::FLAG($x);
}
// BELOW from hb-ot-shape-complex-indic.cc
// see INDIC for details
public static $myanmar_table = [
/* 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--;
}
}
}
|