module/diskblocks.m


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

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;
};