Mercurial > hg > xemacs-beta

comparison src/hpplay.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 6a378aca36af
children ca9a9ec9c1c1
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
34 NOTES 34 NOTES
35 This file is mostly based on the player program found in the examples 35 This file is mostly based on the player program found in the examples
36 directory of the audio software delivered on our machines. The path I 36 directory of the audio software delivered on our machines. The path I
37 found it under was /usr/audio/examples/player.c 37 found it under was /usr/audio/examples/player.c
38 This file contained no credits and no copyrights. The original fileheader 38 This file contained no credits and no copyrights. The original fileheader
39 is given below. 39 is given below.
40 HISTORY 40 HISTORY
41 lynbech - Feb 10, 1993: Created. 41 lynbech - Feb 10, 1993: Created.
42 ***/ 42 ***/
43 43
44 /* ORIGINAL FILEHEADER: 44 /* ORIGINAL FILEHEADER:
46 * Aug. 28 1991 46 * Aug. 28 1991
47 * by three unknown, unsung audio programmers 47 * by three unknown, unsung audio programmers
48 * (well, only two are unsung) 48 * (well, only two are unsung)
49 */ 49 */
50 50
51 #include <config.h>
52 #include "lisp.h"
53
51 #include <stdlib.h> 54 #include <stdlib.h>
52 #include <stdio.h> 55 #include <stdio.h>
53 #include <config.h> /* to get system rev level. */
54 #ifdef HPUX10 56 #ifdef HPUX10
55 #include <Alib.h> 57 #include <Alib.h>
56 #include <CUlib.h> 58 #include <CUlib.h>
57 #else /* !HPUX 10 */ 59 #else /* !HPUX 10 */
58 #include <audio/Alib.h> 60 #include <audio/Alib.h>
59 #include <audio/CUlib.h> 61 #include <audio/CUlib.h>
60 #endif /* !HPUX 10 */ 62 #endif /* !HPUX 10 */
61 63
62 /* New Symbols */
63 #include <config.h>
64 #include "lisp.h"
65
66 Lisp_Object Vhp_play_server; 64 Lisp_Object Vhp_play_server;
67 Lisp_Object Vhp_play_speaker; 65 Lisp_Object Vhp_play_speaker;
68 int play_gain; 66 int play_gain;
69 67
70 /* Functions */ 68 /* Functions */
111 * we did. 109 * we did.
112 */ 110 */
113 if (SYMBOLP (Vhp_play_speaker)) 111 if (SYMBOLP (Vhp_play_speaker))
114 { 112 {
115 speaker = (char *) (string_data (XSYMBOL (Vhp_play_speaker)->name)); 113 speaker = (char *) (string_data (XSYMBOL (Vhp_play_speaker)->name));
116 114
117 /* 115 /*
118 * setup the playback parameters 116 * setup the playback parameters
119 */ 117 */
120 118
121 /* speaker selection */ 119 /* speaker selection */
151 * play the sound bucket 149 * play the sound bucket
152 */ 150 */
153 xid = APlaySBucket( audio, pSBucket, &playParams, NULL ); 151 xid = APlaySBucket( audio, pSBucket, &playParams, NULL );
154 152
155 /* 153 /*
156 * set close mode to prevent playback from stopping 154 * set close mode to prevent playback from stopping
157 * when we close audio connection 155 * when we close audio connection
158 */ 156 */
159 ASetCloseDownMode( audio, AKeepTransactions, &status ); 157 ASetCloseDownMode( audio, AKeepTransactions, &status );
160 158
161 /* 159 /*
289 } 287 }
290 288
291 void 289 void
292 init_hpplay (void) 290 init_hpplay (void)
293 { 291 {
294 if (getenv ("SPEAKER")) 292 if (getenv ("SPEAKER"))
295 Vhp_play_speaker = intern (getenv ("SPEAKER")); 293 Vhp_play_speaker = intern (getenv ("SPEAKER"));
296 } 294 }