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/loader.m | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 module/loader.m

(limited to 'module/loader.m')

diff --git a/module/loader.m b/module/loader.m
new file mode 100644
index 00000000..597e2bab
--- /dev/null
+++ b/module/loader.m
@@ -0,0 +1,48 @@
+#
+# External loader interface
+#
+Nilmod: module
+{
+};
+
+Loader: module
+{
+	PATH:	con	"$Loader";
+
+	Inst: adt
+	{
+		op:	byte;
+		addr:	byte;
+		src:	int;
+		mid:	int;
+		dst:	int;
+	};
+
+	Typedesc: adt
+	{
+		size:	int;
+		map:	array of byte;
+	};
+
+	Link: adt
+	{
+		name:	string;
+		sig:	int;
+		pc:	int;
+		tdesc:	int;
+	};
+
+	Niladt: adt
+	{
+	};
+
+	ifetch:		fn(mp: Nilmod): array of Inst;
+	tdesc:		fn(mp: Nilmod): array of Typedesc;
+	newmod:		fn(name: string, ss, nlink: int,
+				inst: array of Inst, data: ref Niladt): Nilmod;
+	tnew:		fn(mp: Nilmod, size: int, map: array of byte): int;
+	link:		fn(mp: Nilmod): array of Link;
+	ext:		fn(mp: Nilmod, idx, pc: int, tdesc: int): int;
+	dnew:		fn(size: int, map: array of byte): ref Niladt;
+	compile:	fn(mp: Nilmod, flag: int): int;
+};
-- 
cgit v1.2.3