1
2
3
4
5
6
7
8
9
10
11
12

port () 
{ 
    case $1 in 
        cd)
            shift;
            cd $(`which port` dir "$@")
        ;;
        *)
            `which port` "$@"
        ;;
    esac
}