filename_ext

(tmp_for_tar/vrml.doc/filename_ext.m)

Function Synopsis

ext = filename_ext( fname )

Help text

       ext = filename_ext( fname )

  Returns the extension -- whatever is after the last dot (".") in fname,
                           IF there is no slash after that dot.

  Returns "" if fname contains no dot or if the last dot is clearly in a
  directory name, as in "A.B/foo".

  Derived from Andy Adler's imread.m.

 Last modified: December 2000

Listing of function file tmp_for_tar/vrml.doc/filename_ext.m

##       ext = filename_ext( fname )
##
##  Returns the extension -- whatever is after the last dot (".") in fname,
##                           IF there is no slash after that dot.
##
##  Returns "" if fname contains no dot or if the last dot is clearly in a
##  directory name, as in "A.B/foo".
##
##  Derived from Andy Adler's imread.m.
##

## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: December 2000

function ext = filename_ext( fname )
  
  ext = "" ;

  if nargin < 1, return ; end

  dot = max (find (fname==".")); 
  if ! isempty(dot) && isempty (find (fname(dot+1:length(fname))=="/")), 
    ext = fname(dot+1:length(fname));
  end