From 54fabbbcf35f87fb449ced04d7db02cd419ca684 Mon Sep 17 00:00:00 2001 From: michel-schinz Date: Mon, 17 May 2004 20:14:13 +0000 Subject: [PATCH] - 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) --- scheme/install-lib/install-lib-module.scm | 34 +++++++++++++++++++++-- 1 file changed, 32 insertions(+), 2 deletions(-) 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