DIRECTORYIO,Rope USING [Cat, Concat, Equal, Fetch, Length, MakeRope, ROPE, Substr],ThNet;WhitePagesImpl: CEDAR PROGRAMIMPORTS IO, RopeEXPORTS ThNet = {ROPE:TYPE=Rope.ROPE;localPrefix: ROPE = "8923";localDDDPrefix: ROPE = "9415";intelnetPause: ROPE _ "\017";lpLen: NAT = 4;sp: REF IO.StreamProcs = IO.CreateStreamProcs[variety: input,class: $Undecorate,getChar: UndecorateChar];HowToDial: PUBLIC PROC[phoneNumber: ROPE, ownExtension: ROPE]RETURNS [whatToDial: ROPE, isLocalExtension: BOOLEAN] = {phoneNumber _IO.GetLineRope[IO.CreateStream[sp,NIL,IO.RIS[phoneNumber]]!IO.EndOfStream=>{phoneNumber_NIL; CONTINUE; }];SELECT phoneNumber.Length[] FROM7, 10 => phoneNumber _ Rope.Concat["9", phoneNumber];ENDCASE;IF phoneNumber.Substr[len: lpLen].Equal[localPrefix]THEN RETURN [phoneNumber.Substr[start: lpLen], TRUE]ELSE IF phoneNumber.Substr[len: lpLen].Equal[localDDDPrefix]THEN RETURN [Rope.Concat["9", phoneNumber.Substr[start: lpLen]], TRUE]ELSE IF phoneNumber.Length[] >= 8 AND phoneNumber.Fetch[0] = '8 THENRETURN[Rope.Cat["8", intelnetPause, phoneNumber.Substr[start: 1], intelnetPause, ownExtension],FALSE]ELSE RETURN [phoneNumber, phoneNumber.Length[]<6]; };UndecorateChar: PROC[self: IO.STREAM] RETURNS[CHAR] = {DOc: CHAR=self.backingStream.GetChar[];IF c IN ['0..'9] THEN RETURN[c];ENDLOOP;};FeepName: PUBLIC PROC[rName: ROPE] RETURNS[feepName: ROPE] = {RETURN[Rope.MakeRope[base: rName, size: rName.Length[], fetch: FeepFetch]]; };FeepFetch: PROC[data: REF, index: INT] RETURNS [c: CHAR] = {c_NARROW[data, ROPE].Fetch[index];IF c IN ['A..'Z] THEN c_c+('a-'A);IF c NOT IN ['a..'z] THEN c_'z+1;RETURN[FeepMap[c]];};FeepMap: PACKED ARRAY CHAR['a..'z+1] OF CHAR = ['2, '2, '2, '3, '3, '3, '4, '4, '4, '5, '5, '5, '6, '6, '6, '7, '7, '7, '7, '8, '8, '8, '9, '9, '9, '9, '1 ];}.  ┬  WhitePagesImpl.mesaInterface to "Callup" databasesLast modified by Swinehart, January 12, 1984 7:05 pmLast modified by Stewart, June 20, 1983 11:21 amLast Edited by: Lia, July 26, 1983 6:17 pmPhone number should now have no cosmetic characters in it . . . only digits.Intelnet number: wait 1.5 seconds after "8" and before auth. code (ownExtension)(Any very small characters in a phone number are interpreted as 100 ms. pause intervals)Э╩`  Ш JЪЬЩJЪЬЩJЪЬ4Щ4JЪЬ0Щ0JЩ*Ъ╧k	Ш	JЪЭЬШЪЬЭЬШJЪЬ-ЭЬ
Ш;ЧJШJШJШ ЧЪЬЭЬЭШJЪЭЬЭЬШJЪЭЬ
ШJШ ЧJЪЭЬЭЬЭЬШJЪЬЭЬ
ШJЪЬЭЬ
ШJЪЬЭЬ
ШJЪЬЭЬШJШ ЪЬЭЬЭЬЭЬШ.JЪЬШJЪЬШJЪЬШJЪЬШЧJШ Ъ
╧n	ЬЭЬЭЬЭЬЭЬШ=JЪЭЬЭЬЭЬШ9ЪЬШЪЭЬЭЬЭЬЭЬЭЬЭЬШLJЪЬЭЬЭЬШЧЧJЩLЪЭЬЭШ JШ5JЪЭЬШЧЪЭЬ2Ш4JЪЭЬЭЬ$ЭЬШ4ЧЪЭЬЭЬ5Ш<JЪЭЬЭЬ6ЭЬШFЧЪЭЬЭЬЭЬЭШDЩPJЩXЧЪЭЬШJЪЬXШXJЪЭЬШЧЧJЪЭЬЭЬ*Ш5ЧJШ ХStartOfExpansionG -- [char: CHAR] RETURNS [quit: BOOL _ FALSE, include: BOOL _ TRUE] -- ЪЮЬЭЬЭЬЭЬЭЬЭЬШ7ЪЭШJЪЬЭЬШ%JЪЭЬЭЬ
ЭЬЭЬШ JЪЭЬШЧJШJШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬШ>JЪЭЬHШNЧJШ ЪЮ	ЬЭЬЭЬ	ЭЬЭЬЭЬШ<JЪЬЭЬЭЬШ"JЪЭЬЭЬ
ЭЬШ"JЪЭЬЭЬЭЬ
ЭЬШ!JЪЭЬШJЪЬШЧЪЬ	ЭЬЭЬЭЬЭЬЭЬШ0JШmЧJШ JШЧ ЕЧ    2  T  