home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / RevisionControl / HWGRCS / bin / coall < prev    next >
Text File  |  1994-09-18  |  960b  |  48 lines
  1. /* Do a simple checkout on everything */
  2. option results
  3.  
  4.     /* We need it ... */
  5.     if ~show('l', 'rexxsupport.library') then do
  6.         call addlib('rexxsupport.library', 0, -30, 0)
  7.     end
  8.  
  9. basepath = "RCS"
  10.  
  11. if exists("RCS_link") then do
  12.     if open(in, "RCS_link", R) then do
  13.         line = readln(in)
  14.         if strip(line) ~= "" then do
  15.             basepath = line
  16.         end
  17.         close(in)
  18.     end
  19. end
  20. else do
  21.     res = rc
  22. end
  23.  
  24. address command "co" mkfilename(basepath, "#?")
  25. res = rc
  26.  
  27. exit res
  28.  
  29. /*------------------------------------------------------------------------*/
  30. /* Put together a file name with the correct separators */
  31. mkfilename: procedure
  32.             parse arg pathpart,file
  33.  
  34.     ot = trace(off)
  35.     if length(pathpart) > 0 then do
  36.         c = right(pathpart, 1)
  37.         if c ~= '/' & c ~= ':' then do
  38.             pathpart = pathpart || '/'
  39.         end
  40.  
  41.         file = pathpart || file
  42.     end
  43.     ot = trace(ot)
  44.  
  45.     return(file)
  46.  
  47.  
  48.