File: append_l.com

package info (click to toggle)
ghostscript 9.06~dfsg-2%2Bdeb8u7
  • links: PTS, VCS
  • area: main
  • in suites: jessie
  • size: 62,484 kB
  • sloc: ansic: 440,074; 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 (19 lines) | stat: -rw-r--r-- 681 bytes parent folder | download | duplicates (26)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
$ Verif = F$Verify(0)
$ ! OpenVMS command file to emulate behavior of:
$ !
$ !      Appending a string to the end of a new or existing file
$ !
$ OPEN="OPEN"
$ WRITE="WRITE"
$ CLOSE="CLOSE"
$ IF F$SEARCH("''P1'") .EQS. "" THEN OPEN/WRITE TEXT_FILE 'P1'
$ IF F$SEARCH("''P1'") .NES. "" THEN OPEN/APPEND TEXT_FILE 'P1'
$ IF P2 .NES. "" THEN WRITE TEXT_FILE "''P2'"
$ IF P3 .NES. "" THEN WRITE TEXT_FILE "''P3'"
$ IF P4 .NES. "" THEN WRITE TEXT_FILE "''P4'"
$ IF P5 .NES. "" THEN WRITE TEXT_FILE "''P5'"
$ IF P6 .NES. "" THEN WRITE TEXT_FILE "''P6'"
$ IF P7 .NES. "" THEN WRITE TEXT_FILE "''P7'"
$ IF P8 .NES. "" THEN WRITE TEXT_FILE "''P8'"
$ CLOSE TEXT_FILE
$ xxx = F$Verify(Verif)