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, July 19, 1984 10:39:36 am PDTLast modified by Stewart, August 29, 1983 8:44 pmObligatory concreteConversion routinescase: if FALSE, case considered not important . . . all calls that expect results to match must use FALSE, since implementation is to convert rName to lower case.if TRUE, leave rope alone and make the ATOM as is."Leftover" Procedures exported to Names Э╩Р  Ш JЪЬЩJЪЬ9Щ9JЪЬ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ЪЬ	ЭЬVЭЬ9ЩвJЪЬЭЬ ЭЬЩ2ЧЪЭЬШJЪЭЬЭЬЭЬШ3ЧЧЧЩ'JЩ Ъ
ЮЬЭЬЭЬЭЬЭЬШOJЪЬ'Ш'JЪЭЬЭЬ
ЭЬ	ЭЬЭЬ
ЭЬЭЬШGJШJШ ЧЧJШ JШЧ ЕЧ    ╛  °  