1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
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;
};
|
