DIRECTORY Basics, BasicTime, IO; SB: CEDAR DEFINITIONS IMPORTS IO = BEGIN RopeSeq: TYPE = REF RopeSeqRec; RopeSeqRec: TYPE = RECORD[SEQUENCE size: CARDINAL OF IO.ROPE]; CardSeq: TYPE = REF CardSeqRec; CardSeqRec: TYPE = RECORD[SEQUENCE size: CARDINAL OF CARDINAL]; TeamStats: TYPE = REF TeamStatSeq; TeamStatSeq: TYPE = RECORD[SEQUENCE size: CARDINAL OF TeamStatRec]; TeamStatRec: TYPE = RECORD[ points: CARDINAL _ 0, males: CARDINAL _ 0, females: CARDINAL _ 0, players: CARDINAL _ 0, keeps: CARDINAL _ 0, dIndex: CARDINAL _ 0, prtctd: CARDINAL _ 0, minPick: CARDINAL _ 0 ]; Type: TYPE = {unknown, coach, skeep, player}; Team: TYPE = CARDINAL[0..20]; Rating: TYPE = CARDINAL[0..5]; Paid: TYPE = {unknown, unpaid, paid}; Group: TYPE = CARDINAL[0..20]; Shirt: TYPE = {unknown, Sml, Med, Lrg, XL}; Sex: TYPE = {unknown, male, female}; Pair: TYPE = {unknown, sgl, paired}; unknown: CARDINAL = 0; Unassigned: Team = 0; Member: TYPE = REF MemberRec; MemberRec: TYPE = RECORD [ lname: IO.ROPE _ NIL, fname: IO.ROPE _ NIL, type: Type _ unknown, rating: CARDINAL _ unknown, team: Team _ Unassigned, paid: Paid _ unknown, group: Group _ unknown, shirt: Shirt _ unknown, sex: Sex _ unknown, pair: Pair _ sgl, addr: IO.ROPE _ NIL, tnum: IO.ROPE _ NIL, pos: IO.ROPE _ NIL, atten: IO.ROPE _ NIL, comnt: IO.ROPE _ NIL, sse: Member _ NIL, marked: BOOL _ FALSE, dIndex: CARDINAL _ 0 ]; League: TYPE = REF LeagueRec; LeagueRec: TYPE = RECORD [ file: IO.ROPE _ NIL, root: IO.ROPE _ NIL, time: BasicTime.GMT _ BasicTime.nullGMT, year: CARDINAL _ 85, members: LIST OF Member _ NIL, teamStats: TeamStats _ NIL, groupCnts: CardSeq _ NIL, nextDIndex: CARDINAL _ 0, nextDTeam: CARDINAL _ 0, players: CARDINAL _ 0, keeps: CARDINAL _ 0, males: CARDINAL _ 0, females: CARDINAL _ 0, dollarsIn: CARDINAL _ 0, dollarsOut: CARDINAL _ 0, paid: CARDINAL _ 0, unpaid: CARDINAL _ 0, errorCalled: BOOLEAN _ FALSE, errorMsg: IO.ROPE _ NIL, typeNms: RopeSeq _ NIL, ratingNms: RopeSeq _ NIL, teamNms: RopeSeq _ NIL, paidNms: RopeSeq _ NIL, groupNms: RopeSeq _ NIL, shirtNms: RopeSeq _ NIL, pairNms: RopeSeq _ NIL, sexNms: RopeSeq _ NIL, lnameMax: CARDINAL _ 0, fnameMax: CARDINAL _ 0, typeMax: CARDINAL _ 0, ratingMax: CARDINAL _ 0, teamMax: CARDINAL _ 0, paidMax: CARDINAL _ 0, groupMax: CARDINAL _ 0, shirtMax: CARDINAL _ 0, pairMax: CARDINAL _ 0, sexMax: CARDINAL _ 0, addrMax: CARDINAL _ 0, tnumMax: CARDINAL _ 0, posMax: CARDINAL _ 0, attenMax: CARDINAL _ 0, comntMax: CARDINAL _ 0 ]; RopeSeqIndex: PROC[name: IO.ROPE, ropeSeq: RopeSeq] RETURNS[index: CARDINAL]; ReadLeagueFile: PROC[file: IO.ROPE, log: IO.STREAM _ IO.noWhereStream] RETURNS[league: League]; CompareNames: PROC[first1, last1, first2, last2: IO.ROPE] RETURNS[Basics.Comparison]; FindMember: PROC[league: League, last, first: IO.ROPE _ NIL] RETURNS[member: Member]; FindMemberName: PROC[league: League, name: IO.ROPE _ NIL] RETURNS[member: Member]; AddMember: PROC[league: League, member: Member]; Update: PROC[league: League]; DeleteMember: PROC[league: League, member: Member]; WriteLeagueFiles: PROC[league: League, log: IO.STREAM _ IO.noWhereStream]; END. BSB.mesa Last Edited by Curry, April 23, 1986 4:55:06 pm PST ʘšÐbl™J™3—J˜šÏk ˜ Jšœ˜Jšœ ˜ Jšžœ˜—J˜šÑbklœžœž ˜Jšžœžœ˜ —Jšžœ˜Jšœ žœžœ ˜!Jšœ žœžœžœžœžœžœžœ˜?J˜Jšœ žœžœ ˜!Jš œ žœžœžœžœžœžœ˜@J˜Jšœ žœžœ ˜#Jš œžœžœžœžœžœ˜Dšœžœžœ˜Jšœžœ˜Jšœžœ˜Jšœ žœ˜Jšœ žœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœ žœ˜—J˜Jšœžœ$˜/Jšœžœžœ ˜Jšœžœžœ˜Jšœžœ˜'Jšœžœžœ ˜Jšœžœžœ˜-Jšœžœ˜&Jšœžœ˜&J˜Jšœ žœ˜Jšœ˜J˜Jšœ žœžœ ˜šœ žœžœ˜Jšœžœžœžœ˜Jšœžœžœžœ˜Jšœ˜Jšœžœ ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœžœžœžœ˜Jšœžœžœžœ˜Jšœžœžœžœ˜Jšœžœžœžœ˜Jšœžœžœžœ˜Jšœžœ˜Jšœžœžœ˜Jšœžœ˜—J˜Jšœ žœžœ ˜šœ žœžœ˜Jšœžœžœžœ˜Jšœžœžœžœ˜Jšœžœ˜*Jšœžœ˜Jšœ žœžœ žœ˜Jšœžœ˜Jšœžœ˜J˜Jšœ žœ˜Jšœ žœ˜J˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœžœ˜Jšœ žœ˜Jšœ žœžœ˜Jšœ žœžœžœ˜J˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ˜J˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜Jšœ žœ˜J˜—Jš Ïn œžœžœžœžœžœ˜Oš œžœžœžœžœžœžœ˜GJšžœ˜—Jš   œžœžœžœžœ˜Wš   œžœžœžœžœ˜>Jšžœ˜—š  œžœžœžœžœ˜9Jšžœ˜—Jš  œžœ!˜2Jš œžœ˜!Jš  œžœ!˜4Jš  œžœžœžœžœ˜JJ˜Jšžœ˜J˜—…— ¶