# -*- shell-script -*- # Copyright (C) 2007 Steve Youngs # What lies here is a collection of handy bash shell functions that # make life a little easier for pkgusr. ## The build logs alogs() { ls -l ${HOME}/*.{err,log} } lerr() { ls -l ${HOME}/*.err } llog() { ls -l ${HOME}/*.log } verr() { local arg=$1 if [ -z "$arg" ]; then arg=all fi case $arg in conf) less ${HOME}/configure.err ;; install) less ${HOME}/install.err ;; check) less ${HOME}/check.err ;; make) less ${HOME}/make.err ;; upd) less ${HOME}/upd.err ;; ver) less ${HOME}/verupd.err ;; all) less ${HOME}/*.err ;; esac } vlog() { local arg=$1 if [ -z "$arg" ]; then arg=all fi case $arg in conf) less ${HOME}/configure.log ;; install) less ${HOME}/install.log ;; check) less ${HOME}/check.log ;; make) less ${HOME}/make.log ;; upd) less ${HOME}/upd.log ;; ver) less ${HOME}/verupd.log ;; all) less ${HOME}/*.log ;; esac } verrlog() { local arg=$1 if [ -z "$arg" ]; then arg=all fi case $arg in conf) less ${HOME}/configure.{err,log} ;; install) less ${HOME}/install.{err,log} ;; check) less ${HOME}/check.{err,log} ;; make) less ${HOME}/make.{err,log} ;; upd) less ${HOME}/upd.{err,log} ;; ver) less ${HOME}/verupd.{err,log} ;; all) less ${HOME}/*.{err,log} ;; esac } dlog() { for log in configure make check install upd verupd; do [[ -f ${HOME}/${log}.err ]] && rm -v ${HOME}/${log}.err [[ -f ${HOME}/${log}.log ]] && rm -v ${HOME}/${log}.log done } updver() { local arg=${1} sed -i "s|\(Version: \).*$|\1${arg}|" ${HOME}/.project echo -n "Version updated... " grep --colour Version:.*$ ${HOME}/.project } showinst() { local top=$(pinky -l $(whoami)|grep -n "^Install Notes:$"|cut -d: -f1) local bot=$(pinky -l $(whoami)|grep -n "^General Notes:$"|cut -d: -f1) pinky -l $(whoami)|sed -n ${top},${bot}p } showgen() { local top=$(pinky -l $(whoami)|grep -n "^General Notes:$"|cut -d: -f1) local bot=$(pinky -l $(whoami)|grep -n "^CONTENTS:$"|cut -d: -f1) pinky -l $(whoami)|sed -n ${top},${bot}p } listp() { pinky -l $(whoami)|less } srepo() { pinky -l $(whoami)|grep --colour Repo_Location:.*$ } rawrepo() { srepo|awk '{print $2;}'|tr -d '<>' } trepo() { pinky -l $(whoami)|grep --colour Repo_Type:.*$ } web() { pinky -l $(whoami)|grep --colour Web_Site:.*$ } rawweb() { web|awk '{print $2;}'|tr -d '<>' } xtar() { local opts local type local fname=$1 if [ -z "${fname}" ]; then echo No filename specified >&2 return 1 fi type=$(file ${fname}|cut -d' ' -f2) case $type in tar) opts=xf ;; gzip) opts=zxf ;; bzip2) opts=jxf ;; xz|XZ) opts=Jxf ;; *) # try lzma if lzmainfo ${fname} &>/dev/null; then opts="--lzma -xf" else printf "Unknown file type: %s\n" $type >&2 return 2 fi ;; esac tar ${opts} ${fname} } vtar() { local opts local type local fname=$1 if [ -z "${fname}" ]; then echo No filename specified >&2 return 1 fi type=$(file ${fname}|cut -d' ' -f2) case $type in tar) opts=tvvvf ;; gzip) opts=ztvvvf ;; bzip2) opts=jtvvvf ;; xz|XZ) opts=Jtvvvf ;; *) # lzma. Here because lzmainfo is too stupid if lzmainfo ${fname} &>/dev/null; then opts="--lzma -tvvvf" else printf "Unknown file type: %s\n" $type >&2 return 2 fi ;; esac tar ${opts} ${fname}|less } ebld() { nano -w ${HOME}/build } epro() { nano -w ${HOME}/.project } ebp() { nano -w ${HOME}/{build,.project} } H-pkg() { cat<