comment CKDUUE.CLI
comment This macro builds a dumpfile from the C-Kermit for AOS/VS release
comment files and then uuencodes it.  The dumpfile is called ckdker.df
comment and the uuencoded file is called ckdker.uue.

push
prompt pop

comment Kill the searchlist to ensure that any files we find are in the
comment current directory (but first save it in !STRING)
string [!searchlist]
searchlist/k

comment Make sure the uuencode executable is here
[!equal,[!file ckdenco.pr],]
    write Can't find CKDENCO.PR
[!else]

comment Rename from standard Kermit names to names expected on VS
delete/2=ignore kermit.rn kermit.cli.proto
copy kermit.rn ckdins.doc
copy kermit.cli.proto ckdker.cli

acl/2=err (kermit.pr kermit.st kermit.rn kermit.cli.proto ckerm+.ini) &
    op oware + re

acl/2=err (ckcker.upd ckcker.bwr ckdker.bwr ckermit.kdd ckermit.ksd) &
    op oware + re

delete/2=ignore  ckdker.df ckdker.uue

comment Restore original value of searchlist so we can find dump_ii
searchlist [!string]

write Creating dumpfile...
x dump_ii/v ckdker.df kermit.pr kermit.st kermit.rn kermit.cli.proto &
    ckermit.ini ckermod.ini ckcker.upd ckcker.bwr ckdker.bwr ckermit.kdd &
    ckermit.ksd
acl ckdker.df op oware + re

comment Get rid of these
delete/2=ignore kermit.rn kermit.cli

write Uuencoding it...
x ckdenco/l=ckdker.uue ckdker.df ckdker.df
acl ckdker.uue op oware + re

write Done!

[!end]

pop