#!/usr/local/bin/perl
##
##  make.CursesTyp.h  -- make CursesTyp.h
##
##  Copyright (c) 2001  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;


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

process_DATA_chunk  \&print_line;
process_typedefs    \&print_typedef;

close OUT;


###
##  Helpers
#
sub print_line { print OUT @_ }

sub print_typedef {
    my $typ = shift;

    return unless $typ->{DOIT};

    print OUT Q<<AAA;
################
#	#ifndef \UC_TYP$typ->{DECL}\E
#	#define $typ->{DECL} int
#	#endif
#
################
AAA
}

__END__
/*  This file can be automatically generated; changes may be lost.
**
**
**  CursesTyp.c -- typedef handlers
**
**  Copyright (c) 1994-2001  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