solenv/bin/gen_userfeedback_VCL_names.pl

   1 :
   2 eval 'exec perl -wS $0 ${1+"$@"}'
   3     if 0;
   4 #*************************************************************************
   5 #
   6 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   7 #
   8 # Copyright 2000, 2010 Oracle and/or its affiliates.
   9 #
  10 # OpenOffice.org - a multi-platform office productivity suite
  11 #
  12 # This file is part of OpenOffice.org.
  13 #
  14 # OpenOffice.org is free software: you can redistribute it and/or modify
  15 # it under the terms of the GNU Lesser General Public License version 3
  16 # only, as published by the Free Software Foundation.
  17 #
  18 # OpenOffice.org is distributed in the hope that it will be useful,
  19 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 # GNU Lesser General Public License version 3 for more details
  22 # (a copy is included in the LICENSE file that accompanied this code).
  23 #
  24 # You should have received a copy of the GNU Lesser General Public License
  25 # version 3 along with OpenOffice.org.  If not, see
  26 # <http://www.openoffice.org/license.html>
  27 # for a copy of the LGPLv3 License.
  28 #
  29 #*************************************************************************
  30 #
  31 # pushids - push HID.LST and *.win files for userexperience feedback
  32 #
  33
  34 use lib ("$ENV{SOLARENV}/bin/modules", "$ENV{COMMON_ENV_TOOLS}/modules");
  35
  36 use Carp;
  37
  38 sub parse_info($$);
  39
  40 if ( @ARGV != 3 )
  41 {
  42   print "usage:   $ARGV[0] <path tp hid.lst> <path to *.win files> <output file>\n";
  43   print "example: $ARGV[0] ./hid.lst global/win common/misc/UserFeedbackNames.csv\n\n";
  44   die "invalid params";
  45 }
  46
  47 my ($hid, $winpath, $outfile) = @ARGV;
  48
  49 my @names;
  50
  51 open HID, "<$hid" or die "can't open file $filename $! $^E";
  52 for (<HID>) {
  53   chop;
  54   my ($longname, $ID) = split " +";
  55   next if ( ! $ID );
  56   $upperlongname = $longname;
  57   $upperlongname =~ tr/a-z/A-Z/;
  58   $undeclared_hids{$upperlongname} = $longname;
  59
  60   if ( exists $hids{$upperlongname} && ( $hids{$upperlongname} != $ID ) )
  61   {
  62     print STDERR "warn: unclear definition of longname: $longname = $hids{$upperlongname} or $ID\n";
  63   }
  64   $hids{$upperlongname} = $ID;
  65
  66   if ( exists $revhids{ $ID } && ( $revhids{ $ID } ne $upperlongname ) )
  67   {
  68     print STDERR "warn: two longnames have the same ID: $longname and $revhids{$ID} share ID $ID\n";
  69   }
  70   $revhids{$ID} = $upperlongname;
  71 }
  72
  73 close HID;
  74
  75 undef @revhids;
  76
  77 #Add Active
  78 $hids{"ACTIVE"} = 0;
  79
  80 my %dialogs = ();
  81
  82 foreach ( glob("$winpath/*win") ) {
  83   $filename = $_;
  84   open WIN, "< $filename" or die "can't open file $filename $! $^E";
  85   my $parentinfo = "";
  86   my @dialog = ();
  87   my $parentshortname = "";
  88
  89   for ( <WIN> ) {
  90     chop;
  91
  92     s/^ +//;
  93     s/ +/ /g;
  94
  95     next if /^ *'/;
  96     next if /^ *$/;
  97
  98     my $ID = "";
  99     my $iteminfo;
 100     my ($shortname, $longname) = split " +";
 101
 102     $shortname = "" if ( !$shortname );
 103     $longname = "" if ( !$longname );
 104
 105     # fake a correct entry if only *active is given and overwrite the attempt to declare it differently
 106     if ( $shortname =~ /\*active/i )
 107     {
 108       $longname = "Active";
 109     }
 110
 111
 112 # find UNO Names
 113     if ( $longname =~ /^(.uno:|http|private:factory|service:|macro:|.HelpId:)/i || $longname =~ s/^sym://i )
 114     {
 115       $ID = $longname;
 116       $longname = "";
 117     }
 118     else
 119     {
 120       my $upperlongname = $longname;
 121       $upperlongname =~ tr/a-z/A-Z/;
 122       if ( $shortname !~ /^[\+\*]/ && !exists $hids{$upperlongname} )
 123       {
 124         print STDERR "warn: Longname not in hid.lst: $filename $longname\n";
 125       }
 126       if ( exists $hids{$upperlongname} )
 127       {
 128           $ID = $hids{$upperlongname};
 129       }
 130       delete $undeclared_hids{$upperlongname};
 131     }
 132
 133     $iteminfo = "$shortname $longname $ID";
 134     $iteminfo =~ s/^\*//;
 135     $iteminfo =~ s/^\+//;
 136
 137 # find start of deklaration
 138     if ( $shortname =~ s/^\+// )
 139     {
 140       # copy existing dialog
 141       if ( exists $dialogs{ $longname } )
 142       {
 143         my @old = @{$dialogs{ $longname }};
 144         my ($oldshort, $oldlong, $oldID ) = split ( " ", shift @old );
 145         $iteminfo = "$shortname $oldlong $oldID";
 146
 147         $parentinfo = $iteminfo;
 148         $parentshortname = $shortname;
 149         $dialogs{ $parentshortname } = \@dialog;
 150         @dialog = ();        # break the link
 151         push ( @{$dialogs{ $parentshortname }}, $iteminfo );
 152         push @names, "   $parentinfo";
 153
 154         for ( @old )
 155         {
 156           push @names, "$parentinfo $_";
 157         }
 158       }
 159       else
 160       {  # fake new dialog instead
 161         $shortname = "*".$shortname;
 162       }
 163     }
 164     if ( $shortname =~ s/^\*// )
 165     {
 166       $parentinfo = $iteminfo;
 167       $parentshortname = $shortname;
 168       $dialogs{ $parentshortname } = \@dialog;
 169       @dialog = ();        # break the link
 170       push ( @{$dialogs{ $parentshortname }}, $iteminfo );
 171       push @names, "   $parentinfo";
 172     }
 173     else
 174     {
 175       push ( @{$dialogs{ $parentshortname }}, $iteminfo );
 176       push @names, "$parentinfo $iteminfo";
 177     }
 178
 179   }
 180   close WIN;
 181 }
 182
 183 for ( keys %undeclared_hids ) {
 184   $iteminfo = "$undeclared_hids{$_} $undeclared_hids{$_} $hids{$_}";
 185   push @names, "   $iteminfo";
 186 }
 187
 188 #----------------------------------------------------------------------------
 189 # write to files
 190
 191 open HIDS, ">$outfile" or die "can't open file $filename $! $^E";
 192 print HIDS join "\n", @names;
 193 print HIDS "\n";
 194 close HIDS;
 195