*** empty log message ***

scheme/install-lib/configure.scm

@@ -0,0 +1,27 @@
+;;; 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))))))