DIRECTORY ChipTestRemote, ChipTestRemoteRpcControl USING [ExportInterface], Commander USING [CommandProc, Register], IO USING [PutF, rope], PupDefs USING [GetMyName], Rope USING [ROPE], RPC USING [MakeKey], SystemVersion USING [machineType]; ChipTestServerImpl: CEDAR MONITOR IMPORTS ChipTestRemoteRpcControl, Commander, IO, PupDefs, RPC, SystemVersion = BEGIN started: BOOL _ FALSE; Server: Commander.CommandProc = BEGIN SELECT TRUE FROM SystemVersion.machineType # dolphin => cmd.out.PutF["I can't be a Dolphin functional test server because I'm not a Dolphin.\n"]; started => cmd.out.PutF["Dolphin functional test server has already been started.\n"]; ENDCASE => BEGIN me: Rope.ROPE = PupDefs.GetMyName[]; ChipTestRemoteRpcControl.ExportInterface[interfaceName: [instance: me], user: "Ugh", password: RPC.MakeKey["ugh"]]; cmd.out.PutF["Started Dolphin functional test server ""%g"".\n", IO.rope[me]]; started _ TRUE; END; END; Commander.Register[key: "ChipTestServer", proc: Server, doc: "Starts a functional tester server"]; END. zChipTestServerImpl.mesa - Petit Dolphin chip tester RPC server last edited by McCreight, January 19, 1984 1:03 pm Êj˜Jšœ?™?J˜Jšœ2™2J™šÏk ˜ Jšœ˜Jšœœ˜1Jšœ œ˜(Jšœœ˜Jšœœ ˜Jšœœœ˜Jšœœ ˜Jšœœ˜"—J˜š œœœœ&œ œ˜pJš˜J˜Jšœ œœ˜J˜šœ˜Jš˜šœœ˜šœ&˜&JšœY˜Y—JšœV˜Všœ˜ Jš˜Jšœ œ˜$Jšœ_œ˜sJšœAœ ˜NJšœ œ˜Jšœ˜——Jšœ˜—J˜Jšœb˜bJšœ˜—J˜J˜—…—ø