shithub: rc

ref: 018aa5f60d26cea3f6e11f21395555a52f9703a4
dir: /rcmain.unix/

View raw version 
# rcmain: unix version
if(~ $#home 0) home=$HOME
if(~ $#ifs 0) ifs=' 	
'
profile=$home/.rcrc
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) {
		. -q $profile
	}
	status=''
	eval $cflag
}
if not if(flag i){
	if(flag l) {
		. -q $profile
	}
	status=''
	if(! ~ $#* 0) . $*
	. -i /dev/fd/0
}
if not if(~ $#* 0) . /dev/fd/0
if not{
	status=''
	. $*
}