code: purgatorio

ref: 42dfac6916ebbdac65cbec8b3e1a80c3ee41423c
dir: /module/riff.m/

#
# Microsoft Resource Interchange File Format
# with AVI support
#
Riff: module
{
	PATH:	con "/dis/lib/riff.dis";

	DEFBUF:		con 8192;

	BI_RGB:		con 0;
	BI_RLE8:	con 1;
	BI_RLE4:	con 2;
	BI_BITFEILD:	con 3;

	RGB: adt
	{
		r:	int;
		g:	int;
		b:	int;
	};

	Binfosize:	con 10*4;
	Bitmapinfo: adt		# Windows bitmap info structure
	{
		width:		int;		# width in pixels
		height:		int;		# height in pixels
		planes:		int;		# planes of output device (must be 1)
		bitcount:	int;		# bits per pixel
		compression:	int;		# coding BI_RGB... or IV32 for indeo
		sizeimage:	int;		# size in bytes of image
		xpelpermeter:	int;		# resolution in pixels per meter
		ypelpermeter:	int;
		clrused:	int;		# colors used
		clrimportant:	int;		# how fixed is the map

		cmap:		array of RGB;	# color map
	};

	AVImainhdr:	con 14*4;
	AVIhdr: adt
	{
		usecperframe:	int;
		bytesec:	int;
		flag:		int;
		frames:		int;
		initframes:	int;
		streams:	int;
		bufsize:	int;
		width:		int;
		height:		int;
	};

	AVIstreamhdr:	con 2*4 + 10*4;
	AVIstream: adt
	{
		# Stream Header information
		stype:		string;
		handler:	string;
		flags:		int;
		priority:	int;
		initframes:	int;
		scale:		int;
		rate:		int;
		start:		int;
		length:		int;
		bufsize:	int;
		quality:	int;
		samplesz:	int;

		# Stream Format information (decoder specific)
		fmt:		array of byte;
		binfo:		ref Bitmapinfo;

		fmt2binfo:	fn(a: self ref AVIstream): string;
	};

	# Riff descriptor
	RD: adt
	{
		fd:	ref sys->FD;		# descriptor of RIFF file
		buf:	array of byte;		# buffer
		nbyte:	int;			# bytes remaining
		ptr:	int;			# buffer pointer

		gethdr:		fn(r: self ref RD): (string, int);
		readn:		fn(r: self ref RD, b: array of byte, l: int): int;
		check4:		fn(r: self ref RD, code: string): string;
		avihdr:		fn(r: self ref RD): (ref AVIhdr, string);
		streaminfo:	fn(r: self ref RD): (ref AVIstream, string);
		skip:		fn(r: self ref RD, size: int): int;
	};

	init:	fn();
	open:	fn(file: string): (ref RD, string);
};