RapunzelClientDoc.tioga
Copyright Ó 1986, 1988 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) January 8, 1988 4:53:03 am PST
Willie-Sue, March 13, 1987 4:19:26 pm PST
Rapunzel
CEDAR 6.1 — FOR INTERNAL XEROX USE ONLY
Rapunzel
The Dragon Softcard remote debugging transport software
Bill Jackson, Alan Demers, Carl Hauser, Willie-Sue Orr
© Copyright 1986 Xerox Corporation. All rights reserved.
Abstract: The abstract goes here.
Created by: Bill Jackson, Alan Demers, and Willie-Sue Orr
Maintained by: Willie-Sue Orr <Willie-Sue.pa>
Keywords: Dragon, Courier, Debugging
XEROX   Xerox Corporation
    Palo Alto Research Center
    3333 Coyote Hill Road
    Palo Alto, California 94304

For Internal Xerox Use Only
i. Notes for using the interpreter to test the XDE service.
To run a test server (on this or another cedar machine)
RapunzelServer
To run a client (creates an Interpreter window)
Install RapunzelClient
Talking to an Interpreter
If server is running on the same machine
&addr ← XNSCH.LookupAddressFromRope["ME"].address
&ref ← NEW[XNS.Address]
&ref^ ← &addr
&myHandle ← CrRPC.CreateClientHandle[$SPP, &ref]
&sgf[RapunzelP2200V4ClientImpl]
PeekShort[&myHandle, 4]
PokeShort[&myHandle, 4, 37]
PeekShort[&myHandle, 4]
&c ← RapunzelSimpleClientImpl.PeekPokePeek[addr, value]
DoCmds[&myHandle, &c]
&myHandle.procs.destroy[&myHandle]
etc...
or if the server in on other machine
&addr ← XNSCH.LookupAddressFromRope["LoanShark"].address
&ref ← NEW[XNS.Address]
&ref^ ← &addr
&crHandle ← CrRPC.CreateClientHandle[$SPP, &ref]
&sgf[RapunzelP2200V4ClientImpl]
PeekShort[&crHandle, 4]
PokeShort[&crHandle, 4, 37]
PeekShort[&crHandle, 4]
&peekseq ← PeekSeqShort[&crHandle, 0, 10]
&pokeSeq ← RapunzelSimpleClientImpl.PokeSeq[3]
&pokeSeq[0] ← 5
&pokeSeq[1] ← 8
&pokeSeq[2] ← 81
PokeSeqShort[&crHandle, 4, &pokeSeq]
&cmdSeq ← RapunzelSimpleClientImpl.PeekPokePeek[addr, value]
DoCmds[&crHandle, &cmdSeq]
&cmdSeq2 ← RapunzelSimpleClientImpl.PokePeek[addr, value]
DoCmds[&crHandle, &cmdSeq2]
&cmdSeq3 ← RapunzelSimpleClientImpl.PeekPoke[addr, value]
DoCmds[&crHandle, &cmdSeq3]
&cmdSeq4 ← RapunzelSimpleClientImpl.PokePoke[addr, value]
DoCmds[&crHandle, &cmdSeq4]
&cmdSeq5 ← RapunzelSimpleClientImpl.PokePeekPeek[addr1, addr2, value]
DoCmds[&crHandle, &cmdSeq5]
&crHandle.procs.destroy[&crHandle]