1 files changed, 136 insertions, 0 deletions
diff --git a/midicsv-1.1/midio.c b/midicsv-1.1/midio.c
new file mode 100644
index 0000000..b5d9f08
--- /dev/null
+++ b/midicsv-1.1/midio.c
@@ -0,0 +1,136 @@
+/*
+
+		   MIDI File Input/Output Utilities
+
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include "types.h"
+#include "midifile.h"
+#include "midio.h"
+
+/*  Low level input functions.	*/
+
+/*  READLONG  --  Read long from a file (byte-order independent)  */
+
+long readlong(FILE *fp)
+{
+    unsigned char c[4];
+
+    fread((char *) c, 1, sizeof c, fp);
+    return (long) ((c[0] << 24) | (c[1] << 16) | (c[2] << 8) | c[3]);
+}
+
+/*  READSHORT  --  Read short from a file (byte-order independent)  */
+
+short readshort(FILE *fp)
+{
+    unsigned char c[2];
+
+    fread((char *) c, 1, sizeof c, fp);
+    return (short) ((c[0] << 8) | c[1]);
+}
+
+/*  READVARLEN	--  Parse variable length value from MIDI file	*/
+
+vlint readVarLen(FILE *fp)
+{
+    long value;
+    int ch;
+
+    if ((value = getc(fp)) & 0x80) {
+	value &= 0x7F;
+	do {
+	    value = (value << 7) | ((ch = getc(fp)) & 0x7F);
+	} while (ch & 0x80);
+    }
+    return value;
+}
+
+/*  High level input functions.  */
+
+/*  READMIDIFILEHEADER	--  Read file header structure.  */
+
+void readMidiFileHeader(FILE *fp, struct mhead *h)
+{
+    fread(h->chunktype, sizeof h->chunktype, 1, fp);
+    h->length = readlong(fp);
+    h->format = readshort(fp);
+    h->ntrks = readshort(fp);
+    h->division = readshort(fp);
+}
+
+/*  READMIDITRACKHEADER  --  Read track header structure.  */
+
+void readMidiTrackHeader(FILE *fp, struct mtrack *t)
+{
+    fread(t->chunktype, sizeof t->chunktype, 1, fp);
+    t->length = readlong(fp);
+}
+
+/*  Low level output functions.  */
+
+/*  WRITELONG  --  Write a long to a file in big-endian order  */
+
+void writelong(FILE *fp, const long l)
+{
+    putc((l >> 24) & 0xFF, fp);
+    putc((l >> 16) & 0xFF, fp);
+    putc((l >> 8) & 0xFF, fp);
+    putc(l & 0xFF, fp);
+}
+
+/*  WRITESHORT	--  Write a short to a file in big-endian order  */
+
+void writeshort(FILE *fp, const short s)
+{
+    putc((s >> 8) & 0xFF, fp);
+    putc(s & 0xFF, fp);
+}
+
+/*  WRITEVARLEN  --  Write variable length value to MIDI file  */
+
+void writeVarLen(FILE *fp, const vlint v)
+{
+    vlint value = v;
+    long buffer;
+
+    buffer = value & 0x7F;
+    while ((value >>= 7) > 0) {
+	buffer <<= 8;
+	buffer |= 0x80;
+	buffer += (value & 0x7F);
+    }
+
+    while (1) {
+	putc((int) (buffer & 0xFF), fp);
+	if (buffer & 0x80) {
+	    buffer >>= 8;
+	} else {
+	    break;
+	}
+    }
+}
+
+/*  High level output functions.  */
+
+/*  WRITEMIDIFILEHEADER  --  Write file header structure.  */
+
+void writeMidiFileHeader(FILE *fp, struct mhead *h)
+{
+    fwrite(h->chunktype, sizeof h->chunktype, 1, fp);
+    writelong(fp, h->length);
+    writeshort(fp, h->format);
+    writeshort(fp, h->ntrks);
+    writeshort(fp, h->division);
+}
+
+/*  WRITEMIDITRACKHEADER  --  Write track header structure.  */
+
+void writeMidiTrackHeader(FILE *fp, struct mtrack *t)
+{
+    fwrite(t->chunktype, sizeof t->chunktype, 1, fp);
+    writelong(fp, t->length);
+}