cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed missing/wrong production rules symbols for iri parsing.

This commit is contained in:
cage 2024-06-21 18:20:18 +02:00
parent a14372b095
commit 01ef182d14
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gemini/gemini-parser.lisp
View File

@ -131,7 +131,7 @@
(defrule gemini-carriage-return #\Return (defrule gemini-carriage-return #\Return
(:constant nil)) (:constant nil))
(defrule gemini-cr-lf (and (? carriage-return) new-line) (defrule gemini-cr-lf (and (? gemini-carriage-return) gemini-new-line)
(:constant nil)) (:constant nil))
(defrule gemini-h1-prefix "#" (defrule gemini-h1-prefix "#"

2
src/iri-parser.lisp
View File

@ -173,7 +173,7 @@
(when (<= 0 number 255) (when (<= 0 number 255)
number)))) number))))
(defrule iri-dec-octet (octect-p (+ digit)) (defrule iri-dec-octet (octect-p (+ iri-digit))
(:text t)) (:text t))
(defun extract-fields-from-absolute-iri (parsed) (defun extract-fields-from-absolute-iri (parsed)