Return to gen-zone CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / pciutils / maint

Annotation of embedaddon/pciutils/maint/gen-zone, revision 1.1.1.1

1.1       misho       1: #!/usr/bin/perl -w
                      2: # Create a DNS zone with PCI ID records
                      3: 
                      4: use strict;
                      5: 
                      6: my %ids = ();
                      7: my %comments = ();
                      8: foreach our $file (@ARGV) {
                      9:        my $fn = ($file =~ /\.gz$/) ? "zcat $file |" : ($file =~ /\.bz2$/) ? "bzcat $file |" : $file;
                     10:        open F, $fn or die "Unable to open $file: $!";
                     11:        my @id = ();
                     12:        my $comm = "";
                     13:        sub err($) {
                     14:                print STDERR "Error in $file, line $.: @_\n";
                     15:                exit 1;
                     16:        }
                     17:        while (<F>) {
                     18:                if (/^(#.*)/) {
                     19:                        $comm .= $_;
                     20:                        next;
                     21:                }
                     22:                chomp;
                     23:                if (my ($indent, $id, $ignored, $name) = /^(\t*)(([0-9a-fA-Z]+ ?)*)((  |\t|$)\s*(.*))$/) {
                     24:                        my $depth = length $indent;
                     25:                        $depth <= @id or err "Mismatched indentation";
                     26:                        @id = (@id[0..$depth-1], $id);
                     27:                        my $i = join(":", @id);
                     28:                        if ($i ne "") {
                     29:                                !exists $ids{$i} or die "ID $i defined twice";
                     30:                                $ids{$i} = $name;
                     31:                                $comments{$i} = $comm if $comm;
                     32:                        }
                     33:                } elsif (!/^$/) {
                     34:                        err "Parse error";
                     35:                }
                     36:                $comm = "";
                     37:        }
                     38:        close F;
                     39: }
                     40: 
                     41: sub esc($) {
                     42:        my ($x) = @_;
                     43:        $x =~ s/^\s+//;
                     44:        $x =~ s/"/\\"/g;
                     45:        return $x;
                     46: }
                     47: 
                     48: foreach my $i (keys %ids) {
                     49:        my $j = join(".", reverse split(/[: ]/, $i));
                     50:        print "$j.pci\tTXT \"i=", esc($ids{$i}), "\"\n";
                     51:        # print "$j.pci\tTXT \"c=", esc($comments{$i}), "\"\n"
                     52: }