Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
# rcmain: unix version
2 
if(~ $#home 0) home=$HOME
3 
if(~ $#ifs 0) ifs='
4 
'
5 
switch($#prompt){
6 
case 0
7 
	prompt=('% ' '	')
8 
case 1
9 
	prompt=($prompt '	')
10 
}
11 
if(~ $rcname ?.out) prompt=('broken! ' '	')
12 
if(flag p) path=/bin
13 
if not {
14 
	finit
15 
	if(~ $#path 0) path=(. /bin /usr/bin /usr/local/bin)
16 
}
17 
fn sigexit
18 
if(! ~ $#cflag 0){
19 
	if(flag l && test -r $home/lib/profile) . $home/lib/profile
20 
	status=''
21 
	eval $cflag
22 
}
23 
if not if(flag i){
24 
	if(flag l && test -r $home/lib/profile) . $home/lib/profile
25 
	status=''
26 
	if(! ~ $#* 0) . $*
27 
	. -i /dev/fd/0
28 
}
29 
if not if(~ $#* 0) . /dev/fd/0
30 
if not{
31 
	status=''
32 
	. $*
33 
}
34 
exit $status