cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-03-03 10:07:36 +01:00
Code Issues

- trimmed square brackets from ip literal when parsing an IRI.

Browse Source
This commit is contained in:
cage 2021-04-16 14:15:41 +02:00
parent 1b3efc62f6
commit 32e1394422
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/iri-parser.lisp
View File

@ -125,7 +125,7 @@
(defrule ip-literal (and "[" (defrule ip-literal (and "["
(+ (not (or "[" "]"))) (+ (not (or "[" "]")))
"]") "]")
(:text t)) (:function (lambda (a) (text (second a)))))
(defrule ipchar (or iunreserved-chars pct-encoded sub-delims ":" "@") (defrule ipchar (or iunreserved-chars pct-encoded sub-delims ":" "@")
(:text t)) (:text t))

4
src/tests/iri-tests.lisp
View File

@ -49,9 +49,9 @@
("http://a/b/c/d;p?q#f" . ("http://a/b/c/d;p?q#f" .
("http" nil "a" nil "/b/c/d;p" "q" "f")) ("http" nil "a" nil "/b/c/d;p" "q" "f"))
("ldap://[2001:db8::7]/c=GB?objectClass?one" . ("ldap://[2001:db8::7]/c=GB?objectClass?one" .
("ldap" nil "[2001:db8::7]" nil "/c=GB" "objectClass?one" nil)) ("ldap" nil "2001:db8::7" nil "/c=GB" "objectClass?one" nil))
("http://[dead:beef::]:111/foo/" . ("http://[dead:beef::]:111/foo/" .
("http" nil "[dead:beef::]" "111" "/foo/" nil nil)) ("http" nil "dead:beef::" "111" "/foo/" nil nil))
("//foo.bar:198/". ("//foo.bar:198/".
(nil nil "foo.bar" "198" "/" nil nil)) (nil nil "foo.bar" "198" "/" nil nil))
("//fo°o.bar:198/baz.gmi?a=b&b=c#a-fragment". ("//fo°o.bar:198/baz.gmi?a=b&b=c#a-fragment".