git: 9front

ref: a26dae7a42de16fcae4fd9e5cf1ffe04fd8c26d1
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)