don't open target for writing if we're just verifying the tapes

[unix-history] / usr / src / usr.bin / vgrind / tmac.vgrind

diff --git a/usr/src/usr.bin/vgrind/tmac.vgrind b/usr/src/usr.bin/vgrind/tmac.vgrind
index 5164e98..d9d8af2 100644 (file)
--- a/usr/src/usr.bin/vgrind/tmac.vgrind
+++ b/usr/src/usr.bin/vgrind/tmac.vgrind
@@ -9,10 +9,9 @@
 'bd S B 3
 'nr cm 0
 'nf
 'bd S B 3
 'nr cm 0
 'nf

-'wh 0 he
-'de he
+'de vH

 'ev 2
 'ev 2

-'tl '\-\-''\-\-'
+'if t 'if !\nv 'tl '\-\-''\-\-'

 'ft 1
 'sp .35i
 'tl '\s14\f3\\*(=F\fP\s0'\\*(=H'\f3\s14\\*(=F\fP\s0'
 'ft 1
 'sp .35i
 'tl '\s14\f3\\*(=F\fP\s0'\\*(=H'\f3\s14\\*(=F\fP\s0'


@@ -23,11 +22,11 @@
 'ev
 'ds =G \\*(=F
 ..
 'ev
 'ds =G \\*(=F
 ..

-'wh -1i fo
-'de fo
+'de vF

 'ev 2
 'sp .35i
 'ev 2
 'sp .35i

-'tl '\f2\\*(=M''Page % of \\*(=G\fP'
+'ie o 'tl '\f2\\*(=M''Page % of \\*(=G\fP'
+'el 'tl '\f2Page % of \\*(=G''\\*(=M\fP'

 'bp
 'ev
 'ft 1
 'bp
 'ev
 'ft 1


@@ -59,7 +58,6 @@
 'ds =f \&...\\$1
 ..
 'de FC
 'ds =f \&...\\$1
 ..
 'de FC

-\f2\s14\h'\\n(.lu-\w'...\\$1'u'...\\$1\fP\s0\h'|0u'\c

 .if \\nx .tm \\$1 \\*(=F \\n%
 'ds =f \&...\\$1
 ..
 .if \\nx .tm \\$1 \\*(=F \\n%
 'ds =f \&...\\$1
 ..