- added interfaces for the various utilities found in install-lib

(e.g. create-directory&parents),
- introduced the new name "install-lib" for the structure of the
  installation library (the old name, "install", is still there but
  deprecated)
This commit is contained in:
michel-schinz 2004-05-17 20:14:13 +00:00
parent 948a386108
commit 54fabbbcf3
1 changed files with 32 additions and 2 deletions

View File

@ -1,8 +1,29 @@
;;; Installation library for scsh modules. ;;; Installation library for scsh modules.
;;; $Id: install-lib-module.scm,v 1.10 2004/05/16 14:33:49 michel-schinz Exp $ ;;; $Id: install-lib-module.scm,v 1.11 2004/05/17 20:14:13 michel-schinz Exp $
;;; Interfaces ;;; Interfaces
;; List utilities (extensions to SRFI-1)
(define-interface list-utils-interface
(export common-prefix-length
alist-replace
alist-combine
alist-get))
;; String utilities (extensions to SRFI-13)
(define-interface string-utils-interface
(export as-string
spaces))
;; File utilities (extensions to scsh)
(define-interface file-utils-interface
(export parent-directory
create-directory&parents
relative-file-name
re-root-file-name
paths->file-name))
;; Installation library
(define-interface install-interface (define-interface install-interface
(export tmpl-libtool-la-reader (export tmpl-libtool-la-reader
@ -34,12 +55,21 @@
(with-output-to-load-script :syntax) (with-output-to-load-script :syntax)
write-to-load-script write-to-load-script
display-error-and-exit
install-main install-main
install-program-main)) install-program-main))
(define-interface install-full-interface
(compound-interface install-interface
list-utils-interface
string-utils-interface
file-utils-interface))
;;; Structures ;;; Structures
(define-structure install install-interface (define-structures ((install-lib install-full-interface)
(install install-full-interface)) ;deprecated name
(open scheme-with-scsh (open scheme-with-scsh
cells cells
fluids fluids