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