From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 17:07:39 +0000
Subject: 20060303a

---
 appl/cmd/install/arch.m | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 appl/cmd/install/arch.m

(limited to 'appl/cmd/install/arch.m')

diff --git a/appl/cmd/install/arch.m b/appl/cmd/install/arch.m
new file mode 100644
index 00000000..03837445
--- /dev/null
+++ b/appl/cmd/install/arch.m
@@ -0,0 +1,36 @@
+Arch : module
+{
+	PATH : con "/dis/install/arch.dis";
+
+	Ahdr : adt {
+		name : string;
+		modestr : string;
+		d : ref Sys->Dir;
+	};
+
+	Archive : adt {
+		b : ref Bufio->Iobuf;
+		nexthdr : int;
+		canseek : int;
+		pid : int;
+		hdr : ref Ahdr;
+		err : string;
+	};
+
+	init: fn(bio: Bufio);
+
+	openarch: fn(name : string) : ref Archive;
+	openarchfs: fn(name : string) : ref Archive;
+	openarchgz: fn(name : string) : (string, ref Sys->FD);
+	gethdr: fn(ar : ref Archive) : ref Ahdr;
+	getfile: fn(ar : ref Archive, bout : ref Bufio->Iobuf, n : int) : string;
+	drain: fn(ar : ref Archive, n : int) : int;
+	closearch: fn(ar : ref Archive);
+
+	puthdr: fn(b : ref Bufio->Iobuf, name : string, d : ref Sys->Dir);
+	putstring: fn(b : ref Bufio->Iobuf, s : string);
+	putfile: fn(b : ref Bufio->Iobuf, f : string, n : int) : string;
+	putend: fn(b : ref Bufio->Iobuf);
+
+	addperms: fn(p: int);
+};
-- 
cgit v1.2.3