head     1.3;
branch   ;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


1.3
date     91.06.07.14.33.06;  author dlarson;  state Exp;
branches ;
next     1.2;

1.2
date     91.04.10.11.31.32;  author dlarson;  state Stab;
branches ;
next     1.1;

1.1
date     91.04.09.11.11.30;  author dlarson;  state Exp;
branches ;
next     ;


desc
@@


1.3
log
@fixed for directories with RCS dir instead of RCS_link file
@
text
@.key PATTERN/k,QUIET/s,opt1,opt2,opt3,opt4
.bra {
.ket }
IF NOT {QUIET} ;env:RefreshQuiet
	echo "Refresh overwrites all files in the current directory." NOLINE
	ask  "  Continue (Y/N)?"
	IF NOT WARN
		QUIT
	ENDIF
ENDIF
failat 21
IF EXISTS RCS_link
	copy RCS_link env:RefreshTemp QUIET
ELSE
	echo "No RCS_link!  This better not be source which belongs on HOG!"
	IF EXISTS RCS
		echo >env:RefreshTemp RCS/
	ELSE
		echo "No RCS_link *and* no RCS directory.  I quit."
		quit
	ENDIF
ENDIF
list >t:q{$$} $RefreshTemp{PATTERN$~(#?.info|.#?)} lformat="co {opt1$} {opt2} {opt3} {opt4} %s%s"
IF NOT FAIL
execute t:q{$$}
ELSE
echo "Uh-oh, can't find: '$RefreshTemp{PATTERN$~(#?.info|.#?)}'"
ENDIF
delete env:RefreshTemp QUIET
failat 10
;Refresh all files in current dir from the server.
;use -sStab to get the most recent stable versions.
;if you get a warning about a writeable file, something is wrong.  Use
;"rlog filename" on the file with the error -- you've probably got a
;lock on that file, but you might have set locking to non-strict or done
;something else naughty.@


1.2
log
@Corrected error handling.
@
text
@d17 1
a17 1
		type RCS/ >env:RefreshTemp
@


1.1
log
@Initial revision
@
text
@d1 1
a1 1
.key pat,QUIET/s,opt1,opt2,opt3,opt4
d23 1
a23 2
list >t:q{$$} $RefreshTemp{pat$~(#?.info|.#?)} lformat="co {opt1$} {opt2} {opt3} {opt4} %s%s"
delete env:RefreshTemp QUIET
d27 1
a27 1
echo "Uh-oh, can't find: '{pat$~(#?.info|.#?)}'"
d29 1
@
