# some programs we need, but we don't know if we'll know the full path
TEST=/usr/bin/test
CAT=/bin/cat

fn init_path{
  if ($TEST -f .path) {
    path=''
    for(i in `{$CAT .path}) if ($TEST -d $i) path=($i $path)
  }
}

fn init{
  init_path
  umask 022
  hostname=`{hostname}
  LC_CTYPE=ISO-8859-1
  CVS_RSH=ssh
  CVSROOT=:ext:bwachter@lart.info:/var/lib/cvs
  history=$home/.rc_history
}

fn l { ls -CF $* }
fn ll { ls -l $* }
fn la { ls '--color=auto' -a $* }

fn - -- {
  comm=`{$0^p $*}
  if (! ~ $#comm 0) {
    echo $comm >[1=2]
    eval $comm
  }
}

fn prompt{
  workdir=`{pwd}
  prompt=`{id -u}^@^$hostname:$workdir
  if (~ $workdir $home) { prompt=$prompt^'~ ' 
  } else { prompt=$prompt^'> ' }
}

init