--PhoneClient.mesa
-- PhoneClient.mesa
-- Created by El Abbadi, June 10, 1983 9:55 am
-- Last Edited by: Elabbadi, August 3, 1983 11:07 am

DIRECTORY

 DB,
  IO USING [PutF, rope, STREAM, CreateViewerStreams],

 PhoneRegistry,

 Rope USING[ROPE]
 ;

 PhoneClient : CEDAR PROGRAM

 IMPORTS DB, IO, PhoneRegistry

 = BEGIN

  OPEN PhoneRegistry;
  name, phone : Rope.ROPE;
  in, out: IO.STREAM;

  Initialization[];
  [in,out] ← IO.CreateViewerStreams["PhoneRegistry"];
  --[] ← in.GetInt[];
  []←RegisterPerson["ElAbbadi, Amr", "ElAbbadi.PA"];
  RegisterPhone[ "ElAbbadi.PA", ,"9 -(415)-494-4424", "Office Number"];
  phone ← GetPhoneNumber[ "Whittam.PA"];
  out.PutF[ "The phone %g. \n", IO.rope[phone]];

  --AddFileToDB["Sample"];

  phone ← GetPhoneNumber[ "Abend.PA",,, "Office Number"];
  name ← GetName[ "Abend.PA"];
  out.PutF[ "The 2nd Name is %g and the 2nd phone %g. \n",
   IO.rope[name],IO.rope[phone]];
   DB.CloseTransaction[trans: DB.TransactionOf[segment: $Grapenut]]
  END.