head	1.1;
access;
symbols
	HWGRCSP7F:1.1
	C_15:1.1;
locks; strict;
comment	@# @;


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


desc
@A new script to check out the full distribution with the least problems.
@


1.1
log
@Initial revision
@
text
@/* An ARexx script to simplyfy the checkout for the full distribution */

    /* We need it ... */
    if ~show('l', 'rexxsupport.library') then do
        call addlib('rexxsupport.library', 0, -30, 0)
    end


    dir = showdir('rcs.rcsfiles', 'F');

    count = 1
    do while word(dir, count) ~= ""
        FN = word(dir, count)

        if right(FN,2) = ',v' then do
            FN = left(FN, length(FN)-2)
        end

        options failat 99
        say 'checking out' FN
        address command 'co -q' FN

        count = count + 1
    end

@
