#!/usr/local/bin/perl
##
##  make.CursesFun.c  -- make CursesFun.c
##
##  Copyright (c) 2000  William Setzer
##
##  You may distribute under the terms of either the Artistic License
##  or the GNU General Public License, as specified in the README file.


use lib 'gen';
use Gen;
use Data::Dumper;

open OUT, "> CursesCon.c"  or die "Can't open CursesCon.c: $!\n";

process_DATA_chunk  \&print_line;
process_constants   \&print_constant;

close OUT;


###
##  The helpers
#
sub print_line { print OUT @_ }

sub print_constant {
    my $con = shift;

    return unless $con->{DOIT};
    return unless $con->{SPEC}{DEFER};

    print OUT Q<<AAA;
################
#	XS(XS_Curses_$con->{NAME})
#	{
#	    dXSARGS;
#	#ifdef $con->{NAME}
#	    {
#		int	ret = $con->{NAME};
#
#		ST(0) = sv_newmortal();
#		sv_setiv(ST(0), (IV)ret);
#	    }
#	    XSRETURN(1);
#	#else
#	    c_con_not_there("$con->{NAME}");
#	    XSRETURN(0);
#	#endif
#	}
#
################
AAA
}

__END__
/*  This file can be automatically generated; changes may be lost.
**
**
**  CursesCon.c -- non-trivial constants
**
**  Copyright (c) 1994-2000  William Setzer
**
**  You may distribute under the terms of either the Artistic License
**  or the GNU General Public License, as specified in the README file.
*/

PAUSE