scsh-conservatory
/
scx
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

now using scsh's configure module

This commit is contained in:
frese 2004-01-04 14:37:05 +00:00
parent 2eccfa3034
commit 444f614553
4 changed files with 1 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
configure.scm
View File

@ -1,27 +0,0 @@
;;; Library to obtain information about the underlying platform.
;;; $Id: configure.scm,v 1.1 2003/12/16 16:44:40 frese 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))))))

2
install-pkg
View File

@ -1,3 +1,3 @@
#!/bin/sh
exec scsh -lm configure.scm -lm install-lib-module.scm -o install -e install-main -s "$0" "$@"
exec scsh -lm install-lib-module.scm -o configure -o install -e install-main -s "$0" "$@"
!#

3
load.scm.in
View File

@ -1,10 +1,7 @@
(config)
(load "@scxschemedir@/configure.scm")
(user)
(load-package 'dynamic-externals)
(open 'dynamic-externals)
(open 'external-calls)
(load-package 'configure)
(open 'configure)
(run '(let ((initializer-name "scx_init_xlib")
(module-file (string-append "@scxlibdir@/" @scxhost@ "/libscx.so")))

24
scheme/configure.scm
View File

@ -1,24 +0,0 @@
(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))))))