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

s48 cavespider

This commit is contained in:
erana 2012-02-01 00:47:16 +09:00
parent 7d78176533
commit f6bbde94fa
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
s48/cavespider/client.scm
View File

@ -1,6 +1,6 @@
;;; client.scm - connect-to-server utility ;;; client.scm - connect-to-server utility
;;; ;;;
;;; Copyright (c) 2012 Johan Ceuppens ;;; Copyright (c) 2012 Johan Ceuppens
;;; ;;;
;;; All rights reserved. ;;; All rights reserved.
;;; ;;;
@ -26,8 +26,8 @@
;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
;;(load "util.scm") (load "util.scm")
;;(load "html.scm") (load "html.scm")
;;,open posix posix-files ;;,open posix posix-files
(define server-data (define server-data
@ -85,7 +85,7 @@
) )
)) ))
)) ))
; (let ((contents (file->contents (string-append dir-filename "/" filename)))) ; (let ((contents (file->contents (string-append dir-filename "/" filename))))
; (display contents) ; (display contents)

7
s48/cavespider/util.scm
View File

@ -1,5 +1,5 @@
;;; ;;;
;;; Copyright (c) 2012 Johan Ceuppens ;;; Copyright (c) 2012 Johan Ceuppens
;;; ;;;
;;; All rights reserved. ;;; All rights reserved.
;;; ;;;
@ -26,12 +26,13 @@
;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(load "file-util.scm") (load "file-util.scm")
(load "hash-util.scm")
(display "Do you want to use hash tables (y/n)?") (display "Do you want to use hash tables (y/n)?")
(let ((c (read-char))) (let ((c (read-char)))
(if (eq? c #\y) (if (eq? c #\y)
(load "string-util-alt.scm") (load "string-util-alt.scm")
(load "string-util.scm"))) (begin
(load "hash-util.scm")
(load "string-util.scm"))))
(load "html-util.scm") (load "html-util.scm")