20060303a

1 files changed, 114 insertions, 0 deletions

diff --git a/appl/spree/lib/cardlib.m b/appl/spree/lib/cardlib.m
new file mode 100644
index 00000000..94c05002
--- /dev/null
+++ b/appl/spree/lib/cardlib.m
@@ -0,0 +1,114 @@
+Cardlib: module {
+	PATH:		con "/dis/spree/lib/cardlib.dis";
+
+	Layout: adt {
+		lay:			ref Spree->Object;		# the actual layout object
+	};
+
+	Stackspec: adt {
+		style:	string;
+		maxcards:	int;
+		conceal:	int;
+		title:		string;
+	};
+
+	Card: adt {
+		suit:		int;
+		number:	int;
+		face:		int;
+	};
+
+	# a member currently playing
+	Cmember: adt {
+		ord:		int;
+		id:		int;
+		p:		ref Spree->Member;
+		obj:		ref Spree->Object;
+		layout:	ref Layout;
+		sel:		ref Selection;
+
+		join:		fn(p: ref Spree->Member, ord: int): ref Cmember;
+		index:	fn(ord: int): ref Cmember;
+		find:		fn(p: ref Spree->Member): ref Cmember;
+		findid:	fn(id: int): ref Cmember;
+		leave:	fn(cp: self ref Cmember);
+		next:		fn(cp: self ref Cmember, fwd: int): ref Cmember;
+		prev:		fn(cp: self ref Cmember, fwd: int): ref Cmember;
+	};
+
+	Selection: adt {
+		stack:	ref Spree->Object;
+		ownerid:	int;
+		isrange:	int;
+		r:		Range;
+		idxl:		list of int;
+
+		set:		fn(sel: self ref Selection, stack: ref Spree->Object);
+		setexcl:	fn(sel: self ref Selection, stack: ref Spree->Object): int;
+		setrange:	fn(sel: self ref Selection, r: Range);
+		addindex:	fn(sel: self ref Selection, i: int);
+		delindex:	fn(sel: self ref Selection, i: int);
+		isempty:	fn(sel: self ref Selection): int;
+		isset:		fn(sel: self ref Selection, index: int): int;
+		transfer:	fn(sel: self ref Selection, dst: ref Spree->Object, index: int);
+		owner:	fn(sel: self ref Selection): ref Cmember;
+	};
+
+	selection:	fn(stack: ref Spree->Object): ref Selection;
+
+	# pack and facing directions (clockwise by face direction)
+	dTOP, dLEFT, dBOTTOM, dRIGHT: con iota;
+	dMASK: con 7;
+	dSHIFT: con 0;
+	
+	# anchor positions
+	aSHIFT: con 4;
+	aMASK: con 16rf0;
+	aCENTRE, aUPPERCENTRE, aUPPERLEFT, aCENTRELEFT,
+		aLOWERLEFT, aLOWERCENTRE, aLOWERRIGHT,
+		aCENTRERIGHT, aUPPERRIGHT: con iota << aSHIFT;
+	
+	# orientations
+	oMASK: con 16rf00;
+	oSHIFT: con 8;
+	oRIGHT, oUP, oLEFT, oDOWN: con iota << oSHIFT;
+
+	EXPAND: con 16r1000;
+
+	FILLSHIFT: con 13;
+	FILLX, FILLY: con 1 << (FILLSHIFT + iota);
+	FILLMASK: con FILLX|FILLY;
+
+	CLUBS, DIAMONDS, HEARTS, SPADES: con iota;
+
+	init:			fn(spree: Spree, clique: ref Spree->Clique);
+
+	addlayframe:	fn(name: string, parent: string, layout: ref Layout, packopts: int, facing: int);
+	addlayobj:	fn(name: string, parent: string, layout: ref Layout, packopts: int, obj: ref Spree->Object);
+	dellay:		fn(name: string, layout: ref Layout);
+
+	newstack:		fn(parent: ref Spree->Object, p: ref Spree->Member, spec: Stackspec): ref Spree->Object;
+
+	archive:		fn(): ref Spree->Object;
+	unarchive:	fn(): ref Spree->Object;
+	setarchivename: fn(o: ref Spree->Object, name: string);
+	getarchiveobj:	fn(name: string): ref Spree->Object;
+	archivearray:	fn(a: array of ref Spree->Object, name: string);
+	getarchivearray: fn(name: string): array of ref Spree->Object;
+
+	newlayout:	fn(parent: ref Spree->Object, vis: Sets->Set): ref Layout;
+	makecards:	fn(stack: ref Spree->Object, r: Range, rear: string);
+	maketable:	fn(parent: string);
+	deal:			fn(stack: ref Spree->Object, n: int, stacks: array of ref Spree->Object, first: int);
+	shuffle:		fn(stack: ref Spree->Object);
+	sort:			fn(stack: ref Spree->Object, rank, suitrank: array of int);
+
+	getcard:		fn(card: ref Spree->Object): Card;
+	getcards:		fn(stack: ref Spree->Object): array of Card;
+	discard:		fn(stk, pile: ref Spree->Object, facedown: int);
+	setface:		fn(card: ref Spree->Object, face: int);
+
+	flip:			fn(stack: ref Spree->Object);
+
+	nmembers:		fn(): int;
+};