- 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:
parent
948a386108
commit
54fabbbcf3
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue