ref: bd6c2aad586814b091ce5aca9d41cf2c51adb37b
dir: /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;
};