eccodes/doxygen/process_C_header.pl

#!/usr/bin/env perl
use Data::Dumper;

$|=1;
my $debug = 0;

if (scalar @ARGV < 2) {
  &usage;
}

# Open grib_api.h and extract all macros of the form
#  #define GRIB.*  number
#
my $grib_header_file = $ARGV[0];
my $ecco_header_file = $ARGV[1];

open GRIB_HEADER_FILE, $grib_header_file or die $!;
my @grib_lines = <GRIB_HEADER_FILE>;
close GRIB_HEADER_FILE;

# Store each GRIB_ macro and its value
foreach (@grib_lines) {
    if (/^\s*#define\s+(GRIB[_A-z0-9]+)\s+(.+)/) {
        my $grib_macro = $1;
        my $grib_value = $2;
        #print "m=|$grib_macro| \t\t v=|$grib_value|\n";
        $macro_map{$grib_macro} = $grib_value;
    }
}
#print Data::Dumper->Dump([\%macro_map], ["macro_map"]), $/ if ($debug);

open ECCO_HEADER_FILE, $ecco_header_file or die $!;
my @ecco_lines = <ECCO_HEADER_FILE>;
close ECCO_HEADER_FILE;
# Apply the value from our map to the equivalent CODES_ macros
foreach (@ecco_lines) {
    if (/^\s*#define\s+(CODES[_A-z0-9]+)\s+(GRIB.+)/) {
        # Replace macro lines like:
        #   #define CODES_OUT_OF_RANGE   GRIB_OUT_OF_RANGE
        # with
        #   #define CODES_OUT_OF_RANGE   -65
        my $ecco_macro = $1;
        my $grib_macro = $2;
        print "#define $ecco_macro $macro_map{$grib_macro}\n";
    }
    elsif (/^\s*typedef\s+struct\s+(grib_.*)\s+(codes_.*) *;/) {
        # The struct documentation is placed before declarations like:
        #   typedef struct grib_iterator codes_iterator;
        # This is not useful for users so instead we add just the struct
        # declaration beforehand e.g.
        #   struct codes_iterator;
        my $grib_struct = $1;
        my $ecco_struct = $2;
        print "struct $ecco_struct;\n$&\n";  # Note: $& references the matched string
    }
    else {
        print;
    }
}

###################################################
sub usage {
   print "$0 grib_api.h eccodes.h\n";
   exit 1
}