ref: c116550e6a41572796e4db65e4f6acbcb3d9d6f8
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; };