1; machine.lsp -- machine/system-dependent definitions
2; 	SGI/IRIX
3
4(if (not (boundp '*default-sf-format*))
5    (setf *default-sf-format* snd-head-AIFF))
6
7(if (not (boundp '*default-sound-file*))
8    (compute-default-sound-file))
9
10(if (not (boundp '*default-sf-dir*))
11    (setf *default-sf-dir* "/tmp/"))
12
13(if (not (boundp '*default-sf-mode*))
14    (setf *default-sf-mode* snd-mode-pcm))
15
16(if (not (boundp '*default-sf-bits*))
17    (setf *default-sf-bits* 16))
18
19(if (not (boundp '*default-plot-file*))
20    (setf *default-plot-file* "points.dat"))
21
22(defmacro play (expr)
23  `(let ()
24     (s-save-autonorm  ,expr NY:ALL *default-sound-file* :play *soundenable*)
25     (r)))
26
27(defun r ()
28  (play-file *default-sound-file*))
29
30; PLAY-FILE -- play a file
31(defun play-file (name)
32  (system (strcat "sfplay " (soundfilename name))))
33
34
35; FULL-NAME-P -- test if file name is a full path or relative path
36;
37; (otherwise the *default-sf-dir* will be prepended
38;
39(defun full-name-p (filename)
40  (or (eq (char filename 0) #\/)
41      (eq (char filename 0) #\.)))
42
43(setf *file-separator* #\/)
44
45(sound-off) ; sgi implementation does not support real-time audio output yet
46
47