X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=.bashrc;h=eddb9fa3dfe3e11e9a3961875eb720cdbb548009;hp=bb25002f9148490815bff6e6dbe14bfc961827e1;hb=54566b7e49988b19d09e5072bb134247fef1b3ba;hpb=8dce417994ede13b7afe8809cd9ee3083471a7ac diff --git a/.bashrc b/.bashrc index bb25002..eddb9fa 100644 --- a/.bashrc +++ b/.bashrc @@ -3,34 +3,48 @@ if [ -z "$_home_short_dotbashrc" ];then if [ -f /etc/bashrc ];then source /etc/bashrc;fi -function _bash_profile_addpath # variable,dirpathname +function _bash_profile_addpath # , { - if [ '!' -d "$2" ];then return;fi - if [ -n "$3" -o -z "`eval "echo \\${$1}"`" ];then - eval "$1='$2'" + _OPTIND="$OPTIND" + _opt_f=0;_opt_s=0 + OPTIND=1;while getopts fs got;do + case "$got" in + [fs]) eval "_opt_$got=1" ;; + *) exit 1 ;; + esac + done + eval "_varname=\"\$$[$OPTIND+0]\"" + eval "_dirpathname=\"\$$[$OPTIND+1]\"" + if [ $_opt_f = 0 -a '!' -d "$_dirpathname" ];then return;fi + if [ $_opt_s = 1 -o -z "`eval "echo \\${$_varname}"`" ];then + eval "$_varname='$_dirpathname'" else # we want to override any original directories, place dirpathname first! - eval "$1=\"$2:\${$1}\"" + eval "$_varname=\"$_dirpathname:\${$_varname}\"" fi - export "$1" + export "$_varname" + unset _varname _dirpathname _opt_f _opt_s + OPTIND="$_OPTIND";unset _OPTIND } -_bash_profile_addpath PATH "$HOME/bin" -_bash_profile_addpath PATH "$HOME/sbin" -_bash_profile_addpath LD_LIBRARY_PATH "$HOME/lib" -_bash_profile_addpath MANPATH "$HOME/man" +_bash_profile_addpath -f PATH "$HOME/bin" +_bash_profile_addpath -f PATH "$HOME/sbin" +_bash_profile_addpath -f LD_LIBRARY_PATH "$HOME/lib" +_bash_profile_addpath -f MANPATH "$HOME/man" -_bash_profile_addpath CVSROOT "$HOME/cvs" single -_bash_profile_addpath CVSROOT "$HOME/pserver/cvs" single +_bash_profile_addpath -f -s CVSROOT "short@vellum.cz:/home/short/pserver/cvs" # default +_bash_profile_addpath -s CVSROOT "$HOME/pserver/cvs" +_bash_profile_addpath -s CVSROOT "$HOME/cvs" -for _perldir in $(eval "echo $HOME/lib/perl5/site_perl$( +mkdir -p $HOME/lib/perl5 # otherwise CPAN will install to "$HOME/lib/site_perl" etc. +for _perldir in $(eval "echo $HOME/lib/perl5{,/site_perl}$( for perlvar in version archname;do echo -n '{,/' perl -V:"$perlvar"|cut -d "'" -f 2|tr -d '\n' echo -n '}' done )");do - _bash_profile_addpath PERLLIB "$_perldir" + _bash_profile_addpath -f PERLLIB "$_perldir" done unset _perldir @@ -42,6 +56,13 @@ alias maple="ssh -t vega.fjfi.cvut.cz maple" #alias cc='cc -I/home/short/include' alias vi='vim' alias grepb='grep --binary-files=binary' +alias L='lynx' +alias cvsfiles='cvsutil --files --print' +alias cvsignores='cvsutil --ignores --print' +alias cvsignoresall='cvsutil --ignores --workings --print' +alias cvsignoresrm='cvsutil --ignores --rm' +alias cvsignoresrmall='cvsutil --ignores --workings --rm' +alias cvsignoresallrm='cvsutil --ignores --workings --rm' weberr="/var/log/httpd/error/klokan.error_log" if [ -f "$weberr" ];then alias weberr='tail "$weberr"';fi @@ -52,40 +73,36 @@ export IGNOREEOF=10 export TMOUT=900 export EDITOR='vim' export LC_CTYPE=cs_CZ.ISO-8859-2 -export PERL_MM_OPT="PREFIX=$HOME" +export PERL_MM_OPT="PERL=$HOME/bin/perlilib PREFIX=$HOME" export WWW_HOME="file:///home/short/.bookmarks.html" export GREP_OPTIONS="--binary-files=without-match --directories=skip" +if [ -n "$PS1" ];then # set only in interactive sessions + # kbd_mode -u # utf-8 + # export PS1='\[\017\033%G\]'"$PS1" # \017=std charmap, \033%G=utf-8 + export PS1='\[\017\]'"$PS1" # \017=std charmap + fi +export MINICOM="-m -c on" # metakeys+color +export HISTSIZE=100000 +export HISTFILESIZE="$HISTSIZE" +export CVS_RSH="ssh" -# even when LANG is set to "en_US" it is lethal - strcoll() starts to sort case-insensitively! -unset LANG +# Force strcoll() to sort case-sensitively! (empty/undef doesn't work) +export LC_COLLATE=C function cvsdiff { cvs diff "$@" 2>&1|pipebuf -q| less; }; export -f cvsdiff function cvsdiffi { cvs diff "$@" 2>&1|pipebuf -q|grep -v '^?'|less; }; export -f cvsdiffi function cvsupdate { cvs update "$@" 2>&1|pipebuf -q| less; }; export -f cvsupdate function cvsupdatei { cvs update "$@" 2>&1|pipebuf -q|grep -v '^?'|less; }; export -f cvsupdatei -function cvsfiles { - for i in `find . -name Entries|grep '/CVS/Entries$'`;do - j="`echo "$i"|sed 's,CVS/Entries$,,'`" - sed -n 's,^/\([^/]*\)/[^-].*$,'"$j"'\1,p' <$i - done \ - | sed 's%^\./%%' - }; export -f cvsfiles -function cvsignore { - for i in `find . -name .cvsignore`;do - j="`echo "$i"|sed 's,\.cvsignore$,,'`" - sed -n 's,^.*$,'"$j"'&,p' <$i - done - }; export -f cvsignore -function cvsignorerm { cvsignore | xargs rm -f; }; export -f cvsignorerm -function cvsignoreall { - (find -type f|sed -e '\#/CVS/[^/]*$#d' -e 's#^\./##';cvsfiles)|sort|uniq -c|sed -n "s/^ *1`echo -e '\t'`//p" - }; export -f cvsignoreall -function cvsignoreallrm { cvsignoreall | xargs rm -f; }; export -f cvsignoreallrm function wclines { awk '{x[$0]++}END{for (i in x) print x[i]"\t"i}'; }; export -f wclines function ulimitme { ulimit -m 100000 -d 150000 -v 200000; }; export -f ulimitme -function grep { ( ulimitme; `which grep` "$@"; ); }; export -f grep -function rsync { `which rsync` -v -e ssh --progress --stats --partial --block-size=512 "$@"; }; export -f rsync +function grep {(unset grep; ( ulimitme; grep "$@"; ); );}; export -f grep +function finame { find . -false ` + awk );print pop @r while @r;'; }; export -f revlines ulimit -c 0 +set +H +shopt -s mailwarn if [ -f "$HOME/.bashrc.local" ];then source "$HOME/.bashrc.local";fi