solenv/bin/gen_userfeedback_VCL_names.pl

   1 :
   2 eval 'exec perl -wS $0 ${1+"$@"}'
   3     if 0;
   4 #
   5 # This file is part of the LibreOffice project.
   6 #
   7 # This Source Code Form is subject to the terms of the Mozilla Public
   8 # License, v. 2.0. If a copy of the MPL was not distributed with this
   9 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
  10 #
  11 # This file incorporates work covered by the following license notice:
  12 #
  13 #   Licensed to the Apache Software Foundation (ASF) under one or more
  14 #   contributor license agreements. See the NOTICE file distributed
  15 #   with this work for additional information regarding copyright
  16 #   ownership. The ASF licenses this file to you under the Apache
  17 #   License, Version 2.0 (the "License"); you may not use this file
  18 #   except in compliance with the License. You may obtain a copy of
  19 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  20 #
  21 #
  22 # pushids - push HID.LST and *.win files for userexperience feedback
  23 #
  24
  25 use lib ("$ENV{SOLARENV}/bin/modules", "$ENV{COMMON_ENV_TOOLS}/modules");
  26
  27 use Carp;
  28
  29 sub parse_info($$);
  30
  31 if ( @ARGV != 3 )
  32 {
  33   print "usage:   $ARGV[0] <path tp hid.lst> <path to *.win files> <output file>\n";
  34   print "example: $ARGV[0] ./hid.lst global/win common/misc/UserFeedbackNames.csv\n\n";
  35   die "invalid params";
  36 }
  37
  38 my ($hid, $winpath, $outfile) = @ARGV;
  39
  40 my @names;
  41
  42 open HID, "<$hid" or die "can't open file $filename $! $^E";
  43 for (<HID>) {
  44   chop;
  45   my ($longname, $ID) = split " +";
  46   next if ( ! $ID );
  47   $upperlongname = $longname;
  48   $upperlongname =~ tr/a-z/A-Z/;
  49   $undeclared_hids{$upperlongname} = $longname;
  50
  51   if ( exists $hids{$upperlongname} && ( $hids{$upperlongname} != $ID ) )
  52   {
  53     print STDERR "warn: unclear definition of longname: $longname = $hids{$upperlongname} or $ID\n";
  54   }
  55   $hids{$upperlongname} = $ID;
  56
  57   if ( exists $revhids{ $ID } && ( $revhids{ $ID } ne $upperlongname ) )
  58   {
  59     print STDERR "warn: two longnames have the same ID: $longname and $revhids{$ID} share ID $ID\n";
  60   }
  61   $revhids{$ID} = $upperlongname;
  62 }
  63
  64 close HID;
  65
  66 undef @revhids;
  67
  68 #Add Active
  69 $hids{"ACTIVE"} = 0;
  70
  71 my %dialogs = ();
  72
  73 foreach ( glob("$winpath/*win") ) {
  74   $filename = $_;
  75   open WIN, "< $filename" or die "can't open file $filename $! $^E";
  76   my $parentinfo = "";
  77   my @dialog = ();
  78   my $parentshortname = "";
  79
  80   for ( <WIN> ) {
  81     chop;
  82
  83     s/^ +//;
  84     s/ +/ /g;
  85
  86     next if /^ *'/;
  87     next if /^ *$/;
  88
  89     my $ID = "";
  90     my $iteminfo;
  91     my ($shortname, $longname) = split " +";
  92
  93     $shortname = "" if ( !$shortname );
  94     $longname = "" if ( !$longname );
  95
  96     # fake a correct entry if only *active is given and overwrite the attempt to declare it differently
  97     if ( $shortname =~ /\*active/i )
  98     {
  99       $longname = "Active";
 100     }
 101
 102
 103 # find UNO Names
 104     if ( $longname =~ /^(.uno:|http|private:factory|service:|macro:|.HelpId:)/i || $longname =~ s/^sym://i )
 105     {
 106       $ID = $longname;
 107       $longname = "";
 108     }
 109     else
 110     {
 111       my $upperlongname = $longname;
 112       $upperlongname =~ tr/a-z/A-Z/;
 113       if ( $shortname !~ /^[\+\*]/ && !exists $hids{$upperlongname} )
 114       {
 115         print STDERR "warn: Longname not in hid.lst: $filename $longname\n";
 116       }
 117       if ( exists $hids{$upperlongname} )
 118       {
 119           $ID = $hids{$upperlongname};
 120       }
 121       delete $undeclared_hids{$upperlongname};
 122     }
 123
 124     $iteminfo = "$shortname $longname $ID";
 125     $iteminfo =~ s/^\*//;
 126     $iteminfo =~ s/^\+//;
 127
 128 # find start of deklaration
 129     if ( $shortname =~ s/^\+// )
 130     {
 131       # copy existing dialog
 132       if ( exists $dialogs{ $longname } )
 133       {
 134         my @old = @{$dialogs{ $longname }};
 135         my ($oldshort, $oldlong, $oldID ) = split ( " ", shift @old );
 136         $iteminfo = "$shortname $oldlong $oldID";
 137
 138         $parentinfo = $iteminfo;
 139         $parentshortname = $shortname;
 140         $dialogs{ $parentshortname } = \@dialog;
 141         @dialog = ();        # break the link
 142         push ( @{$dialogs{ $parentshortname }}, $iteminfo );
 143         push @names, "   $parentinfo";
 144
 145         for ( @old )
 146         {
 147           push @names, "$parentinfo $_";
 148         }
 149       }
 150       else
 151       {  # fake new dialog instead
 152         $shortname = "*".$shortname;
 153       }
 154     }
 155     if ( $shortname =~ s/^\*// )
 156     {
 157       $parentinfo = $iteminfo;
 158       $parentshortname = $shortname;
 159       $dialogs{ $parentshortname } = \@dialog;
 160       @dialog = ();        # break the link
 161       push ( @{$dialogs{ $parentshortname }}, $iteminfo );
 162       push @names, "   $parentinfo";
 163     }
 164     else
 165     {
 166       push ( @{$dialogs{ $parentshortname }}, $iteminfo );
 167       push @names, "$parentinfo $iteminfo";
 168     }
 169
 170   }
 171   close WIN;
 172 }
 173
 174 for ( keys %undeclared_hids ) {
 175   $iteminfo = "$undeclared_hids{$_} $undeclared_hids{$_} $hids{$_}";
 176   push @names, "   $iteminfo";
 177 }
 178
 179 #----------------------------------------------------------------------------
 180 # write to files
 181
 182 open HIDS, ">$outfile" or die "can't open file $filename $! $^E";
 183 print HIDS join "\n", @names;
 184 print HIDS "\n";
 185 close HIDS;
 186