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
128
|
__SKIP__=77
skip()
{
echo "$@"
exit ${__SKIP__}
}
remove_commit_id()
{
# Remove a commit id embedded in tags file
sed -i -e '/!_TAG_PROGRAM_VERSION.*/s#/[^/]*/#//#' $1
}
filesize()
{
wc -c < "$1"
}
is_feature_available()
{
local ctags=$1
local tmp=$2
local o="--quiet --options=NONE"
local neg
local feat
if [ "${tmp}" = '!' ]; then
neg=1
feat=$3
else
feat=$2
fi
if [ "${neg}" = 1 ]; then
if ${ctags} $o --list-features --with-list-header=no | grep -q "$feat"; then
skip "feature \"$feat\" is available in $ctags"
fi
else
if ! ${ctags} $o --list-features --with-list-header=no | grep -q "$feat"; then
skip "feature \"$feat\" is not available in $ctags"
fi
fi
}
exit_if_win32()
{
is_feature_available $1 '!' win32
}
exit_unless_win32()
{
is_feature_available $1 win32
}
exit_if_no_case_insensitive_filenames()
{
is_feature_available $1 case-insensitive-filenames
}
run_with_format()
{
echo '#' $*
local format=$1
shift
${CTAGS} --quiet --options=NONE --output-format=$format "$@" -o - input.*
}
exit_status_for_input_c()
{
local ctags=$1
shift
local remove_file=$1
shift
printf "%s => " "$*"
${ctags} --quiet --options=NONE "$@" input.c > /dev/null
local result_local=$?
if [ "$remove_file" != "none" ]; then
rm -f "$remove_file"
fi
if [ "$result_local" = 0 ]; then
echo "ok"
else
echo "failed"
fi
}
get_column_index()
{
local index=0
local ctags=$1
local option=$2
local column=$3
for x in $($ctags --quiet --options=NONE --with-list-header "$option" | sed -ne 's/^#\(.*\)$/\1/p'); do
if [ "$x" = "$column" ]; then
echo $index
return 0
fi
index=$(expr $index + 1)
done
echo -1
return 1
}
filter_by_column_index()
{
local index=$1
local line
local column
local tmp
while read line; do
tmp=0
for column in $line; do
if [ $tmp = $index ]; then
echo $column
fi
tmp=$(expr $tmp + 1)
done
done
}
|
