DIRECTORYCHNameP2V0,AEToCrAE,AuthenticationP14V2,AlpineP2202V2,AlpineEnvironment,AlpineFile,AlpineV2ServerInternal,ClientMap,GVNames,RPC,CardTab;AlpineV2ServerInternalImpl: CEDAR MONITORIMPORTS AlpineFile, AlpineP2202V2, CardTab, ClientMap, GVNames, RPC, AEToCrAEEXPORTS AlpineV2ServerInternal~ BEGINOPEN ATC: AEToCrAE;sessions: CardTab.Ref _ CardTab.Create[];sessionNumber: CARD _ 0;LocalSessionInfo: TYPE = RECORD [service: CHNameP2V0.ThreePartName,credentials: AuthenticationP14V2.Credentials,gvCredentials: AlpineP2202V2.GVCredentials,conversation: RPC.Conversation];Error: ERROR ~ CODE;CreateSession: PUBLIC ENTRY PROC [service: CHNameP2V0.ThreePartName, credentials: AuthenticationP14V2.Credentials, gvCredentials: AlpineP2202V2.GVCredentials] RETURNS [session: AlpineP2202V2.Session] ~ {ENABLE UNWIND => NULL;conversation: RPC.Conversation _ RPC.GenerateConversation[];IF GVNames.Authenticate[gvCredentials.name, gvCredentials.pwd] # individual THEN RETURN WITH ERROR AlpineP2202V2.AuthenticationError[credentialsInvalid];TRUSTED {ClientMap.Register[conversation, gvCredentials.name]};[] _ CardTab.Insert[sessions, sessionNumber, NEW[LocalSessionInfo _ [service, credentials, [gvCredentials.name, NIL], conversation]]];session _ [token: LOOPHOLE[sessionNumber], verifier: NIL];sessionNumber _ sessionNumber.SUCC;};DestroySession: PUBLIC ENTRY PROC [session: AlpineP2202V2.Session] ~ {ENABLE UNWIND => NULL;[] _ CardTab.Delete[sessions, LOOPHOLE[session.token]];};Conversation: PUBLIC ENTRY PROC [session: AlpineP2202V2.Session] RETURNS [conversation: RPC.Conversation] ~ {ENABLE UNWIND => NULL;found: BOOL;ref: REF;[found, ref] _ CardTab.Fetch[sessions, LOOPHOLE[session.token]];IF NOT found THEN RETURN WITH ERROR AlpineP2202V2.ConnectionError[otherCallProblem];conversation _ NARROW[ref, REF LocalSessionInfo].conversation;};DoWork: PUBLIC PROC [work: PROC] ~ {accessReason: AlpineEnvironment.NeededAccess;lockReason: AlpineEnvironment.LockFailure;operationReason: AlpineEnvironment.OperationFailure;unknownReason: AlpineEnvironment.UnknownType;{ENABLE {AlpineFile.AccessFailed => {accessReason _ missingAccess; GOTO accessFailed};AlpineFile.LockFailed => {lockReason _ why; GOTO lockFailed};AlpineFile.OperationFailed => {operationReason _ why; GOTO operationFailed};AlpineFile.PossiblyDamaged => {GOTO possiblyDamaged};AlpineFile.StaticallyInvalid => {GOTO staticallyInvalid};AlpineFile.Unknown => {unknownReason _ what; GOTO unknown};};work[]; EXITSaccessFailed => ERROR AlpineP2202V2.AccessFailed[ATC.NeededAccess[accessReason]];lockFailed => ERROR AlpineP2202V2.LockFailed[ATC.LockFailure[lockReason]];operationFailed => ERROR AlpineP2202V2.OperationFailed[ATC.OperationFailure[operationReason]];possiblyDamaged => ERROR AlpineP2202V2.PossiblyDamaged;staticallyInvalid => ERROR AlpineP2202V2.StaticallyInvalid;unknown => ERROR AlpineP2202V2.Unknown[ATC.UnknownType[unknownReason]];};};END.    V  AlpineV2ServerInternalImpl.mesaCarl Hauser, November 13, 1987 1:33:48 pm PST ‌تے  ک ڑœ™Icode™-—J™ ڑدk	ک	KڑœکKڑœ	ک	KڑœکKڑœکKکKکKڑœکKک
KڑœکKڑœکKڑœکKک —Kک Kڑœ‌ک)Kڑ‌œFکMKڑ‌œکڑœ‌کKک —Kڑ‌œ‌œکKک Kک)Kڑœ‌œکڑœ‌œ‌œک!Kڑœ"ک"Kڑœ-ک-Kڑœ+ک+Kک —Kک Kڑدnœ‌œ‌œکڑ‍œ‌œپ‌œ%کخKڑ‌œ‌œ‌œکKڑœ!‌œک<Kڑ
‌œJ‌œ‌œ‌œ‌œ7ک™Kڑ‌œ8ک?Kڑœ-‌œ@‌œک†Kڑœ‌œ‌œک:Kڑœ‌œک#KکKک —ڑ‍œ‌œ%کFKڑ‌œ‌œ‌œکKڑœ‌œک7KکKک —ڑ‍œ‌œ"‌œ%کnKڑ‌œ‌œ‌œکKکKک	Kڑœ'‌œک@Kڑ‌œ‌œ‌œ‌œ‌œ‌œ1کTKڑœ‌œ‌œ ک>KکKک —ڑ‍œ‌œک$Kڑœ-ک-Kڑœ*ک*Kڑœ4ک4Kڑœ-ک-کڑ‌œکKڑœ:‌œکMKڑœ+‌œک=Kڑœ6‌œکLKڑœ‌œک5Kڑœ!‌œک9Kڑœ-‌œ
ک;Kڑœک—Kڑœکڑ‌کKڑœ‌œ<کQKڑœ‌œ7کJKڑœ‌œFک^Kڑœ‌œک7Kڑœ‌œ!ک;Kڑœ‌œ7کG—Kک—KکKک —Kک Kڑ‌œک— …—    ®    