home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / misc / hwgrcs / src / rcs.rcsfiles / checkouthwgrcs < prev    next >
Encoding:
Text File  |  1995-06-25  |  903 b   |  57 lines
  1. head    1.1;
  2. access;
  3. symbols
  4.     HWGRCSP12F:1.1
  5.     HWGRCSP11F:1.1
  6.     HWGRCSP10F:1.1
  7.     HWGRCSP9:1.1
  8.     HWGRCSP8F:1.1
  9.     HWGRCSP7F:1.1
  10.     C_15:1.1;
  11. locks; strict;
  12. comment    @# @;
  13.  
  14.  
  15. 1.1
  16. date    94.01.06.11.52.20;    author heinz;    state Exp;
  17. branches;
  18. next    ;
  19.  
  20.  
  21. desc
  22. @A new script to check out the full distribution with the least problems.
  23. @
  24.  
  25.  
  26. 1.1
  27. log
  28. @Initial revision
  29. @
  30. text
  31. @/* An ARexx script to simplyfy the checkout for the full distribution */
  32.  
  33.     /* We need it ... */
  34.     if ~show('l', 'rexxsupport.library') then do
  35.         call addlib('rexxsupport.library', 0, -30, 0)
  36.     end
  37.  
  38.  
  39.     dir = showdir('rcs.rcsfiles', 'F');
  40.  
  41.     count = 1
  42.     do while word(dir, count) ~= ""
  43.         FN = word(dir, count)
  44.  
  45.         if right(FN,2) = ',v' then do
  46.             FN = left(FN, length(FN)-2)
  47.         end
  48.  
  49.         options failat 99
  50.         say 'checking out' FN
  51.         address command 'co -q' FN
  52.  
  53.         count = count + 1
  54.     end
  55.  
  56. @
  57.