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)
)
))

2
s48/cavespider/string-util.scm
View File

@ -1,5 +1,5 @@
;;; ;;;
;;; Copyright (c) 2012 Johan Ceuppens ;;; Copyright (c) 2012 Johan Ceuppens
;;; ;;;
;;; All rights reserved. ;;; All rights reserved.
;;; ;;;

3
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))))
@ -128,4 +127,4 @@
((null? l)0) ((null? l)0)
(cond ((string<=? keyword (car l)) (cond ((string<=? keyword (car l))
(set! returntext (string-append returntext (car l)))))) (set! returntext (string-append returntext (car l))))))
returntext)) returntext))