| #!/bin/bash |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| function tcar_printCaller { |
| |
| local EXPR=${1} |
| local OPTS=${2} |
| |
| case ${OPTS} in |
| |
| --line ) |
| caller ${EXPR} | gawk '{ print $1 }' |
| ;; |
| |
| --name ) |
| caller ${EXPR} | gawk '{ print $2 }' |
| ;; |
| |
| --path ) |
| caller ${EXPR} | gawk '{ print $3 }' |
| ;; |
| |
| * ) |
| |
| |
| |
| caller ${EXPR} | gawk '{ print $2 " L." $1 }' |
| ;; |
| |
| esac |
| |
| } |