Basename.csh



#  Emulate the POSIX basename command to extract just the last component
#  of a pathname, deleting any suffix, if specified.

#  Usage:   basename string [ suffix ]

#  Copyright (c) 1996 by Hamilton Laboratories.  All rights reserved.

proc basename( string, suffix )
   local base, i, j

   @ base = $string:t
   if (base == "") @ base = "\"

   if (suffix == "" && suffix != base) return base

   @ i = strlen(base)
   @ j = strlen(suffix)
   return i > j && lower(substr(base, i - j + 1)) == lower(suffix) ? ^
      substr(base, 1, i - j) : base
end

basename $argv



Hamilton C shell | Free Updates | Free Demo Software | Win32 Training
Y2K | Customer Testimonials | On-line Hamilton C shell User Guide
Home | Email | Support | Company Profile | Distributors | Links



Copyright © 1997-2001 by Hamilton Laboratories. All rights reserved.
You are visitor number 660. This page was last modified August 14, 2001.