shithub: riscv

ref: caddc9a6ea0c8aeb2510ec9eda67eb4f2e82a00c
dir: /sys/src/cmd/gs/src/rm_one.com/

View raw version 
$ Verif = F$Verify(0)
$ ! OpenVMS command file to emulate behavior of:
$ !
$ !     Define the command for deleting (a) file(s) (including wild cards)
$ !
$ DELETE="DELETE$$$/LOG"
$ FILE = F$SEARCH("''P1'")
$ IF "''FILE'" .NES. "" THEN DELETE 'FILE'
$ xxx = F$Verify(Verif)