code: purgatorio

ref: 611dced75f0a6c9fd4b35b88ee0dd9ac5806cb54
dir: /appl/cmd/install/wrap.m/

Wrap : module
{
	PATH : con "/dis/install/wrap.dis";

	FULL, UPD : con iota+1;

	Update : adt {
		desc : string;
		dir : string;
		time : int;
		utime : int;
		bmd5 : ref Bufio->Iobuf;
		typ : int;
	};

	Wrapped : adt {
		name : string;
		root : string;
		tfull : int;
		u : array of Update;
		nu : int;
	};

	init: fn(bio: Bufio);
	openwrap: fn(f : string, d : string, all : int) : ref Wrapped;
	openwraphdr: fn(f : string, d : string, argl : list of string, all : int) : ref Wrapped;
	getfileinfo: fn(w : ref Wrapped, f : string, rdigest : array of byte, wdigest: array of byte, ardigest: array of byte) : (int, int);
	putwrapfile: fn(b : ref Bufio->Iobuf, name : string, time : int, elem : string, file : string, uid : string, gid : string);
	putwrap: fn(b : ref Bufio->Iobuf, name : string, time : int, desc : string, utime : int, pkg : int, uid : string, gid : string);
	md5file: fn(file : string, digest : array of byte) : int;
	md5filea: fn(file : string, digest : array of byte) : int;
	md5sum: fn(b : ref Bufio->Iobuf, digest : array of byte, leng : int) : int;
	md5conv: fn(d : array of byte) : string;
	# utilities
	match: fn(s: string, pre: list of string): int;
	notmatch: fn(s: string, pre: list of string): int;
	memcmp: fn(b1, b2: array of byte, n: int): int;
	end: fn();
	now2string: fn(n: int, flag: int): string;
	string2now: fn(s: string, flag: int): int;
};