1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
# -*- shell-script -*-
# hist.sh - Bourne Again Shell Debugger history routines
#
# Copyright (C) 2002, 2003, 2006, 2007, 2008 Rocky Bernstein
# rocky@gnu.org
#
# bashdb is free software; you can redistribute it and/or modify it under
# the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 2, or (at your option) any later
# version.
#
# bashdb is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or
# FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with bashdb; see the file COPYING. If not, write to the Free Software
# Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA.
typeset -i _Dbg_hi_last_stop=0
typeset -i _Dbg_hi=0 # Current next history entry to store into.
typeset -a _Dbg_history=()
typeset -i _Dbg_history_save=1
typeset -i _Dbg_history_length=${HISTSIZE:-256} # gdb's default value
typeset _Dbg_histfile=${HOME:-.}/.bashdb_hist
# Set to rerun history item, or print history if command is of the form
# !n:p. If command is "history" then $1 is number of history item.
# the history command index to run is returned or $_Dbg_hi if
# there's nothing to run.
# Return value in $history_num
_Dbg_history_parse() {
history_num=$1
((history_num < 0)) && ((history_num=${#_Dbg_history[@]}-1+$1))
_Dbg_hi=${#_Dbg_history[@]}
[[ -z $history_num ]] && let history_num=$_Dbg_hi-1
eval "$_seteglob"
if [[ $_Dbg_cmd == h* ]] ; then
if [[ $history_num != $int_pat ]] ; then
if [[ $history_num == -$int_pat ]] ; then
history_num=$_Dbg_hi+$history_num
else
_Dbg_msg "Invalid history number skipped: $history_num"
history_num=-1
fi
fi
else
# Handle ! form. May need to parse number out number and modifier
case $_Dbg_cmd in
\!\-${int_pat}:p )
local -a word1
word1=($(_Dbg_split '!' $_Dbg_cmd))
local -a word2
word2=($(_Dbg_split ':' ${word1[0]}))
local -i num=_Dbg_hi+${word2[0]}
_Dbg_do_history_list $num $num
history_num=-1
;;
[!]${int_pat}:p )
local -a word1
word1=($(_Dbg_split '!' $_Dbg_cmd))
local -a word2
word2=($(_Dbg_split ':' ${word1[0]}))
_Dbg_do_history_list ${word2[0]} ${word2[0]}
history_num=-1
;;
\!\-$int_pat )
local -a word
word=($(_Dbg_split '!' $_Dbg_cmd))
history_num=$_Dbg_hi+${word[0]}
;;
\!$int_pat )
local -a word
word=($(_Dbg_split '!' $_Dbg_cmd))
history_num=${word[0]}
;;
'!' )
if [[ $history_num != $int_pat ]] ; then
if [[ $history_num == -$int_pat ]] ; then
history_num=$_Dbg_hi+$history_num
else
_Dbg_msg "Invalid history number skipped: $history_num"
history_num=-1
fi
fi
;;
* )
_Dbg_msg "Invalid history number skipped: $_Dbg_cmd"
history_num=-1
esac
fi
eval "$_resteglob"
}
_Dbg_history_read() {
if [[ -r $_Dbg_histfile ]] ; then
history -r $_Dbg_histfile
local -a last_history=(`history 1`)
local -i max_history=${last_history[0]}
if (( $max_history > $_Dbg_history_length )) ; then
max_history=$_Dbg_history_length
fi
local OLD_HISTTIMEFORMAT=${HISTTIMEFORMAT}
local hist
HISTTIMEFORMAT=''
local -i i
for (( i=1; (( i <= $max_history )) ; i++ )) ; do
last_history=(`history $i`)
hist=${last_history}[1]
# _Dbg_history[$i]=$hist
done
HISTTIMEFORMAT=${OLD_HISTTIMEFORMAT}
fi
}
# Remove the last command from the history list.
_Dbg_history_remove_item() {
_Dbg_hi=${#_Dbg_history[@]}-1
unset _Dbg_history[$_Dbg_hi]
}
# _Dbg_history_read
|
