diff --git a/scheme/install-lib/install-lib-module.scm b/scheme/install-lib/install-lib-module.scm index 4a77935..ce9af48 100644 --- a/scheme/install-lib/install-lib-module.scm +++ b/scheme/install-lib/install-lib-module.scm @@ -1,8 +1,29 @@ ;;; 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 +;; 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 (export tmpl-libtool-la-reader @@ -34,12 +55,21 @@ (with-output-to-load-script :syntax) write-to-load-script + display-error-and-exit + install-main install-program-main)) +(define-interface install-full-interface + (compound-interface install-interface + list-utils-interface + string-utils-interface + file-utils-interface)) + ;;; Structures -(define-structure install install-interface +(define-structures ((install-lib install-full-interface) + (install install-full-interface)) ;deprecated name (open scheme-with-scsh cells fluids