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

SPAN - question hash table

This commit is contained in:
erana 2012-01-18 21:55:20 +09:00
parent 152a3543f2
commit 1741522dd0
1 changed files with 25 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
scsh/SPAN/SPAN.scm
View File

@ -217,7 +217,19 @@ a valid CPAN URL now.
cpan shell -- CPAN exploration and modules installation (v1.9402) cpan shell -- CPAN exploration and modules installation (v1.9402)
Enter 'h' for help.") Enter 'h' for help.")
(define questions (make-table))
(table-set! questions SPAN-shell-droptext-1)
(table-set! questions SPAN-shell-droptext-2)
(table-set! questions SPAN-shell-droptext-3)
(table-set! questions SPAN-shell-droptext-4)
(table-set! questions SPAN-shell-droptext-5)
(table-set! questions SPAN-shell-droptext-6)
(table-set! questions SPAN-shell-droptext-7)
(table-set! questions SPAN-shell-droptext-8)
(table-set! questions SPAN-shell-droptext-9)
(table-set! questions SPAN-shell-droptext-20)
(table-set! questions SPAN-shell-droptext-21)
(table-set! questions SPAN-shell-droptext-22)
(define questionaire (define questionaire
(lambda (SPAN-dir) (lambda (SPAN-dir)
@ -234,7 +246,7 @@ Enter 'h' for help.")
(SPAN-shell-spawn SPAN-mirror-url))) (SPAN-shell-spawn SPAN-mirror-url)))
(else (else
;;prototype (define (SPAN-question~ droptext question answer defaultchoice) ;;prototype (define (SPAN-question~ droptext question answer defaultchoice)
((SPAN-question~ SPAN-shell-droptext-1 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-1)
"SPAN build and cache directory" "SPAN build and cache directory"
"" ""
SPAN-build-and-cache-dir SPAN-build-and-cache-dir
@ -246,7 +258,7 @@ Enter 'h' for help.")
#f)))) answer) #f)))) answer)
(define SPAN-download-target-dir (string-append SPAN-build-and-cache-dir "/" "sources")) (define SPAN-download-target-dir (string-append SPAN-build-and-cache-dir "/" "sources"))
((SPAN-question~ SPAN-shell-droptext-2 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-2)
"Download target directory" "Download target directory"
"" ""
SPAN-download-target-dir SPAN-download-target-dir
@ -257,7 +269,7 @@ Enter 'h' for help.")
#f)))) answer) #f)))) answer)
(define SPAN-build-dir (string-append SPAN-build-and-cache-dir "/" "build")) (define SPAN-build-dir (string-append SPAN-build-and-cache-dir "/" "build"))
((SPAN-question~ SPAN-shell-droptext-3 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-3)
"Directory where the build process takes place?" "Directory where the build process takes place?"
"" ""
SPAN-download-target-dir SPAN-download-target-dir
@ -268,7 +280,7 @@ Enter 'h' for help.")
#f)))) answer) #f)))) answer)
(define SPAN-config "no") (define SPAN-config "no")
((SPAN-question~ SPAN-shell-droptext-4 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-4)
"Always commit changes to config variables to disk?" "Always commit changes to config variables to disk?"
"" ""
SPAN-config SPAN-config
@ -277,7 +289,7 @@ Enter 'h' for help.")
#f)) answer) #f)) answer)
(define SPAN-build-Mb 100) (define SPAN-build-Mb 100)
((SPAN-question~ SPAN-shell-droptext-5 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-5)
"Cache size for build directory (in MB)?" "Cache size for build directory (in MB)?"
"" ""
SPAN-build-Mb SPAN-build-Mb
@ -286,7 +298,7 @@ Enter 'h' for help.")
#f)) answer) #f)) answer)
(define SPAN-expire 1) (define SPAN-expire 1)
((SPAN-question~ SPAN-shell-droptext-6 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-6)
"Let the index expire after how many days?" "Let the index expire after how many days?"
"" ""
SPAN-expire SPAN-expire
@ -295,7 +307,7 @@ Enter 'h' for help.")
#f)) answer) #f)) answer)
(define SPAN-scan-cache "atstart") (define SPAN-scan-cache "atstart")
((SPAN-question~ SPAN-shell-droptext-7 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-7)
"Perform cache scanning (atstart or never)?" "Perform cache scanning (atstart or never)?"
"" ""
SPAN-scan-cache SPAN-scan-cache
@ -304,7 +316,7 @@ Enter 'h' for help.")
#f)) answer) #f)) answer)
(define SPAN-cache-metadata "yes") (define SPAN-cache-metadata "yes")
((SPAN-question~ SPAN-shell-droptext-8 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-8)
"Cache metadata (yes/no)?" "Cache metadata (yes/no)?"
"" ""
SPAN-cache-metadata SPAN-cache-metadata
@ -313,7 +325,7 @@ Enter 'h' for help.")
#f)) answer) #f)) answer)
(define SPAN-policy-building "ask") (define SPAN-policy-building "ask")
((SPAN-question~ SPAN-shell-droptext-9 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-9)
"Policy on building prerequisites (follow, ask or ignore)? [ask]" "Policy on building prerequisites (follow, ask or ignore)? [ask]"
"" ""
SPAN-policy-building SPAN-policy-building
@ -329,7 +341,7 @@ Enter 'h' for help.")
;; ... until 20 ;; ... until 20
((SPAN-question~ SPAN-shell-droptext-20 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-20)
"Please enter the URL of your CPAN mirror " "Please enter the URL of your CPAN mirror "
"" ""
SPAN-mirror-url SPAN-mirror-url
@ -340,7 +352,7 @@ Enter 'h' for help.")
#f)) answer) #f)) answer)
(define SPAN-mirror-url-2 "") (define SPAN-mirror-url-2 "")
((SPAN-question~ SPAN-shell-droptext-21 ((SPAN-question~ (table-ref questions SPAN-shell-droptext-21)
"Enter another URL or RETURN to quit: [] " "Enter another URL or RETURN to quit: [] "
"" ""
SPAN-mirror-url-2 SPAN-mirror-url-2
@ -348,7 +360,7 @@ Enter 'h' for help.")
(set! SPAN-mirror-url-2 answer) (set! SPAN-mirror-url-2 answer)
#f)) answer) #f)) answer)
(display SPAN-shell-droptext-22) (display (table-ref questions SPAN-shell-droptext-22))
(SPAN-shell-spawn SPAN-mirror-url)) (SPAN-shell-spawn SPAN-mirror-url))
))) )))