newlib/winsup/cygwin/cygwin-gperf

#!/usr/bin/perl
use strict;
sub read_devices($%);
my $infile = shift;
my $incfile = shift;
open(GPERF, "gperf  -c --key-positions='5-8,1-2,9-10' -r -t -C -E " .
            "-T -L 'ANSI-C' -Hdevhash -N'device::lookup' -Z devstring " .
	    "-7 -G $infile |");
my @lines = <GPERF>;
my $ix = 0;
my $i = 0;
my $n = -1;
my $findclose = 0;
my $add_device = '';
my %fh_static;
my %fh_declare = (
    'cygdrive' => 'dev_cygdrive_storage',
    'fs' => 'dev_fs_storage',
    'proc' => 'dev_proc_storage',
    'registry' => 'dev_registry_storage',
    'process' => 'dev_process_storage',
    'piper' => 'dev_piper_storage',
    'pipew' => 'dev_pipew_storage',
    'tcp' => 'dev_tcp_storage',
    'udp' => 'dev_udp_storage',
    'icmp' => 'dev_icmp_storage',
    'unix' => 'dev_unix_storage',
    'stream' => 'dev_stream_storage',
    'dgram' => 'dev_dgram_storage'
);

foreach (@lines) {
    $i++;
    s/\[(str\[[^\]]*\])\]/[(unsigned) cyg_tolower ($1)]/o and next;
    s/static (.* )wordlist/static NO_COPY $1wordlist/o and do {
	$findclose = 1;
    };
    s/([   ]*)if \(\*str.*$/$1if (strncasematch (str, s, len))/o and next;
    $findclose and /};/o and do {
        $_ .= "\n";
	$_ .=<<'EOF';
const device dev_cygdrive_storage =
  {"/cygdrive", FH_CYGDRIVE, "/cygdrive", 0, 0, 0, 0};

const device dev_fs_storage =
  {"", FH_FS, "", 0, 0, 0, 0};

const device dev_proc_storage =
  {"", FH_PROC, "", 0, 0, 0, 0};

const device dev_registry_storage =
  {"", FH_REGISTRY, "", 0, 0, 0, 0};

const device dev_process_storage =
  {"", FH_PROCESS, "", 0, 0, 0, 0};

const device dev_tcp_storage =
  {"/dev/inet/tcp", FH_TCP, "", 0, 0, 0, 0};

const device dev_udp_storage =
  {"/dev/inet/udp", FH_UCP, "", 0, 0, 0, 0};

const device dev_icmp_storage =
  {"/dev/inet/icmp", FH_ICMP, "", 0, 0, 0, 0};

const device dev_unix_storage =
  {"/dev/inet/unix", FH_UNIX, "", 0, 0, 0, 0};

const device dev_stream_storage =
  {"/dev/inet/stream", FH_STREAM, "", 0, 0, 0, 0};

const device dev_dgram_storage =
  {"/dev/inet/dgram", FH_DGRAM, "", 0, 0, 0, 0};

const device dev_piper_storage =
  {"", FH_PIPER, "", 0, 0, 0, 0};

const device dev_pipew_storage =
  {"", FH_PIPEW, "", 0, 0, 0, 0};

const device dev_fs =
  {"", FH_FS, "", 0, 0, 0, 0};
EOF
        for my $f (sort keys %fh_declare) {
	    $_ .= 'const device dev_' . $f . "_storage = $fh_declare{$f};\n"
	      if $fh_declare{$f} !~ /_storage/;
	}
	$_ .= "\n";
	$_ .= read_devices($incfile, %fh_declare);
	$findclose = 0;
    };
    /^(\s+)(\{".*)/ or next;
    my $indent = $1;
    my $rest = $2;
    for my $f ($rest =~ /\{([^}]+)\}/g) {
	$f eq '""' and do {
	    $ix++;
	    next;
	};
	my ($str, $fh) = (split(/, /, $f))[0..1];
	if ($str !~ m!^"(?:/dev|:bad:)!) {
	    $ix++;
	} else {
	    my $what = lc(($fh =~ /FH_(.+)/o)[0]);
	    my $addon = '';
	    while (defined $fh_static{$what . $addon} &&
		   $fh_static{$what . $addon} ne $f) {
		$addon++;
	    }
	    $what .= $addon;
	    $fh_static{$what} = $f;
	    $fh_declare{$what} = "wordlist[$ix]";
	    $ix++;
	}
    }
}

print @lines;

sub read_devices($%) {
    my $fn = shift;
    my %fh_declare = @_;
    open(F, "$fn") or die "$0: couldn't open $fn - $!\n";
    my (%dev, %fh);
    local $_;
    while (<F>) {
	/^\s*DEV_([A-Z_0-9]+)_MAJOR\s*=\s*(\d+)/ and do {
	    my $dev = lc($1);
	    next unless $fh_declare{$dev};
	    my $a = sprintf "%08d", $2;
	    $dev{$2} = '&' . $fh_declare{$dev} . " /* \L$1 */";
	    next;
	};
	/^\s*FH_([A-Z_0-9]+)\s*=\s*FHDEV\s*\((\d+),\s*(\d+)\)/ and do {
	      my $a = sprintf "%08d.%08d", $2, $3;
	      $fh{$a} = '&' . $fh_declare{lc($1)} . " /* \L$1 */";
	};
    };
    close F;
    my $toprint = '';
    $toprint = "const device *unit_devices[] =\n{";
    for my $f (sort keys %dev) {
	$toprint .= "\n  $dev{$f}," if length($dev{$f});
    }
    chop $toprint;
    $toprint .= "\n};\n\nconst device *uniq_devices[] = \n{";
    for my $f (sort keys %fh) {
	$toprint .= "\n  $fh{$f},";
    }
    chop $toprint;
    $toprint .= "\n};\n";
    return $toprint;
}