$begin_vendor = 0;
$blank = 0;
-while (<>) {
- #
- # Clear out trailing whitespace
- #
- s/[ \t]+$//;
-
- #
- # And CR's
- #
- s/\r//g;
-
- #
- # Suppress multiple blank lines
- #
- if (/^\s+$/) {
- next if ($blank == 1);
- $blank = 1;
- print "\n";
- next;
- }
- $blank = 0;
-
- #
- # Remember the vendor
- #
- if (/^VENDOR\s+([\w-]+)\s+(\w+)(.*)/) {
- $name=$1;
- $len = length $name;
- if ($len < 32) {
- $lenx = 32 - $len;
- $lenx += 7; # round up
- $lenx /= 8;
- $lenx = int $lenx;
- $tabs = "\t" x $lenx;
- } else {
- $tabs = " ";
- }
- print "VENDOR\t\t$name$tabs$2$3\n";
- $vendor = $name;
- next;
- }
+while (@ARGV) {
+ $filename = shift;
- #
- # Remember if we did begin-vendor.
- #
- if (/^BEGIN-VENDOR\s+([\w-]+)/) {
- $begin_vendor = 1;
- print "BEGIN-VENDOR\t$vendor\n";
- next;
- }
+ open FILE, "<$filename" or die "Failed to open $filename: $!\n";
+
+ @output = ();
+
+ while (<FILE>) {
+ #
+ # Clear out trailing whitespace
+ #
+ s/[ \t]+$//;
+
+ #
+ # And CR's
+ #
+ s/\r//g;
- #
- # Get attribute.
- #
- if (/^ATTRIBUTE\s+([\w-]+)\s+(\w+)\s+(\w+)(.*)/) {
- $name=$1;
- $len = length $name;
- if ($len < 40) {
- $lenx = 40 - $len;
- $lenx += 7; # round up
- $lenx /= 8;
- $lenx = int $lenx;
- $tabs = "\t" x $lenx;
- if ($tabs eq "") {
+ #
+ # Suppress multiple blank lines
+ #
+ if (/^\s+$/) {
+ next if ($blank == 1);
+ $blank = 1;
+ push @output, "\n";
+ next;
+ }
+ $blank = 0;
+
+ #
+ # Remember the vendor
+ #
+ if (/^VENDOR\s+([\w-]+)\s+(\w+)(.*)/) {
+ $name=$1;
+ $len = length $name;
+ if ($len < 32) {
+ $lenx = 32 - $len;
+ $lenx += 7; # round up
+ $lenx /= 8;
+ $lenx = int $lenx;
+ $tabs = "\t" x $lenx;
+ } else {
$tabs = " ";
}
- } else {
- $tabs = " ";
+ push @output, "VENDOR\t\t$name$tabs$2$3\n";
+ $vendor = $name;
+ next;
}
- $value = $2;
- $type = $3;
- $stuff = $4;
-
#
- # See if it's old format, with the vendor at the end of
- # the line. If so, make it the new format.
+ # Remember if we did begin-vendor.
#
- if ($stuff =~ /$vendor/) {
- if ($begin_vendor == 0) {
- print "BEGIN-VENDOR\t$vendor\n\n";
- $begin_vendor = 1;
+ if (/^BEGIN-VENDOR\s+([\w-]+)/) {
+ $begin_vendor = 1;
+ if (!defined $vendor) {
+ $vendor = $1;
+ } elsif ($vendor ne $1) {
+ # do something smart
}
- $stuff =~ s/$vendor//;
- $stuff =~ s/\s+$//;
- }
- print "ATTRIBUTE\t$name$tabs$value\t$type$stuff\n";
- next;
- }
+ push @output, "BEGIN-VENDOR\t$vendor\n";
+ next;
+ }
- #
- # Values.
- #
- if (/^VALUE\s+([\w-]+)\s+([\w-\/,.]+)\s+(\w+)(.*)/) {
- $attr=$1;
- $len = length $attr;
- if ($len < 32) {
- $lenx = 32 - $len;
- $lenx += 7; # round up
- $lenx /= 8;
- $lenx = int $lenx;
- $tabsa = "\t" x $lenx;
- if ($tabsa eq "") {
- $tabsa = " ";
- $len += 1;
+ #
+ # Get attribute.
+ #
+ if (/^ATTRIBUTE\s+([\w-]+)\s+(\w+)\s+(\w+)(.*)/) {
+ $name=$1;
+ $len = length $name;
+ if ($len < 40) {
+ $lenx = 40 - $len;
+ $lenx += 7; # round up
+ $lenx /= 8;
+ $lenx = int $lenx;
+ $tabs = "\t" x $lenx;
+ if ($tabs eq "") {
+ $tabs = " ";
+ }
} else {
- $len -= $len % 8;
- $len += 8 * length $tabsa;
+ $tabs = " ";
}
- } else {
- $tabsa = " ";
- $len += 1;
+
+ $value = $2;
+ $type = $3;
+ $stuff = $4;
+
+ #
+ # See if it's old format, with the vendor at the end of
+ # the line. If so, make it the new format.
+ #
+ if ($stuff =~ /$vendor/) {
+ if ($begin_vendor == 0) {
+ push @output, "BEGIN-VENDOR\t$vendor\n\n";
+ $begin_vendor = 1;
+ }
+ $stuff =~ s/$vendor//;
+ $stuff =~ s/\s+$//;
+ }
+
+ push @output, "ATTRIBUTE\t$name$tabs$value\t$type$stuff\n";
+ next;
}
#
- # For the code below, we assume that the attribute lengths
+ # Values.
#
- if ($len < 32) {
- $lena = 0;
- } else {
- $lena = $len - 32;
- }
+ if (/^VALUE\s+([\w-]+)\s+([\w-\/,.]+)\s+(\w+)(.*)/) {
+ $attr=$1;
+ $len = length $attr;
+ if ($len < 32) {
+ $lenx = 32 - $len;
+ $lenx += 7; # round up
+ $lenx /= 8;
+ $lenx = int $lenx;
+ $tabsa = "\t" x $lenx;
+ if ($tabsa eq "") {
+ $tabsa = " ";
+ $len += 1;
+ } else {
+ $len -= $len % 8;
+ $len += 8 * length $tabsa;
+ }
+ } else {
+ $tabsa = " ";
+ $len += 1;
+ }
+
+ #
+ # For the code below, we assume that the attribute lengths
+ #
+ if ($len < 32) {
+ $lena = 0;
+ } else {
+ $lena = $len - 32;
+ }
- $name = $2;
- $len = length $name;
- if ($len < 24) {
- $lenx = 24 - $lena - $len;
- $lenx += 7; # round up
- $lenx /= 8;
- $lenx = int $lenx;
- $tabsn = "\t" x $lenx;
- if ($tabsn eq "") {
+ $name = $2;
+ $len = length $name;
+ if ($len < 24) {
+ $lenx = 24 - $lena - $len;
+ $lenx += 7; # round up
+ $lenx /= 8;
+ $lenx = int $lenx;
+ $tabsn = "\t" x $lenx;
+ if ($tabsn eq "") {
+ $tabsn = " ";
+ }
+ } else {
$tabsn = " ";
}
- } else {
- $tabsn = " ";
+
+ push @output, "VALUE\t$attr$tabsa$name$tabsn$3$4\n";
+ next;
}
- print "VALUE\t$attr$tabsa$name$tabsn$3$4\n";
- next;
- }
+ #
+ # Remember if we did this.
+ #
+ if (/^END-VENDOR/) {
+ $begin_vendor = 0;
+ }
- #
- # Remember if we did this.
- #
- if (/^END-VENDOR/) {
- $begin_vendor = 0;
+ #
+ # Everything else gets dumped out as-is.
+ #
+ push @output, $_;
}
- #
- # Everything else gets dumped out as-is.
- #
- print;
-}
-
#
# If we changed the format, print the end vendor, too.
#
-if ($begin_vendor) {
- print "\nEND-VENDOR\t$vendor\n";
+ if ($begin_vendor) {
+ push @output, "\nEND-VENDOR\t$vendor\n";
+ }
+
+ close FILE;
+
+ open FILE, ">$filename" or die "Failed to open $filename: $!\n";
+
+ print FILE @output;
+
+ close FILE;
}