1 files changed, 42 insertions, 0 deletions
diff --git a/lib/ultralib/src/audio/cspgetprogram.c b/lib/ultralib/src/audio/cspgetprogram.c
new file mode 100644
index 0000000..382616f
--- /dev/null
+++ b/lib/ultralib/src/audio/cspgetprogram.c
@@ -0,0 +1,42 @@
+/*====================================================================
+ * cspgetprogram.c
+ *
+ * Synopsis:
+ *
+ * Copyright 1995, Silicon Graphics, Inc.
+ * All Rights Reserved.
+ *
+ * This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics,
+ * Inc.; the contents of this file may not be disclosed to third
+ * parties, copied or duplicated in any form, in whole or in part,
+ * without the prior written permission of Silicon Graphics, Inc.
+ *
+ * RESTRICTED RIGHTS LEGEND:
+ * Use, duplication or disclosure by the Government is subject to
+ * restrictions as set forth in subdivision (c)(1)(ii) of the Rights
+ * in Technical Data and Computer Software clause at DFARS
+ * 252.227-7013, and/or in similar or successor clauses in the FAR,
+ * DOD or NASA FAR Supplement. Unpublished - rights reserved under the
+ * Copyright Laws of the United States.
+ *====================================================================*/
+
+#include <libaudio.h>
+
+s32 alCSPGetChlProgram(ALCSPlayer *seqp, u8 chan)
+
+{
+    s32         i;
+    ALBank      *b = seqp->bank;
+    ALInstrument *inst;
+    ALChanState s;
+
+    s = seqp->chanState[chan];
+    for (i=0; i<b->instCount; i++){
+        inst = b->instArray[i];
+        if (inst == s.instrument)
+            return i;
+    }
+    return(-1);
+    
+}
+