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
|
# -*- shell-script -*-
# Things related to file handling.
#
# Copyright (C) 2008 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.
# Directory search patch for unqualified file names
typeset -a _Dbg_dir
_Dbg_dir=('\$cdir' '\$cwd' )
# $1 contains the name you want to glob. return 0 if exists and is
# readible or 1 if not.
# The result will be in variable $filename which is assumed to be
# local'd by the caller
_Dbg_glob_filename() {
typeset cmd="filename=$(expr $1)"
eval $cmd
[[ -r $filename ]]
}
# Either fill out or strip filename as determined by "basename_only"
# and annotate settings
_Dbg_adjust_filename() {
typeset -r filename="$1"
if (( _Dbg_annotate == 1 )) ; then
print -- $(_Dbg_resolve_expand_filename "$filename")
elif ((_Dbg_basename_only)) ; then
print -- ${filename##*/}
else
print -- $filename
fi
}
#
# Resolve $1 to a full file name which exists. First see if filename has been
# mentioned in a debugger "file" command. If not and the file name
# is a relative name use _Dbg_dir to substitute a relative directory name.
#
function _Dbg_resolve_expand_filename {
if (( $# == 0 )) ; then
_Dbg_errmsg "Internal debug error: null file to find"
echo ''
return 1
fi
typeset find_file="$1"
# Is this one of the files we've that has been specified in a debugger
# "FILE" command?
typeset found_file
found_file="${_Dbg_file2canonic[$find_file]}"
if [[ -n $found_file ]] ; then
print -- "$found_file"
return 0
fi
if [[ ${find_file[0]} == '/' ]] ; then
# Absolute file name
full_find_file=$(_Dbg_expand_filename "$find_file")
print -- "$full_find_file"
return 0
elif [[ ${find_file[0]} == '.' ]] ; then
# Relative file name
full_find_file=$(_Dbg_expand_filename "${_Dbg_init_cwd}/$find_file")
if [[ -z "$full_find_file" ]] || [[ ! -r $full_find_file ]]; then
# Try using cwd rather that Dbg_init_cwd
full_find_file=$(_Dbg_expand_filename "$find_file")
fi
print -- "$full_find_file"
return 0
else
# Resolve file using _Dbg_dir
typeset -i n=${#_Dbg_dir[@]}
typeset -i i
for (( i=0 ; i < n; i++ )) ; do
typeset basename="${_Dbg_dir[i]}"
if [[ $basename == '\$cdir' ]] ; then
basename=$_Dbg_cdir
elif [[ $basename == '\$cwd' ]] ; then
basename=$(pwd)
fi
if [[ -f "$basename/$find_file" ]] ; then
print -- "$basename/$find_file"
return 0
fi
done
fi
echo ''
return 1
}
|
