home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 216.lha / RexxArpLib_v2.1 / rexx / filelist / stripstar.txed < prev   
Encoding:
Text File  |  1996-02-15  |  521 b   |  27 lines
  1. /* this is stripstar */
  2.  
  3. arg pathname
  4.  
  5. pathname = strip(pathname)
  6.  
  7.  
  8. starloc = index(pathname,"*")
  9.  
  10. if starloc ~= 0 then do
  11.     colonloc = index(pathname,":")
  12.     if colonloc ~=0 then parse var pathname dir ":" pathname
  13.  
  14.     parse var pathname pathname "*" rest
  15.  
  16.     if pathname ~= "" then do
  17.        pathname = reverse(pathname)
  18.        parse var pathname frag "/" pathname
  19.        pathname = reverse(pathname)
  20.     end
  21.  
  22.     if pathname ~= "" then pathname = dir":"pathname"/"
  23.     else pathname = dir":"
  24. end
  25.  
  26. return pathname
  27.