The Lambda Lab
/
projects
/
scratchy.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2a8ee3c
)
Bugfix.
author
Tim Vaughan
<tgvaughan@gmail.com>
Sat, 4 May 2019 09:45:08 +0000
(11:45 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Sat, 4 May 2019 09:45:08 +0000
(11:45 +0200)
burrow.scm
patch
|
blob
|
history
diff --git
a/burrow.scm
b/burrow.scm
index
700eb56
..
6be3251
100644
(file)
--- a/
burrow.scm
+++ b/
burrow.scm
@@
-87,12
+87,12
@@
(selector (car selector-list))
(arguments (cdr selector-list)))
(case (infer-selector-type selector)
(selector (car selector-list))
(arguments (cdr selector-list)))
(case (infer-selector-type selector)
- ((1) (serve-directory selector config))
+ ((1) (serve-directory selector
remote-ip
config))
((0) (serve-text-file selector config))
((7) (serve-query selector arguments remote-ip config))
(else (serve-binary-file selector config)))))
((0) (serve-text-file selector config))
((7) (serve-query selector arguments remote-ip config))
(else (serve-binary-file selector config)))))
-(define (serve-directory selector config)
+(define (serve-directory selector
remote-ip
config)
(let ((file-name (make-pathname (list (config-root-dir config) selector)
gopher-index-file-name)))
(if (regular-file? file-name)
(let ((file-name (make-pathname (list (config-root-dir config) selector)
gopher-index-file-name)))
(if (regular-file? file-name)
@@
-106,7
+106,7
@@
(if (eq? c #\,)
(begin
(read-char)
(if (eq? c #\,)
(begin
(read-char)
- (serve-record (read) selector config)
+ (serve-record (read) selector
remote-ip
config)
(read-line))
(serve-info-records (read-line)))
(loop (peek-char)))))))
(read-line))
(serve-info-records (read-line)))
(loop (peek-char)))))))
@@
-178,7
+178,7
@@
(print type display-string "\t" selector "\t" host "\t" port "\r"))
((type display-string selector host)
(serve-record (list type display-string selector host 70)
(print type display-string "\t" selector "\t" host "\t" port "\r"))
((type display-string selector host)
(serve-record (list type display-string selector host 70)
- dir-selectorconfig))
+ dir-selector
config))
((type display-string selector)
(serve-record (list type display-string
(make-pathname dir-selector selector)
((type display-string selector)
(serve-record (list type display-string
(make-pathname dir-selector selector)
@@
-199,7
+199,7
@@
(let-values (((in-port out-port id) (process command)))
(serve-info-records (string-chomp (read-string #f in-port) "\n"))))))
(let-values (((in-port out-port id) (process command)))
(serve-info-records (string-chomp (read-string #f in-port) "\n"))))))
-(define (serve-expression expression
path
config)
+(define (serve-expression expression
dir-selector
config)
(with-selector-dir
dir-selector config
(lambda ()
(with-selector-dir
dir-selector config
(lambda ()