copy_one.com

来自「GhostScript的源代码」· COM 代码 · 共 15 行

$ 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)