distrib/sets/getdirs.awk

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