/usr/share/festival/fileio.scm is in festival-freebsoft-utils 0.10-4.
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 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | ;;; File input/output utilities
;; Copyright (C) 2004 Brailcom, o.p.s.
;; Author: Milan Zamazal <pdm@brailcom.org>
;; COPYRIGHT NOTICE
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;; for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
(require 'util)
(defmac (with-open-file form)
(let* ((spec (nth 1 form))
(body (nth_cdr 2 form))
(var (nth 0 spec))
(filename (nth 1 spec))
(how (or (nth 2 spec) "r")))
`(let ((,var (fopen ,filename ,how)))
(unwind-protect* (begin ,@body)
(fclose ,var)))))
(defmac (with-temp-file-data form)
(let* ((spec (nth 1 form))
(body (nth_cdr 2 form))
(filename (nth 0 spec))
(data (nth 1 spec)))
`(with-temp-file ,filename
(write-file ,filename ,data)
,@body)))
(define (write-file filename string)
(with-open-file (f filename "w")
(fwrite (if (symbol? string) (format nil "%s" string) string) f)))
(define (read-file filename)
(with-open-file (f filename)
(let* ((strings '())
(buffer (format nil "%1024s" ""))
(buflen (length buffer))
(n 0)
(reading t))
(while reading
(set! n (fread buffer f))
(if n
(begin
(push (substring buffer 0 n) strings)
(when (< n buflen)
(set! reading nil)))
(set! reading nil)))
(apply string-append (reverse strings)))))
(define (make-read-line-state)
(list ""))
(define (read-line file state)
(let* ((text (car state))
(line (and text (string-before text "\n"))))
(cond
((not text)
nil)
((equal? line "")
(let* ((buffer (format nil "%256s" ""))
(n (fread buffer file)))
(cond
((and (not n) (eqv? text ""))
(set! line nil)
(set! text nil))
((not n)
(set! line text)
(set! text nil))
(t
(set! text (string-append text (substring buffer 0 n)))
(let ((state* (list text)))
(set! line (read-line file state*))
(set! text (car state*)))))))
(t
(set! text (string-after text "\n"))))
(set-car! state text)
line))
(provide 'fileio)
|