*** empty log message ***
This commit is contained in:
michel-schinz
parent
9fdff3a77c
commit
d73107f673
|
|
@ -0,0 +1,30 @@
|
|||
Copyright (c) 2004, Michel Schinz
|
||||
All rights reserved.
|
||||
|
||||
Redistribution and use in source and binary forms, with or without
|
||||
modification, are permitted provided that the following conditions are
|
||||
met:
|
||||
|
||||
* Redistributions of source code must retain the above copyright
|
||||
notice, this list of conditions and the following disclaimer.
|
||||
|
||||
* 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.
|
||||
|
||||
* The name of the author may not be used to endorse or promote
|
||||
products derived from this software without specific prior
|
||||
written permission.
|
||||
|
||||
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
||||
"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 COPYRIGHT
|
||||
OWNER OR CONTRIBUTORS 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.
|
||||
|
|
@ -0,0 +1,61 @@
|
|||
# Makefile for the scsh installation library. Needs GNU make.
|
||||
# $Id: Makefile,v 1.1 2004/03/31 19:47:07 michel-schinz Exp $
|
||||
|
||||
NAME = scsh-install-lib
|
||||
VERSION = 1.0.0
|
||||
FULL_NAME = $(NAME)-$(VERSION)
|
||||
|
||||
LIB_FILES += scheme/install-lib/install-lib.scm
|
||||
LIB_FILES += scheme/install-lib/install-lib-module.scm
|
||||
|
||||
DOC_FILES += doc/latex/proposal.pdf
|
||||
|
||||
DIST_FILES = $(LIB_FILES) $(DOC_FILES) install.scm README COPYING
|
||||
|
||||
DIST_TMP_DIR = distrib-tmp
|
||||
DIST_MAIN_DIR = $(DIST_TMP_DIR)/$(FULL_NAME)
|
||||
|
||||
ARCHIVE = $(FULL_NAME).tar.gz
|
||||
MD5_FILE = $(ARCHIVE).md5
|
||||
|
||||
WEB_USER = schinz
|
||||
WEB_HOST = lamppc29.epfl.ch
|
||||
WEB_DIR = /home/schinz/public_html/scsh_packages/
|
||||
|
||||
# Commands used in the rules
|
||||
CP = cp
|
||||
INSTALL = install
|
||||
MD5SUM = md5sum
|
||||
MKDIR = mkdir
|
||||
PDFLATEX = pdflatex
|
||||
SCP = scp
|
||||
RM = rm
|
||||
TAR = tar
|
||||
|
||||
all:
|
||||
|
||||
clean:
|
||||
$(RM) -f $(ARCHIVE) $(MD5_FILE) $(DOC_FILES)
|
||||
|
||||
distrib: $(ARCHIVE)
|
||||
|
||||
$(ARCHIVE): $(DIST_FILES)
|
||||
$(RM) -rf $(DIST_TMP_DIR)
|
||||
$(MKDIR) $(DIST_TMP_DIR)
|
||||
$(MKDIR) $(DIST_MAIN_DIR)
|
||||
$(MKDIR) $(DIST_MAIN_DIR)/doc
|
||||
$(CP) -p $(DOC_FILES) $(DIST_MAIN_DIR)/doc
|
||||
$(MKDIR) $(DIST_MAIN_DIR)/scheme
|
||||
$(CP) -p $(LIB_FILES) $(DIST_MAIN_DIR)/scheme
|
||||
$(CP) -p install.scm README COPYING $(DIST_MAIN_DIR)
|
||||
$(TAR) --create --gzip --file=$@ --directory=$(DIST_TMP_DIR) $(FULL_NAME)
|
||||
$(RM) -rf $(DIST_TMP_DIR)
|
||||
|
||||
install-web: $(ARCHIVE) $(DOC_FILES) $(MD5_FILE)
|
||||
$(SCP) $^ $(WEB_USER)@$(WEB_HOST):$(WEB_DIR)
|
||||
|
||||
%.pdf: %.tex
|
||||
cd $(dir $^); $(PDFLATEX) $(notdir $^); $(PDFLATEX) $(notdir $^)
|
||||
|
||||
%.md5: %
|
||||
$(MD5SUM) $^ > $@
|
||||
|
|
@ -0,0 +1,55 @@
|
|||
scsh installation library
|
||||
|
||||
Introduction
|
||||
------------
|
||||
|
||||
This is the scsh installation library, which aims at making it easy to
|
||||
install extension libraries for scsh.
|
||||
|
||||
The complete documentation for this library can be found in
|
||||
doc/proposal.pdf. Apart from describing the library itself, this
|
||||
document also explains how to install and use scsh packages in
|
||||
general.
|
||||
|
||||
Notice that this library needs scsh v0.6.6 or newer, and will not
|
||||
work at all with older versions.
|
||||
|
||||
|
||||
Installation
|
||||
------------
|
||||
|
||||
This library must be installed before any attempt at installing scsh
|
||||
packages is made.
|
||||
|
||||
Installation is performed by running the install.scm script found in
|
||||
the same directory as the present file. This script accepts the
|
||||
following option:
|
||||
|
||||
--prefix <dir> directory in which to install files
|
||||
(default: /usr/local)
|
||||
|
||||
The following files are installed:
|
||||
|
||||
<prefix>/bin/scsh-install-pkg
|
||||
|
||||
The script to run in order to install scsh packages. Its use is
|
||||
explained in the documentation (see below).
|
||||
|
||||
<prefix>/share/scsh/install-lib/scheme/install-lib.scm
|
||||
<prefix>/share/scsh/install-lib/scheme/install-lib-module.scm
|
||||
|
||||
The Scheme code for the installation library.
|
||||
|
||||
<prefix>/share/doc/scsh/install-lib/proposal.pdf
|
||||
|
||||
The documentation describing the installation library, and how to
|
||||
manage scsh packages in general.
|
||||
|
||||
|
||||
Staged installation
|
||||
-------------------
|
||||
|
||||
The installation script provides support for staged installation, as
|
||||
needed by some package managment systems. The destination directory in
|
||||
which files should be installed can be specified using the
|
||||
"--dest-dir" option.
|
||||
|
|
@ -0,0 +1,132 @@
|
|||
#!/bin/sh
|
||||
exec scsh -e main -o let-opt -o srfi-1 -o srfi-37 -s "$0" "$@"
|
||||
!#
|
||||
|
||||
;; Install scsh's installation library as follows:
|
||||
;; - files install-lib.scm and install-lib-module.scm go to
|
||||
;; <prefix>/share/scsh/install-lib/scheme/
|
||||
;; - file proposal.pdf goes to
|
||||
;; <prefix>/share/scsh/doc/install-lib/
|
||||
;; - a new file called scsh-install-pkg, providing an entry point to
|
||||
;; the installation library, is installed in <prefix>/bin
|
||||
|
||||
;; TODO most of the following functions were lifted straight from
|
||||
;; install-lib.scm, but should really be shared in some way.
|
||||
|
||||
;; Replace all bindings of KEY in ALIST with one binding KEY to DATUM.
|
||||
(define (alist-replace key datum alist)
|
||||
(alist-cons key datum (alist-delete key alist)))
|
||||
|
||||
;; Return the value associated with KEY in ALIST. If none exists,
|
||||
;; return DEFAULT, or signal an error if no DEFAULT was given.
|
||||
(define (alist-get key alist . rest)
|
||||
(cond ((assoc key alist) => cdr)
|
||||
((not (null? rest)) (first rest))
|
||||
(else (error "cannot find key in alist" key alist))))
|
||||
|
||||
;; Return the name of the parent directory of FNAME.
|
||||
(define (parent-directory fname)
|
||||
(file-name-directory (directory-as-file-name fname)))
|
||||
|
||||
;; Create directory FNAME and all its parents, as needed.
|
||||
(define (create-directory&parents fname . rest)
|
||||
(let-optionals rest ((perms #o777))
|
||||
(let ((parent (parent-directory fname)))
|
||||
(if (not (file-exists? parent))
|
||||
(apply create-directory&parents parent rest))
|
||||
(if (not (file-exists? fname))
|
||||
(create-directory fname perms)))))
|
||||
|
||||
;; Return the name of FNAME, which must be absolute, with NEW-ROOT as
|
||||
;; root.
|
||||
(define (re-root-file-name fname new-root)
|
||||
(let ((fname-pl (split-file-name fname))
|
||||
(new-root-pl (split-file-name new-root)))
|
||||
(if (string=? (first fname-pl) "")
|
||||
(path-list->file-name (append new-root-pl (cdr fname-pl)))
|
||||
(error "no root to replace in relative file name" fname))))
|
||||
|
||||
;; Copy SOURCE to TARGET-DIR, with the same name.
|
||||
(define (copy-file-to-dir source target-dir)
|
||||
(let ((target (absolute-file-name (file-name-nondirectory source)
|
||||
target-dir)))
|
||||
(run (cp ,source ,target))
|
||||
(set-file-mode target (file-mode source))))
|
||||
|
||||
(define usage #<<END
|
||||
Usage: ~a [options]
|
||||
|
||||
options:
|
||||
-h, --help display this help message, then exit
|
||||
--prefix <dir> specify directory where files are installed
|
||||
(default: /usr/local)
|
||||
--dest-dir <dir> specify prefix to used during installation
|
||||
(to be used only during staged installations)
|
||||
|
||||
END
|
||||
)
|
||||
|
||||
;; Template for scsh-install-pkg script, must be plugged with the
|
||||
;; directory containing the Scheme code.
|
||||
(define scsh-install-pkg-template #<<END
|
||||
#!/bin/sh
|
||||
exec scsh -lm ~a/install-lib-module.scm -o pp -o configure -o install -e install-main -s "$0" "$@"
|
||||
!#
|
||||
|
||||
END
|
||||
)
|
||||
|
||||
(define (display-usage-and-exit prog . args)
|
||||
(format (current-error-port) usage prog)
|
||||
(if (not (null? args))
|
||||
(for-each (lambda (thing) (display thing (current-error-port)))
|
||||
(cons "Error: " args)))
|
||||
(exit 1))
|
||||
|
||||
(define (parse-options prog args)
|
||||
(args-fold
|
||||
args
|
||||
(let ((alist-arg-updater (lambda (key)
|
||||
(lambda (opt name arg alist)
|
||||
(alist-replace key arg alist)))))
|
||||
(list (option '(#\h "help") #f #f
|
||||
(lambda ignored (display-usage-and-exit prog)))
|
||||
(option '("prefix") #t #f (alist-arg-updater 'prefix))
|
||||
(option '("dest-dir") #t #f (alist-arg-updater 'dest-dir))))
|
||||
(lambda (option name . rest)
|
||||
(display-usage-and-exit prog "Unknown option "name))
|
||||
(lambda (operand . rest)
|
||||
(display-usage-and-exit prog
|
||||
"Don't know what to do with "
|
||||
operand))
|
||||
'((prefix . "/usr/local")
|
||||
(dest-dir . "/"))))
|
||||
|
||||
(define (main cmd-line)
|
||||
(let* ((options (parse-options (car cmd-line) (cdr cmd-line)))
|
||||
(prefix (alist-get 'prefix options))
|
||||
(r-prefix (absolute-file-name prefix "/"))
|
||||
(i-prefix (re-root-file-name r-prefix (alist-get 'dest-dir options))))
|
||||
|
||||
;; Install documentation
|
||||
(let ((doc-dir (absolute-file-name "share/doc/scsh/install-lib"
|
||||
i-prefix)))
|
||||
(create-directory&parents doc-dir)
|
||||
(copy-file-to-dir "doc/proposal.pdf" doc-dir))
|
||||
|
||||
;; Install Scheme code
|
||||
(let ((scheme-dir (absolute-file-name "share/scsh/install-lib/scheme"
|
||||
i-prefix)))
|
||||
(create-directory&parents scheme-dir)
|
||||
(copy-file-to-dir "scheme/install-lib.scm" scheme-dir)
|
||||
(copy-file-to-dir "scheme/install-lib-module.scm" scheme-dir))
|
||||
|
||||
;; Install script
|
||||
(let ((bin-dir (absolute-file-name "bin" i-prefix))
|
||||
(r-scheme-dir (absolute-file-name "share/scsh/install-lib/scheme"
|
||||
r-prefix)))
|
||||
(create-directory&parents bin-dir)
|
||||
(call-with-output-file (absolute-file-name "scsh-install-pkg" bin-dir)
|
||||
(lambda (p)
|
||||
(format p scsh-install-pkg-template r-scheme-dir)
|
||||
(set-file-mode p #o755))))))
|
||||
Loading…
Reference in New Issue