-# usage example: 'lcheck strcpy'
-#f5# Find out which libs define a symbol
-lcheck() {
- if [[ -n "$1" ]] ; then
- nm -go /usr/lib/lib*.a 2>/dev/null | grep ":[[:xdigit:]]\{8\} . .*$1"
- else
- echo "Usage: lcheck <function>" >&2
- fi
-}
-
-#f5# Clean up directory - remove well known tempfiles
-purge() {
- emulate -L zsh
- setopt HIST_SUBST_PATTERN
- local -a TEXTEMPFILES GHCTEMPFILES PYTEMPFILES FILES
- TEXTEMPFILES=(*.tex(N:s/%tex/'(log|toc|aux|nav|snm|out|tex.backup|bbl|blg|bib.backup|vrb|lof|lot|hd|idx)(N)'/))
- GHCTEMPFILES=(*.(hs|lhs)(N:r:s/%/'.(hi|hc|(p|u|s)_(o|hi))(N)'/))
- PYTEMPFILES=(*.py(N:s/%py/'(pyc|pyo)(N)'/))
- LONELY_MOOD_FILES=((*.mood)(.NDe:'local -a AF;AF=( ${${REPLY#.}%mood}(mp3|flac|ogg|asf|wmv|aac)(N) ); [[ -z "$AF" ]]':))
- ZSH_COMPILED=(*.zwc(.NDe:'[[ -f ${REPLY%.zwc} && ${REPLY%.zwc} -nt ${REPLY} ]]':))
- FILES=(*~(.N) \#*\#(.N) *.o(.N) a.out(.N) (*.|)core(.N) *.cmo(.N) *.cmi(.N) .*.swp(.N) *.(orig|rej)(.DN) *.dpkg-(old|dist|new)(DN) ._(cfg|mrg)[0-9][0-9][0-9][0-9]_*(N) ${~TEXTEMPFILES} ${~GHCTEMPFILES} ${~PYTEMPFILES} ${LONELY_MOOD_FILES} ${ZSH_COMPILED} )
- local NBFILES=${#FILES}
- local CURDIRSUDO=""
- [[ ! -w ./ ]] && CURDIRSUDO=$SUDO
- if [[ $NBFILES > 0 ]] ; then
- print -l $FILES
- local ans
- echo -n "Remove these files? [y/n] "
- read -q ans; echo
- if [[ $ans == "y" ]] ; then
- $CURDIRSUDO rm ${FILES}
- echo ">> $PWD purged, $NBFILES files removed"
- else
- echo "Ok. .. then not.."
- fi
- fi
-}
-
-#f5# show labels and uuids of disk devices
-if is439 && [[ -d /dev/disk/by-id/ ]]; then
- lsdisk() {
- emulate -L zsh
- setopt extendedglob
- local -a -U disks
- local -A mountinfo
- disks=( /dev/disk/by-id/*(@:A) )
- [[ -r /proc/mounts ]] && for cline ( "${(f)$(</proc/mounts)[@]}" ) mountinfo["${cline[(w)1]:A}"]="${cline[(w)2,-1]}"
- for dev in "$disks[@]"; do
- print ${fg_bold[red]}${dev}${reset_color} /dev/disk/by-label/*(@e/'[[ ${REPLY:A} == $dev ]] && REPLY=${fg[blue]}LABEL=${REPLY:t}${reset_color}'/N) /dev/disk/by-uuid/*(@e/'[[ ${REPLY:A} == $dev ]] && REPLY=${fg[green]}UUID=${REPLY:t}${reset_color}'/N)
- [[ -n "${mountinfo["$dev"]}" ]] && print -f " Mount: %s -t %s -o %s\n" ${mountinfo["$dev"][(w)1]} ${mountinfo["$dev"][(w)2]} "${mountinfo["$dev"][(w)3,-5]}"
- for sysdevsize ( /sys/block/${dev:t}/size(N) /sys/block/${${dev:t}%%<->}/${dev:t}/size(N) ) \
- print -f " Size: %.3f GiB (%d Byte)\n" $(($(<$sysdevsize)/(2.0*1024.0*1024.0))) $(($(<$sysdevsize)*512))
-
- print -f " Id: %s\n" /dev/disk/by-id/*(@e/'[[ ${REPLY:A} == $dev ]]'/N:t)
- done
- }
-fi
-
-#f5# run command or function in a list of directories
-rundirs() {
- local d CMD STARTDIR=$PWD
- CMD=$1; shift
- ( for d ($@) {cd -q $d && { print cd $d; ${(z)CMD} ; cd -q $STARTDIR }} )
-}
-