DIRECTORYAtom USING [ MakeAtom ],Basics USING [ Comparison ],BasicTime USING [ GMT, Period ],Convert USING [ RopeFromInt ],Names,PupDefs USING [AnyLocalPupAddress, PupAddress ],Rope USING [ Cat, Concat, Fetch, Length, MakeRope, ROPE, Size, SkipTo, Substr ],RPC USING [ MakeKey, EncryptionKey ],UserCredentials USING [ Get ];NamesImpl: CEDAR PROGRAMIMPORTSAtom, BasicTime, Convert, PupDefs, RPC, Rope, UserCredentialsEXPORTS Names = {ROPE: TYPE=Names.ROPE;FileSpec: TYPE = Names.FileSpec;FileSpecBody: TYPE = Names.FileSpecBody;larkRegistry: ROPE=".Lark";NetError: PUBLIC ERROR[problem: Names.NetProblem] = CODE;ParseFile: PUBLIC PROCEDURE[server: ROPE_NIL,dirName: ROPE_NIL,dirPassword: ROPE_NIL,fileName: ROPE_] RETURNS [spec: FileSpec] ={start, end: INT;spec_NEW[FileSpecBody_[server: IF server#NIL THEN server ELSE "Indigo",name: CurrentRName[],password: UserCredentials.Get[].password]];spec.dirName_IF dirName#NIL THEN Registrize[dirName] ELSE spec.name;start_0;IF Rope.Fetch[fileName, start]='[ THEN {end_Rope.SkipTo[fileName, start, "]"];spec.server_Rope.Substr[fileName, start+1, end-start-1];start_end+1; };IF dirPassword#NIL THEN {spec.dirPassword_dirPassword;IF Rope.Fetch[fileName, start]='< THEN {end_Rope.SkipTo[fileName, start, ">"];spec.dirName_Rope.Substr[fileName, start+1, end-start-1];start_end+1; }ELSE IF dirName=NIL THEN ERROR; }ELSE spec.dirPassword _ spec.password;spec.fileName_Rope.Substr[fileName, start]; };Registrize: PUBLIC PROC[name: ROPE] RETURNS [ROPE] = {dot: INT;IF name=NIL THEN RETURN[NIL];dot_Rope.SkipTo[name, 0, "."];IF dot=name.Length[] THEN name_Rope.Concat[name, DefaultRegistry[]];RETURN[name]; };CurrentRName: PUBLIC PROC RETURNS [ROPE] = {RETURN[UserCredentials.Get[].name]; };CurrentPasskey: PUBLIC PROC[passwordText: ROPE] RETURNS [RPC.EncryptionKey] = {IF passwordText=NIL THEN passwordText_UserCredentials.Get[].password;RETURN[RPC.MakeKey[passwordText]]; };OwnNetAddress: PUBLIC PROC RETURNS [netAddress: Names.NetAddress] = TRUSTED {pa: PupDefs.PupAddress;pa _ PupDefs.AnyLocalPupAddress[[0,0]];netAddress _ [net: pa.net, host: pa.host]; };DefaultRegistry: PUBLIC PROC RETURNS [registry: ROPE] = {name: ROPE=CurrentRName[];dot: INT=Rope.SkipTo[name, 0, "."];IF dot=name.Length[] THEN ERROR;RETURN[name.Substr[dot]]; };InstanceFromNetAddress: PUBLIC PROC[netAddress: Names.NetAddress, suffix: ROPE_NIL]RETURNS [instance: ROPE] = {pa: PupDefs.PupAddress = [ net: [netAddress.net], host: [netAddress.host], socket:  [a: 0, b: 0]];instance _ Rope.Cat[Convert.RopeFromInt[pa.net, 8, FALSE], "#", Convert.RopeFromInt[pa.host, 8, FALSE], "#", suffix];};LowerCaseRope: PROC[r: ROPE] RETURNS [ROPE] = {RETURN[Rope.MakeRope[base: r, size: r.Size[], fetch: LCFetch]]};LCFetch: SAFE PROC[data: REF, index: INT] RETURNS [c: CHAR] = TRUSTED {SELECT (c_NARROW[data,ROPE].Fetch[index]) FROM IN ['A..'Z]=>c_c+('a-'A); ENDCASE};RnameToRspec: PUBLIC PROC[name: Names.Rname, defaultRegistry: ROPE_NIL] RETURNS [spec: Names.Rspec] ={j: INT_0;i: INT;WHILE (i_Rope.SkipTo[s: name, pos: j, skip: "."])#Rope.Size[name] DO j_i+1; ENDLOOP;IF j#0 THEN defaultRegistry_Rope.Substr[base: name, start: j] ELSE j_i+1;IF Rope.Size[defaultRegistry]=0 THEN RETURN[NIL];spec_NEW[Names.RspecBody_[simpleName: Rope.Substr[name, 0, j-1],registry: defaultRegistry]]; };RspecToName: PUBLIC PROC[spec: Names.Rspec] RETURNS [name: Names.Rname] = {RETURN[Rope.Concat[spec.simpleName, Rope.Concat[".", spec.registry]]]; };RspecToSortName: PUBLIC PROC[spec: Names.Rspec] RETURNS [name: ROPE] ={RETURN[Rope.Concat[spec.registry, Rope.Concat[".", spec.simpleName]]]; };MakeAtom: PUBLIC PROC[rName: Names.Rname, case: BOOL_FALSE] RETURNS [ATOM] = {RETURN[Atom.MakeAtom[IF case THEN LowerCaseRope[rName] ELSE rName]]; };GMTComp: PUBLIC PROC[t1, t2: BasicTime.GMT] RETURNS [c: Basics.Comparison] = { period: INT = BasicTime.Period[t2, t1];RETURN[IF period>0 THEN greater ELSE IF period=0 THEN equal ELSE less];};}.   ╥  NamesImpl.MesaLast modified by Swinehart, June 13, 1984 5:12:13 pm PDTLast modified by Stewart, August 29, 1983 8:44 pmObligatory concreteConversion routines"Leftover" Procedures exported to NamesЭ╩p  Ш JЪЬЩJЪЬ8Щ8JЪЬ1Щ1JШ Ъ╧k	Ш	JЪЬЭЬШJЪЬЭЬШJЪЬ
ЭЬЭЬШ JЪЬЭЬШJШЪЬЭЬШJШ!ЧJЪЬЭЬ)ЭЬШPJЪЭЬЭЬШ%JЪЬЭЬШJШJШ ЧЪЬЭШЪЭШJЪЬ#ЭЬШ=ЧJЪЭЬ
ШЧJЪЭЬЭЬЭЬШJЪЬ
ЭЬШ JЪЬЭЬШ(JЪЬЭЬ	ШJШ JЪЬЩJЪЬ
ЭЬЭЬЭЬШ9JШ Ъ╧n	ЬЭЬЭ	ЬШJЪЬЭЬЭЬШJЪЬ	ЭЬЭЬШJЪЬЭЬЭЬШJЪЬ
ЭЬЭЬШ,JЪЬЭЬШЪЬЭЬШJЪ	ЬЭЬЭЬЭЬЭЬ
Ш0JШJЪЬ+Ш+ЧJЪ	ЬЭЬ	ЭЬЭЬЭЬШDJШЪЭЬ ЭЬШ(JШ&JШ8JШЧЪЭЬЭЬЭЬШJШЪЭЬ ЭЬШ(JШ&JШ9JШЧJЪ
ЭЬЭЬ	ЭЬЭЬЭЬШ!ЧJЪЭЬ"Ш&JШ.JШ ЧЪЮ
ЬЭЬЭЬЭЬЭЬЭЬШ6JЪЬЭЬШ	JЪ
ЭЬЭЬЭЬЭЬЭЬШJШJЪЭЬЭЬ+ШDJЪЭЬ
ШJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ,JЪЭЬ Ш&JШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬШOJЪЭЬЭЬЭЬ-ШEJЪЭЬЭЬШ%JШ ЧЪ
ЮЬЭЬЭЬЭЬ"ЭЬШMJШJШ'JШ-JШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ9JЪЬЭЬШJЪЬЭЬШ#JЪЭЬЭЬЭЬШ JЪЭЬШJШ ЧЪ
ЮЬЭЬЭЬ'ЭЬЭЬШSJЪЭЬЭЬШJШbЪЬ3ЭЬШ@JЪЬ ЭЬШ5ЧJШJШ ЧЩJШ Ъ
ЮЬЭЬЭЬЭЬЭЬШ/JЪЭЬ:Ш@ЧЪЮЬЭЬЭЬЭЬ	ЭЬЭЬЭЬЭЬШGJЪЭЬЭЬЭЬЭЬЭЬЭЬШRЧЧЩ ЪЮЬЭЬЭЬ%ЭЬЭЬЭЬШfIintЪЬЭЬШ	KЪЬЭЬШKЪЭЬ=ЭЬЭЬШTJЪЭЬЭЬ3ЭЬШIJЪЭЬЭЬЭЬЭЬШ1ЪЬЭЬ8Ш@JШЧЧЪЮЬЭЬЭЬЭЬШKJЪЭЬCШIЧЪ
ЮЬЭЬЭЬЭЬЭЬШGJЪЭЬCШIЧJШ ЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШNЪЭЬШJЪЭЬЭЬЭЬШ2ЧЧЧЩ'JЩ Ъ
ЮЬЭЬЭЬЭЬЭЬШOJЪЬ'Ш'JЪЭЬЭЬ
ЭЬ	ЭЬЭЬ
ЭЬЭЬШGJШJШ ЧЧJШ JШЧ ЕЧ    ╝  ■  