File: copy_one.com

package info (click to toggle)
ghostscript 9.06~dfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 60,732 kB
  • sloc: ansic: 439,964; python: 4,915; cpp: 3,565; sh: 2,520; tcl: 1,482; perl: 1,374; makefile: 421; lisp: 407; awk: 66; yacc: 18
file content (14 lines) | stat: -rw-r--r-- 329 bytes parent folder | download | duplicates (28) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
$ 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)