--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.