code: purgatorio

ref: 0ec1cfd78b495e9be40e4aa24e35b2aa5d5e5704
dir: /module/quicktime.m/

#
# Apple QuickTime File Format
#
QuickTime: module
{
	PATH:	con "/dis/lib/quicktime.dis";

	DEFBUF:		con 8192;

	AtomHDR:	con 8;

	Tkhdr: adt
	{
		version:	int;
		creation:	int;
		modtime:	int;
		trackid:	int;
		timescale:	int;
		duration:	int;
		timeoff:	int;
		priority:	int;
		layer:		int;
		altgrp:		int;
		volume:		int;
		matrix:		array of int;
		width:		int;
		height:		int;
	};

	MvhdrSIZE:	con 100;
	Mvhdr: adt
	{
		version:	int;
		create:		int;
		modtime:	int;
		timescale:	int;
		duration:	int;
		rate:		int;
		vol:		int;
		r1:		int;
		r2:		int;
		matrix:		array of int;
		r3:		int;
		r4:		int;
		pvtime:		int;
		posttime:	int;
		seltime:	int;
		seldurat:	int;
		curtime:	int;
		nxttkid:	int;
	};

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

		mvhdr:	ref Mvhdr;		# movie header desctiptor

		readn:		fn(r: self ref QD, b: array of byte, l: int): int;
		skip:		fn(r: self ref QD, size: int): int;
		skipatom:	fn(r: self ref QD, size: int): int;
		atomhdr:	fn(r: self ref QD): (string, int);
		mvhd:		fn(r: self ref QD, l: int): string;
		trak:		fn(r: self ref QD, l: int): string;
	};

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