Import sources from 2011-03-30 iso image - rc

[plan9front.git] / rc / lib / rcmain

diff --git a/rc/lib/rcmain b/rc/lib/rcmain
new file mode 100755 (executable)
index 0000000..44dd567
--- /dev/null
+++ b/rc/lib/rcmain
@@ -0,0 +1,34 @@
+# 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=/bin
+if not{
+       finit
+       if(~ $#path 0) path=(. /bin)
+}
+fn sigexit
+if(! ~ $#cflag 0){
+       if(flag l && /bin/test -r $home/lib/profile) . $home/lib/profile
+       status=''
+       eval $cflag
+}
+if not if(flag i){
+       if(flag l && /bin/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