# Do not remove the following line; MakeMaker relies on it to identify
# this file as a template for defsubs.h
# Extracting defsubs.h (with variable substitutions)
#!perl -w
use File::Spec;
my (undef, $headerpath) = @ARGV;
my ($out) = __FILE__ =~ /(^.*)\.PL/i;
$out =~ s/_h$/.h/;
open(OUT,">$out") || die "Cannot open $file:$!";
print "Extracting $out...\n";
print OUT <<"END";
/*
 !!! Don't modify this file - it's autogenerated from $0 !!!
 */
END

foreach my $const (qw(
 DEBUG_p_FLAG
 DEBUG_s_FLAG
 DEBUG_l_FLAG
 DEBUG_t_FLAG
 DEBUG_o_FLAG
 DEBUG_c_FLAG
 DEBUG_P_FLAG
 DEBUG_m_FLAG
 DEBUG_f_FLAG
 DEBUG_r_FLAG
 DEBUG_x_FLAG
 DEBUG_u_FLAG
 DEBUG_H_FLAG
 DEBUG_X_FLAG
 DEBUG_D_FLAG
 DEBUG_S_FLAG
 DEBUG_T_FLAG
 DEBUG_R_FLAG
 DEBUG_J_FLAG
 DEBUG_v_FLAG
		      ))
 {
  doconst($const);
 }
close(OUT);
               
sub doconst
{
 my $sym = shift;
 my $l = length($sym);
 print OUT <<"END";
 newCONSTSUB(stash,"$sym",newSViv($sym)); 
 av_push(export_ok,newSVpvn("$sym",$l));
END
}
