This file is indexed.

/usr/share/audacity/nyquist/nyqmisc.lsp is in audacity-data 2.1.2-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
21
22
23
24
25
26
;; nyqmisc.lsp -- misc functions for nyquist

(init-global *snd-display-max-samples* 10000)
(init-global *snd-display-print-samples* 100)


; (snd-display sound) -- describe a sound
(defun snd-display (sound)
  (let (t0 srate len extent dur samples)
    (setf srate (snd-srate sound))
    (setf t0 (snd-t0 sound))
    (setf len (snd-length sound *snd-display-max-samples*))
    (cond ((= len *snd-display-max-samples*)
                 (setf extent (format nil ">~A" (+ t0 (* srate *snd-display-max-samples*))))
           (setf dur (format nil ">~A" (* srate *snd-display-max-samples*))))
          (t
           (setf extent (cadr (snd-extent sound *snd-display-max-samples*)))
           (setf dur (/ (snd-length sound *snd-display-max-samples*) srate))))
    (cond ((> len 100)
           (setf samples (format nil "1st ~A samples" *snd-display-print-samples*))
           (setf nsamples *snd-display-print-samples*))
          (t
           (setf samples (format nil "~A samples" len))
           (setf nsamples len)))
    (format t "~A: srate ~A, t0 ~A, extent ~A, dur ~A, ~A: ~A"
      sound srate t0 extent dur samples (snd-samples sound nsamples))))