20060303a

1 files changed, 280 insertions, 0 deletions

diff --git a/appl/acme/dat.m b/appl/acme/dat.m
new file mode 100644
index 00000000..66a0f592
--- /dev/null
+++ b/appl/acme/dat.m
@@ -0,0 +1,280 @@
+Dat : module {
+	PATH : con "/dis/acme/dat.dis";
+
+	init : fn(mods : ref Mods);
+
+	Mods : adt {
+		sys : Sys;
+		bufio : Bufio;
+		draw : Draw;
+		styx : Styx;
+		styxaux : Styxaux;
+		acme : Acme;
+		gui : Gui;
+		graph : Graph;
+		dat : Dat;
+		framem : Framem;
+		utils : Utils;
+		regx : Regx;
+		scroll : Scroll;
+		textm : Textm;
+		filem : Filem;
+		windowm : Windowm;
+		rowm : Rowm;
+		columnm : Columnm;
+		bufferm : Bufferm;
+		diskm : Diskm;
+		exec : Exec;
+		look : Look;
+		timerm : Timerm;
+		fsys : Fsys;
+		xfidm : Xfidm;
+		plumbmsg : Plumbmsg;
+		edit: Edit;
+		editlog: Editlog;
+		editcmd: Editcmd;
+	};
+
+	SZSHORT : con 2;
+	SZINT : con 4;
+
+	FALSE, TRUE, XXX : con iota;
+
+	EM_NORMAL, EM_RAW, EM_MASK : con iota;
+
+	Qdir,Qacme,Qcons,Qconsctl,Qdraw,Qeditout,Qindex,Qlabel,Qnew,QWaddr,QWbody,QWconsctl,QWctl,QWdata,QWeditout,QWevent,QWrdsel,QWwrsel,QWtag,QMAX : con iota;
+
+	Blockincr : con 256;
+	Maxblock : con 8*1024;
+	NRange : con 10;
+	Infinity : con 16r7fffffff; 	# huge value for regexp address
+
+	# fbufalloc() guarantees room off end of BUFSIZE
+	MAXRPC : con 8192+Styx->IOHDRSZ;
+	BUFSIZE : con MAXRPC;
+	EVENTSIZE : con 256;
+	PLUMBSIZE : con 1024;
+	Scrollwid : con 12;	# width of scroll bar
+	Scrollgap : con 4;	# gap right of scroll bar
+	Margin : con 4;		# margin around text
+	Border : con 2;		#  line between rows, cols, windows
+	Maxtab : con 4;		# size of a tab, in units of the '0' character
+	
+	Empty: con 0;
+	Null : con '-';
+	Delete : con 'd';
+	Insert : con 'i';
+	Replace: con 'r';
+	Filename : con 'f';
+
+	# editing
+	Inactive, Inserting, Collecting: con iota;
+
+	# alphabets
+	ALPHA_LATIN: con '\0';
+	ALPHA_GREEK: con '*';
+	ALPHA_CYRILLIC: con '@';
+
+	Astring : adt {
+		s : string;
+	};
+
+	Lock : adt {
+		cnt : int;
+		chann : chan of int;
+
+		init : fn() : ref Lock;
+		lock : fn(l : self ref Lock);
+		unlock : fn(l : self ref Lock);
+		locked : fn(l : self ref Lock) : int;
+	};
+
+# 	Lockx : adt {
+#		sem : ref Lock->Semaphore;
+#
+#		init : fn() : ref Lockx;
+#		lock : fn(l : self ref Lockx);
+#		unlock : fn(l : self ref Lockx);
+#	};
+
+	Ref : adt {
+		l : ref Lock;
+		cnt : int;
+
+		init : fn() : ref Ref;
+		inc : fn(r : self ref Ref) : int;
+		dec : fn(r : self ref Ref) : int;
+		refx : fn(r : self ref Ref) : int;
+	};
+
+	Runestr : adt {
+		r: string;
+		nr: int;
+	};
+
+	Range : adt {
+		q0 : int;
+		q1 : int;
+	};
+
+	Block : adt {
+		addr : int;			# disk address in bytes
+		n : int;			# number of used runes in block
+		next : cyclic ref Block;	# pointer to next in free list
+	};
+
+	Timer : adt {
+		dt : int;
+		c : chan of int;
+		next : cyclic ref Timer;
+	};
+
+	Command : adt {
+		pid : int;
+		name : string;
+		text : string;
+		av : list of string;
+		iseditcmd: int;
+		md : ref Mntdir;
+		next : cyclic ref Command;
+	};
+
+	Dirtab : adt {
+		name : string;
+		qtype : int;
+		qid : int;
+		perm : int;
+	};
+
+	Mntdir : adt {
+		id : int;
+		refs : int;
+		dir : string;
+		ndir : int;
+		next : cyclic ref Mntdir;
+		nincl : int;
+		incl : array of string;
+	};
+
+	Fid : adt {
+		fid : int;
+		busy : int;
+		open : int;
+		qid : Sys->Qid;
+		w : cyclic ref Windowm->Window;
+		dir : array of Dirtab;
+		next : cyclic ref Fid;
+		mntdir : ref Mntdir;
+		nrpart : int;
+		rpart : array of byte;
+	};
+
+	Rangeset : type array of Range;
+
+	Expand : adt {
+		q0 : int;
+		q1 : int;
+		name : string;
+		bname : string;
+		jump : int;
+		at : ref Textm->Text;
+		ar : string;
+		a0 : int;
+		a1 : int;
+	};
+
+	Dirlist : adt {
+		r : string;
+		wid : int;
+	};
+
+	Reffont : adt {
+		r : ref Ref;
+		f : ref Draw->Font;
+
+		get : fn(p : int, q : int, r : int, b : string) : ref Reffont;
+		close : fn(r : self ref Reffont);
+	};
+
+	Cursor : adt {
+		hot : Draw->Point;
+		size : Draw->Point;
+		bits : array of byte;
+	};
+
+	Smsg0 : adt {
+		msize : int;
+		version : string;
+		iounit: int;
+		qid : Sys->Qid;
+		count : int;
+		data : array of byte;
+		stat : Sys->Dir;
+		qids: array of Sys->Qid;
+	};
+
+	# loadfile function ptr
+
+	BUFL, READL: con iota;
+
+	# allwindows pick type
+
+	Looper: adt{
+		cp: ref Edit->Cmd;
+		XY: int;
+		w: array of ref Windowm->Window;
+		nw: int;
+	};	# only one; X and Y can't nest
+
+	Tofile: adt {
+		f: ref Filem->File;
+		r: ref Edit->String;
+	};
+
+	Filecheck: adt{
+		f: ref Filem->File;
+		r: string;
+		nr: int;
+	};
+
+	Allwin: adt{
+		pick{
+			LP => lp: ref Looper;
+			FF => ff: ref Tofile;
+			FC => fc: ref Filecheck;
+		}
+	};
+
+	seq : int;
+	maxtab : int;
+	mouse : ref Draw->Pointer;
+	reffont : ref Reffont;
+	modbutton : ref Draw->Image;
+	colbutton : ref Draw->Image;
+	button : ref Draw->Image;
+	arrowcursor, boxcursor : ref Cursor;
+	row : ref Rowm->Row;
+	disk : ref Diskm->Disk;
+	seltext : ref Textm->Text;
+	argtext : ref Textm->Text;
+	mousetext : ref Textm->Text; 	# global because Text.close needs to clear it
+	typetext : ref Textm->Text;		# ditto
+	barttext : ref Textm->Text;		# shared between mousetask and keyboardtask
+	bartflag : int;
+	activewin : ref Windowm->Window;
+	activecol : ref Columnm->Column;
+	nullrect : Draw->Rect;
+	home : string;
+	plumbed : int;
+
+	ckeyboard : chan of int;
+	cmouse : chan of ref Draw->Pointer;
+	cwait : chan of string;
+	ccommand : chan of ref Command;
+	ckill : chan of string;
+	cxfidalloc : chan of ref Xfidm->Xfid;
+	cxfidfree : chan of ref Xfidm->Xfid;
+	cerr : chan of string;
+	cplumb : chan of ref Plumbmsg->Msg;
+	cedit: chan of int;
+};