Initial commit

2026-10-18 17:01:36 +00:00
commit 91a68b82f2
2334 changed files with 646393 additions and 0 deletions
@@ -0,0 +1,94 @@
+<?php
+
+declare(strict_types=1);
+
+/**
+ * StepP.php
+ *
+ * @since     2011-05-23
+ * @category  Library
+ * @package   Unicode
+ * @author    Nicola Asuni <info@tecnick.com>
+ * @copyright 2011-2026 Nicola Asuni - Tecnick.com LTD
+ * @license   https://www.gnu.org/copyleft/lesser.html GNU-LGPL v3 (see LICENSE)
+ * @link      https://github.com/tecnickcom/tc-lib-unicode
+ *
+ * This file is part of tc-lib-unicode software library.
+ */
+
+namespace Com\Tecnick\Unicode\Bidi;
+
+use Com\Tecnick\Unicode\Data\Constant as UniConstant;
+use Com\Tecnick\Unicode\Data\Type as UniType;
+
+/**
+ * Com\Tecnick\Unicode\Bidi\StepP
+ *
+ * @since     2015-07-13
+ * @category  Library
+ * @package   Unicode
+ * @author    Nicola Asuni <info@tecnick.com>
+ * @copyright 2011-2026 Nicola Asuni - Tecnick.com LTD
+ * @license   https://www.gnu.org/copyleft/lesser.html GNU-LGPL v3 (see LICENSE)
+ * @link      https://github.com/tecnickcom/tc-lib-unicode
+ */
+class StepP
+{
+    /**
+     * P Steps for Bidirectional algorithm
+     *
+     * @param array<int> $ordarr Array of UTF-8 codepoints
+     */
+    public function __construct(
+        /**
+         * Array of UTF-8 codepoints
+         */
+        protected array $ordarr,
+    ) {}
+
+    /**
+     * Get the Paragraph Embedding Level
+     */
+    public function getPel(): int
+    {
+        // P2. In each paragraph, find the first character of type L, AL, or R
+        //     while skipping over any characters between an isolate initiator and its matching PDI or,
+        //     if it has no matching PDI, the end of the paragraph.
+        // P3. If a character is found in P2 and it is of type AL or R,
+        //     then set the paragraph embedding level to one; otherwise, set it to zero.
+        $isolate = 0;
+        foreach ($this->ordarr as $ord) {
+            $isolate = $this->getIsolateLevel($ord, $isolate);
+            if ($isolate !== 0) {
+                continue;
+            }
+
+            $type = UniType::getType($ord);
+            if ($type === 'L') {
+                return 0;
+            }
+
+            if ($type === 'R' || $type === 'AL') {
+                return 1;
+            }
+        }
+
+        return 0;
+    }
+
+    /**
+     * Update the level of explicit directional isolates
+     */
+    protected function getIsolateLevel(int $ord, int $isolate): int
+    {
+        if ($ord === UniConstant::LRI || $ord === UniConstant::RLI || $ord === UniConstant::FSI) {
+            ++$isolate;
+        }
+
+        if ($ord === UniConstant::PDI) {
+            --$isolate;
+        }
+
+        return \max(0, $isolate);
+    }
+}