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;
13
14use lib '.';
15do 'bin/make.pl';
16
17my @extlist = ();
18my %extensions = ();
19
20our $export = shift;
21
22if (@ARGV)
23{
24    @extlist = @ARGV;
25
26	foreach my $ext (sort @extlist)
27	{
28		my ($extname, $exturl, $extstring, $reuse, $types, $tokens, $functions, $exacts) = parse_ext($ext);
29		my $extvar = $extname;
30		$extvar =~ s/GL(X*)_/GL$1EW_/;
31		print $export . " GLboolean " . prefix_varname($extvar) . ";\n";
32	}
33}
34