diff options
Diffstat (limited to 'examples/obashdb')
| -rw-r--r-- | examples/obashdb/PERMISSION | 27 | ||||
| -rw-r--r-- | examples/obashdb/README | 12 | ||||
| -rw-r--r-- | examples/obashdb/bashdb | 33 | ||||
| -rw-r--r-- | examples/obashdb/bashdb.fns | 237 | ||||
| -rw-r--r-- | examples/obashdb/bashdb.pre | 37 |
5 files changed, 346 insertions, 0 deletions
diff --git a/examples/obashdb/PERMISSION b/examples/obashdb/PERMISSION new file mode 100644 index 0000000..4e9460c --- /dev/null +++ b/examples/obashdb/PERMISSION @@ -0,0 +1,27 @@ +From mikel@ora.com Tue Aug 1 12:13:20 1995 +Flags: 10 +Return-Path: mikel@ora.com +Received: from ruby.ora.com (ruby.ora.com [198.112.208.25]) by odin.INS.CWRU.Edu with ESMTP (8.6.12+cwru/CWRU-2.1-ins) + id MAA01565; Tue, 1 Aug 1995 12:13:18 -0400 (from mikel@ora.com for <chet@odin.INS.CWRU.Edu>) +Received: (from fax@localhost) by ruby.ora.com (8.6.12/8.6.11) with UUCP id MAA23251; Tue, 1 Aug 1995 12:07:51 -0400 +Received: by los.ora.com (4.1/Spike-2.1) + id AA00672; Tue, 1 Aug 95 08:57:32 EDT +Date: Tue, 1 Aug 95 08:57:32 EDT +From: mikel@ora.com (Michael Loukides) +Message-Id: <9508011257.AA00672@los.ora.com> +Subject: Re: Ksh debugger from Rosenblatt's book [for bash] +To: Chet Ramey <chet@odin.INS.CWRU.Edu> +Cc: cmarie@ora.com, cam@iinet.com.au, brosenblatt@tm.com +In-Reply-To: Chet Ramey <chet@odin.INS.CWRU.Edu>, Mon, 31 Jul 1995 16:22:48 -0400 + + I've modified a (modified) version of Bill Rosenblatt's ksh debugger + to work with bash-2.0. Does ORA have any problem with me distributing + it with bash-2.0? + +That's great! + +Go ahead and circulate it; in fact, we should probably grab it and +stick it in our ftp archive, and put a reference to it in the book. +(Too late to actually discuss the thing, at least for this edition). +------- + diff --git a/examples/obashdb/README b/examples/obashdb/README new file mode 100644 index 0000000..3373f5f --- /dev/null +++ b/examples/obashdb/README @@ -0,0 +1,12 @@ +This is a modified version of the Korn Shell debugger from Bill +Rosenblatt's `Learning the Korn Shell', published by O'Reilly +and Associates (ISBN 1-56592-054-6). + +The original `kshdb' is available for anonymous FTP with the URL + +http://examples.oreilly.com/korn/ksh.tar.Z + +A revised edition is available at: + +http://examples.oreilly.com/korn2/korn2_examples.tar.gz + diff --git a/examples/obashdb/bashdb b/examples/obashdb/bashdb new file mode 100644 index 0000000..97d287d --- /dev/null +++ b/examples/obashdb/bashdb @@ -0,0 +1,33 @@ +# kshdb - Korn Shell Debugger main file +# adapted from 'Learning the Korn Shell' by Bill Rosenblatt (O'Reilly) +# by Cigy Cyriac (cigy@felix.tulblr.unisys.com) +# Main driver: constructs full script (with preamble) and runs it + +echo 'Bourne-Again Shell Debugger version 0.1' + +_pname=${0##*/} + +[ $# -eq 0 ] && { + echo "${_pname}: usage: ${_pname} <script_file>" + exit 1 +} + +_guineapig=$1 + +[ -r $_guineapig ] || { + echo "${_pname}: cannot read $_guineapig." >&2 + exit 1 +} +shift + +_tmpdir=/tmp +_libdir=. +_dbgfile=$_tmpdir/bashdb$$ #temp file for script being debugged + +cat $_libdir/bashdb.pre $_guineapig > $_dbgfile +if [ -f "$BASH" ]; then + exec $BASH $_dbgfile $_guineapig $_tmpdir $_libdir "$@" +else + exec bash $_dbgfile $_guineapig $_tmpdir $_libdir "$@" +fi +# end of bashdb diff --git a/examples/obashdb/bashdb.fns b/examples/obashdb/bashdb.fns new file mode 100644 index 0000000..ac0612c --- /dev/null +++ b/examples/obashdb/bashdb.fns @@ -0,0 +1,237 @@ +# bashdb.fns - Bourne-Again Shell Debugger functions + +_BUFSIZ=100 + +# Here after each statement in script being debugged. +# Handle single-step and breakpoints. +_steptrap() { + let _curline=$1-1 # no. of line that just ran + let "$_curline < 1" && let _curline=1 + + let "$_curline > $_firstline+$_BUFSIZ" && _readin $_curline + + let " $_trace" && + _msg "$PS4, line $_curline: ${_lines[$(($_curline-$_firstline+1))]}" + + + # if in step mode, decrement counter + let " $_steps >= 0" && let _steps="$_steps - 1" + + # first check if line num or string brkpt. reached + if _at_linenumbp || _at_stringbp; then + _msg "Reached breakpoint at line $_curline" + _cmdloop # enter debugger + + # if not, check whether break condition exists and is true + elif [ -n "$_brcond" ] && eval $_brcond; then + _msg "Break condition $_brcond true at line $_curline" + _cmdloop # enter debugger + + # next, check if step mode and no. of steps is up + elif let "$_steps == 0"; then + _msg "Stopped at line $_curline" + _cmdloop # enter debugger + fi +} + + +# Debugger command loop. +# Here at start of debugger session, when brkpt. reached, or after single-step. +_cmdloop() { + local cmd args + +# added support for default command (last one entered) + + while read -e -p "bashdb> [$lastcmd $lastargs] " cmd args; do + if [ -z "$cmd" ]; then + cmd=$lastcmd + args=$lastargs + fi + + lastcmd="$cmd" + lastargs=$args + +# made commands to be debugger commands by default, no need for '*' prefix + + case $cmd in + bp ) _setbp $args ;; #set brkpt at line num or string + + bc ) _setbc $args ;; # set break condition + + cb ) _clearbp ;; # clear all brkpts. + + g ) return ;; # start/resume execution + + s ) let _steps=${args:-1} + return ;; # single-step N times(default 1) + + x ) _xtrace ;; # toggle execution trace + + pr ) _print $args ;; # print lines in file + + \? | h | help ) _menu ;; # print command menu + + hi ) history ;; # show command history + + q ) _cleanup; exit ;; # quit + + \! ) eval $args ;; # run shell command + + * ) _msg "Invalid command: $cmd" ; _menu ;; + esac + done +} + + +# see if next line no. is a brkpt. +_at_linenumbp() { + if [ -z "${_linebp}" ]; then + return 1 + fi + echo "${_curline}" | grep -E "(${_linebp%\|})" >/dev/null 2>&1 + return $? +} + + +# search string brkpts to see if next line in script matches. +_at_stringbp() { + local l; + + if [ -z "$_stringbp" ]; then + return 1; + fi + l=${_lines[$_curline-$_firstline+1]} + echo "${l}" | grep -E "\\*(${_stringbp%\|})\\*" >/dev/null 2>&1 + return $? +} + + +# print message to stderr +_msg() { + echo -e "$@" >&2 +} + + +# set brkpt(s) at given line numbers and/or strings +# by appending lines to brkpt file +_setbp() { + declare -i n + case "$1" in + "") _listbp ;; + [0-9]*) #number, set brkpt at that line + n=$1 + _linebp="${_linebp}$n|" + _msg "Breakpoint at line " $1 + ;; + *) #string, set brkpt at next line w/string + _stringbp="${_stringbp}$@|" + _msg "Breakpoint at next line containing $@." + ;; + esac +} + + +# list brkpts and break condition. +_listbp() { + _msg "Breakpoints at lines:" + _msg "${_linebp//\|/ }" + _msg "Breakpoints at strings:" + _msg "${_stringbp//\|/ }" + _msg "Break on condition:" + _msg "$_brcond" +} + + +# set or clear break condition +_setbc() { + if [ -n "$@" ] ; then + _brcond=$args + _msg "Break when true: $_brcond" + else + _brcond= + _msg "Break condition cleared" + fi +} + + +# clear all brkpts +_clearbp() { + _linebp= + _stringbp= + _msg "All breakpoints cleared" +} + + +# toggle execution trace feature +_xtrace() { + let _trace="! $_trace" + + _msg "Execution trace \c" + let " $_trace" && _msg "on." || _msg "off." +} + + +# print command menu +_menu() { + +# made commands to be debugger commands by default, no need for '*' prefix + + _msg 'bashdb commands: + bp N set breakpoint at line N + bp string set breakpoint at next line containing "string" + bp list breakpoints and break condition + bc string set break condition to "string" + bc clear break condition + cb clear all breakpoints + g start/resume execution + s [N] execute N statements (default 1) + x toggle execution trace on/off (default on) + pr [start|.] [cnt] print "cnt" lines from line no. "start" + ?, h, help print this menu + hi show command history + q quit + + ! cmd [args] execute command "cmd" with "args" + + default: last command (in "[ ]" at the prompt) + + Readline command line editing (emacs/vi mode) is available' +} + + +# erase temp files before exiting +_cleanup() { + rm $_dbgfile 2>/dev/null +} + + +# read $_BUFSIZ lines from $_guineapig into _lines array, starting from line $1 +# save number of first line read in _firstline +_readin() { + declare -i _i=1 + let _firstline=$1 + + SEDCMD="$_firstline,$(($_firstline+$_BUFSIZ))p" + + sed -n "$SEDCMD" $_guineapig > /tmp/_script.$$ + while read -r _lines[$_i]; do + _i=_i+1 + done < /tmp/_script.$$ + rm -f /tmp/_script.$$ 2>/dev/null +} + +_print() { + typeset _start _cnt + + if [ -z "$1" ] || [ "$1" = . ]; then + _start=$_curline + else + _start=$1 + fi + + _cnt=${2:-9} + + SEDCMD="$_start,$(($_start+$_cnt))p" + + pr -tn $_guineapig | sed -n "$SEDCMD" +} diff --git a/examples/obashdb/bashdb.pre b/examples/obashdb/bashdb.pre new file mode 100644 index 0000000..c9cdb72 --- /dev/null +++ b/examples/obashdb/bashdb.pre @@ -0,0 +1,37 @@ +# bashdb.pre - Bourne-Again Shell Debugger preamble file +# prepended to script being ddebugged +#arguments: +# $1 = name of original guineapig script +# $2 = dir where temp files are stored +# $3 = dir where bashdb.pre and bashdb.fns are stored + +# separate history file for bashdb +HISTFILE=~/.bashdb_history +set -o history +set +H + +# prompt for trace line +PS4="${1}" + +_dbgfile=$0 +_guineapig=$1 +_tmpdir=$2 +_libdir=$3 +shift 3 #move user's args into place + +. $_libdir/bashdb.fns #read in the debugger functions + +_linebp= +_stringbp= +let _trace=1 #init execution trace flag to on + +#read guineapig file into _lines array +_readin 1 + +trap _cleanup EXIT #erase files before exiting + +let _steps=1 #no. of statements to run after setting trap +#set LINENO, gets incremented to 1 +LINENO=0 +trap '_steptrap $LINENO' DEBUG +: |