1;;; 2;;; SRFI-112 Environment inquiry 3;;; 4 5(define-module srfi-112 6 (export implementation-name 7 implementation-version 8 cpu-architecture 9 machine-name 10 os-name 11 os-version)) 12(select-module srfi-112) 13 14(define (implementation-name) "Gauche") 15(define (implementation-version) (gauche-version)) 16 17(define (cpu-architecture) (~ (sys-uname) 4)) ; MACHINE field 18(define (machine-name) (~ (sys-uname) 1)) ; NODENAME field 19(define (os-name) (~ (sys-uname) 0)) ; SYSNAME field 20(define (os-version) (~ (sys-uname) 2)) ; RELEASE field 21 22