// SaveGrapevineUserForAlto.cm, HGM, March 14, 1981  1:04 PM

FTP @where@>Grapevine Sto/ua ↑
  BodyDefs.bcd LocateDefs.bcd NameInfoDefs.bcd NameInfoSpecialDefs.bcd ↑
  ProtocolDefs.bcd RetrieveDefs.bcd RetrieveXDefs.bcd RListDefs.bcd SendDefs.bcd ↑
  GrapevineUser.bcd GrapevineUser.symbols ↑
  NewGrapevineUserForAlto.cm SaveGrapevineUserForAlto.cm

// Copy over sources too.
// This will screwup if the souces have changed since we build GrapevineUser.

FTP Juniper Dir/c Grapevine>User Retr/c ↑
    source.GrapevineUserDefs source.GrapevineUserImpl GrapevineUser.config
FTP Juniper Dir/c Grapevine>User Retr/c ↑
    @source.GrapevineUserDefs@ @source.GrapevineUserImpl@
FTP @where@>Grapevine Sto/ua ↑
    @source.GrapevineUserDefs@ @source.GrapevineUserImpl@ GrapevineUser.config
Delete ↑
    @source.GrapevineUserDefs@ @source.GrapevineUserImpl@ ↑
    source.GrapevineUserDefs source.GrapevineUserImpl GrapevineUser.config