1#!/usr/bin/env perl -w 2# 3# Copyright (c) 2002 Jordan DeLong 4# All rights reserved. 5# 6# Redistribution and use in source and binary forms, with or without 7# modification, are permitted provided that the following conditions 8# are met: 9# 1. Redistributions of source code must retain the above copyright 10# notice, this list of conditions and the following disclaimer. 11# 2. Redistributions in binary form must reproduce the above copyright 12# notice, this list of conditions and the following disclaimer in the 13# documentation and/or other materials provided with the distribution. 14# 3. Neither the name of the author nor the names of contributors may be 15# used to endorse or promote products derived from this software 16# without specific prior written permission. 17# 18# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 19# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 20# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 21# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 22# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 23# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 24# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 25# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 26# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 27# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 28# SUCH DAMAGE. 29# 30 31use strict; 32 33# 34# print list of static modules or dynamic modules 35# by reading from ../modules.conf 36# 37 38my $type; 39my $i = 0; 40 41if ($#ARGV != 0) { 42 die "improper usage..."; 43} 44$type="$ARGV[0]"; 45 46open CONF, "< ../modules.conf" or die "failed to open file"; 47while (<CONF>) { 48 # eat comments 49 s/#.*$//g; 50 51 if ($i) { 52 if (/^end$/) { 53 $i = 0; 54 next; 55 } 56 s/^[^a-zA-Z]*//g; 57 s/[ \t]+$//g; 58 print; 59 } else { 60 $i = 1 if /$type:/; 61 } 62} 63close CONF; 64