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)))
(newline)
(let ((file-contents (file->string (string-append dir-filename "/" "index.html"))));;FIXME dir
;; (do ((url-list (file-contents->url file-contents 0)
;; (file-contents->url file-contents 0)))
(let ((file-contents (file->string (string-append dir-filename "/" "index.html")))
(htable (make-hash-table HASHTABLESIZE))
(url-list (file-contents->url file-contents 0)))
(let ((hostname-list '())
(keywordl '())
(url-list (file-contents->url file-contents 0)))
(keywordl '()))
(set! hostname-list (url->hostname url-list hostname-list));;FIXME url-list
(display hostname-list)
(file-contents->keyword file-contents keyword)
(set! keywordl (file-contents->keyword file-contents keyword))
(display keywordl)
(hash-set! htable keyword file-contents)
))

2
s48/cavespider/util.scm
View File

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