;+ ; Contains the extpath function ; ; :Author: ; Gaëlle Boisnard ; ; :History: ; 2004/03/26: Created ; ; 2004/03/26: Last Edit ;- ; ;+ ; recupere le path devant un nom de fichier ; ; :Returns: ; <return desc here> ; ; :Params: ; str: in, required, type=sometype ; A parameter named str ;- Function EXTPATH, str p = max([rstrpos(str,':'),rstrpos(str,'/')]) return,strmid(str,0,p+1) end