12345678910111213141516171819202122232425262728293031323334 |
- # rcmain: unix version
- if(~ $#home 0) home=$HOME
- if(~ $#ifs 0) ifs='
- '
- switch($#prompt){
- case 0
- prompt=('% ' ' ')
- case 1
- prompt=($prompt ' ')
- }
- if(~ $rcname ?.out) prompt=('broken! ' ' ')
- if(flag p) path=/bin
- if not {
- finit
- if(~ $#path 0) path=(. /bin /usr/bin /usr/local/bin)
- }
- fn sigexit
- if(! ~ $#cflag 0){
- if(flag l && test -r $home/lib/profile) . $home/lib/profile
- status=''
- eval $cflag
- }
- if not if(flag i){
- if(flag l && test -r $home/lib/profile) . $home/lib/profile
- status=''
- if(! ~ $#* 0) . $*
- . -i /dev/fd/0
- }
- if not if(~ $#* 0) . /dev/fd/0
- if not{
- status=''
- . $*
- }
- exit $status
|