blob: 7a3429139f36fb3d1c34784728d3820e09cd9370 (
plain)
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
|
echo T.nextfile: tests of nextfile command
awk=${awk-../a.out}
# 1st lines of some files
rm -f foo0
for i in T.*
do
sed 1q $i >>foo0
done
$awk '
{ print $0; nextfile } # print first line, quit
' T.* >foo1
diff foo0 foo1 || echo 'BAD: T.nextfile 1'
$awk ' # same test but in a for loop
{ print $0;
for (i = 1; i < 10; i++)
if (i == 1)
nextfile
print "nextfile for error"
} # print first line, quit
' T.* >foo1
diff foo0 foo1 || echo 'BAD: T.nextfile 1f'
$awk ' # same test but in a while loop
{ print $0;
i = 1
while (i < 10)
if (i++ == 1)
nextfile
print "nextfile while error"
} # print first line, quit
' T.* >foo1
diff foo0 foo1 || echo 'BAD: T.nextfile 1w'
$awk ' # same test but in a do loop
{ print $0;
i = 1
do {
if (i++ == 1)
nextfile # print first line, quit
} while (i < 10)
print "nextfile do error"
}
' T.* >foo1
diff foo0 foo1 || echo 'BAD: T.nextfile 1d'
# 100 lines of some files
rm -f foo0
for i in T.*
do
sed 100q $i >>foo0
done
$awk '
{ print }
FNR == 100 { nextfile } # print first line, quit
' T.* >foo1
diff foo0 foo1 || echo 'BAD: T.nextfile 2'
>foo0 # empty
$awk ' { nextfile; print $0 }' T.* >foo1
diff foo0 foo1 || echo 'BAD: T.nextfile 3'
# skip weird args
rm -f foo0
for i in T.*
do
sed 1q $i >>foo0
done
$awk '
{ print $0; nextfile } # print first line, quit
' T.* >foo1
diff foo0 foo1 || echo 'BAD: T.nextfile 4'
|
