/usr/share/gauche-0.9/0.9.5/lib/srfi-112.scm is in gauche 0.9.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ;;;
;;; SRFI-112 Environment inquiry
;;;
(define-module srfi-112
(export implementation-name
implementation-version
cpu-architecture
machine-name
os-name
os-version))
(select-module srfi-112)
(define (implementation-name) "Gauche")
(define (implementation-version) (gauche-version))
(define (cpu-architecture) (~ (sys-uname) 4)) ; MACHINE field
(define (machine-name) (~ (sys-uname) 1)) ; NODENAME field
(define (os-name) (~ (sys-uname) 0)) ; SYSNAME field
(define (os-version) (~ (sys-uname) 2)) ; RELEASE field
|