From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 20:52:35 +0000
Subject: 20060303-partial

---
 module/convcs.m | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 module/convcs.m

(limited to 'module/convcs.m')

diff --git a/module/convcs.m b/module/convcs.m
new file mode 100644
index 00000000..b139351e
--- /dev/null
+++ b/module/convcs.m
@@ -0,0 +1,29 @@
+#
+# Copyright © 2001 Vita Nuova Limited
+#
+Btos: module {
+	init: fn(arg: string): string;
+	btos: fn(s: Convcs->State, b: array of byte, nchars: int) : (Convcs->State, string, int);
+};
+
+Stob: module {
+	init: fn(arg: string): string;
+	stob: fn(s: Convcs->State, str: string): (Convcs->State, array of byte);
+};
+
+Convcs: module {
+	PATH: con "/dis/lib/convcs/convcs.dis";
+	CHARSETS: con "/lib/charsets";
+
+	BTOS, STOB: con 1 << iota;		# enumcs() mode values
+	BOTH: con BTOS | STOB;
+
+	State: type string;
+	Startstate: con "";
+
+	init: fn(csfile: string): string;
+	getbtos: fn(cs: string): (Btos, string);
+	getstob: fn(cs: string): (Stob, string);
+	enumcs: fn(): list of (string, string, int);		# (cs, description, mode)
+	aliases: fn(cs : string): (string, list of string);
+};
-- 
cgit v1.2.3