extract_uv_handle_type.pl

gistfile1.pl

use strict;
use warnings;
use 5.010;
use Convert::Binary::C;

my $c = Convert::Binary::C->new;
$c->Include(qw(
  /usr/include
  /usr/include/x86_64-linux-gnu/
  /usr/include/linux
));
$c->Define(qw( __x86_64__ __unix__ __POSIX__ ));

$c->parse('typedef unsigned long int size_t;');
$c->parse_file('uv.h');

foreach my $enum ($c->enum)
{
  next unless defined $enum->{enumerators}->{UV_UNKNOWN_HANDLE};
  foreach my $key (sort { $enum->{enumerators}->{$a} <=> $enum->{enumerators}->{$b} } keys %{ $enum->{enumerators} })
  {
    my $value = $enum->{enumerators}->{$key};
    say "$key = $value";
  }
}

Thanks!