… | |
… | |
4 | { |
4 | { |
5 | # local file line line_nr error targets_file files |
5 | # local file line line_nr error targets_file files |
6 | targets_file="$1" |
6 | targets_file="$1" |
7 | shift |
7 | shift |
8 | files="$@" |
8 | files="$@" |
9 | echo -n "" > "$targets_file" |
9 | printf "" > "$targets_file" |
10 | |
10 | |
11 | for file in $files; do |
11 | for file in $files; do |
12 | ( |
12 | ( |
13 | line_nr=1 |
13 | line_nr=1 |
14 | while read line; do |
14 | while read line; do |
15 | error=0 |
15 | error=0 |
16 | while [ $error -eq 0 ] && echo $line | grep -q '\[' ; do |
16 | while [ $error -eq 0 ] && echo $line | grep '\[' >/dev/null ; do |
17 | if echo $line | grep -q '\[.*\]'; then |
17 | if echo $line | grep '\[.*\]' >/dev/null; then |
18 | # The use of ! is not portable. |
|
|
19 | echo -n "$file $line_nr " >> "$targets_file" |
18 | printf "%s %s " "$file" "$line_nr" >> "$targets_file" |
20 | echo $line | sed -e 's,^[^\[]*\[,,' -e 's,\].*$,,' \ |
19 | echo $line | sed -e 's,^[^\[]*\[,,' -e 's,\].*$,,' \ |
21 | >> "$targets_file" |
20 | >> "$targets_file" |
22 | else |
21 | else |
23 | echo "In \`$file\' line $line_nr: target brackets inbalance" >&2 |
22 | echo "In \`$file\' line $line_nr: target brackets inbalance" >&2 |
24 | error=1 |
23 | error=1 |
25 | fi |
24 | fi |
26 | line=`echo $line | sed -e 's,^[^]]*\],,'` |
25 | line=`echo $line | sed -e 's,^[^]]*\],,'` |
27 | done |
26 | done |
28 | if [ $error -eq 0 ] && echo $line | grep -q '\]' ; then |
27 | if [ $error -eq 0 ] && echo $line | grep '\]' >/dev/null ; then |
29 | echo "In \`$file\' line $line_nr: target brackets inbalance" >&2 |
28 | echo "In \`$file\' line $line_nr: target brackets inbalance" >&2 |
30 | error=1 |
29 | error=1 |
31 | fi |
30 | fi |
32 | line_nr=$[$line_nr+1] |
31 | line_nr=`echo "$line_nr + 1" | bc` |
33 | done |
32 | done |
34 | ) < $file |
33 | ) < $file |
35 | done |
34 | done |
36 | } |
35 | } |
37 | |
36 | |