MakeRapunzelServiceImpl.cm
Copyright © 1986 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) September 22, 1986 4:43:28 pm PDT
Willie-Sue, March 18, 1987 1:05:11 pm PST
trying a new protocol without smodeling first (beware)
Flush /LoanShark/*
Copy -c /LoanShark// ← Rapunzel.courier
Copy -c /LoanShark// ← RapunzelServiceImpl.mesa
Chat LoanShark
@MakeRapunzelService
coping with the CCompiler bug in XDE, on LoanShark/XDE
Flush /LoanShark/*
Copy RapunzelDescription.mesa ← /LoanShark//RapunzelDescription.mesa
edit as necessary: BASE[p^] => p
Copy -c /LoanShark// ← RapunzelDescription.mesa
put a new copy of the module on LoanShark/XDE
Copy RapunzelServiceImpl.mesa ← LocalRapunzelServiceImpl.mesa
WriteMesaPlain RapunzelServiceImpl.mesa
Flush /LoanShark/*
Copy -c /LoanShark// ← RapunzelServiceImpl.mesa
chat to LoanShark/XDE and do pieces of MakeRapunzelService.cm & RapunzelService.df
Chat LoanShark
Compiler RapunzelServiceImpl
Compiler RapunzelDescription
Zap RapunzelService.bcd
Binder RapunzelService
SModel/a RapunzelService
Flush /LoanShark/*
Open /LoanShark//Compiler.log!H
Open /LoanShark//RapunzelService.df!H
Open /LoanShark//MakeRapunzelService.cm!H
do the whole shebang!
Bringover/a [Cyan%]<DragonWare0.1>XDE>DF>RapunzelService.df
FTP Cyan% dir/c DragonWare0.1>XDE>Rapunzel ret/c Rapunzel.courier
@MakeRapunzelService
do some local editing
Flush /LoanShark/*
Copy -c LocalRapunzelServiceImpl.mesa ← /LoanShark//RapunzelServiceImpl.mesa!H
TiogaMesa LocalRapunzelServiceImpl.mesa
Open LocalRapunzelServiceImpl.mesa
STPServer stuff on LoanShark
STPServer running/on
STPServer maxConnections/4
STPServer storeAllowed/on
STPServer overwriteAllowed/on
File: RapunzelService.doc - last edit:
Copyright (C) 1986 by Xerox Corporation. All rights reserved.
BJackson.Pa 30-Sep-86 3:15:40
Willie-Sue, October 13, 1986 12:55:40 pm PDT
***Watch out for CCompiler bug(s)***
Bug #1: SEQUENCES have bad description routines generated for these data types. What needs to be done is whenever you run CCompiler, you MUST hand edit the file RapunzelDescription.mesa and change all occurances of the string "BASE[p]" into "p".
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DescribeSeqCmd: Courier.Description = {
p:
LONG
POINTER
TO Rapunzel.SeqCmd = notes.noteSize[
SIZE[Rapunzel.SeqCmd]];
notes.noteArrayDescriptor[p, SIZE[Rapunzel.Cmd], CARDINAL.LAST];
FOR i:Rapunzel.SeqCmdIndex
IN [0..
LENGTH[p])
DO
notes.noteParameters[@p[i], DescribeCmd];
ENDLOOP;
};
instead of:
notes.noteArrayDescriptor[BASE[p], SIZE[Rapunzel.Cmd], CARDINAL.LAST];
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bug #2: CHOICES have bad description routines generated for their data types. What needs to be done is whenever you run CCompiler, you MUST hand edit the file RapunzelDescription.mesa and change all occurances of passages which define the sizes of the individual variant type (so that they do include the type word). These passages look like:
sizes:
ARRAY [0..#)
OF
CARDINAL ¬ [
SIZE[type1], SIZE[type2], ...];
they should look like:
SIZE[tag1 variantRecordType], SIZE[tag2 variantRecordType], ...];
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DescribeCmd: Courier.Description = {
p:
LONG
POINTER
TO Rapunzel.Cmd = notes.noteSize[
SIZE[Rapunzel.Cmd]];
sizes:
ARRAY [0..2)
OF
CARDINAL ¬ [
SIZE[Rapunzel.PokeShortCmd], SIZE[Rapunzel.PeekShortCmd]];
notes.noteChoice[p, SIZE[Rapunzel.Cmd], LONG[DESCRIPTOR[sizes]]];
WITH variant: p
SELECT
FROM
pokeShort => notes.noteParameters[@variant.pokeShort, DescribePokeShortCmd];
peekShort => notes.noteParameters[@variant.peekShort, DescribePeekShortCmd];
ENDCASE;
};
instead of:
SIZE[pokeShort Rapunzel.Cmd], SIZE[peekShort Rapunzel.Cmd]];
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Bug #3: Empty Records have bad description routines generated for these data types. What needs to be done is whenever you run CCompiler, you MUST hand edit the file RapunzelDescription.mesa and change all occurances of passages which would invoke a descripton routine for an empty record so that the descrption routine is NIL (so that the runtime won't check it). This passage looks like:
pokeShort => notes.noteParameters[@variant.pokeShort, DescribePokeShortResult];
they should look like:
pokeShort => notes.noteParameters[@variant.pokeShort, NIL];
In addition, the sizes ARRAY is generated wrong; it says:
sizes:
ARRAY [0..2)
OF
CARDINAL ¬ [
SIZE[pokeShort Rapunzel.Cmd], SIZE[peekShort Rapunzel.Cmd]];
but it should say:
sizes:
ARRAY [0..2)
OF
CARDINAL ¬ [
SIZE[pokeShort Rapunzel.Result], SIZE[peekShort Rapunzel.Result]];
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
DescribeResult: Courier.Description = {
p:
LONG
POINTER
TO Rapunzel.Result = notes.noteSize[
SIZE[Rapunzel.Result]];
sizes:
ARRAY [0..2)
OF
CARDINAL ¬ [
SIZE[pokeShort Rapunzel.Result], SIZE[peekShort Rapunzel.Result]];
notes.noteChoice[p, SIZE[Rapunzel.Result], LONG[DESCRIPTOR[sizes]]];
WITH variant: p
SELECT
FROM
pokeShort => notes.noteParameters[@variant.pokeShort, NIL];
peekShort => notes.noteParameters[@variant.peekShort, DescribePeekShortResult];
ENDCASE;
};
instead of:
sizes:
ARRAY [0..2)
OF
CARDINAL ¬ [
SIZE[pokeShort Rapunzel.Cmd], SIZE[peekShort Rapunzel.Cmd]];
pokeShort => notes.noteParameters[@variant.pokeShort, DescribePokeShortResult];
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~