scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

spider

This commit is contained in:
erana 2012-02-01 12:26:50 +09:00
parent f6bbde94fa
commit 8cf151a71c
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
s48/cavespider/load.scm
View File

@ -39,3 +39,12 @@
(newline) (newline)
(display (ask-server (string-append "GET / HTTP/1.0" (string #\return #\newline #\return #\newline) "index.html" hostname port))) (display (ask-server (string-append "GET / HTTP/1.0" (string #\return #\newline #\return #\newline) "index.html" hostname port)))
(let ((file-contents (file->string "index.html")))
;; (do ((url-list (file-contents->url file-contents 0)
;; (file-contents->url file-contents 0)))
(let ((url-list (file-contents->url file-contents 0))
(url->hostname url-list hostname-list);;FIXME url-list
(display hostname-list)
)
))

1
scsh/schemedoc/schemedoc.scm
View File

@ -101,7 +101,6 @@
(set! headline line) (set! headline line)
(set! line "")) (set! line ""))
;;((eq? (car l) #\newline) ;;((eq? (car l) #\newline)
) )
(set! line (string-append line (string (car l)))) (set! line (string-append line (string (car l))))
(set! itemtext (string-append itemtext (string (car l)))) (set! itemtext (string-append itemtext (string (car l))))