Imported Upstream version 4.2-build2006upstream/4.2-build2006upstream

10 files changed, 1366 insertions, 0 deletions

diff --git a/lib/libOSSlib/.config b/lib/libOSSlib/.config
new file mode 100644
index 0000000..f34695c
--- /dev/null
+++ b/lib/libOSSlib/.config
@@ -0,0 +1,2 @@
+mode=shlib
+targetos=Linux
diff --git a/lib/libOSSlib/.nativemake b/lib/libOSSlib/.nativemake
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/lib/libOSSlib/.nativemake
diff --git a/lib/libOSSlib/Makefile b/lib/libOSSlib/Makefile
new file mode 100644
index 0000000..98029f1
--- /dev/null
+++ b/lib/libOSSlib/Makefile
@@ -0,0 +1,29 @@
+OBJS=libmain.o midiparser.o play_event.o
+INSTALLLIB=/lib
+LDFLAGS=-shared -fPIC
+CFLAGS=-O -fPIC
+#LDFLAGS=-Bdynamic
+AROPTS=rc
+AR=ar
+
+all:	
+	sh ./compile.sh $(INSTALLLIB) "$(CC)" "$(CFLAGS)" "$(MAKE)"
+
+install: all
+	cp libOSSlib.* $(INSTALLLIB)
+	cp drums.o3 std.o3 /etc
+
+static: libOSSlib.a
+	cp libOSSlib.a $(INSTALLLIB)
+
+libOSSlib.so:	$(OBJS)
+	${CC} $(LDFLAGS) -o libOSSlib.so $(OBJS)
+
+dep:
+
+clean:
+	rm -f *.o *.so x y z core *.a
+
+libOSSlib.a:	$(OBJS)
+	$(AR) $(AROPTS) libOSSlib.a $(OBJS)
+	#-ranlib libOSSlib.a
diff --git a/lib/libOSSlib/Readme b/lib/libOSSlib/Readme
new file mode 100644
index 0000000..b975b78
--- /dev/null
+++ b/lib/libOSSlib/Readme
@@ -0,0 +1,120 @@
+About OSSlib
+============
+
+This version of OSSlib which supports patch caching for cards like GUS, OPL3
+and SoftOSS. This part of the library is only used by some older synthesizer
+chips that are no longer available. Also the SoftOSS virtual synth is
+compatible with it.
+
+Another part is the midiparser library. It's a simple callback based
+system that translates a stream of MIDI bytes (for example from MIDI 
+keyboard) to events.
+
+This library is compatible with all OSS implementations including the freeware
+implementations.
+
+Copying conditions
+------------------
+
+This library can be freely used in ANY applications that is compatible
+with the OSS API. No parts of the code can be borroved to other purposes
+without written permission by 4Front Technologies.
+
+Installing OSSlib
+-----------------
+
+Execute make. If your operating system is recognized you will get
+libOSSlib.so or libOSSlib.a depending on operating system.
+If make complains about unknown operating system you should use
+make libOSSlib.so or make libOSSlib.a to build it. 
+
+Finally copy libOSSlib.* to /usr/lib
+
+Using OSSlib in programs
+------------------------
+
+OSSlib is intended to be used in programs using /dev/music but
+it also works with /dev/sequencer too. This version of the library
+contains only some basic patch caching functions to be used with
+OPL3 and GUS (and SoftOSS as well). Support for other cards is still 
+missing.
+
+There are steps to be done when using OSSlib in a program:
+
+1) Change Makefile to use -DOSSLIB and -lOSSlib
+
+Version 3.8 of <sys/soundcard.h> has been designed to be compatible
+with OSSlib when this OSSLIB is defined. You can also use 
+#ifdef OSSLIB in programs to cover the minor differences between
+the OSSlib and non OSSlib versions.
+
+2) If the program defines segbuf_dump() routine, put it inside
+#ifndef OSSLIB/#endif pair. This routine is included in OSSlib
+and having the same routine inside the program conflicts with it.
+
+3) Add the following call to the program after /dev/music is opened.
+
+#ifdef OSSLIB
+	OSS_init(seqfd, 1024);
+#endif
+
+In the above seqfd is the file descriptor of /dev/music and 1024
+is the size of the local buffer used for output events (1024 is
+a good value).
+
+4) Add patch caching calls to the program. Patch caching should
+be called as early as possible. It's recommended to load all
+_required_ patches before starting the actual playback since
+loading large patches from disk may introduce significant delays
+to playback.
+
+There are two macros (in soundcard.h) to be used when loading 
+instruments:
+
+SEQ_LOAD_GMINSTR(dev#, instr#) loads an instrument (melodic) patch.
+The first parameter is the synthesizer/device number (0 to N) and
+the second parameter is the General MIDI instrument number (0 to 127).
+Note that the numbering starts from #0 while many GM instrument
+tables start from #1.
+
+SEQ_LOAD_GMDRUM(dev#, drum#) is similar than the above but it loads
+an General MIDI percussive instrument.
+
+5) After the above steps your program is ready to start playing.
+
+Examples for using OSSlib and for playing MIDI data can be found
+in ../mplay/* and ../gustest/midithru.c
+
+GUS support in OSSlib
+---------------------
+
+You will need the full GM patch set distributed with the Ultrasound
+drivers for DOS. The default location where the library tries to
+find the patches is /dos/ultrasnd/midi but you can change it by
+editing guslib.c (the second line). Alternative patch sets
+(such as midia) are available from the net. Another source is the MIDIA
+library.
+
+Since non PnP GUS has only 1M of
+RAM (at most) it's not possible to load the full patch set. When playing
+lot of MIDI files in sequence it's possible that the menory becomes
+full if the program doesn't reset the samples between files.
+
+OPL3 support in OSSlib
+----------------------
+
+OSSlib supports patch loading to OPL3 FM synth cards (older OPL2 cards
+are not supported). The patch set is included in the std.o3 and drums.o3
+files distributed with this package. These files should be copied to /etc
+(will be done by "make install"). These patch files are the same ones
+included in Adagio/glib package by Greg Lee. They are also distributed
+with playmidi.
+
+Using OSSlib with SoftOSS
+-------------------------
+
+For instructions about using OSSLib with SoftOSS see the instructions
+for GUS (above).
+
+
+For more info about using OSSlib contact hannu@opensound.com
diff --git a/lib/libOSSlib/compile.sh b/lib/libOSSlib/compile.sh
new file mode 100644
index 0000000..0a03b1b
--- /dev/null
+++ b/lib/libOSSlib/compile.sh
@@ -0,0 +1,81 @@
+#!/bin/sh
+MAKE=$4
+
+case `uname` in
+
+"Linux")
+	$MAKE libOSSlib.so
+	;;
+
+"FreeBSD")
+	$MAKE libOSSlib.so
+	;;
+
+"OSF1")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"NetBSD")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"OpenBSD")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"BSD/OS")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"AIX")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"HP-UX")
+	$MAKE libOSSlib.a CC=$2 CFLAGS=$3
+	;;
+
+"LynxOS")
+	$MAKE AROPTS=rcs libOSSlib.a CFLAGS=""
+	;;
+
+"UNIX_SV")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"UnixWare")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"OpenUNIX")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"SCO_SV")
+	$MAKE libOSSlib.a INSTALLLIB="$1" CFLAGS=""
+	;;
+
+"SunOS")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"PowerMAX_OS")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+"DragonFly")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+"BeOS"|"Haiku")
+	$MAKE libOSSlib.a CFLAGS=""
+	;;
+
+*)
+      echo Can\'t recognize your operating system '('`uname`')'.
+      echo;echo
+      echo use $MAKE libOSSlib.so or $MAKE libOSSlib.a to build OSSlib
+      exit 0
+
+esac
+
+exit 0
diff --git a/lib/libOSSlib/gmidi.h b/lib/libOSSlib/gmidi.h
new file mode 100644
index 0000000..bc196a9
--- /dev/null
+++ b/lib/libOSSlib/gmidi.h
@@ -0,0 +1,259 @@
+char patch_names[][9] = {
+  /*   0 */ "acpiano",
+  /*   1 */ "britepno",
+  /*   2 */ "synpiano",
+  /*   3 */ "honky",
+  /*   4 */ "epiano1",
+  /*   5 */ "epiano2",
+  /*   6 */ "hrpschrd",
+  /*   7 */ "clavinet",
+  /*   8 */ "celeste",
+  /*   9 */ "glocken",
+  /*  10 */ "musicbox",
+  /*  11 */ "vibes",
+  /*  12 */ "marimba",
+  /*  13 */ "xylophon",
+  /*  14 */ "tubebell",
+  /*  15 */ "santur",
+  /*  16 */ "homeorg",
+  /*  17 */ "percorg",
+  /*  18 */ "rockorg",
+  /*  19 */ "church",
+  /*  20 */ "reedorg",
+  /*  21 */ "accordn",
+  /*  22 */ "harmonca",
+  /*  23 */ "concrtna",
+  /*  24 */ "nyguitar",
+  /*  25 */ "acguitar",
+  /*  26 */ "jazzgtr",
+  /*  27 */ "cleangtr",
+  /*  28 */ "mutegtr",
+  /*  29 */ "odguitar",
+  /*  30 */ "distgtr",
+  /*  31 */ "gtrharm",
+  /*  32 */ "acbass",
+  /*  33 */ "fngrbass",
+  /*  34 */ "pickbass",
+  /*  35 */ "fretless",
+  /*  36 */ "slapbas1",
+  /*  37 */ "slapbas2",
+  /*  38 */ "synbass1",
+  /*  39 */ "synbass2",
+  /*  40 */ "violin",
+  /*  41 */ "viola",
+  /*  42 */ "cello",
+  /*  43 */ "contraba",
+  /*  44 */ "marcato",
+  /*  45 */ "pizzcato",
+  /*  46 */ "harp",
+  /*  47 */ "timpani",
+  /*  48 */ "marcato",
+  /*  49 */ "slowstr",
+  /*  50 */ "synstr1",
+  /*  51 */ "synstr2",
+  /*  52 */ "choir",
+  /*  53 */ "doo",
+  /*  54 */ "voices",
+  /*  55 */ "orchhit",
+  /*  56 */ "trumpet",
+  /*  57 */ "trombone",
+  /*  58 */ "tuba",
+  /*  59 */ "mutetrum",
+  /*  60 */ "frenchrn",
+  /*  61 */ "hitbrass",
+  /*  62 */ "synbras1",
+  /*  63 */ "synbras2",
+  /*  64 */ "sprnosax",
+  /*  65 */ "altosax",
+  /*  66 */ "tenorsax",
+  /*  67 */ "barisax",
+  /*  68 */ "oboe",
+  /*  69 */ "englhorn",
+  /*  70 */ "bassoon",
+  /*  71 */ "clarinet",
+  /*  72 */ "piccolo",
+  /*  73 */ "flute",
+  /*  74 */ "recorder",
+  /*  75 */ "woodflut",
+  /*  76 */ "bottle",
+  /*  77 */ "shakazul",
+  /*  78 */ "whistle",
+  /*  79 */ "ocarina",
+  /*  80 */ "sqrwave",
+  /*  81 */ "sawwave",
+  /*  82 */ "calliope",
+  /*  83 */ "chiflead",
+  /*  84 */ "voxlead",
+  /*  85 */ "voxlead",
+  /*  86 */ "lead5th",
+  /*  87 */ "basslead",
+  /*  88 */ "fantasia",
+  /*  89 */ "warmpad",
+  /*  90 */ "polysyn",
+  /*  91 */ "ghostie",
+  /*  92 */ "bowglass",
+  /*  93 */ "metalpad",
+  /*  94 */ "halopad",
+  /*  95 */ "sweeper",
+  /*  96 */ "aurora",
+  /*  97 */ "soundtrk",
+  /*  98 */ "crystal",
+  /*  99 */ "atmosphr",
+  /* 100 */ "freshair",
+  /* 101 */ "unicorn",
+  /* 102 */ "sweeper",
+  /* 103 */ "startrak",
+  /* 104 */ "sitar",
+  /* 105 */ "banjo",
+  /* 106 */ "shamisen",
+  /* 107 */ "koto",
+  /* 108 */ "kalimba",
+  /* 109 */ "bagpipes",
+  /* 110 */ "fiddle",
+  /* 111 */ "shannai",
+  /* 112 */ "carillon",
+  /* 113 */ "agogo",
+  /* 114 */ "steeldrm",
+  /* 115 */ "woodblk",
+  /* 116 */ "taiko",
+  /* 117 */ "toms",
+  /* 118 */ "syntom",
+  /* 119 */ "revcym",
+  /* 120 */ "fx-fret",
+  /* 121 */ "fx-blow",
+  /* 122 */ "seashore",
+  /* 123 */ "jungle",
+  /* 124 */ "telephon",
+  /* 125 */ "helicptr",
+  /* 126 */ "applause",
+  /* 127 */ "pistol",
+
+  "",				/* 128 = drum 0 */
+  "",				/* 129 = drum 1 */
+  "",				/* 130 = drum 2 */
+  "",				/* 131 = drum 3 */
+  "",				/* 132 = drum 4 */
+  "",				/* 133 = drum 5 */
+  "",				/* 134 = drum 6 */
+  "",				/* 135 = drum 7 */
+  "",				/* 136 = drum 8 */
+  "",				/* 137 = drum 9 */
+  "",				/* 138 = drum 10 */
+  "",				/* 139 = drum 11 */
+  "",				/* 140 = drum 12 */
+  "",				/* 141 = drum 13 */
+  "",				/* 142 = drum 14 */
+  "",				/* 143 = drum 15 */
+  "",				/* 144 = drum 16 */
+  "",				/* 145 = drum 17 */
+  "",				/* 146 = drum 18 */
+  "",				/* 147 = drum 19 */
+  "",				/* 148 = drum 20 */
+  "",				/* 149 = drum 21 */
+  "",				/* 150 = drum 22 */
+  "",				/* 151 = drum 23 */
+  "",				/* 152 = drum 24 */
+  "",				/* 153 = drum 25 */
+  "",				/* 154 = drum 26 */
+  "highq",			/* 155 = drum 27 */
+  "slap",			/* 156 = drum 28 */
+  "scratch1",			/* 157 = drum 29 */
+  "scratch2",			/* 158 = drum 30 */
+  "sticks",			/* 159 = drum 31 */
+  "sqrclick",			/* 160 = drum 32 */
+  "metclick",			/* 161 = drum 33 */
+  "metbell",			/* 162 = drum 34 */
+  "kick1",			/* 163 = drum 35 */
+  "kick2",			/* 164 = drum 36 */
+  "stickrim",			/* 165 = drum 37 */
+  "snare1",			/* 166 = drum 38 */
+  "claps",			/* 167 = drum 39 */
+  "snare2",			/* 168 = drum 40 */
+  "tomlo2",			/* 169 = drum 41 */
+  "hihatcl",			/* 170 = drum 42 */
+  "tomlo1",			/* 171 = drum 43 */
+  "hihatpd",			/* 172 = drum 44 */
+  "tommid2",			/* 173 = drum 45 */
+  "hihatop",			/* 174 = drum 46 */
+  "tommid1",			/* 175 = drum 47 */
+  "tomhi2",			/* 176 = drum 48 */
+  "cymcrsh1",			/* 177 = drum 49 */
+  "tomhi1",			/* 178 = drum 50 */
+  "cymride1",			/* 179 = drum 51 */
+  "cymchina",			/* 180 = drum 52 */
+  "cymbell",			/* 181 = drum 53 */
+  "tamborin",			/* 182 = drum 54 */
+  "cymsplsh",			/* 183 = drum 55 */
+  "cowbell",			/* 184 = drum 56 */
+  "cymcrsh2",			/* 185 = drum 57 */
+  "vibslap",			/* 186 = drum 58 */
+  "cymride2",			/* 187 = drum 59 */
+  "bongohi",			/* 188 = drum 60 */
+  "bongolo",			/* 189 = drum 61 */
+  "congahi1",			/* 190 = drum 62 */
+  "congahi2",			/* 191 = drum 63 */
+  "congalo",			/* 192 = drum 64 */
+  "timbaleh",			/* 193 = drum 65 */
+  "timbalel",			/* 194 = drum 66 */
+  "agogohi",			/* 195 = drum 67 */
+  "agogolo",			/* 196 = drum 68 */
+  "cabasa",			/* 197 = drum 69 */
+  "maracas",			/* 198 = drum 70 */
+  "whistle1",			/* 199 = drum 71 */
+  "whistle2",			/* 200 = drum 72 */
+  "guiro1",			/* 201 = drum 73 */
+  "guiro2",			/* 202 = drum 74 */
+  "clave",			/* 203 = drum 75 */
+  "woodblk1",			/* 204 = drum 76 */
+  "woodblk2",			/* 205 = drum 77 */
+  "cuica1",			/* 206 = drum 78 */
+  "cuica2",			/* 207 = drum 79 */
+  "triangl1",			/* 208 = drum 80 */
+  "triangl2",			/* 209 = drum 81 */
+  "shaker",			/* 210 = drum 82 */
+  "jingles",			/* 211 = drum 83 */
+  "belltree",			/* 212 = drum 84 */
+  "castinet",			/* 213 = drum 85 */
+  "surdo1",			/* 214 = drum 86 */
+  "surdo2",			/* 215 = drum 87 */
+  "",				/* 216 = drum 88 */
+  "",				/* 217 = drum 89 */
+  "",				/* 218 = drum 90 */
+  "",				/* 219 = drum 91 */
+  "",				/* 220 = drum 92 */
+  "",				/* 221 = drum 93 */
+  "",				/* 222 = drum 94 */
+  "",				/* 223 = drum 95 */
+  "",				/* 224 = drum 96 */
+  "",				/* 225 = drum 97 */
+  "",				/* 226 = drum 98 */
+  "",				/* 227 = drum 99 */
+  "",				/* 228 = drum 100 */
+  "",				/* 229 = drum 101 */
+  "",				/* 230 = drum 102 */
+  "",				/* 231 = drum 103 */
+  "",				/* 232 = drum 104 */
+  "",				/* 233 = drum 105 */
+  "",				/* 234 = drum 106 */
+  "",				/* 235 = drum 107 */
+  "",				/* 236 = drum 108 */
+  "",				/* 237 = drum 109 */
+  "",				/* 238 = drum 110 */
+  "",				/* 239 = drum 111 */
+  "",				/* 240 = drum 112 */
+  "",				/* 241 = drum 113 */
+  "",				/* 242 = drum 114 */
+  "",				/* 243 = drum 115 */
+  "",				/* 244 = drum 116 */
+  "",				/* 245 = drum 117 */
+  "",				/* 246 = drum 118 */
+  "",				/* 247 = drum 119 */
+  "",				/* 248 = drum 120 */
+  "",				/* 249 = drum 121 */
+  "",				/* 250 = drum 122 */
+  "",				/* 251 = drum 123 */
+  "",				/* 252 = drum 124 */
+  "",				/* 253 = drum 125 */
+  "",				/* 254 = drum 126 */
+  ""				/* 255 = drum 127 */
+};
diff --git a/lib/libOSSlib/libmain.c b/lib/libOSSlib/libmain.c
new file mode 100644
index 0000000..d295874
--- /dev/null
+++ b/lib/libOSSlib/libmain.c
@@ -0,0 +1,200 @@
+#include <unistd.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <fcntl.h>
+#include <sys/ioctl.h>
+
+#define OSSLIB
+#include "../../include/soundcard.h"
+
+int __seqfd = -1;
+static int initialized = 0;
+
+extern void _dump_midi (void);	/* From play_event.c */
+
+unsigned char *_seqbuf;
+int _seqbuflen = 0;
+int _seqbufptr = 0;
+
+int synth_types[64] = { 0 };
+
+#define ST_NONE		0
+#define ST_GUS		1
+#define ST_OPL		2
+
+int nrsynths = 0;
+
+extern void play_event (unsigned char *ev);
+
+void
+seqbuf_dump (void)
+{
+  int l = _seqbufptr;
+
+  unsigned char *ev = _seqbuf;
+
+  while (l >= 8)
+    {
+      play_event (ev);
+      l -= 8;
+      ev += 8;
+    }
+
+  _seqbufptr = 0;
+  _dump_midi ();
+}
+
+static int
+oss_init_lib (void)
+{
+  if (_seqbuflen < 32 || _seqbuflen > 2048)
+    _seqbuflen = 2048;
+
+  if ((_seqbuf = malloc (_seqbuflen)) == NULL)
+    return 3;
+
+  initialized = 1;
+  return 0;			/* OK */
+}
+
+int
+OSS_init (int userfd, int buflen)
+{
+  if (_seqbuflen || _seqbuflen || __seqfd != -1 || initialized)
+    {
+      fprintf (stderr, "libOSS: OSS_init called too late\n");
+      return 1;
+    }
+
+  __seqfd = userfd;
+
+  if (buflen < 32 || buflen > 2048)
+    {
+      fprintf (stderr, "libOSS: OSS_init called with invalid buflen\n");
+      return 2;
+    }
+
+  _seqbuflen = buflen;
+
+  return oss_init_lib ();
+}
+
+static void
+sanity_check (int fd, unsigned char *buf, int buflen)
+{
+  if (__seqfd != fd)
+    if (__seqfd == -1)
+      __seqfd = fd;
+    else
+      {
+	fprintf (stderr, "OSSlib: seqfd is inconsistent\n");
+      }
+
+  if (buf != _seqbuf)
+    {
+      fprintf (stderr, "OSSlib: _seqbuf is inconsistent\n");
+    }
+
+  if (buflen != _seqbuflen)
+    {
+      fprintf (stderr, "OSSlib: _seqbuf is inconsistent\n");
+    }
+
+  if (!initialized)
+    if (oss_init_lib () != 0)
+      {
+	fprintf (stderr, "OSSlib: Library initialization failed\n");
+	exit (-1);
+      }
+}
+
+void
+OSS_seqbuf_dump (int fd, unsigned char *buf, int buflen)
+{
+  seqbuf_dump ();
+}
+
+void
+OSS_seq_advbuf (int len, int fd, unsigned char *buf, int buflen)
+{
+  sanity_check (fd, buf, buflen);
+  _seqbufptr += len;
+}
+
+void
+OSS_seq_needbuf (int len, int fd, unsigned char *buf, int buflen)
+{
+  sanity_check (fd, buf, buflen);
+
+  if ((_seqbufptr + len) > _seqbuflen)
+    {
+      seqbuf_dump ();
+    }
+}
+
+void
+OSS_patch_caching (int dev, int chn, int patch, int fd, unsigned char *buf,
+		   int buflen)
+{
+}
+
+void
+OSS_drum_caching (int dev, int chn, int patch, int fd, unsigned char *buf,
+		  int buflen)
+{
+}
+
+void
+OSS_write_patch (int fd, unsigned char *buf, int len)
+{
+  sanity_check (fd, _seqbuf, _seqbuflen);
+
+  if (write (fd, buf, len) == -1)
+    {
+      perror ("OSS_write_patch");
+      exit (-1);
+    }
+}
+
+int
+OSS_write_patch2 (int fd, unsigned char *buf, int len)
+{
+  sanity_check (fd, _seqbuf, _seqbuflen);
+
+  return write (fd, buf, len);
+}
+
+/*
+ * audio routines
+ */
+
+int
+osslib_open (const char *path, int flags, int dummy)
+{
+  return open (path, flags, dummy);
+}
+
+void
+osslib_close (int fd)
+{
+  close (fd);
+}
+
+int
+osslib_write (int fd, const void *buf, int count)
+{
+  return write (fd, buf, count);
+}
+
+int
+osslib_read (int fd, void *buf, int count)
+{
+  return read (fd, buf, count);
+}
+
+int
+osslib_ioctl (int fd, unsigned int request, void *arg)
+{
+  return ioctl (fd, request, arg);
+}
diff --git a/lib/libOSSlib/midiparser.c b/lib/libOSSlib/midiparser.c
new file mode 100644
index 0000000..742e8f5
--- /dev/null
+++ b/lib/libOSSlib/midiparser.c
@@ -0,0 +1,401 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include "../../include/soundcard.h"
+#include "midiparser.h"
+
+struct _mtc_state
+{
+  int prev_ix;
+  int state;
+  int offset;
+  oss_mtc_data_t mtc, mtc0;
+};
+
+typedef struct midi_input_info
+{				/* MIDI input scanner variables */
+#define MI_MAX	64
+  int m_busy;
+  unsigned char m_buf[MI_MAX];
+  unsigned char m_prev_status;	/* For running status */
+  int m_ptr;
+#define MST_INIT			0
+#define MST_DATA			1
+#define MST_SYSEX			2
+  int m_state;
+  int m_left;
+  int m_f1_flag;
+} midi_input_info_t;
+
+struct midiparser_common
+{
+  midi_input_info_t inc;
+  midiparser_callback_t callback;
+  midiparser_mtc_callback_t mtc_callback;
+  void *client_context;
+  struct _mtc_state mtc_state;
+};
+
+#define DBG(x) {}
+
+#define CALLBACK(cat, msg, ch, p1, p2, p3) \
+	{ \
+		unsigned char arr[3];arr[0]=p1;arr[1]=p2;arr[2]=p3; \
+		synth->callback(synth->client_context, cat, msg, ch, arr, 3); \
+	}
+#define CALLBACK_A(cat, msg, ch, parms, len) \
+	synth->callback(synth->client_context, cat, msg, ch, parms, len)
+
+void
+do_system_msg (midiparser_common_p synth, unsigned char *msg, int mlen)
+{
+  DBG (printf ("System msg %02x, %02x (%d)\n", msg[0], msg[1], mlen));
+  CALLBACK_A (CAT_REALTIME, *msg, 0, msg, mlen);
+  return;
+}
+
+static void
+do_sysex_msg (midiparser_common_p synth, unsigned char *msg, int mlen)
+{
+  CALLBACK_A (CAT_SYSEX, 0, 0, msg, mlen);
+  return;
+}
+
+static void
+do_realtime_msg (midiparser_common_p synth, unsigned char data)
+{
+}
+
+void
+do_midi_msg (midiparser_common_p synth, unsigned char *msg, int mlen)
+{
+  switch (msg[0] & 0xf0)
+    {
+    case 0x90:
+      if (msg[2] != 0)
+	{
+	  CALLBACK (CAT_VOICE, 0x90, msg[0] & 0x0f, msg[1], msg[2], 0);
+	  break;
+	}
+      msg[2] = 64;
+
+    case 0x80:
+      CALLBACK (CAT_VOICE, 0x80, msg[0] & 0x0f, msg[1], msg[2], 0);
+      break;
+
+    case 0xA0:
+      CALLBACK (CAT_VOICE, 0xA0, msg[0] & 0x0f, msg[1], msg[2], 0);
+      break;
+
+    case 0xB0:
+      CALLBACK (CAT_CHN, 0xB0, msg[0] & 0x0f, msg[1], msg[2], 0);
+      break;
+
+    case 0xC0:
+      CALLBACK (CAT_CHN, 0xC0, msg[0] & 0x0f, msg[1], 0, 0);
+      break;
+
+    case 0xD0:
+      CALLBACK (CAT_CHN, 0xD0, msg[0] & 0x0f, msg[1], 0, 0);
+      break;
+
+    case 0xE0:
+      CALLBACK (CAT_VOICE, 0xE0, msg[0] & 0x0f, msg[1], msg[2], 0);
+      break;
+
+    case 0xf0:			/* System common messages */
+      do_system_msg (synth, msg, mlen);
+      break;
+
+    default:
+      ;
+    }
+}
+
+static void
+send_mtc (midiparser_common_p synth, struct _mtc_state *st)
+{
+  oss_mtc_data_t mtc;
+
+  memcpy (&mtc, &st->mtc, sizeof (mtc));
+
+  mtc.qframes += st->offset;
+  mtc.frames += mtc.qframes / 4;
+  mtc.qframes %= 4;
+
+  if (mtc.time_code_type == 0)
+    mtc.time_code_type = 30;
+  mtc.seconds += mtc.frames / mtc.time_code_type;	/* TODO: Handle drop frames */
+  mtc.frames %= mtc.time_code_type;
+
+  mtc.minutes += mtc.seconds / 60;
+  mtc.seconds %= 60;
+
+  mtc.hours += mtc.minutes / 60;
+  mtc.minutes %= 60;
+
+#if 0
+  printf ("%2d:%02d:%02d %02d.%d %2dFPS\n",
+	  mtc.hours, mtc.minutes,
+	  mtc.seconds, mtc.frames, mtc.qframes, mtc.time_code_type);
+#endif
+
+  synth->mtc_callback (synth->client_context, &mtc);
+}
+
+void
+mtc_message (midiparser_common_p synth, struct _mtc_state *st,
+	     unsigned char b)
+{
+  static char frame_types[4] = { 24, 25, 29, 30 };
+  int ix, data;
+  int previx;
+
+  ix = b >> 4;
+  data = b & 0x0f;
+
+  previx = (st->prev_ix + 1) % 8;
+
+  if (ix == previx)
+    st->mtc0.direction = st->mtc.direction = MTC_DIR_FORWARD;
+  else if (ix == st->prev_ix)
+    st->mtc0.direction = st->mtc.direction = MTC_DIR_STOPPED;
+  else
+    st->mtc0.direction = st->mtc.direction = MTC_DIR_BACKWARD;
+  st->prev_ix = ix;
+
+  if (st->state == 0)
+    {
+      if (ix != 0)		/* Not the beginning of the sequence yet */
+	return;
+      st->state = 1;
+      st->offset = -1;
+    }
+
+  switch (ix)
+    {
+    case 0:			/* Frame count LS nibble */
+      st->mtc0.qframes = 0;
+      st->mtc0.frames = data;
+      break;
+
+    case 1:			/* Frame count MS nibble */
+      st->mtc0.frames |= data << 4;
+      break;
+
+    case 2:			/* Seconds count LS nibble */
+      st->mtc0.seconds = data;
+      break;
+
+    case 3:			/* Seconds count MS nibble */
+      st->mtc0.seconds |= data << 4;
+      break;
+
+    case 4:			/* Minutes count LS nibble */
+      st->mtc0.minutes = data;
+      break;
+
+    case 5:			/* Minutes count MS nibble */
+      st->mtc0.minutes |= data << 4;
+      break;
+
+    case 6:			/* Hours count LS nibble */
+      st->mtc0.hours = data;
+      break;
+
+    case 7:			/* Hours count MS nibble */
+      st->mtc0.hours |= data << 4;
+      st->mtc0.time_code_type = frame_types[(st->mtc0.hours >> 5) & 0x03];
+      st->mtc0.hours &= 0x1f;
+      memcpy (&st->mtc, &st->mtc0, sizeof (st->mtc));
+      break;
+    }
+
+  if (ix == 7)
+    st->offset = 7;
+  else
+    st->offset++;
+  send_mtc (synth, st);
+}
+
+static void
+handle_midi_input (midiparser_common_p synth, midi_input_info_t * inc,
+		   unsigned char data)
+{
+  extern int seq_actsense_enable;
+  extern int seq_rt_enable;
+
+  static unsigned char len_tab[] =	/* # of data bytes following a status
+					 */
+  {
+    2,				/* 8x */
+    2,				/* 9x */
+    2,				/* Ax */
+    2,				/* Bx */
+    1,				/* Cx */
+    1,				/* Dx */
+    2,				/* Ex */
+    0				/* Fx */
+  };
+  /* printf("%02x (%d) ", data, inc->m_state); */
+
+  if (data == 0xfe)		/* Active sensing */
+    {
+      return;
+    }
+
+  if (data >= 0xf8)		/* Real time message */
+    {
+      do_realtime_msg (synth, data);
+      CALLBACK (CAT_REALTIME, data, 0, 0, 0, 0);
+      return;
+    }
+
+  if (data == 0xf1)		/* MTC quarter frame (1st byte) */
+    {
+      inc->m_f1_flag = 1;
+      return;
+    }
+
+  if (inc->m_f1_flag)		/* MTC quarter frame (2nd byte) */
+    {
+      inc->m_f1_flag = 0;
+
+      if (synth->mtc_callback != NULL)
+	{
+	  mtc_message (synth, &synth->mtc_state, data);
+	  return;
+	}
+      CALLBACK (CAT_MTC, 0xf1, 0, data, 0, 0);
+      return;
+    }
+
+  switch (inc->m_state)
+    {
+    case MST_INIT:
+      if (data & 0x80)		/* MIDI status byte */
+	{
+	  if ((data & 0xf0) == 0xf0)	/* Common message */
+	    {
+	      switch (data)
+		{
+		case 0xf0:	/* Sysex */
+		  inc->m_state = MST_SYSEX;
+		  inc->m_ptr = 1;
+		  inc->m_left = MI_MAX;
+		  inc->m_buf[0] = data;
+		  break;	/* Sysex */
+
+		case 0xf1:	/* MTC quarter frame */
+		case 0xf3:	/* Song select */
+		  inc->m_state = MST_DATA;
+		  inc->m_ptr = 1;
+		  inc->m_left = 1;
+		  inc->m_buf[0] = data;
+		  break;
+
+		case 0xf2:	/* Song position pointer */
+		  inc->m_state = MST_DATA;
+		  inc->m_ptr = 1;
+		  inc->m_left = 2;
+		  inc->m_buf[0] = data;
+		  break;
+
+		default:	/* Other common messages */
+		  inc->m_buf[0] = data;
+		  inc->m_ptr = 1;
+		  do_midi_msg (synth, inc->m_buf, inc->m_ptr);
+		  inc->m_ptr = 0;
+		  inc->m_left = 0;
+		}
+	    }
+	  else
+	    {
+	      /* Channel messages */
+	      inc->m_state = MST_DATA;
+	      inc->m_ptr = 1;
+	      inc->m_left = len_tab[(data >> 4) - 8];
+	      inc->m_buf[0] = inc->m_prev_status = data;
+	    }
+	}
+      else /* Running status */ if (inc->m_prev_status & 0x80)	/* Ignore if no previous status (yet) */
+	{
+	  inc->m_state = MST_DATA;
+	  inc->m_ptr = 2;
+	  inc->m_left = len_tab[(inc->m_prev_status >> 4) - 8] - 1;
+	  inc->m_buf[0] = inc->m_prev_status;
+	  inc->m_buf[1] = data;
+	}
+      break;			/* MST_INIT */
+
+    case MST_DATA:
+      inc->m_buf[inc->m_ptr++] = data;
+      if (--inc->m_left <= 0)
+	{
+	  inc->m_state = MST_INIT;
+	  do_midi_msg (synth, inc->m_buf, inc->m_ptr);
+	  inc->m_ptr = 0;
+	}
+      break;			/* MST_DATA */
+
+    case MST_SYSEX:
+      inc->m_buf[inc->m_ptr++] = data;
+      if (data == 0xf7)		/* Sysex end */
+	{
+	  do_sysex_msg (synth, inc->m_buf, inc->m_ptr);
+	  inc->m_state = MST_INIT;
+	  inc->m_left = 0;
+	  inc->m_ptr = 0;
+
+	}
+      else if (inc->m_ptr >= MI_MAX)	/* Overflow protection */
+	{
+	  do_sysex_msg (synth, inc->m_buf, inc->m_ptr);
+	  inc->m_ptr = 0;
+	}
+
+      break;			/* MST_SYSEX */
+
+    default:
+      inc->m_state = MST_INIT;
+    }
+}
+
+midiparser_common_p
+midiparser_create (midiparser_callback_t callback, void *context)
+{
+  midiparser_common_p synth;
+
+  if ((synth = malloc (sizeof (*synth))) == NULL)
+    return NULL;
+
+  memset (synth, 0, sizeof (*synth));
+
+  synth->callback = callback;
+  synth->client_context = context;
+  synth->mtc_state.prev_ix = -1;
+
+  return synth;
+}
+
+void
+midiparser_mtc_callback (midiparser_common_p common,
+			 midiparser_mtc_callback_t callback)
+{
+  common->mtc_callback = callback;
+}
+
+void
+midiparser_input (midiparser_common_p synth, unsigned char data)
+{
+  handle_midi_input (synth, &synth->inc, data);
+}
+
+void
+midiparser_input_buf (midiparser_common_p synth, unsigned char *data, int len)
+{
+  int i;
+
+  for (i = 0; i < len; i++)
+    handle_midi_input (synth, &synth->inc, data[i]);
+}
diff --git a/lib/libOSSlib/midiparser.h b/lib/libOSSlib/midiparser.h
new file mode 100644
index 0000000..20aac3a
--- /dev/null
+++ b/lib/libOSSlib/midiparser.h
@@ -0,0 +1 @@
+#include "../../kernel/framework/include/midiparser.h"
diff --git a/lib/libOSSlib/play_event.c b/lib/libOSSlib/play_event.c
new file mode 100644
index 0000000..62687ef
--- /dev/null
+++ b/lib/libOSSlib/play_event.c
@@ -0,0 +1,273 @@
+#include <unistd.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <fcntl.h>
+#include "../../include/soundcard.h"
+#include <sys/time.h>
+
+#undef  DEBUG
+
+extern int __seqfd;
+
+static midi_packet_t midi_packet;
+
+static unsigned char *midibuf = &midi_packet.payload[0];
+static int mp = 0;
+
+oss_midi_time_t current_tick = 0;
+
+static int timer_started = 0;
+
+void
+OSS_set_timebase (int tb)
+{
+/* TODO? */
+}
+
+#if 1
+#define _write write
+#else
+static size_t
+_write (int fildes, void *b, size_t nbyte)
+{
+  midi_packet_header_t *hdr = b;
+  unsigned char *buf;
+  int l = nbyte;
+
+
+  buf = (unsigned char *) b + sizeof (*hdr);
+
+  if (hdr->magic == MIDI_HDR_MAGIC)	/* Timed mode write */
+    {
+      l -= sizeof (*hdr);
+
+      switch (hdr->event_type)
+	{
+	case MIDI_EV_WRITE:
+	  printf ("%9lu: MIDI_EV_WRITE: ", hdr->time);
+	  break;
+	case MIDI_EV_TEMPO:
+	  printf ("%9lu: MIDI_EV_TEMPO: ", hdr->time);
+	  break;
+	case MIDI_EV_ECHO:
+	  printf ("%9lu: MIDI_EV_ECHO: ", hdr->time);
+	  break;
+	case MIDI_EV_START:
+	  printf ("%9lu: MIDI_EV_START: ", hdr->time);
+	  break;
+	case MIDI_EV_STOP:
+	  printf ("%9lu: MIDI_EV_STOP: ", hdr->time);
+	  break;
+	default:
+	  printf ("%9lu: MIDI_EV_%d: ", hdr->time, hdr->event_type);
+	  break;
+	}
+
+      if (hdr->options & MIDI_OPT_TIMED)
+	printf ("TIMED ");
+
+      if (l > 0)
+	{
+	  int i;
+
+	  printf ("%d bytes (", l);
+
+	  for (i = 0; i < l; i++)
+	    printf ("%02x ", buf[i]);
+	  printf (")");
+	}
+
+      printf ("\n");
+    }
+
+  return write (fildes, b, nbyte);
+}
+#endif
+
+static void
+start_timer (void)
+{
+#ifndef DEBUG
+  midi_packet_header_t hdr;
+
+  hdr.magic = MIDI_HDR_MAGIC;
+  hdr.event_type = MIDI_EV_START;
+  hdr.options = MIDI_OPT_NONE;
+  hdr.time = 0;
+  hdr.parm = 0;
+  if (_write (__seqfd, &hdr, sizeof (hdr)) != sizeof (hdr))
+    {
+      perror ("Write start timer");
+      exit (-1);
+    }
+
+  timer_started = 1;
+  printf ("Timer started\n");
+#endif
+}
+
+void
+_dump_midi (void)
+{
+  if (mp > 0)
+    {
+      if (!timer_started)
+	start_timer ();
+      midi_packet.hdr.magic = MIDI_HDR_MAGIC;
+      midi_packet.hdr.options = MIDI_OPT_TIMED;
+      midi_packet.hdr.event_type = MIDI_EV_WRITE;
+      midi_packet.hdr.parm = 0;
+      midi_packet.hdr.time = current_tick;
+
+#ifdef DEBUG
+      if (write (1, &midi_packet.payload[0], mp) == -1)
+#else
+      if (_write (__seqfd, &midi_packet, sizeof (midi_packet_header_t) + mp)
+	  == -1)
+#endif
+	{
+	  perror ("MIDI write");
+	  exit (-1);
+	}
+      mp = 0;
+    }
+}
+
+static void
+oss_do_timing (unsigned char *ev)
+{
+  unsigned int parm = *(unsigned int *) &ev[4];
+  midi_packet_header_t hdr;
+
+  oss_midi_time_t tick;
+
+  _dump_midi ();
+
+  switch (ev[1])
+    {
+    case TMR_TEMPO:
+#ifndef DEBUG
+      if (!timer_started)
+	start_timer ();
+      hdr.magic = MIDI_HDR_MAGIC;
+      hdr.event_type = MIDI_EV_TEMPO;
+      hdr.options = MIDI_OPT_TIMED;
+      hdr.time = current_tick;
+      hdr.parm = parm;
+      if (_write (__seqfd, &hdr, sizeof (hdr)) != sizeof (hdr))
+	{
+	  perror ("Write tempo");
+	  exit (-1);
+	}
+#endif
+      break;
+
+    case TMR_WAIT_REL:
+      tick = current_tick + parm;
+
+      current_tick = tick;
+      break;
+
+    case TMR_WAIT_ABS:
+      tick = parm;
+      current_tick = tick;
+      break;
+    }
+
+}
+
+static void
+out_midi3 (unsigned char a, unsigned char b, unsigned char c)
+{
+  if (mp > 950)
+    _dump_midi ();
+  midibuf[mp++] = a;
+  midibuf[mp++] = b;
+  midibuf[mp++] = c;
+/* printf("Out %02x %02x %02x\n", a, b, c); */
+}
+
+static void
+out_midi2 (unsigned char a, unsigned char b)
+{
+  if (mp > 950)
+    _dump_midi ();
+  midibuf[mp++] = a;
+  midibuf[mp++] = b;
+/* printf("Out %02x %02x\n", a, b); */
+}
+
+void
+play_event (unsigned char *ev)
+{
+  int i;
+
+  switch (ev[0])
+    {
+    case EV_TIMING:
+      oss_do_timing (ev);
+      return;
+      break;
+
+    case EV_SEQ_LOCAL:
+      break;
+
+    case EV_CHN_COMMON:
+      switch (ev[2])
+	{
+	case MIDI_PGM_CHANGE:
+	  /* printf("PGM change %02x %d\n", ev[2]|ev[3], ev[4]); */
+	  out_midi2 (ev[2] | ev[3], ev[4]);
+	  break;
+
+	case MIDI_CHN_PRESSURE:
+	  out_midi2 (ev[2] | ev[3], ev[4]);
+	  break;
+
+	case MIDI_CTL_CHANGE:
+	  out_midi3 (ev[2] | ev[3], ev[4], *(short *) &ev[6]);
+	  break;
+
+	default:
+	  out_midi3 (ev[2] | ev[3], ev[4], *(short *) &ev[6]);
+	}
+      return;
+      break;
+
+    case EV_CHN_VOICE:
+      out_midi3 (ev[2] | ev[3], ev[4], ev[5]);
+      return;
+      break;
+
+    case EV_SYSEX:
+      {
+	int i, l;
+	l = 8;
+	for (i = 2; i < 8; i++)
+	  if (ev[i] == 0xff)
+	    {
+	      l = i;
+	      break;
+	    }
+	if (mp > 950)
+	  _dump_midi ();
+	for (i = 2; i < l; i++)
+	  midibuf[mp++] = ev[i];
+      }
+      return;
+      break;
+
+    case EV_SYSTEM:
+      printf ("EV_SYSTEM: ");
+      break;
+
+    default:
+      printf ("Unknown event %d: ", ev[0]);
+
+    }
+
+  for (i = 0; i < 8; i++)
+    printf ("%02x ", ev[i]);
+  printf ("\n");
+}