home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Objects / TAI-HFX1.LHA / PAR.lzh / DONE.REXX < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-03-20  |  265 b   |  17 lines
  1. /* PAR DONE SCRIPT */
  2.  
  3. ADDRESS DDR
  4.  
  5. PARSE ARG outname
  6.  
  7. EXIT
  8.  
  9. /* filename = GetFileName(outname) */
  10. /* 'DONE' filename */
  11.  
  12. GetFileName: procedure
  13.   ARG fullfile
  14.   c = lastpos("/", fullfile)
  15.   if c = 0 then c = lastpos(":", fullfile)
  16.   return substr(fullfile, c + 1)
  17.