code: purgatorio

ref: a8083462e62459b2ae8a243dc4ba88416eba03b1
dir: /appl/spree/lib/cardlib.m/

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;
};