-- Copyright (C) 1984, 1985  by Xerox Corporation. All rights reserved. 
-- PhoneNetExtras.mesa, HGM,  7-Jun-85  0:14:16
-- Hacks for getting more info via PhoneNetFriends

DIRECTORY
  PupTypes USING [PupSocketID],
  PhoneNetFriends USING [PhoneNetEvents];

PhoneNetExtras: DEFINITIONS =
  BEGIN
  
  pupCongestion: PhoneNetFriends.PhoneNetEvents = pkt;
  nsCongestion: PhoneNetFriends.PhoneNetEvents = pktPlus;
  pupTooGreedy: PhoneNetFriends.PhoneNetEvents = ltaArrived;
  nsTooGreedy: PhoneNetFriends.PhoneNetEvents = sendAPktTO;
  
  pupDupsFiltered: PhoneNetFriends.PhoneNetEvents = sendersTO;
  leafDupsFiltered: PhoneNetFriends.PhoneNetEvents = mastersTO;
  nsDupsFiltered: PhoneNetFriends.PhoneNetEvents = ltaSent;
  
  pupBytesSend: PhoneNetFriends.PhoneNetEvents = systemPacketSent;
  nsBytesSend: PhoneNetFriends.PhoneNetEvents = notInDataState;
  
  leafPktsSend: PhoneNetFriends.PhoneNetEvents = noPupTranslation;
  leafBytesSend: PhoneNetFriends.PhoneNetEvents = sendingNoDSR;
  
  leaf: PupTypes.PupSocketID = [0, 43B];

  END...