2003-12-14 07:23:36 -05:00
|
|
|
;;; Installation library for scsh modules.
|
2004-11-08 14:54:03 -05:00
|
|
|
;;; $Id: install-lib-module.scm,v 1.14 2004/11/08 19:54:03 michel-schinz Exp $
|
2003-12-14 07:23:36 -05:00
|
|
|
|
|
|
|
;;; Interfaces
|
|
|
|
|
2004-05-22 06:44:10 -04:00
|
|
|
(define-interface install-lib-version-interface
|
|
|
|
(export install-lib-version))
|
|
|
|
|
2004-05-17 16:14:13 -04:00
|
|
|
;; 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
|
|
|
|
paths->file-name))
|
|
|
|
|
|
|
|
;; Installation library
|
2003-12-14 07:23:36 -05:00
|
|
|
(define-interface install-interface
|
2004-02-01 12:22:43 -05:00
|
|
|
(export tmpl-libtool-la-reader
|
|
|
|
|
|
|
|
version->string
|
2003-12-14 07:23:36 -05:00
|
|
|
string->version
|
|
|
|
version-compare
|
|
|
|
version<?
|
|
|
|
version>?
|
|
|
|
version=?
|
|
|
|
|
2004-11-08 14:54:03 -05:00
|
|
|
phase-active?
|
|
|
|
|
2004-06-13 13:51:59 -04:00
|
|
|
package-name
|
|
|
|
package-full-name
|
|
|
|
package-version
|
|
|
|
|
2004-05-16 10:33:49 -04:00
|
|
|
((define-package define-program) :syntax)
|
2004-02-20 03:22:07 -05:00
|
|
|
load-package-in
|
2003-12-14 07:23:36 -05:00
|
|
|
|
|
|
|
install-file
|
|
|
|
install-files
|
|
|
|
install-directory
|
|
|
|
install-directories
|
2003-12-14 09:43:18 -05:00
|
|
|
install-directory-contents
|
2004-02-08 04:50:47 -05:00
|
|
|
install-string
|
2004-02-19 02:29:16 -05:00
|
|
|
install-sub-package
|
2003-12-14 09:43:18 -05:00
|
|
|
|
2003-12-21 15:55:40 -05:00
|
|
|
identity
|
|
|
|
parse-boolean
|
|
|
|
show-boolean
|
2003-12-14 07:23:36 -05:00
|
|
|
|
2003-12-21 15:55:40 -05:00
|
|
|
get-directory
|
|
|
|
get-option-value
|
2004-02-01 12:22:43 -05:00
|
|
|
with-output-to-load-script*
|
|
|
|
(with-output-to-load-script :syntax)
|
|
|
|
write-to-load-script
|
2003-12-14 07:23:36 -05:00
|
|
|
|
2004-05-17 16:14:13 -04:00
|
|
|
display-error-and-exit
|
|
|
|
|
2004-05-16 10:33:49 -04:00
|
|
|
install-main
|
2004-05-22 06:44:10 -04:00
|
|
|
install-main-quiet
|
2004-05-16 10:33:49 -04:00
|
|
|
install-program-main))
|
2003-12-14 07:23:36 -05:00
|
|
|
|
2004-05-17 16:14:13 -04:00
|
|
|
(define-interface install-full-interface
|
|
|
|
(compound-interface install-interface
|
|
|
|
list-utils-interface
|
|
|
|
string-utils-interface
|
|
|
|
file-utils-interface))
|
|
|
|
|
2003-12-14 07:23:36 -05:00
|
|
|
;;; Structures
|
|
|
|
|
2004-05-22 06:44:10 -04:00
|
|
|
(define-structure install-lib-version install-lib-version-interface
|
|
|
|
(open scheme)
|
|
|
|
(files install-lib-version))
|
|
|
|
|
2004-05-17 16:14:13 -04:00
|
|
|
(define-structures ((install-lib install-full-interface)
|
|
|
|
(install install-full-interface)) ;deprecated name
|
2003-12-14 07:23:36 -05:00
|
|
|
(open scheme-with-scsh
|
2004-02-19 02:29:16 -05:00
|
|
|
cells
|
2003-12-14 07:23:36 -05:00
|
|
|
fluids
|
|
|
|
let-opt
|
|
|
|
srfi-1
|
2004-03-14 09:03:26 -05:00
|
|
|
srfi-2
|
2003-12-14 07:23:36 -05:00
|
|
|
srfi-9
|
|
|
|
srfi-13
|
2003-12-14 09:43:18 -05:00
|
|
|
srfi-37
|
2004-02-01 12:22:43 -05:00
|
|
|
configure
|
2004-03-14 09:03:26 -05:00
|
|
|
scsh-version
|
2004-05-22 06:44:10 -04:00
|
|
|
pp
|
|
|
|
install-lib-version)
|
2003-12-14 07:23:36 -05:00
|
|
|
(files install-lib))
|