FreeBSD/Linux Kernel Cross Reference
sys/contrib/openzfs/scripts/enum-extract.pl

     #!/usr/bin/env perl
     
     my $usage = <<EOT;
     usage: config-enum enum [file ...]
     
     Returns the elements from an enum declaration.
     
     "Best effort": we're not building an entire C interpreter here!
     EOT
    
    use warnings;
    use strict;
    use Getopt::Std;
    
    my %opts;
    
    if (!getopts("", \%opts) || @ARGV < 1) {
            print $usage;
            exit 2;
    }
    
    my $enum = shift;
    
    my $in_enum = 0;
    
    while (<>) {
            # comments
            s/\/\*.*\*\///;
            if (m/\/\*/) {
                    while ($_ .= <>) {
                            last if s/\/\*.*\*\///s;
                    }
            }
    
            # preprocessor stuff
            next if /^#/;
    
            # find our enum
            $in_enum = 1 if s/^\s*enum\s+${enum}(?:\s|$)//;
            next unless $in_enum;
    
            # remove explicit values
            s/\s*=[^,]+,/,/g;
    
            # extract each identifier
            while (m/\b([a-z_][a-z0-9_]*)\b/ig) {
                    print $1, "\n";
            }
    
            #
            # don't exit: there may be multiple versions of the same enum, e.g.
            # inside different #ifdef blocks. Let's explicitly return all of
            # them and let external tooling deal with it.
            #
            $in_enum = 0 if m/}\s*;/;
    }
    
    exit 0;

Cache object: 02911fc0b5c3a9b5cd5a2dc5df1ec9cf