vendor/mpdf/mpdf/classes/sea.php

   1 <?php
   2
   3 class SEA
   4 {
   5         // South East Asian shaper
   6         // sea_category
   7         const OT_X = 0;
   8
   9         const OT_C = 1;
  10
  11         const OT_IV = 2;  # Independent Vowel
  12
  13         const OT_T = 3;  # Tone Marks
  14
  15         const OT_H = 4;  # Halant
  16
  17         const OT_A = 10; # Anusvara
  18
  19         const OT_GB = 12; # Generic Base        (OT_DOTTEDCIRCLE in Indic)
  20
  21         const OT_CM = 17; # Consonant Medial
  22
  23         const OT_MR = 22; # Medial Ra
  24
  25         const OT_VAbv = 26;
  26
  27         const OT_VBlw = 27;
  28
  29         const OT_VPre = 28;
  30
  31         const OT_VPst = 29;
  32
  33         // ? From Indic categories
  34         const OT_ZWNJ = 5;
  35
  36         const OT_ZWJ = 6;
  37
  38         const OT_M = 7;
  39
  40         const OT_SM = 8;
  41
  42         const OT_VD = 9;
  43
  44         const OT_NBSP = 11;
  45
  46         const OT_RS = 13;
  47
  48         const OT_Coeng = 14;
  49
  50         const OT_Repha = 15;
  51
  52         const OT_Ra = 16;
  53
  54         // Based on sea_category used to make string to find syllables
  55         // OT_ to string character (using e.g. OT_C from INDIC) hb-ot-shape-complex-sea-private.hh
  56         public static $sea_category_char = array(
  57                 'x',
  58                 'C',
  59                 'V',
  60                 'T',
  61                 'H',
  62                 'x',
  63                 'x',
  64                 'x',
  65                 'x',
  66                 'x',
  67                 'A',
  68                 'x',
  69                 'G',
  70                 'x',
  71                 'x',
  72                 'x',
  73                 'x',
  74                 'M',
  75                 'x',
  76                 'x',
  77                 'x',
  78                 'x',
  79                 'R',
  80                 'x',
  81                 'x',
  82                 'x',
  83                 'a',
  84                 'b',
  85                 'p',
  86                 't',
  87         );
  88
  89         /* Visual positions in a syllable from left to right. */
  90         // sea_position
  91         const POS_START = 0;
  92
  93         const POS_RA_TO_BECOME_REPH = 1;
  94
  95         const POS_PRE_M = 2;
  96
  97         const POS_PRE_C = 3;
  98
  99         const POS_BASE_C = 4;
 100
 101         const POS_AFTER_MAIN = 5;
 102
 103         const POS_ABOVE_C = 6;
 104
 105         const POS_BEFORE_SUB = 7;
 106
 107         const POS_BELOW_C = 8;
 108
 109         const POS_AFTER_SUB = 9;
 110
 111         const POS_BEFORE_POST = 10;
 112
 113         const POS_POST_C = 11;
 114
 115         const POS_AFTER_POST = 12;
 116
 117         const POS_FINAL_C = 13;
 118
 119         const POS_SMVD = 14;
 120
 121         const POS_END = 15;
 122
 123         public static function set_sea_properties(&$info, $scriptblock)
 124         {
 125                 $u = $info['uni'];
 126                 $type = self::sea_get_categories($u);
 127                 $cat = ($type & 0x7F);
 128                 $pos = ($type >> 8);
 129
 130                 /*
 131                  * Re-assign category
 132                  */
 133                 // Medial Ra
 134                 if ($u == 0x1A55 || $u == 0xAA34) {
 135                         $cat = self::OT_MR;
 136                 }
 137
 138                 /*
 139                  * Re-assign position.
 140                  */
 141                 if ($cat == self::OT_M) { // definitely "OT_M" in HarfBuzz - although this does not seem to have been defined ? should be OT_MR
 142                         switch ($pos) {
 143                                 case self::POS_PRE_C: $cat = self::OT_VPre;
 144                                         break;
 145                                 case self::POS_ABOVE_C: $cat = self::OT_VAbv;
 146                                         break;
 147                                 case self::POS_BELOW_C: $cat = self::OT_VBlw;
 148                                         break;
 149                                 case self::POS_POST_C: $cat = self::OT_VPst;
 150                                         break;
 151                         }
 152                 }
 153
 154                 $info['sea_category'] = $cat;
 155                 $info['sea_position'] = $pos;
 156         }
 157
 158         // syllable_type
 159         const CONSONANT_SYLLABLE = 0;
 160
 161         const BROKEN_CLUSTER = 1;
 162
 163         const NON_SEA_CLUSTER = 2;
 164
 165         public static function set_syllables(&$o, $s, &$broken_syllables)
 166         {
 167                 $ptr = 0;
 168                 $syllable_serial = 1;
 169                 $broken_syllables = false;
 170                 while ($ptr < strlen($s)) {
 171                         $match = '';
 172                         $syllable_length = 1;
 173                         $syllable_type = self::NON_SEA_CLUSTER;
 174
 175                         // CONSONANT_SYLLABLE Consonant syllable
 176                         if (preg_match('/^(C|V|G)(p|a|b|t|HC|M|R|T|A)*/', substr($s, $ptr), $ma)) {
 177                                 $syllable_length = strlen($ma[0]);
 178                                 $syllable_type = self::CONSONANT_SYLLABLE;
 179                         }
 180                         // BROKEN_CLUSTER syllable
 181                         else if (preg_match('/^(p|a|b|t|HC|M|R|T|A)+/', substr($s, $ptr), $ma)) {
 182                                 $syllable_length = strlen($ma[0]);
 183                                 $syllable_type = self::BROKEN_CLUSTER;
 184                                 $broken_syllables = true;
 185                         }
 186
 187                         for ($i = $ptr; $i < $ptr + $syllable_length; $i++) {
 188                                 $o[$i]['syllable'] = ($syllable_serial << 4) | $syllable_type;
 189                         }
 190                         $ptr += $syllable_length;
 191                         $syllable_serial++;
 192                         if ($syllable_serial == 16)
 193                                 $syllable_serial = 1;
 194                 }
 195         }
 196
 197         public static function initial_reordering(&$info, $GSUBdata, $broken_syllables, $scriptblock, $dottedcircle)
 198         {
 199
 200                 if ($broken_syllables && $dottedcircle) {
 201                         self::insert_dotted_circles($info, $dottedcircle);
 202                 }
 203
 204                 $count = count($info);
 205                 if (!$count)
 206                         return;
 207                 $last = 0;
 208                 $last_syllable = $info[0]['syllable'];
 209                 for ($i = 1; $i < $count; $i++) {
 210                         if ($last_syllable != $info[$i]['syllable']) {
 211                                 self::initial_reordering_syllable($info, $GSUBdata, $scriptblock, $last, $i);
 212                                 $last = $i;
 213                                 $last_syllable = $info[$last]['syllable'];
 214                         }
 215                 }
 216                 self::initial_reordering_syllable($info, $GSUBdata, $scriptblock, $last, $count);
 217         }
 218
 219         public static function insert_dotted_circles(&$info, $dottedcircle)
 220         {
 221                 $idx = 0;
 222                 $last_syllable = 0;
 223                 while ($idx < count($info)) {
 224                         $syllable = $info[$idx]['syllable'];
 225                         $syllable_type = ($syllable & 0x0F);
 226                         if ($last_syllable != $syllable && $syllable_type == self::BROKEN_CLUSTER) {
 227                                 $last_syllable = $syllable;
 228                                 $dottedcircle[0]['syllable'] = $info[$idx]['syllable'];
 229                                 array_splice($info, $idx, 0, $dottedcircle);
 230                         } else
 231                                 $idx++;
 232                 }
 233         }
 234
 235         public static function initial_reordering_syllable(&$info, $GSUBdata, $scriptblock, $start, $end)
 236         {
 237                 /* broken_cluster: We already inserted dotted-circles, so just call the standalone_cluster. */
 238
 239                 $syllable_type = ($info[$start]['syllable'] & 0x0F);
 240                 if ($syllable_type == self::NON_SEA_CLUSTER) {
 241                         return;
 242                 }
 243                 if ($syllable_type == self::BROKEN_CLUSTER) {
 244                         /* For dotted-circle, this is what Uniscribe does:
 245                          * If dotted-circle is the last glyph, it just does nothing. */
 246                         if ($info[$end - 1]['sea_category'] == self::OT_GB) {
 247                                 return;
 248                         }
 249                 }
 250
 251                 $base = $start;
 252                 $i = $start;
 253                 for (; $i < $base; $i++)
 254                         $info[$i]['sea_position'] = self::POS_PRE_C;
 255                 if ($i < $end) {
 256                         $info[$i]['sea_position'] = self::POS_BASE_C;
 257                         $i++;
 258                 }
 259                 for (; $i < $end; $i++) {
 260                         if (isset($info[$i]['sea_category']) && $info[$i]['sea_category'] == self::OT_MR) { /* Pre-base reordering */
 261                                 $info[$i]['sea_position'] = self::POS_PRE_C;
 262                                 continue;
 263                         }
 264                         if (isset($info[$i]['sea_category']) && $info[$i]['sea_category'] == self::OT_VPre) { /* Left matra */
 265                                 $info[$i]['sea_position'] = self::POS_PRE_M;
 266                                 continue;
 267                         }
 268                         $info[$i]['sea_position'] = self::POS_AFTER_MAIN;
 269                 }
 270
 271                 /* Sit tight, rock 'n roll! */
 272                 self::bubble_sort($info, $start, $end - $start);
 273         }
 274
 275         public static function final_reordering(&$info, $GSUBdata, $scriptblock)
 276         {
 277                 $count = count($info);
 278                 if (!$count)
 279                         return;
 280                 $last = 0;
 281                 $last_syllable = $info[0]['syllable'];
 282                 for ($i = 1; $i < $count; $i++) {
 283                         if ($last_syllable != $info[$i]['syllable']) {
 284                                 self::final_reordering_syllable($info, $GSUBdata, $scriptblock, $last, $i);
 285                                 $last = $i;
 286                                 $last_syllable = $info[$last]['syllable'];
 287                         }
 288                 }
 289                 self::final_reordering_syllable($info, $GSUBdata, $scriptblock, $last, $count);
 290         }
 291
 292         public static function final_reordering_syllable(&$info, $GSUBdata, $scriptblock, $start, $end)
 293         {
 294                 /*
 295                  * Nothing to do here at present!
 296                  */
 297         }
 298
 299         public static $sea_table = array(
 300                 /* New Tai Lue  (1980..19DF) */
 301
 302                 /* 1980 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 303                 /* 1988 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 304                 /* 1990 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 305                 /* 1998 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 306                 /* 19A0 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 307                 /* 19A8 */ 3841, 3841, 3841, 3841, 3840, 3840, 3840, 3840,
 308                 /* 19B0 */ 2823, 2823, 2823, 2823, 2823, 775, 775, 775,
 309                 /* 19B8 */ 2823, 2823, 775, 2823, 2823, 2823, 2823, 2823,
 310                 /* 19C0 */ 2823, 3857, 3857, 3857, 3857, 3857, 3857, 3857,
 311                 /* 19C8 */ 3843, 3843, 3840, 3840, 3840, 3840, 3840, 3840,
 312                 /* 19D0 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 313                 /* 19D8 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 314                 /* Tai Tham  (1A20..1AAF) */
 315
 316                 /* 1A20 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 317                 /* 1A28 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 318                 /* 1A30 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 319                 /* 1A38 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 320                 /* 1A40 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 321                 /* 1A48 */ 3841, 3841, 3841, 3841, 3841, 3842, 3842, 3842,
 322                 /* 1A50 */ 3842, 3842, 3842, 3841, 3841, 3857, 3857, 3857,
 323                 /* 1A58 */ 3857, 3857, 3857, 3857, 3857, 3857, 3857, 3840,
 324                 /* 1A60 */ 3844, 2823, 1543, 2823, 2823, 1543, 1543, 1543,
 325                 /* 1A68 */ 1543, 2055, 2055, 1543, 2055, 2823, 775, 775,
 326                 /* 1A70 */ 775, 775, 775, 1543, 1543, 3843, 3843, 3843,
 327                 /* 1A78 */ 3843, 3843, 3840, 3840, 3840, 3840, 3840, 3840,
 328                 /* 1A80 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 329                 /* 1A88 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 330                 /* 1A90 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 331                 /* 1A98 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 332                 /* 1AA0 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 333                 /* 1AA8 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 334                 /* Cham  (AA00..AA5F) */
 335
 336                 /* AA00 */ 3842, 3842, 3842, 3842, 3842, 3842, 3841, 3841,
 337                 /* AA08 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 338                 /* AA10 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 339                 /* AA18 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 340                 /* AA20 */ 3841, 3841, 3841, 3841, 3841, 3841, 3841, 3841,
 341                 /* AA28 */ 3841, 1543, 1543, 1543, 1543, 2055, 1543, 775,
 342                 /* AA30 */ 775, 1543, 2055, 3857, 3857, 3857, 3857, 3840,
 343                 /* AA38 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 344                 /* AA40 */ 3857, 3857, 3857, 3857, 3857, 3857, 3857, 3857,
 345                 /* AA48 */ 3857, 3857, 3857, 3857, 3857, 3857, 3840, 3840,
 346                 /* AA50 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 347                 /* AA58 */ 3840, 3840, 3840, 3840, 3840, 3840, 3840, 3840,
 348         );
 349
 350         public static function sea_get_categories($u)
 351         {
 352                 if (0x1980 <= $u && $u <= 0x19DF)
 353                         return self::$sea_table[$u - 0x1980]; // offset 0 for New Tai Lue
 354                 if (0x1A20 <= $u && $u <= 0x1AAF)
 355                         return self::$sea_table[$u - 0x1A20 + 96]; // offset for Tai Tham
 356                 if (0xAA00 <= $u && $u <= 0xAA5F)
 357                         return self::$sea_table[$u - 0xAA00 + 96 + 144];  // Cham
 358                 if ($u == 0x00A0)
 359                         return 3851; // (ISC_CP | (IMC_x << 8))
 360                 if ($u == 0x25CC)
 361                         return 3851; // (ISC_CP | (IMC_x << 8))
 362                 return 3840; // (ISC_x | (IMC_x << 8))
 363         }
 364
 365         public static function bubble_sort(&$arr, $start, $len)
 366         {
 367                 if ($len < 2) {
 368                         return;
 369                 }
 370                 $k = $start + $len - 2;
 371                 while ($k >= $start) {
 372                         for ($j = $start; $j <= $k; $j++) {
 373                                 if ($arr[$j]['sea_position'] > $arr[$j + 1]['sea_position']) {
 374                                         $t = $arr[$j];
 375                                         $arr[$j] = $arr[$j + 1];
 376                                         $arr[$j + 1] = $t;
 377                                 }
 378                         }
 379                         $k--;
 380                 }
 381         }
 382
 383 }