head	1.5;
access;
symbols
	HWGRCSP12F:1.5
	HWGRCSP11F:1.5
	HWGRCSP10F:1.5
	HWGRCSP9:1.5
	HWGRCSP8F:1.5
	HWGRCSP7F:1.5
	C_15:1.5
	HWGRCSP6F:1.5
	HWGRCSP5F:1.5
	HWGRCSp4:1.5
	HWGRCSp3:1.5
	HWGRCS_Fish:1.5
	HWGRCS:1.5;
locks; strict;
comment	@# @;


1.5
date	93.01.18.20.09.47;	author heinz;	state Exp;
branches;
next	1.4;

1.4
date	93.01.18.20.08.31;	author heinz;	state Exp;
branches;
next	1.3;

1.3
date	93.01.18.19.58.14;	author heinz;	state Exp;
branches;
next	1.2;

1.2
date	93.01.18.19.57.18;	author heinz;	state Exp;
branches;
next	1.1;

1.1
date	93.01.18.15.49.21;	author heinz;	state Exp;
branches;
next	;


desc
@The Amiga RCSfreeze script. It depends on SED being around!
@


1.5
log
@And another patch. I'm getting tired ...
@
text
@.key arg
.bra {
.ket }
;
;   This is an AmigaOS replacement for the rcsfreeze script.
;   It works if you don't mess too much with local shell variables.
;
;   $Id: rcsfreeze,v 1.4 1993/01/18 20:08:31 heinz Exp heinz $
;

if exists RCS_link
    set RCSDIR `type RCS_link`
else
    if exists RCS
	set RCSDIR RCS
    else
	set RCSDIR ""
    endif
endif

set AKTDIR `cd`

cd >NIL: $RCSDIR

Set VERSIONFILE .rcsfreeze.ver
Set LOGFILE	.rcsfreeze.log

if not exists $VERSIONFILE
    echo >$VERSIONFILE "0"
    echo >$LOGFILE ""
endif

set VERSIONNUMBER `type $VERSIONFILE`
set VERSIONNUMBER `eval $VERSIONNUMBER + 1`
echo >$VERSIONFILE $VERSIONNUMBER

Set SYMREV  C_$VERSIONNUMBER

if "{arg}" gt ""
    Set SYMREVNAME  "{arg}"
else
    Set SYMREVNAME  $SYMREV
endif

echo "rcsfreeze: symbolic revision number computed: '$SYMREV'"
echo "           symbolic revision number used:     '$SYMREVNAME'"
echo ""
echo "  The two differ only when rcsfreeze was invoked with an argument."
echo ""
echo "Give a log message, summarizing changes (end with EOF or CTRL-\)*N"

echo >T:LOG{$$} "*NVersion: $SYMREVNAME($SYMREV), Date: `DATE`*N"
type >>T:LOG{$$} CONSOLE:

type >>$LOGFILE T:LOG{$$}
delete >NIL: T:LOG{$$}
echo "*N"

failat 21
list >t:q{$$} #?,v lformat="T:SCR{$$} *"%s*" *"$SYMREVNAME*""
cd $AKTDIR

echo >T:SCR{$$}  ".key file,symrevname"
echo >>T:SCR{$$} ".bra ["
echo >>T:SCR{$$} ".ket ]"
echo >>T:SCR{$$} "rlog >T:LOG{$$} -h [file]"
echo >>T:SCR{$$} "echo >PIPE:SED{$$} first 9 *"*`search nonum search branch: T:LOG{$$}*`*""
echo >>T:SCR{$$} "Set REV *`type PIPE:SED{$$}*`"
echo >>T:SCR{$$} "if *"*$REV*" eq *":*""
echo >>T:SCR{$$} "    echo >PIPE:SED{$$} first 7 *"*`search nonum search head: T:LOG{$$}*`*""
echo >>T:SCR{$$} "    Set REV *`type PIPE:SED{$$}*`"
echo >>T:SCR{$$} "endif"
echo >>T:SCR{$$} "delete >NIL: T:LOG{$$}"
echo >>T:SCR{$$} "if not *"*$REV*" eq *":*""
echo >>T:SCR{$$} "echo *"rcsfreeze: '*$REV' [file]*""
echo >>T:SCR{$$} "rcs -q *"-n[symrevname]:*$REV*" [file]"
echo >>T:SCR{$$} "endif"
PROTECT T:SCR{$$} +s

IF exists t:q{$$}
execute t:q{$$}
ELSE
echo "No RCS files found"
ENDIF
delete >NIL: t:q{$$}
delete >NIL: T:SCR{$$}

unset AKTDIR
unset LOGFILE
unset RCSDIR
unset VERSIONFILE
@


1.4
log
@Echo always gives the last character (which is a colon here)
@
text
@d8 1
a8 1
;   $Id: rcsfreeze,v 1.3 1993/01/18 19:58:14 heinz Exp heinz $
d69 1
a69 1
echo >>T:SCR{$$} "if not *"*$REV*" eq *":*""
@


1.3
log
@OOps. The shell doesn't accept # as comment leader ==> No Log Info
@
text
@d8 1
a8 1
;   $Id: rcsfreeze,v 1.2 1993/01/18 19:57:18 heinz Exp heinz $
d69 1
a69 1
echo >>T:SCR{$$} "if not *"*$REV*" gt *"*""
d74 1
a74 1
echo >>T:SCR{$$} "if *"*$REV*" gt *"*""
@


1.2
log
@SED is no longer needed
@
text
@d8 1
a8 3
;   $Id$
;
;   $Log$
@


1.1
log
@Initial revision
@
text
@d4 8
d69 1
a69 1
echo >>T:SCR{$$} "sed <T:LOG{$$} >PIPE:SED{$$} -n *"s/^branch:[   ]*//p*""
d72 1
a72 1
echo >>T:SCR{$$} "    sed <T:LOG{$$} >PIPE:SED{$$} -n *"s/^head:[   ]*//p*""
@