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