|
|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T b
Length: 838 (0x346)
Types: TextFile
Names: »bin/basename «
└─⟦656623f33⟧ Bits:30004042/core4.imd SW95705I 386/ix Multi-user Release 1.2
└─⟦this⟧ »bin/basename «
# Copyright (c) 1984 AT&T
# All Rights Reserved
# THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
# The copyright notice above does not evidence any
# actual or intended publication of such source code.
#ident "@(#)basename:basename.sh 1.7"
if [ $# -gt 2 ]
then
echo >&2 "Usage: basename [ path [ suffix-pattern ] ]"
exit 1
fi
# If no first argument or first argument is null, make first argument
# "." Add beginning slash, then remove trailing slashes, then remove
# everything up through last slash, then remove suffix pattern if
# second argument is present.
# If nothing is left, first argument must be of form //*, in which
# case the basename is /.
exec /bin/expr \
"/${1:-.}" : '\(.*[^/]\)/*$' : '.*/\(..*\)' : "\\(.*\\)$2\$" \| \
"/${1:-.}" : '\(.*[^/]\)/*$' : '.*/\(..*\)' \| \
"/${1:-.}" : '.*/\(..*\)'