mirror of
https://github.com/Karaka-Management/Resources.git
synced 2026-01-10 21:08:41 +00:00
69 lines
2.2 KiB
PHP
Executable File
69 lines
2.2 KiB
PHP
Executable File
<?php
|
|
|
|
namespace Mpdf\Conversion;
|
|
|
|
use Mpdf\Utils\UtfString;
|
|
|
|
class DecToHebrew
|
|
{
|
|
|
|
public function convert($in, $reverse = false)
|
|
{
|
|
// reverse is used when called from Lists, as these do not pass through bidi-algorithm
|
|
$i = (int) $in; // I initially be the counter value
|
|
$s = ''; // S initially be the empty string
|
|
|
|
// and glyph list initially be the list of additive tuples.
|
|
$additive_nums = [400, 300, 200, 100, 90, 80, 70, 60, 50, 40, 30, 20, 19, 18, 17, 16, 15, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1];
|
|
$additive_glyphs = [0x05EA, 0x05E9, 0x05E8, 0x05E7, 0x05E6, 0x05E4, 0x05E2, 0x05E1, 0x05E0, 0x05DE, 0x05DC, 0x05DB,
|
|
[0x05D9, 0x05D8], [0x05D9, 0x05D7], [0x05D9, 0x05D6], [0x05D8, 0x05D6], [0x05D8, 0x05D5], 0x05D9,
|
|
0x05D8, 0x05D7, 0x05D6, 0x05D5, 0x05D4, 0x05D3, 0x05D2, 0x05D1, 0x05D0];
|
|
|
|
// NB This system manually specifies the values for 19-15 to force the correct display of 15 and 16, which are commonly
|
|
// rewritten to avoid a close resemblance to the Tetragrammaton.
|
|
// This function only works up to 1,000
|
|
if ($i > 999) {
|
|
return $in;
|
|
}
|
|
|
|
// return as initial numeric string
|
|
// If I is initially 0, and there is an additive tuple with a weight of 0, append that tuple's counter glyph to S and return S.
|
|
if ($i === 0) {
|
|
return '0';
|
|
}
|
|
|
|
// Otherwise, while I is greater than 0 and there are elements left in the glyph list:
|
|
$additiveNumsCount = count($additive_nums);
|
|
for ($t = 0; $t < $additiveNumsCount; $t++) {
|
|
// Pop the first additive tuple from the glyph list. This is the current tuple.
|
|
$ct = $additive_nums[$t];
|
|
// Append the current tuple's counter glyph to S x floor( I / current tuple's weight ) times (this may be 0).
|
|
$n = floor($i / $ct);
|
|
for ($j = 0; $j < $n; $j++) {
|
|
if (is_array($additive_glyphs[$t])) {
|
|
foreach ($additive_glyphs[$t] as $ag) {
|
|
if ($reverse) {
|
|
$s = UtfString::code2utf($ag) . $s;
|
|
} else {
|
|
$s .= UtfString::code2utf($ag);
|
|
}
|
|
}
|
|
} else {
|
|
if ($reverse) {
|
|
$s = UtfString::code2utf($additive_glyphs[$t]) . $s;
|
|
} else {
|
|
$s .= UtfString::code2utf($additive_glyphs[$t]);
|
|
}
|
|
}
|
|
$i -= ($ct * $n);
|
|
}
|
|
if ($i === .0 || $i === 0) {
|
|
return $s;
|
|
}
|
|
}
|
|
|
|
return $in; // return as initial string
|
|
}
|
|
|
|
}
|