| … | |
… | |
| 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 | |