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

cavespider guile setup load file

This commit is contained in:
erana 2012-02-01 14:15:24 +09:00
parent c2128a40cf
commit 337c30fd09
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
s48/cavespider/load.scm
View File

@ -43,14 +43,16 @@
(define keyword (symbol->string (read))) (define keyword (symbol->string (read)))
(newline) (newline)
(let ((file-contents (file->string (string-append dir-filename "/" "index.html"))));;FIXME dir (let ((file-contents (file->string (string-append dir-filename "/" "index.html")))
;; (do ((url-list (file-contents->url file-contents 0) (htable (make-hash-table HASHTABLESIZE))
;; (file-contents->url file-contents 0))) (url-list (file-contents->url file-contents 0)))
(let ((hostname-list '()) (let ((hostname-list '())
(keywordl '()) (keywordl '()))
(url-list (file-contents->url file-contents 0)))
(set! hostname-list (url->hostname url-list hostname-list));;FIXME url-list (set! hostname-list (url->hostname url-list hostname-list));;FIXME url-list
(display hostname-list) (display hostname-list)
(file-contents->keyword file-contents keyword) (set! keywordl (file-contents->keyword file-contents keyword))
(display keywordl) (display keywordl)
(hash-set! htable keyword file-contents)
)) ))

2
s48/cavespider/util.scm
View File

@ -33,7 +33,7 @@
; (if (eq? c #\y) ; (if (eq? c #\y)
; (load "string-util-alt.scm") ; (load "string-util-alt.scm")
; (begin ; (begin
; (load "hash-util.scm") (load "hash-util.scm")
(load "string-util.scm") (load "string-util.scm")
;))) ;)))