jehanne/arch/rc/lib/rcmain

# rcmain: Plan 9 version
if(~ $#HOME 0) HOME=/
if(~ $#IFS 0) IFS=' 	
'
switch($#PROMPT){
case 0
	PROMPT=('% ' '	')
case 1
	PROMPT=($PROMPT '	')
}
if(~ $rcname ?.out) PROMPT=('broken! ' '	')
if(flag p) PATH=/cmd
if not{
	finit
	if(~ $#PATH 0) PATH=(/cmd .)
}
fn sigexit
if(! ~ $#rccmd 0){
	if(flag l && /cmd/test -r $HOME/lib/profile) . $HOME/lib/profile
	STATUS=''
	eval $rccmd
}
if not if(flag i){
	if(flag l && /cmd/test -r $HOME/lib/profile) . $HOME/lib/profile
	STATUS=''
	if(! ~ $#* 0) . $*
	. -i '#d/0'
}
if not if(~ $#* 0) . '#d/0'
if not{
	STATUS=''
	. $*
}
exit $STATUS
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`# rcmain: Plan 9 version`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`if(~ $#HOME 0) HOME=/`
			`if(~ $#IFS 0) IFS='`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`'`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`switch($#PROMPT){`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`case 0`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`PROMPT=('% ' ' ')`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`case 1`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`PROMPT=($PROMPT ' ')`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`}`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`if(~ $rcname ?.out) PROMPT=('broken! ' ' ')`
			`if(flag p) PATH=/cmd`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`if not{`
			`finit`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`if(~ $#PATH 0) PATH=(/cmd .)`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`}`
			`fn sigexit`
rc: rename $cflag in $rccmd 2017-10-20 00:14:43 +02:00			`if(! ~ $#rccmd 0){`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`if(flag l && /cmd/test -r $HOME/lib/profile) . $HOME/lib/profile`
			`STATUS=''`
rc: rename $cflag in $rccmd 2017-10-20 00:14:43 +02:00			`eval $rccmd`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`}`
			`if not if(flag i){`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`if(flag l && /cmd/test -r $HOME/lib/profile) . $HOME/lib/profile`
			`STATUS=''`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`if(! ~ $#* 0) . $*`
			`. -i '#d/0'`
			`}`
			`if not if(~ $#* 0) . '#d/0'`
			`if not{`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`STATUS=''`
first usable version of kernel and commands After an year of hard work, this is a first "usable" version of Jehanne. 2016-11-25 17:18:40 +01:00			`. $*`
			`}`
rc: use some uppercase variables (PATH, USER...) 2017-10-22 13:22:37 +02:00			`exit $STATUS`