1#!/usr/bin/env perl
2##
3## Copyright (C) 2008-2019, Nigel Stewart <nigels[]users sourceforge net>
4## Copyright (C) 2002-2008, Marcelo E. Magallon <mmagallo[]debian org>
5## Copyright (C) 2002-2008, Milan Ikits <milan ikits[]ieee org>
6##
7## This program is distributed under the terms and conditions of the GNU
8## General Public License Version 2 as published by the Free Software
9## Foundation or, at your option, any later version.
10
11use strict;
12use warnings;
13use File::Basename;
14
15use lib '.';
16do 'bin/make.pl';
17
18##
19## Make Index
20##
21## Output sorted array of extension strings for indexing into extension
22## enable/disable flags.  This provides a way to convert an extension string
23## into an integer index.
24##
25
26my @extlist = ();
27
28if (@ARGV)
29{
30	@extlist = @ARGV;
31
32	foreach my $ext (sort { basename($a) cmp basename($b) } @extlist)
33	{
34		my ($extname, $exturl, $extstring, $reuse, $types, $tokens, $functions, $exacts) =
35			parse_ext($ext);
36
37		print "#ifdef $extname\n";
38		print "  \"$extname\",\n";
39		print "#endif\n";
40	}
41}
42