shithub: front

ref: 4c10b20ee85b5d2f4582137918dc014c2cd5aa7a
dir: /sys/src/cmd/gs/src/copy_one.com/

View raw version 
$ Verif = F$Verify(0)
$ ! OpenVMS command file to emulate behavior of:
$ !
$ !     Define the command for copying one file to another
$ !
$ COPY="COPY/LOG"
$ FILE = F$SEARCH(P1)
$ IF P2 .EQS. "." THEN P2 = "[]"
$ IF FILE .NES. ""
$  THEN
$   FFILE = F$ELEMENT(0, ";", FILE)
$   COPY 'FFILE' 'P2'
$  ENDIF
$ xxx = F$Verify(Verif)