sunterlib/scsh/SPAN/SPAN.scm

;;; SPAN.scm - Scheme Perl Archive Network
;;;
;;; Copyright (c) 2012 Johan Ceuppens
;;;
;;; All rights reserved.
;;;
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:
;;; 1. Redistributions of source code must retain the above copyright
;;;    notice, this list of conditions and the following disclaimer.
;;; 2. Redistributions in binary form must reproduce the above copyright
;;;    notice, this list of conditions and the following disclaimer in the
;;;    documentation and/or other materials provided with the distribution.
;;; 3. The name of the authors may not be used to endorse or promote products
;;;    derived from this software without specific prior written permission.
;;;
;;; THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR
;;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
;;; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
;;; IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT,
;;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
;;; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
;;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
;;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.


(define (SPAN-question~ droptext question answer defaultchoice procedure)
  (let ((s ""))
    (display droptext)
    (newline)
    (display question)(display " ")
    (display "[")(display defaultchoice)(display "] ")
    (set! s (read))
    (cond ((and (symbol? s)
                (string=? (symbol->string s) defaultchoice))
           (set! answer defaultchoice))
          ((and (number? s)
                (string=? (symbol->number s) defaultchoice))
           (set! answer defaultchoice))
          ((string=? (symbol->string s)(string #\return))
           (set! answer defaultchoice))
          ((and (symbol? s)(string? (symbol->string s)))
           (set! answer (symbol->string s)))
          ((and (number? s)(string? (number->string s)))
           (set! answer (number->string s)))
          (else (SPAN-question~ droptext question answer defaultchoice)))
    (procedure answer)))

(define SPAN-shell-droptext-1
  "The following questions are intended to help you with the
configuration. The SPAN module needs a directory of its own to cache
important index files and maybe keep a temporary mirror of SPAN files.
This may be a site-wide or a personal directory.")

(define SPAN-shell-droptext-2
  "Unless you are accessing the CPAN on your filesystem via a file: URL,
CPAN.pm needs to keep the source files it downloads somewhere. Please
supply a directory where the downloaded files are to be kept.")

(define SPAN-shell-droptext-3
  "")

(define SPAN-shell-droptext-4
  "Normally CPAN.pm keeps config variables in memory and changes need to
be saved in a separate 'o conf commit' command to make them permanent
between sessions. If you set the 'auto_commit' option to true, changes
to a config variable are always automatically committed to disk.")

(define SPAN-shell-droptext-5
"CPAN.pm can limit the size of the disk area for keeping the build
directories with all the intermediate files.")

(define SPAN-shell-droptext-6
  "The CPAN indexes are usually rebuilt once or twice per hour, but the
typical CPAN mirror mirrors only once or twice per day. Depending on
the quality of your mirror and your desire to be on the bleeding edge,
you may want to set the following value to more or less than one day
(which is the default). It determines after how many days CPAN.pm
downloads new indexes.")

(define SPAN-shell-droptext-7
  "By default, each time the CPAN module is started, cache scanning is
performed to keep the cache size in sync. To prevent this, answer
'never'.")

(define SPAN-shell-droptext-8
  "To considerably speed up the initial CPAN shell startup, it is
possible to use Storable to create a cache of metadata. If Storable is
not available, the normal index mechanism will be used.

Note: this mechanism is not used when use_sqlite is on and SQLLite is
running.")

(define SPAN-shell-droptext-9
  "The CPAN module can detect when a module which you are trying to build
depends on prerequisites. If this happens, it can build the
prerequisites for you automatically ('follow'), ask you for
confirmation ('ask'), or just ignore them ('ignore'). Please set your
policy to one of the three values.")

;; (define SPAN-shell-droptext-10 ;;FIXME
;;   "Every Makefile.PL is run by perl in a separate process. Likewise we
;; run 'make' and 'make install' in separate processes. If you have
;; any parameters (e.g. PREFIX, UNINST or the like) you want to
;; pass to the calls, please specify them here.

;; If you don't understand this question, just press ENTER.

;; Typical frequently used settings:

;;     PREFIX=~/perl    # non-root users (please see manual for more hints)

;;  <makepl_arg>
;; Parameters for the 'perl Makefile.PL' command? [] ")


;; (define SPAN-shell-droptext-11 ;;FIXME
;; "Typical frequently used settings:

;;     PREFIX=~/perl    # non-root users (please see manual for more hints)

;;  <makepl_arg>
;; Parameters for the 'perl Makefile.PL' command? []

;; Parameters for the 'make' command? Typical frequently used setting:

;;     -j3              # dual processor system (on GNU make)

;;  <make_arg>
;; Your choice: [] ")


;; (define SPAN-shell-droptext-12 ;;FIXME
;; "Parameters for the 'make install' command?
;; Typical frequently used setting:

;;     UNINST=1         # to always uninstall potentially conflicting files

;;  <make_install_arg>
;; Your choice: []"

;; (define SPAN-shell-droptext-13 ;;FIXME
;; "A Build.PL is run by perl in a separate process. Likewise we run
;; './Build' and './Build install' in separate processes. If you have any
;; parameters you want to pass to the calls, please specify them here.

;; Typical frequently used settings:

;;     --install_base /home/xxx             # different installation directory

;;  <mbuildpl_arg>
;; Parameters for the 'perl Build.PL' command? [] ")

;; (define SPAN-shell-droptext-14 ;;FIXME
;; "Parameters for the './Build' command? Setting might be:

;;     --extra_linker_flags -L/usr/foo/lib  # non-standard library location

;;  <mbuild_arg>
;; Your choice: [] ")

;; (define SPAN-shell-droptext-15 ;;FIXME
;; "Do you want to use a different command for './Build install'? Sudo
;; users will probably prefer:

;;     su root -c ./Build
;;  or
;;     sudo ./Build
;;  or
;;     /path1/to/sudo -u admin_account ./Build

;;  <mbuild_install_build_command>")

;; (define SPAN-shell-droptext-16 ;;FIXME
;; "Parameters for the './Build install' command? Typical frequently used
;; setting:

;;     --uninst 1                           # uninstall conflicting files

;;  <mbuild_install_arg>
;; Your choice: [] ")

;; (define SPAN-shell-droptext-17 ;;FIXME
;; "If you're accessing the net via proxies, you can specify them in the
;; CPAN configuration or via environment variables. The variable in
;; the $CPAN::Config takes precedence.

;;  <ftp_proxy>
;; Your ftp_proxy? []")

;; (define SPAN-shell-droptext-18 ;;FIXME
;; " <http_proxy>
;; Your http_proxy? []")

;; (define SPAN-shell-droptext-19 ;;FIXME
;; "<no_proxy>
;; Your no_proxy? []")

(define SPAN-shell-droptext-20
"CPAN needs access to at least one CPAN mirror.

As you did not allow me to connect to the internet you need to supply
a valid CPAN URL now.
")

(define SPAN-shell-droptext-21
  "Enter another URL or RETURN to quit: []")

(define SPAN-shell-droptext-22
  "Please remember to call 'o conf commit' to make the config permanent!


cpan shell -- CPAN exploration and modules installation (v1.9402)
Enter 'h' for help.")