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