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