/usr/share/gauche-0.9/0.9.4/lib/file/util.scm is in gauche 0.9.4-6.
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 | ;; generated automatically. DO NOT EDIT
#!no-fold-case
(define-module file.util (use srfi-1) (use srfi-13) (use util.match) (use gauche.parameter) (export current-directory directory-list directory-list2 directory-fold home-directory temporary-directory make-directory* create-directory* remove-directory* delete-directory* copy-directory* create-directory-tree check-directory-tree build-path resolve-path expand-path simplify-path decompose-path absolute-path? relative-path? find-file-in-paths path-separator path-extension path-sans-extension path-swap-extension file-is-readable? file-is-writable? file-is-executable? file-is-symlink? file-type file-perm file-mode file-ino file-dev file-rdev file-nlink file-uid file-gid file-size file-mtime file-atime file-ctime file-eq? file-eqv? file-equal? file-device=? file-mtime=? file-mtime<? file-mtime<=? file-mtime>? file-mtime>=? file-atime=? file-atime<? file-atime<=? file-atime>? file-atime>=? file-ctime=? file-ctime<? file-ctime<=? file-ctime>? file-ctime>=? touch-file touch-files copy-file move-file remove-file delete-file remove-files delete-files null-device console-device file->string file->string-list file->list file->sexp-list <lock-file-failure> with-lock-file))
(select-module file.util)
(dynamic-load "file--util")
|