X-Git-Url: http://git.mutantstargoat.com/user/nuclear/?p=dosdemo;a=blobdiff_plain;f=libs%2Foldmik%2Fsrc%2Fmmio.c;fp=libs%2Foldmik%2Fsrc%2Fmmio.c;h=1cedb8fe766cfecf9ea372d9e0b32b1871db7d0f;hp=0000000000000000000000000000000000000000;hb=77db1ca18d5446dcda9e524261399b63c2cd1813;hpb=a714b8c4811627d874934b0a0387b8cb27fc5921

diff --git a/libs/oldmik/src/mmio.c b/libs/oldmik/src/mmio.c
new file mode 100644
index 0000000..1cedb8f
--- /dev/null
+++ b/libs/oldmik/src/mmio.c
@@ -0,0 +1,216 @@
+/*
+
+Name:
+MMIO.C
+
+Description:
+Miscellaneous I/O routines.. used to solve some portability issues
+(like big/little endian machines and word alignment in structures )
+Also includes mikmod's ingenious error handling variable + some much
+used error strings.
+
+Portability:
+All systems - all compilers
+
+*/
+#include <stdio.h>
+#include "mikmod.h"
+
+char *ERROR_ALLOC_STRUCT="Error allocating structure";
+char *ERROR_LOADING_PATTERN="Error loading pattern";
+char *ERROR_LOADING_TRACK="Error loading track";
+char *ERROR_LOADING_HEADER="Error loading header";
+char *ERROR_NOT_A_MODULE="Unknown module format";
+char *ERROR_LOADING_SAMPLEINFO="Error loading sampleinfo";
+char *ERROR_OUT_OF_HANDLES="Out of sample-handles";
+char *ERROR_SAMPLE_TOO_BIG="Sample too big, out of memory";
+
+char *myerr;
+
+static long _mm_iobase=0;
+
+int _mm_fseek(FILE *stream, long offset, int whence)
+{
+	return fseek(stream,
+				 (whence==SEEK_SET) ? offset+_mm_iobase : offset,
+				 whence);
+}
+
+long _mm_ftell(FILE *stream)
+{
+	return ftell(stream)-_mm_iobase;
+}
+
+void _mm_setiobase(long iobase)
+{
+	_mm_iobase=iobase;
+}
+
+void _mm_write_SBYTE(SBYTE data,FILE *fp)
+{
+	fputc(data,fp);
+}
+
+void _mm_write_UBYTE(UBYTE data,FILE *fp)
+{
+	fputc(data,fp);
+}
+
+void _mm_write_M_UWORD(UWORD data,FILE *fp)
+{
+	_mm_write_UBYTE(data>>8,fp);
+	_mm_write_UBYTE(data&0xff,fp);
+}
+
+void _mm_write_I_UWORD(UWORD data,FILE *fp)
+{
+	_mm_write_UBYTE(data&0xff,fp);
+	_mm_write_UBYTE(data>>8,fp);
+}
+
+void _mm_write_M_SWORD(SWORD data,FILE *fp)
+{
+	_mm_write_M_UWORD((UWORD)data,fp);
+}
+
+void _mm_write_I_SWORD(SWORD data,FILE *fp)
+{
+	_mm_write_I_UWORD((UWORD)data,fp);
+}
+
+void _mm_write_M_ULONG(ULONG data,FILE *fp)
+{
+	_mm_write_M_UWORD(data>>16,fp);
+	_mm_write_M_UWORD(data&0xffff,fp);
+}
+
+void _mm_write_I_ULONG(ULONG data,FILE *fp)
+{
+	_mm_write_I_UWORD(data&0xffff,fp);
+	_mm_write_I_UWORD(data>>16,fp);
+}
+
+void _mm_write_M_SLONG(SLONG data,FILE *fp)
+{
+	_mm_write_M_ULONG((ULONG)data,fp);
+}
+
+void _mm_write_I_SLONG(SLONG data,FILE *fp)
+{
+	_mm_write_I_ULONG((ULONG)data,fp);
+}
+
+
+#define DEFINE_MULTIPLE_WRITE_FUNCTION(type_name, type)        \
+void                                                           \
+_mm_write_##type_name##S (type *buffer, int number, FILE *fp)  \
+{                                                              \
+	while(number>0){                                           \
+		_mm_write_##type_name(*(buffer++),fp);	   			   \
+		number--;											   \
+	}														   \
+}
+
+DEFINE_MULTIPLE_WRITE_FUNCTION ( SBYTE,  SBYTE)
+DEFINE_MULTIPLE_WRITE_FUNCTION (UBYTE, UBYTE)
+
+DEFINE_MULTIPLE_WRITE_FUNCTION (M_SWORD,   SWORD)
+DEFINE_MULTIPLE_WRITE_FUNCTION (M_UWORD, UWORD)
+DEFINE_MULTIPLE_WRITE_FUNCTION (I_SWORD,   SWORD)
+DEFINE_MULTIPLE_WRITE_FUNCTION (I_UWORD, UWORD)
+
+DEFINE_MULTIPLE_WRITE_FUNCTION (M_SLONG,   SLONG)
+DEFINE_MULTIPLE_WRITE_FUNCTION (M_ULONG, ULONG)
+DEFINE_MULTIPLE_WRITE_FUNCTION (I_SLONG,   SLONG)
+DEFINE_MULTIPLE_WRITE_FUNCTION (I_ULONG, ULONG)
+
+
+SBYTE _mm_read_SBYTE(FILE *fp)
+{
+	return(fgetc(fp));
+}
+
+UBYTE _mm_read_UBYTE(FILE *fp)
+{
+	return(fgetc(fp));
+}
+
+UWORD _mm_read_M_UWORD(FILE *fp)
+{
+	UWORD result=((UWORD)_mm_read_UBYTE(fp))<<8;
+	result|=_mm_read_UBYTE(fp);
+	return result;
+}
+
+UWORD _mm_read_I_UWORD(FILE *fp)
+{
+	UWORD result=_mm_read_UBYTE(fp);
+	result|=((UWORD)_mm_read_UBYTE(fp))<<8;
+	return result;
+}
+
+SWORD _mm_read_M_SWORD(FILE *fp)
+{
+	return((SWORD)_mm_read_M_UWORD(fp));
+}
+
+SWORD _mm_read_I_SWORD(FILE *fp)
+{
+	return((SWORD)_mm_read_I_UWORD(fp));
+}
+
+ULONG _mm_read_M_ULONG(FILE *fp)
+{
+	ULONG result=((ULONG)_mm_read_M_UWORD(fp))<<16;
+	result|=_mm_read_M_UWORD(fp);
+	return result;
+}
+
+ULONG _mm_read_I_ULONG(FILE *fp)
+{
+	ULONG result=_mm_read_I_UWORD(fp);
+	result|=((ULONG)_mm_read_I_UWORD(fp))<<16;
+	return result;
+}
+
+SLONG _mm_read_M_SLONG(FILE *fp)
+{
+	return((SLONG)_mm_read_M_ULONG(fp));
+}
+
+SLONG _mm_read_I_SLONG(FILE *fp)
+{
+	return((SLONG)_mm_read_I_ULONG(fp));
+}
+
+
+int _mm_read_str(char *buffer,int number,FILE *fp)
+{
+	fread(buffer,1,number,fp);
+	return !feof(fp);
+}
+
+
+#define DEFINE_MULTIPLE_READ_FUNCTION(type_name, type)         \
+int                                                            \
+_mm_read_##type_name##S (type *buffer, int number, FILE *fp)   \
+{                                                              \
+	while(number>0){                                           \
+		*(buffer++)=_mm_read_##type_name(fp);				   \
+		number--;											   \
+	}														   \
+	return !feof(fp);										   \
+}
+
+DEFINE_MULTIPLE_READ_FUNCTION ( SBYTE,  SBYTE)
+DEFINE_MULTIPLE_READ_FUNCTION (UBYTE, UBYTE)
+
+DEFINE_MULTIPLE_READ_FUNCTION (M_SWORD,   SWORD)
+DEFINE_MULTIPLE_READ_FUNCTION (M_UWORD, UWORD)
+DEFINE_MULTIPLE_READ_FUNCTION (I_SWORD,   SWORD)
+DEFINE_MULTIPLE_READ_FUNCTION (I_UWORD, UWORD)
+
+DEFINE_MULTIPLE_READ_FUNCTION (M_SLONG,   SLONG)
+DEFINE_MULTIPLE_READ_FUNCTION (M_ULONG, ULONG)
+DEFINE_MULTIPLE_READ_FUNCTION (I_SLONG,   SLONG)
+DEFINE_MULTIPLE_READ_FUNCTION (I_ULONG, ULONG)