diff options
Diffstat (limited to 'scripts/parse-descriptor.pl')
| -rwxr-xr-x | scripts/parse-descriptor.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/scripts/parse-descriptor.pl b/scripts/parse-descriptor.pl index b1729a608..6bde935f0 100755 --- a/scripts/parse-descriptor.pl +++ b/scripts/parse-descriptor.pl @@ -21,6 +21,14 @@ if ($infi !~ /.*descriptor.c/) { open(my $fh, "<", $infi) || croak "can't open $infi: $!"; open(STDOUT, ">", $outfi) || croak "can't open $outfi: $!"; +my $commentStart = "# "; +my $commentEnd = ""; +if ($type eq "html") { + $commentStart = "<!-- "; + $commentEnd = " -->"; +} +printf("%s This file is automatically generated, please edit scripts/parse-descriptor.pl%s\n", $commentStart, $commentEnd); + my $lastVend = ""; my $lastMod = ""; my @descriptors = (); @@ -37,6 +45,9 @@ foreach (@sortedDescriptors) { if ($vend eq $lastVend) { printf(", %s", $mod); } else { + if ($lastVend lt "Seabaer" && $vend gt "Seabaer") { + printf("</li></ul>\n </dd>\n <dt>Seabaer</dt><dd><ul>\n\t <li>T1, H3, HUDC"); + } if ($lastVend lt "Uemis" && $vend gt "Uemis") { printf("</li></ul>\n </dd>\n <dt>Uemis</dt><dd><ul>\n\t <li>Zürich SDA"); } @@ -50,6 +61,9 @@ foreach (@sortedDescriptors) { if ($vend eq $lastVend) { printf(", %s", $mod); } else { + if ($lastVend lt "Seabaer" && $vend gt "Seabaer") { + printf("\nSeabaer: T1, H3, HUDC"); + } if ($lastVend lt "Uemis" && $vend gt "Uemis") { printf("\nUemis: Zürich SDA"); } |