| Line |  | 
|---|
| 1 | # Date: Fri, 11 Oct 91 11:22:36 edt | 
|---|
| 2 | # From: friedman@gnu.ai.mit.edu | 
|---|
| 3 | # To: bfox@gnu.ai.mit.edu | 
|---|
| 4 |  | 
|---|
| 5 | # A replacement for basename(1).  Not all the systems I use have this | 
|---|
| 6 | # program.  Usage: basename [path] {extension} | 
|---|
| 7 | function basename () | 
|---|
| 8 | { | 
|---|
| 9 | local path="$1" | 
|---|
| 10 | local suffix="$2" | 
|---|
| 11 | local tpath="${path%/}" | 
|---|
| 12 |  | 
|---|
| 13 | # Strip trailing '/' characters from path (unusual that this should | 
|---|
| 14 | # ever occur, but basename(1) seems to deal with it.) | 
|---|
| 15 | while [ "${tpath}" != "${path}" ]; do | 
|---|
| 16 | tpath="${path}" | 
|---|
| 17 | path="${tpath%/}" | 
|---|
| 18 | done | 
|---|
| 19 |  | 
|---|
| 20 | path="${path##*/}"       # Strip off pathname | 
|---|
| 21 | echo ${path%${suffix}}   # Also strip off extension, if any. | 
|---|
| 22 | } | 
|---|
| 23 |  | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.