unif.awk revision 1.1 1 1.1 dholland # $NetBSD: unif.awk,v 1.1 2014/07/26 19:30:44 dholland Exp $
2 1.1 dholland
3 1.1 dholland # Copyright (c) 2003 The NetBSD Foundation, Inc.
4 1.1 dholland # All rights reserved.
5 1.1 dholland #
6 1.1 dholland # This code is derived from software contributed to The NetBSD Foundation
7 1.1 dholland # by David Laight.
8 1.1 dholland #
9 1.1 dholland # Redistribution and use in source and binary forms, with or without
10 1.1 dholland # modification, are permitted provided that the following conditions
11 1.1 dholland # are met:
12 1.1 dholland # 1. Redistributions of source code must retain the above copyright
13 1.1 dholland # notice, this list of conditions and the following disclaimer.
14 1.1 dholland # 2. Redistributions in binary form must reproduce the above copyright
15 1.1 dholland # notice, this list of conditions and the following disclaimer in the
16 1.1 dholland # documentation and/or other materials provided with the distribution.
17 1.1 dholland #
18 1.1 dholland # THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
19 1.1 dholland # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
20 1.1 dholland # TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
21 1.1 dholland # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
22 1.1 dholland # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23 1.1 dholland # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24 1.1 dholland # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 1.1 dholland # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26 1.1 dholland # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27 1.1 dholland # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 1.1 dholland # POSSIBILITY OF SUCH DAMAGE.
29 1.1 dholland
30 1.1 dholland # 'unif' lines of file
31 1.1 dholland #
32 1.1 dholland # usage: awk -f unif.awk -v defines=varlist file
33 1.1 dholland #
34 1.1 dholland # looks for blocks of the form:
35 1.1 dholland #
36 1.1 dholland # .if var [|| var]
37 1.1 dholland # ...
38 1.1 dholland # .else
39 1.1 dholland # ...
40 1.1 dholland # .endif
41 1.1 dholland #
42 1.1 dholland # and removes the unwanted lines
43 1.1 dholland # There is some error detection...
44 1.1 dholland
45 1.1 dholland BEGIN {
46 1.1 dholland split(defines, defns)
47 1.1 dholland for (v in defns)
48 1.1 dholland deflist[defns[v]] = 1
49 1.1 dholland delete defns
50 1.1 dholland nested = 0
51 1.1 dholland skip = 0
52 1.1 dholland }
53 1.1 dholland
54 1.1 dholland /^\.if/ {
55 1.1 dholland nested++
56 1.1 dholland else_ok[nested] = 1
57 1.1 dholland if (skip)
58 1.1 dholland next
59 1.1 dholland for (i = 2; i <= NF; i += 2) {
60 1.1 dholland if ($i in deflist)
61 1.1 dholland next
62 1.1 dholland if ($(i+1) != "" && $(i+1) != "||")
63 1.1 dholland exit 1
64 1.1 dholland }
65 1.1 dholland if (!skip)
66 1.1 dholland skip = nested
67 1.1 dholland next
68 1.1 dholland }
69 1.1 dholland
70 1.1 dholland /^\.else/ {
71 1.1 dholland if (!else_ok[nested])
72 1.1 dholland exit 1
73 1.1 dholland else_ok[nested] = 0
74 1.1 dholland if (skip == nested)
75 1.1 dholland skip = 0
76 1.1 dholland else if (!skip)
77 1.1 dholland skip = nested
78 1.1 dholland next
79 1.1 dholland }
80 1.1 dholland
81 1.1 dholland /^\.endif/ {
82 1.1 dholland if (nested == 0)
83 1.1 dholland exit 1
84 1.1 dholland if (skip == nested)
85 1.1 dholland skip = 0
86 1.1 dholland nested--
87 1.1 dholland next
88 1.1 dholland }
89 1.1 dholland
90 1.1 dholland {
91 1.1 dholland if (skip == 0)
92 1.1 dholland print
93 1.1 dholland }
94 1.1 dholland
95 1.1 dholland END {
96 1.1 dholland if (nested != 0)
97 1.1 dholland exit 1
98 1.1 dholland }
99