recipes

packages recipes for the <noname> package manager
Log | Files | Refs

rcmain (816B)


      1 # rcmain: Plan 9 on Unix version
      2 if(~ $#HOME 1) home=$HOME
      3 if(~ $#home 0) home=/
      4 if(~ $#ifs 0) ifs='
      5 	 '
      6 switch($#prompt){
      7 case 0
      8 	prompt=('; ' '	')
      9 case 1
     10 	prompt=($prompt '	')
     11 }
     12 if(~ $rcname ?.out ?.rc */?.rc */?.out) prompt=('broken! ' '	')
     13 if(flag p) path=(/bin /usr/bin)
     14 if not{
     15 	finit
     16 	# should be taken care of by rc now, but leave just in case
     17 }
     18 fn sigexit
     19 if(! ~ $#cflag 0){
     20 	if(flag l && test -r $home/lib/profile) . $home/lib/profile
     21 	status=''
     22 	eval $cflag
     23 	exit $status
     24 }
     25 if(flag i){
     26 	if(flag l && test -r $home/lib/profile) . $home/lib/profile
     27 	status=''
     28 	if(! ~ $#* 0) . $*
     29 	. -i '/dev/stdin'
     30 	exit $status
     31 }
     32 if(flag l && test -r $home/lib/profile) . $home/lib/profile
     33 if(~ $#* 0){
     34 	. /dev/stdin
     35 	exit $status
     36 }
     37 status=''
     38 if(! ~ $1 /*){
     39 	first=$1
     40 	shift
     41 	*=(./$first $*)
     42 	first=''
     43 }
     44 . $*
     45 exit $status