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

- fixed regression: gopher parser missed a bunch of rules.

This commit is contained in:
cage 2024-10-11 11:13:47 +02:00
parent 81d33c676e
commit 87e8492ab6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gopher/parser.lisp
View File

@ -258,7 +258,7 @@
gopher-selector gopher-field-separator
gopher-host gopher-field-separator
gopher-port gopher-line-separator)
line-separator)
gopher-line-separator)
(:function (lambda (line)
(if (listp line)
(list :type (first line)
@ -332,7 +332,7 @@
(:function caar))
(defun parse-text-file (data)
(parse 'text-file data))
(parse 'gopher-text-file data))
(defrule gopher-gopher-url-authority (or (and (+ (not #\:))
#\:
@ -350,7 +350,7 @@
(defrule gopher-gopher-url (and (+ (not #\:))
"://"
gopher-url-authority
gopher-gopher-url-authority
(? (and (not #\/)
(& #\/)))
(* (character-ranges (#\u0000 #\uffff))))