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
|
# -*- shell-script -*-
# list.sh - Some listing commands
#
# Copyright (C) 2008, 2009 Rocky Bernstein rocky@gnu.org
#
# zshdb 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.
#
# zshdb 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 zshdb; see the file COPYING. If not, write to the Free Software
# Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA.
_Dbg_help_add list \
'list [LOC|.|-] [COUNT] -- List COUNT lines of a script starting from LOC
START is the starting location or dot (.) for current file and
line. Subsequent list commands continue from the last line
listed. Frame switching however resets the line to dot.
If COUNT is omitted, use the setting LISTSIZE. Use "set listsize" to
change this setting.'
# l [start|.|-] [cnt] List cnt lines from line start.
_Dbg_do_list() {
typeset first_arg
if (( $# == 0 )) ; then
if ((_Dbg_listline < 0 )) ; then
first_arg='.'
else
first_arg=$_Dbg_listline
fi
else
first_arg="$1"
shift
fi
typeset count=${1:-$_Dbg_set_listsize}
if [[ $first_arg == '.' ]] ; then
first_arg=$_Dbg_frame_last_lineno
elif [[ $first_arg == '-' ]] ; then
typeset -i start_line
if ((_Dbg_listline < 0 )) ; then
((start_line=_Dbg_frame_last_lineno-_Dbg_set_listsize))
else
((start_line=_Dbg_listline-2*_Dbg_set_listsize))
fi
if (( start_line <= 0 )) ; then
((count=count+start_line-1))
start_line=1
fi
first_arg=$start_line
fi
typeset filename
typeset -i line_number
typeset full_filename
_Dbg_linespec_setup $first_arg
if [[ -n $full_filename ]] ; then
(( $line_number == 0 )) && line_number=1
_Dbg_check_line $line_number "$full_filename"
(( $? == 0 )) && \
_Dbg_list "$full_filename" "$line_number" $count
return $?
else
_Dbg_file_not_read_in "$filename"
return 1
fi
}
# _Dbg_do_list_globals() {
# (($# != 0)) && return 1
# list=(${(k)parameters[(R)*^local*]})
# typeset -i rc=$?
# (( $rc != 0 )) && return $rc
# _Dbg_list_columns
# return $?
# }
# _Dbg_do_list_locals() {
# (($# != 0)) && return 1
# list=(${(k)parameters[(R)*local*]})
# typeset -i rc=$?
# (( $rc != 0 )) && return $rc
# _Dbg_list_columns
# return $?
# }
# List in column form variables having attribute $1.
# A grep pattern can be given in $2. ! indicates negation.
_Dbg_do_list_typeset_attr() {
(($# == 0)) && return 1
typeset attr="$1"; shift
typeset -a list
list=( $(_Dbg_get_typeset_attr "$attr" $*) )
typeset -i rc=$?
(( $rc != 0 )) && return $rc
_Dbg_list_columns
return $?
}
_Dbg_alias_add l list
|
