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

spider function

This commit is contained in:
erana 2012-02-01 19:00:06 +09:00
parent 6b58ebd22d
commit 9e9ac82ba0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
s48/cavespider/load.scm
View File

@ -28,10 +28,10 @@
(load "client.scm") (load "client.scm")
(define (spider-f) (define (spider-f html-dir)
(spider-rec "" (list hostname) 0)) (spider-rec "" (list hostname) html-dir 0))
(define (spider-rec dir-file-name hostname-list index) (define (spider-rec dir-file-name hostname-list html-dir index)
(cond ((or (null? hostname-list) (cond ((or (null? hostname-list)
(string=? (car hostname-list) "")) (string=? (car hostname-list) ""))
(newline)("spidering ended.")(newline)) (newline)("spidering ended.")(newline))
@ -43,13 +43,16 @@
(keyword-list (file-contents->keyword file-contents keyword))) (keyword-list (file-contents->keyword file-contents keyword)))
(hash-set! table (string-append keyword (number->string index)) file-contents);;NOTE keys are variable due to append above (hash-set! table (string-append keyword (number->string index)) file-contents);;NOTE keys are variable due to append above
(spider-rec dir-file-name-after (cdr hostname-list) (+ index 1)) (spider-rec dir-file-name-after (cdr hostname-list) html-dir (+ index 1))
))))))) )))))))
(display "give hostname name : ") (display "give hostname name : ")
(define hostname (symbol->string (read))) (define hostname (symbol->string (read)))
(newline) (newline)
(display "give directory on host (type none for 'GET /' fetch) : ")
(define html-dir (symbol->string (read)))
(newline)
(display "server name = ")(display hostname) (display "server name = ")(display hostname)
(newline) (newline)
(display "give port : ") (display "give port : ")
@ -62,5 +65,5 @@
(define table (make-hash-table HASHTABLESIZE)) (define table (make-hash-table HASHTABLESIZE))
(spider-f) (spider-f html-dir)