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

snow on CSAN

This commit is contained in:
erana 2012-01-28 03:02:22 +09:00
parent dc5cdfdbe8
commit 1dc953ec8f
5 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/CSAN/CSAN.scm
View File

@ -214,8 +214,9 @@ a valid CSAN URL now.
"22. Please remember to call 'o conf commit' to make the config permanent! "22. Please remember to call 'o conf commit' to make the config permanent!
cpan shell -- CSAN exploration and modules installation (v1.9402) cpan shell -- CSAN exploration and modules installation (v0.1)
Enter 'h' for help.") Enter 'h' for help.
Commands : get filename.tar.gz")
(define questions (make-table)) (define questions (make-table))
(table-set! questions 1 CSAN-shell-droptext-1) (table-set! questions 1 CSAN-shell-droptext-1)

4
scsh/CSAN/packages.scm
View File

@ -1,6 +1,8 @@
(define-interface CSAN-interface (define-interface CSAN-interface
(export (export
CSAN-question~)) CSAN-question~
CSAN-shell-spawn
CSAN-dir))
(define-structure CSAN (define-structure CSAN
CSAN-interface CSAN-interface

9
scsh/snow/load.scm
View File

@ -1,4 +1,4 @@
;;; load.scm - a scheme CSAN ;;; load.scm - a scheme CSAN - Snow utility
;;; ;;;
;;; Copyright (c) 2012 Johan Ceuppens ;;; Copyright (c) 2012 Johan Ceuppens
;;; ;;;
@ -27,4 +27,9 @@
;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(load "snow-repository.scm") (load "snow-repository.scm")
(display (snow-repository "./test.scm" '()))
(let* ((url (snow-repository "./test.scm" '()))
(snow-mirror-url url))
(display (question? 22))
(CSAN-shell-spawn CSAN-dir snow-mirror-url))

6
scsh/snow/packages.scm
View File

@ -2,8 +2,8 @@
(export (export
parse-for snow-repository)) parse-for snow-repository))
(define-structure snow (define-structure snow
snow-interface snow-interface
(open scheme) (open scheme CSAN)
(files snow)) (files snow-repository))

6
scsh/snow/snow-repository.scm
View File

@ -36,7 +36,7 @@
(set! word "")) (set! word ""))
((eq? (string-ref s i) #\newline) ((eq? (string-ref s i) #\newline)
#t));;(string-set! s i "" #t));;(string-set! s i ""
(set! word (string-append word (string (string-ref s i)))))))) (set! word (string-append word (string (string-ref s i))))))))
(define (read-in-file-contents filename) (define (read-in-file-contents filename)
@ -55,7 +55,7 @@
((eq? (string-ref s i) #\") ((eq? (string-ref s i) #\")
(string-append s (string #\")) (string-append s (string #\"))
i) i)
(set! word (string-append word (string (string-ref s i))))) (set! word (string-append word (string (string-ref s i)))))
(error "parse-for-url : malformed url string")))) (error "parse-for-url : malformed url string"))))
@ -72,7 +72,7 @@
(set! index4 (parse-for contents "url" index)) (set! index4 (parse-for contents "url" index))
(set! urlstr (parse-for-url contents index4)) (set! urlstr (parse-for-url contents index4))
(set! db (append db (cons "url" urlstr))) (set! db (append db (list (list "url" urlstr))))
db)) db))