getdirs.awk revision 1.6 1 1.6 njoly # $NetBSD: getdirs.awk,v 1.6 2013/03/12 13:08:00 njoly Exp $
2 1.1 lukem #
3 1.1 lukem # Copyright (c) 2002 The NetBSD Foundation, Inc.
4 1.1 lukem # All rights reserved.
5 1.1 lukem #
6 1.1 lukem # This code is derived from software contributed to The NetBSD Foundation
7 1.1 lukem # by Luke Mewburn of Wasabi Systems.
8 1.1 lukem #
9 1.1 lukem # Redistribution and use in source and binary forms, with or without
10 1.1 lukem # modification, are permitted provided that the following conditions
11 1.1 lukem # are met:
12 1.1 lukem # 1. Redistributions of source code must retain the above copyright
13 1.1 lukem # notice, this list of conditions and the following disclaimer.
14 1.1 lukem # 2. Redistributions in binary form must reproduce the above copyright
15 1.1 lukem # notice, this list of conditions and the following disclaimer in the
16 1.1 lukem # documentation and/or other materials provided with the distribution.
17 1.1 lukem #
18 1.1 lukem # THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
19 1.1 lukem # ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
20 1.1 lukem # TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
21 1.1 lukem # PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
22 1.1 lukem # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
23 1.1 lukem # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
24 1.1 lukem # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
25 1.1 lukem # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
26 1.1 lukem # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
27 1.1 lukem # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
28 1.1 lukem # POSSIBILITY OF SUCH DAMAGE.
29 1.1 lukem #
30 1.1 lukem
31 1.1 lukem
32 1.2 lukem function dirname(file) \
33 1.2 lukem {
34 1.3 apb # no need to worry about args that do not contain at least one "/"
35 1.2 lukem gsub(/\/[^\/]+$/, "", file)
36 1.2 lukem return file
37 1.2 lukem }
38 1.2 lukem
39 1.2 lukem # skip empty or whitespace-only lines, or lines with comments
40 1.2 lukem #
41 1.2 lukem /^[ ]*(#|$)/ \
42 1.2 lukem {
43 1.2 lukem next
44 1.1 lukem }
45 1.1 lukem
46 1.2 lukem # skip mtree config lines
47 1.2 lukem #
48 1.2 lukem /^\/(un)?set/ \
49 1.2 lukem {
50 1.2 lukem next
51 1.1 lukem }
52 1.1 lukem
53 1.5 njoly # error if consecutive slashes are found
54 1.5 njoly #
55 1.5 njoly /\/\// \
56 1.5 njoly {
57 1.5 njoly print "Unsupported consecutive slashes in path:" >"/dev/stderr"
58 1.5 njoly print >"/dev/stderr"
59 1.5 njoly exit 1
60 1.5 njoly }
61 1.5 njoly
62 1.6 njoly # error if path has a trailing slash
63 1.6 njoly #
64 1.6 njoly /\/$/ \
65 1.6 njoly {
66 1.6 njoly print "Unsupported path with trailing slash:" >"/dev/stderr"
67 1.6 njoly print >"/dev/stderr"
68 1.6 njoly exit 1
69 1.6 njoly }
70 1.6 njoly
71 1.2 lukem # all other lines are parsed
72 1.2 lukem #
73 1.1 lukem {
74 1.2 lukem print
75 1.2 lukem file = $1
76 1.2 lukem items[file]++
77 1.2 lukem do {
78 1.2 lukem file = dirname(file)
79 1.2 lukem dirs[file]++
80 1.2 lukem } while (file ~ /\//)
81 1.1 lukem }
82 1.1 lukem
83 1.2 lukem END \
84 1.2 lukem {
85 1.1 lukem for (file in dirs) {
86 1.2 lukem if (! (file in items))
87 1.3 apb print file " optional type=dir"
88 1.1 lukem }
89 1.1 lukem }
90