X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=.bashrc;h=95a48dc019330fdc1a77e271cfc6b27d7129442d;hp=4d907c9d398e6968e413472529b0940a99fe2657;hb=7eb667b1878ec53605011e3f935142a8e55fb9eb;hpb=fd498902c7f787161acc347517543e41ae5120fa diff --git a/.bashrc b/.bashrc index 4d907c9..95a48dc 100644 --- a/.bashrc +++ b/.bashrc @@ -1,41 +1,100 @@ +if [ -n "$_home_short_dotbashrc_norc" -o "${TERM#norc-}" != "$TERM" ];then + # We could get executed twice: + _home_short_dotbashrc_norc=true + # Do not use $TZ as Solaris sshd(8) does not propagate it. + # Be aware you must use 'ssh -t' to propagate $TERM otherwise '=dumb'. + export TERM="${TERM#norc-}" + _home_short_dotbashrc=true +fi + if [ -z "$_home_short_dotbashrc" ];then _home_short_dotbashrc=true + # $TERM gets restored to its 'norc-' state after ~/.bashrc + # alias norc='TERM="norc-$TERM" ssh -t $USER@localhost "cd $PWD; TERM=$TERM;"' + function norc { TERM="norc-$TERM" ssh -t $USER@localhost "cd $PWD; TERM=$TERM;" "$@"; }; export -f norc 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 CVSROOT "$HOME/cvs" single -_bash_profile_addpath CVSROOT "$HOME/pserver/cvs" single +# Use reverse order of preferred directories: +# gid(1) dependency on: /opt/sfw/bin +# EUID="`id -u 2>/dev/null || /usr/xpg4/bin/id -u 2>/dev/null || gid -u`" +_bash_profile_addpath -f PATH "/sbin" +_bash_profile_addpath -f PATH "/usr/sbin" +_bash_profile_addpath -f PATH "/usr/dist/exe" +_bash_profile_addpath -f PATH "/opt/sfw/bin" +_bash_profile_addpath -f PATH "/share/ProductivityTools/exe" +_bash_profile_addpath -f PATH "/usr/local/sbin" +_bash_profile_addpath -f PATH "/usr/local/bin" +[ $EUID -eq 0 ] && _bash_profile_addpath -f PATH "/usr/local/sbin" +_bash_profile_addpath -f LD_LIBRARY_PATH "/opt/sfw/lib" +_bash_profile_addpath -f MANPATH "/usr/X11R6/man" +_bash_profile_addpath -f MANPATH "/usr/share/man" +_bash_profile_addpath -f MANPATH "/usr/local/man" +[ "`uname`" = "SunOS" ] && _bash_profile_addpath -f LD_LIBRARY_PATH "$HOME/Netscape/dist/lib" +for family in "/net/jsc-nfs.czech.sun.com/export/jscqa-local" "$HOME";do + for arch in "$family" $family/`uname -p`;do + # Do not "-f": We use /net ! + _bash_profile_addpath PATH "$arch/bin" + [ $EUID -eq 0 ] && _bash_profile_addpath PATH "$arch/sbin" + _bash_profile_addpath LD_LIBRARY_PATH "$arch/lib" + _bash_profile_addpath MANPATH "$arch/man" + done + done +_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" +_bash_profile_addpath -s JAVA_HOME "/usr/java" +_bash_profile_addpath -s ANT_HOME "/usr/local/ant" -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 {/usr,$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 +### HiveMind_2.0_ga_u6.tar.gz/HiveMindGettingStarted.pdf:26 +_bash_profile_addpath -f PATH "/opt/SUNWhvmd/framework/sparc-sun-solaris/bin" +_bash_profile_addpath -f LD_LIBRARY_PATH "/opt/SUNWhvmd/framework/sparc-sun-solaris/lib" +_bash_profile_addpath -f -s HM_PKG_BASE_DIR "/opt/SUNWhvmd" +_bash_profile_addpath -f -s HM_BASE_DIRS "/opt/SUNWhvmd/examples/tasks" +_bash_profile_addpath -f CLASSPATH "/opt/SUNWhvmd/launcher/GUI/classes/launcher.jar" + unset -f _bash_profile_addpath +for i in tar ls find cp mv ln md5sum du grep ar chown chmod tail;do + which g$i 2>/dev/null | grep '^/' >/dev/null && alias $i=g$i + done + alias ls='ls -bF' alias l='ls -lbF' alias maple="ssh -t vega.fjfi.cvut.cz maple" @@ -43,6 +102,12 @@ alias maple="ssh -t vega.fjfi.cvut.cz maple" 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,44 +117,51 @@ if [ -f "$weblog" ];then alias weblog='tail -n 20000 "$weblog"|grep "\\(~\\|%7[e export IGNOREEOF=10 export TMOUT=900 export EDITOR='vim' -export LC_CTYPE=cs_CZ.ISO-8859-2 -export PERL_MM_OPT="PREFIX=$HOME" -export WWW_HOME="file:///home/short/.bookmarks.html" +[ -x /bin/less ] && export PAGER='/bin/less -MMh5cis' +[ "`uname`" = "SunOS" ] || export LC_CTYPE=cs_CZ.ISO-8859-2 +export PERL_MM_OPT="PERL=$HOME/bin/perlilib PREFIX=$HOME" +for file in $HOME/.bookmarks.html;do + export WWW_HOME="file://$HOME/" + [ -r $file ] && export WWW_HOME="file://$file" + done export GREP_OPTIONS="--binary-files=without-match --directories=skip" +if [ -n "$PS1" ];then # set only in interactive sessions + export PS1='[bash]${USER}@${HOSTNAME}:${PWD}# ' + # 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" +grep -w "$TERM" /etc/termcap >/dev/null || export TERM=vt220 +uname_p="`uname -p`"; [ "$TERM" = vt220 -a "${uname_p%86}" != "$uname_p" ] && export TERM=linux -# even when LANG is set to "en_US" it is lethal - strcoll() starts to sort case-insensitively! -unset LANG +export SOCKS5_SERVER=icsocks.holland.sun.com + +# 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 +# SunOS does not support "-m" +export ULIMITME_OPTS="" +for i in "-m 100000" "-d 150000" "-v 200000";do + (ulimit $i 2>/dev/null) && ULIMITME_OPTS="$ULIMITME_OPTS $i" + done +function ulimitme { ulimit $ULIMITME_OPTS; }; export -f ulimitme +function grep {(unset grep; ( ulimitme; grep "$@"; ); );}; export -f grep function finame { find . -false ` awk );print pop @r while @r;'; }; export -f revlines + +[ "`uname`" = "SunOS" ] && function rpm +{ + _OPTIND="$OPTIND" + _opt_q=0;_opt_a=0;_opt_l=0;_opt_f=0 + OPTIND=1;while getopts qalfv got;do + case "$got" in + [qalf]) eval "_opt_$got=1" ;; + v) ;; + *) exit 1 ;; + esac + done + shift $[$OPTIND-1] + if [ $_opt_q = 0 ];then echo >&2 "rpm: No -q!";return 1;fi + if [ $_opt_a = 1 -a $# != 0 ];then echo >&2 "rpm: -a but some arguments!";return 1;fi + if [ $_opt_a = 0 -a $# = 0 ];then echo >&2 "rpm: -a but no arguments!";return 1;fi + if [ $_opt_l = 1 -a $_opt_f = 1 ];then echo >&2 "rpm: Both -l and -f given!";return 1;fi + if [ $_opt_f = 1 ];then + for file in "$@";do + if [ "$file" = "${file#/}" ];then + file="$PWD/$file" + fi + _out="`pkgchk -l -p "$file"`" + if [ -z "$_out" ];then + echo >&2 "file $file is not owned by any package!" + else + echo -n "$_out"|awk ' + /^[^\t]/{p=0} + /^Referenced by the following packages:$/{p=1} + /^\t/{if (p) { print; } } + ' + fi + unset _out + done + elif [ $_opt_l = 1 ];then + pkgchk -l `pkginfo "$@"|awk '{print $2}'`|sed -n 's/^Pathname: //p' + else + pkginfo "$@"|awk '{print $2}' + fi + unset _opt_q _opt_a _opt_l _opt_f + OPTIND="$_OPTIND";unset _OPTIND +} && export -f rpm ulimit -c 0 set +H @@ -112,3 +236,5 @@ if [ -f "$HOME/.bashrc.local" ];then source "$HOME/.bashrc.local";fi unset _home_short_dotbashrc # permit later reinitializations fi # _home_short_dotbashrc + +true # Prevent crash in '-e' mode