common/data/bash_pre_rc.sh

	bash_pre_rc.sh revision 7c2fbfb345896881c631598ee3852ce9ce33fb07
########################################################################
#                                                                      #
#               This software is part of the ast package               #
#          Copyright (c) 1982-2008 AT&T Intellectual Property          #
#                      and is licensed under the                       #
#                  Common Public License, Version 1.0                  #
#                    by AT&T Intellectual Property                     #
#                                                                      #
#                A copy of the License is available at                 #
#            http://www.opensource.org/licenses/cpl1.0.txt             #
#         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         #
#                                                                      #
#              Information and Software Systems Research               #
#                            AT&T Research                             #
#                           Florham Park NJ                            #
#                                                                      #
#                  David Korn <dgk@research.att.com>                   #
#                                                                      #
########################################################################
#
# bash compatibility startup script
#
# Author:
# Karsten Fleischer
# Omnium Software Engineering
# An der Luisenburg 7
# D-51379 Leverkusen
# Germany
#
# <K.Fleischer@omnium.de>
#

alias declare=typeset

nameref FUNCNAME=.sh.fun
integer SHLVL
export SHLVL
SHLVL+=1

if  [[ ! $EUID ]]
then    EUID=$(id -u)
    readonly EUID
fi

if  [[ ! $UID ]]
then    UID=$(id -u)
    readonly UID
fi

readonly SHELLOPTS
if ! shopt -qo restricted; then
    IFS=:
    for i in $SHELLOPTS
    do
        [[ -n "$i" ]] && set -o $i
    done
    unset IFS
fi
function SHELLOPTS.get
{
    .sh.value=$(shopt -so)
    .sh.value=${.sh.value//+([[:space:]])on*([[:space:]])/:}
    .sh.value=${.sh.value%:}
}

set -A GROUPS $(id -G)
function GROUPS.set
{
    return 1
}
function GROUPS.unset
{
    unset -f GROUPS.set
    unset -f GROUPS.unset
}

typeset -A DIRSTACK
function DIRSTACK.get
{
    set -A .sh.value $(dirs)
}
function DIRSTACK.set
{
    integer index
    index=_push_max-.sh.subscript
    (( index == _push_max || index < _push_top )) && return
    _push_stack[index]=${.sh.value}
}
function DIRSTACK.unset
{
    unset -f DIRSTACK.get
    unset -f DIRSTACK.set
    unset -f DIRSTACK.unset
}

function PS1.set
{
    typeset prefix remaining=${.sh.value} var= n= k=
    while   [[ $remaining ]]
    do  prefix=${remaining%%'\'*}
        remaining=${remaining#$prefix}
        var+="$prefix"
        case ${remaining:1:1} in
        t)  var+="\$(printf '%(%H:%M:%S)T')";;
        d)  var+="\$(printf '%(%a %b:%e)T')";;
        n)  var+=$'\n';;
        s)  var+=ksh;;
        w)  var+="\$(pwd)";;
        W)  var+="\$(basename \"\$(pwd)\")";;
        u)  var+=$USER;;
        h)  var+=$(hostname -s);;
        '#')    var+=!;;
        !)  var+=!;;
        @)  var+="\$(printf '%(%I:%M%p)T')";;
        '$')    if  (( $(id -u) == 0 ))
            then    var+='#'
            else    var+='$'
            fi;;
        '\')    var+='\\';;
        '['|']')    ;;
        [0-7])  case ${remaining:1:3} in
            [0-7][0-7][0-7])
                k=4;;
            [0-7][0-7])
                k=3;;
            *)  k=2;;
            esac
            eval n="\$'"${remaining:0:k}"'"
            var+=$n
            remaining=${remaining:k}
            continue
            ;;
        "") ;;
        *)  var+='\'${remaining:0:2};;
        esac
        remaining=${remaining:2}
    done
    .sh.value=$var
}
function logout
{
    if shopt -q login_shell; then
        exit
    else
        print ${BASH##*/}: $0: not login shell: use 'exit' >&2
        return 1
    fi
}
PS1="bash$ "

function source
{
    if ! shopt -qpo posix; then
        unset   OPATH
        typeset OPATH=$PATH
        typeset PATH=$PATH
        if shopt -q sourcepath; then
            PATH=$OPATH:.
        else
            PATH=.
        fi
    fi
    . "$@"
}
unalias .
alias .=source

alias enable=builtin

function help
{
    typeset b cmd usage try_cmd man
    function has_help_option
    {
        [[ $1 == @(''|/*|:|echo|false|true|login|test|'[') ]] && return 1
        return 0
    }
    typeset -A short_use=(
        [echo]='Usage: echo [ options ] [arg]...'
        [:]='Usage: : ...'
        [true]='Usage: true ...'
        [false]='Usage: false ...'
        [login]='Usage: login [-p] [name]'
        ['[']='Usage: [ EXPRESSION ] | [ OPTION'
        [test]='Usage: test EXPRESSION | test'
    )
    b=$(builtin)
    if  (( $# == 0))
    then    print 'The following is the current list of built-in commands:'
        print -r $'Type help *name* for more information about name\n'
        for cmd in $b
        do  if  has_help_option $cmd
            then    usage=$($cmd --short 2>&1)
                print -r -- "${usage:7}"
            else    print -r -- ${short_use[$cmd]:7}
            fi
        done
        return
    fi
    b=${b/'['/}
    man=--man
    [[ $1 == -s ]] && man=--short && shift
    for try_cmd
    do  if  has_help_option $try_cmd
        then    if  [[ $try_cmd == @(${b//$'\n'/'|'}) ]]
            then    $try_cmd $man
            else    man $try_cmd
            fi
        elif    [[ $man == '--short' ]]
        then    print -r -- ${short_use[$try_cmd]}
        else    man $try_cmd
        fi
    done
}

function cd
{

    local msg
    local args
    local i
    local a
    local ret

    if ! shopt -q cdable_vars; then
        command cd "$@"
    else
        msg=$(command cd "$@" 2>&1)
        ret=$?
        if [[ $ret != 0 ]]; then
            for i
            do
                case $i in
                -*) args="$args $i" ;;
                */*)    args="$args $i" ;;
                *)  eval a="$"$i
                    if [[ -n $a ]]; then args="$args $a"
                    else args="$args $i"
                    fi
                    ;;
                esac
            done

            command cd $args
        else
            print -- $msg
            return $ret
        fi
    fi
}

typeset BASH=$0
! shopt -qo posix && HISTFILE=~/.bash_history
HOSTNAME=$(hostname)
nameref BASH_SUBSHELL=.sh.subshell