+function edall

[nethome.git] / .bashrc

diff --git a/.bashrc b/.bashrc
index c1a83bc..960a7e3 100644 (file)
--- a/.bashrc
+++ b/.bashrc
@@ -55,6 +55,9 @@ export PERL_MM_OPT="PREFIX=$HOME"
 export WWW_HOME="file:///home/short/.bookmarks.html"
 export GREP_OPTIONS="--binary-files=without-match --directories=skip"
 
+# even when LANG is set to "en_US" it is lethal - strcoll() starts to sort case-insensitively!
+unset LANG
+
 function cvsdiff    { cvs diff   "$@" 2>&1|             less; }; export -f cvsdiff
 function cvsdiffi   { cvs diff   "$@" 2>&1|grep -v '^?'|less; }; export -f cvsdiffi
 function cvsupdate  { cvs update "$@" 2>&1|             less; }; export -f cvsupdate
@@ -78,6 +81,12 @@ function wclines { awk '{x[$0]++}END{for (i in x) print x[i]"\t"i}'; }; export -
 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 "$@"; }; export -f rsync
+function tohex { od -An -txC /tmp/out|tr -d '\n '|tr 'a-f' 'A-F';echo; }; export -f tohex
+function edall {
+       find -type f|while read -r i;do
+               (awk </dev/null 'BEGIN{ for (i=1;i<ARGC;i++) print ARGV[i]; }' "$@";echo -e 'w\nq')|ed -s "$i"
+               done
+       }; export -f edall
 
 ulimit -c 0