From 921458f25c8b98028748c44cf189a2c830e7690b Mon Sep 17 00:00:00 2001
From: yggverse <yggverse@project>
Date: Sun, 23 Jun 2024 22:01:21 +0300
Subject: [PATCH] implement code parser

---
 src/Entity/Code.php      | 23 -----------------------
 src/Parser/Line/Code.php | 39 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+), 23 deletions(-)
 delete mode 100644 src/Entity/Code.php
 create mode 100644 src/Parser/Line/Code.php

diff --git a/src/Entity/Code.php b/src/Entity/Code.php
deleted file mode 100644
index 6a4dad1..0000000
--- a/src/Entity/Code.php
+++ /dev/null
@@ -1,23 +0,0 @@
-<?php
-
-declare(strict_types=1);
-
-namespace Yggverse\Gemtext\Entity;
-
-class Code
-{
-    /*
-     * Helper method
-     *
-     * Detect line given is escaped by previous iteration
-     */
-    public static function escaped(string $line, bool &$status): bool
-    {
-        if (preg_match('/^```/m', $line))
-        {
-            $status = !($status); // toggle
-        }
-
-        return $status;
-    }
-}
\ No newline at end of file
diff --git a/src/Parser/Line/Code.php b/src/Parser/Line/Code.php
new file mode 100644
index 0000000..82baa21
--- /dev/null
+++ b/src/Parser/Line/Code.php
@@ -0,0 +1,39 @@
+<?php
+
+declare(strict_types=1);
+
+namespace Yggverse\Gemtext\Parser\Line;
+
+class Code
+{
+    public static function match(
+        \Yggverse\Gemtext\Entity\Line $line,
+        array &$matches = [],
+         bool &$inline  = false
+    ): bool
+    {
+        // Multiple format resolver
+        // https://geminiprotocol.net/docs/gemtext.gmi#preformatted-text
+        switch (true)
+        {
+            // Inline ^```preformatted```
+            case preg_match(
+                '/^[`]{3}\s*((?<code>[^`]+))?[`]{3}$/m',
+                $line->getData(),
+                $matches
+            ):
+                // Toggle escaped status
+                return $inline = true;
+
+            // Multiline with optional alt support
+            case preg_match(
+                '/^[`]{3}\s*(?<alt>[^`]+)$/m',
+                $line->getData(),
+                $matches
+            ):
+                return true;
+        }
+
+        return false;
+    }
+}
\ No newline at end of file