- removed "configure.scm": from now on the installation library
depends on scsh 0.6.6 for its "configure" structure
This commit is contained in:
parent
dad8d7c6e7
commit
352d32cae6
|
@ -1,27 +0,0 @@
|
||||||
;;; Library to obtain information about the underlying platform.
|
|
||||||
;;; $Id: configure.scm,v 1.1 2003/12/14 14:46:10 michel-schinz Exp $
|
|
||||||
|
|
||||||
(define-structure configure (export host)
|
|
||||||
(open scheme-with-scsh
|
|
||||||
srfi-13)
|
|
||||||
(begin
|
|
||||||
(define (canonical-machine uname-record)
|
|
||||||
(let* ((machine (uname:machine uname-record))
|
|
||||||
(os (uname:os-name uname-record)))
|
|
||||||
(cond
|
|
||||||
((member machine '("i386" "i486" "i586" "i686")) "i386")
|
|
||||||
((or (string=? machine "Power Macintosh")
|
|
||||||
(and (string=? os "AIX")
|
|
||||||
(regexp-search? (rx (: "00" (= 6 digit) any any "00"))
|
|
||||||
machine)))
|
|
||||||
"powerpc")
|
|
||||||
(else machine))))
|
|
||||||
|
|
||||||
(define (canonical-os-name uname-record)
|
|
||||||
(string-downcase (uname:os-name uname-record)))
|
|
||||||
|
|
||||||
(define (host)
|
|
||||||
(let ((uname-record (uname)))
|
|
||||||
(string-append (canonical-machine uname-record)
|
|
||||||
"-"
|
|
||||||
(canonical-os-name uname-record))))))
|
|
|
@ -1,3 +1,3 @@
|
||||||
#!/bin/sh
|
#!/bin/sh
|
||||||
exec scsh -lm configure.scm -lm install-lib-module.scm -o pp -o configure -o install -e install-main -s "$0" "$@"
|
exec scsh -lm install-lib-module.scm -o pp -o configure -o install -e install-main -s "$0" "$@"
|
||||||
!#
|
!#
|
||||||
|
|
Loading…
Reference in New Issue