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

- [gopher] uses type 1 lines as default type for URI.

This commit is contained in:
cage 2022-09-23 12:06:35 +02:00
parent bd20fe100f
commit 3ebc7bd1bf
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gopher/parser.lisp
View File

@ -324,8 +324,8 @@
#\/) #\/)
(and (+ (not #\/)) (and (+ (not #\/))
#\/)) #\/))
(and (+ (not #\/)) (? (and (+ (not #\/))
#\/) #\/))
(* (character-ranges (#\u0000 #\uffff)))) (* (character-ranges (#\u0000 #\uffff))))
(:function (lambda (a) (:function (lambda (a)
(let* ((host-port (third a)) (let* ((host-port (third a))
@ -334,7 +334,9 @@
(parse-integer (coerce (third host-port) 'string)) (parse-integer (coerce (third host-port) 'string))
70)) 70))
(type-path (fourth a)) (type-path (fourth a))
(type (coerce (car type-path) 'string)) (type (if (car type-path)
(coerce (car type-path) 'string)
+line-type-dir+))
(path (coerce (fifth a) 'string))) (path (coerce (fifth a) 'string)))
(list host port path type))))) (list host port path type)))))