rcmain 485 B

1234567891011121314151617181920212223242526272829
  1. # rcmain: 9pm version
  2. if(~ $#home 0) home=/
  3. if(~ $#ifs 0) ifs='
  4. '
  5. switch($#prompt){
  6. case 0
  7. case 1
  8. prompt=('% ' ' ')
  9. }
  10. if(~ $rcname v.out) prompt=('broken! ' ' ')
  11. if(! ~ $#cflag 0){
  12. if(flag l && test -r $home/lib/profile) . $home/lib/profile
  13. status=''
  14. eval $cflag
  15. }
  16. if not if(flag i){
  17. if(flag l && test -r $home/lib/profile) . $home/lib/profile
  18. status=''
  19. if(! ~ $#* 0) . $*
  20. if not . -i 'stdin$'
  21. }
  22. if not {
  23. if(~ $#* 0) . 'stdin$'
  24. if not{
  25. status=''
  26. . $*
  27. }
  28. }
  29. exit $status