The Lambda Lab
/
projects
/
scratchy.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Renamed project once more.
[scratchy.git]
/
burrower.scm
diff --git
a/burrow.scm
b/burrower.scm
similarity index 97%
rename from
burrow.scm
rename to
burrower.scm
index
bb21e3a
..
867a289
100644
(file)
--- a/
burrow.scm
+++ b/
burrower.scm
@@
-1,3
+1,6
@@
+;;; Imports
+
+;; Chicken 5
(import (chicken tcp)
(chicken port)
(chicken io)
(import (chicken tcp)
(chicken port)
(chicken io)
@@
-10,16
+13,19
@@
(chicken process-context)
srfi-1 srfi-13 matchable)
(chicken process-context)
srfi-1 srfi-13 matchable)
+;; Chicken 4
+;; (use srfi-1 srfi-13 tcp posix matchable)
+
;;; Global constants
(define gopher-index-file-name "index")
;;; Global constants
(define gopher-index-file-name "index")
-(define burrow-version "1.0.0")
+(define burrow
er
-version "1.0.0")
-(define burrow-footer
+(define burrow
er
-footer
(conc "\n"
"--------------------------------------------------\n"
(conc "\n"
"--------------------------------------------------\n"
- "
Served by Burrow Gopher Server v" burrow
-version "\n"
+ "
This gopher hole was dug using Burrower v" burrower
-version "\n"
"Powered by Chicken Scheme!"))
"Powered by Chicken Scheme!"))
@@
-111,7
+117,7
@@
(serve-info-records (read-line)))
(loop (peek-char)))))))
(if (config-display-footer config)
(serve-info-records (read-line)))
(loop (peek-char)))))))
(if (config-display-footer config)
- (serve-info-records burrow-footer)))
+ (serve-info-records burrow
er
-footer)))
(error "Index file not found."))))
(define (serve-text-file selector config)
(error "Index file not found."))))
(define (serve-text-file selector config)