ref: c11957a7915d355d80ff7e6a21721ba05441ca29
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; };