--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/hpplay.c	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,282 @@
+/* Copyright (C) 1993 Free Software Foundation, Inc.
+
+This file is part of XEmacs.
+
+XEmacs 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, or (at your option) any
+later version.
+
+XEmacs 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 XEmacs; see the file COPYING.  If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+/* Synched up with: Not in FSF. */
+
+
+/***
+   NAME
+     hpplay
+   PURPOSE
+     Play .au sound files on hp9000s700
+   BUGS
+     I have been unable to figure out how to use the volume feature, so no
+     attempts has been made to honor the volume arg of play_sound_*
+     This means that all sounds is played at 100%.
+     The gain parameter can be set by using the play-gain variable.
+
+   NOTES
+     This file is mostly based on the player program found in the examples
+     directory of the audio software delivered on our machines. The path I
+     found it under was /usr/audio/examples/player.c
+     This file contained no credits and no copyrights. The original fileheader
+     is given below. 
+   HISTORY
+     lynbech - Feb 10, 1993: Created.
+***/
+
+/* ORIGINAL FILEHEADER:
+ * player - command-line audio file player
+ *   Aug. 28 1991
+ *    by three unknown, unsung audio programmers
+ *     (well, only two are unsung)
+ */
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <config.h>		/* to get system rev level. */
+#ifdef HPUX10
+#include <Alib.h>
+#include <CUlib.h>
+#else /* !HPUX 10 */
+#include <audio/Alib.h>
+#include <audio/CUlib.h>
+#endif /* !HPUX 10 */
+
+/* New Symbols */
+#include <config.h>
+#include "lisp.h"
+
+Lisp_Object Vhp_play_server;
+Lisp_Object Vhp_play_speaker;
+int         play_gain;
+
+/* Functions */
+
+/* error handling */
+void player_error_internal(
+    Audio        * audio,
+    char         * text,
+    long         errorCode
+    )
+{
+    char    errorbuff[132],buf[256];
+
+    AGetErrorText(audio, errorCode, errorbuff, 131);
+    sprintf(buf,"%s: %s\n",text,errorbuff);
+    error(buf);
+}
+
+long myHandler(audio, err_event)
+    Audio  * audio;
+    AErrorEvent  * err_event;
+{
+  player_error_internal(audio, "Internal sound error", err_event->error_code);
+  return 1;			/* Must return something, was orig. an exit */
+}
+
+/* Playing */
+void
+play_bucket_internal(audio, pSBucket, volume)
+     Audio           *audio;
+     SBucket     *pSBucket;
+     long         volume;
+{
+    SBPlayParams    playParams;
+    AGainEntry      gainEntry;
+    ATransID        xid;
+    long            status;
+    char            * speaker;
+
+    playParams.priority = APriorityNormal;          /* normal priority */
+
+    speaker = (char *) (string_data (XSYMBOL (Vhp_play_speaker)->name));
+    
+    /*
+     * setup the playback parameters
+     */
+
+    /* speaker selection */
+    if ( strcmp(speaker,"external") == 0 ) {
+      gainEntry.u.o.out_dst = AODTMonoJack;
+    } else {
+      gainEntry.u.o.out_dst = AODTMonoIntSpeaker;
+    }
+
+    gainEntry.u.o.out_ch = AOCTMono;
+    gainEntry.gain = AUnityGain;
+    playParams.gain_matrix.type = AGMTOutput;       /* gain matrix */
+    playParams.gain_matrix.num_entries = 1;
+    playParams.gain_matrix.gain_entries = &gainEntry;
+    playParams.play_volume = play_gain;            /* play volume */
+    playParams.pause_first = False;                 /* don't pause */
+    playParams.start_offset.type = ATTSamples;      /* start offset 0 */
+    playParams.start_offset.u.samples = 0;
+    playParams.duration.type = ATTFullLength;       /* play entire sample */
+    playParams.loop_count = 1;                      /* play sample just once */
+    playParams.previous_transaction = 0;            /* no linked transaction */
+    playParams.event_mask = 0;                      /* don't solicit any events */
+
+    /*
+     * play the sound bucket
+     */
+    xid = APlaySBucket( audio, pSBucket, &playParams, NULL );
+
+    /*
+     * set close mode to prevent playback from stopping 
+     *  when we close audio connection
+     */
+    ASetCloseDownMode( audio, AKeepTransactions, &status );
+
+    /*
+     *  That's all, folks!
+     *  Always destroy bucket and close connection.
+     */
+    ADestroySBucket( audio, pSBucket, &status );
+    ACloseAudio( audio, &status );
+}
+
+void
+play_sound_file (sound_file, volume)
+     char * sound_file;
+     int volume;
+{
+    SBucket         *pSBucket;
+    Audio           *audio;
+    long            status;
+    AErrorHandler   prevHandler;  /* pointer to previous handler */
+    char            *server;
+
+    if (STRINGP(Vhp_play_server))
+      server = (char *) (string_data (XSTRING (Vhp_play_server)));
+    server = "";
+
+    /*
+     *  open audio connection
+     */
+    audio = AOpenAudio( server, &status );
+    if( status ) {
+        player_error_internal( audio, "Open audio failed", status );
+    }
+
+    /* replace default error handler */
+    prevHandler = ASetErrorHandler(myHandler);
+
+    /*
+     *  Load the audio file into a sound bucket
+     */
+
+    pSBucket = ALoadAFile( audio, sound_file, AFFUnknown, 0, NULL, NULL );
+
+    /*
+     * Play the bucket
+     */
+
+    play_bucket_internal(audio, pSBucket, volume);
+
+    ASetErrorHandler(prevHandler);
+}
+
+
+void
+play_sound_data (data, length, volume)
+     unsigned char * data;
+     int length;
+     int volume;
+{
+    SBucket         *pSBucket;
+    Audio           *audio;
+    AErrorHandler   prevHandler;
+    SunHeader       *header;
+    long            status;
+    char            *server;
+
+    if (STRINGP (Vhp_play_server))
+      server = (char *) (string_data (XSTRING (Vhp_play_server)));
+    server = "";
+
+    /* open audio connection */
+    audio = AOpenAudio( server, &status );
+    if( status ) {
+        player_error_internal( audio, "Open audio failed", status );
+    }
+
+    /* replace default error handler */
+    prevHandler = ASetErrorHandler (myHandler);
+
+    /* Create sound bucket */
+    header = (SunHeader *) data;
+
+    pSBucket = ACreateSBucket(audio, NULL, NULL, &status);
+    if (status)
+      player_error_internal( audio, "Bucket creation failed", status );
+
+    APutSBucketData(audio, pSBucket, 0, (char *) (data + header->header_size), header->data_length, &status);
+
+   if (status)
+      player_error_internal( audio, "Audio data copy failed", status );
+
+    /* Play sound */
+    play_bucket_internal(audio, pSBucket, volume);
+
+    ASetErrorHandler(prevHandler);
+    if (status)
+      player_error_internal( audio, "Audio data copy failed", status );
+}
+
+void
+vars_of_hpplay (void)
+{
+  DEFVAR_LISP ("hp-play-server", &Vhp_play_server /*
+A string, determining which server to play sound at.
+Note that this is specific to the HP sound implementation, and you should
+not make your functions depend on it.
+*/ );
+
+  Vhp_play_server = Qnil;
+
+  DEFVAR_LISP ("hp-play-speaker", &Vhp_play_speaker /*
+If this variable is the symbol `external', sound is played externally.
+If the environment variable SPEAKER is set, that value is used for
+initializing this variable.
+Note that this is specific to the HP sound implementation, and you should
+not make your functions depend on it.
+*/ );
+
+  Vhp_play_speaker = intern ("internal");
+
+  DEFVAR_INT("hp-play-gain", &play_gain /*
+Global gain value for playing sounds.
+Default value is AUnityGain which means keep level.
+Please refer to the HP documentation, for instance in
+`Using the Audio Application Program Interface', for details on how to
+interpret this variable.
+Note that this is specific to the HP sound implementation, and you should
+not make your functions depend on it.
+*/ );
+
+  play_gain = AUnityGain;
+}
+
+void
+init_hpplay (void)
+{
+  if (getenv ("SPEAKER")) 
+    Vhp_play_speaker = intern (getenv ("SPEAKER"));
+}