shithub: purgatorio

ref: f8935b5778397074d41a48205e5c7f87d7b531fe
dir: purgatorio/module/diskblocks.m

Diskblocks: module {
	PATH: con "/dis/lib/diskblocks.dis";

	Block: adt {
		addr:	big;	# address on file
		n:	int;	# size in bytes
	};

	Disk: adt {
		fd: ref Sys->FD;
		addr: big;		# length of temp file
		free: array of list of ref Block;
		maxblock:	int;
		gran:	int;
		lock:	chan of int;

		init:	fn(fd: ref Sys->FD, gran: int, maxblock: int): ref Disk;
		new:	fn(d: self ref Disk, n: int): ref Block;
		release:	fn(d: self ref Disk, b: ref Block);
		read:	fn(d: self ref Disk, b: ref Block, a: array of byte, n: int): int;
		write:	fn(d: self ref Disk, b: ref Block, a: array of byte, n: int): ref Block;
	};

	init: fn();
	tempfile: fn(): ref Sys->FD;
};