offapi/util/checknewapi.pl

   1 #
   2 # checknewapi - a perl script to check for new API's
   3 # using two outputs from regview and dump the interscetion
   4 # of new types
   5 #
   6 # Copyright (c) 2005 Sun Microsystems, Inc.
   7 #
   8
   9 if($#ARGV != 2)
  10 {
  11     die "usage: checknewapi <new_type_library> <reference_type_library> <buildinfodescr>\n";
  12 }
  13
  14 -e "$ARGV[0]" || die "ERROR: type library \"$ARGV[0]\" does not exist\n";
  15 -e "$ARGV[1]" || die "ERROR: reference type library \"$ARGV[1]\" does not exist\n";
  16
  17 # debug flag
  18 $DEBUG = 0;
  19
  20 $main::buildinfo = "$ARGV[2]";
  21 %{$main::reftypes} = ();
  22 %{$main::currenttypes} = ();
  23 %{$main::removedtypes} = ();
  24
  25 open ( FILEIN, "regview \"$ARGV[0]\" |" ) || die "could not use content of current typelibrary \"$ARGV[0]\", regview doesn't work\n";
  26
  27 if ($DEBUG == 1)
  28 {
  29         open( CURRENT, ">current_types.txt" ) || die "\nERROR: could not open current_types.txt for writing";
  30 }
  31
  32 $first = 1;
  33 $linebefore = "";
  34 $published = 0;
  35 $typeclass = "";
  36 while (<FILEIN>)
  37 {
  38     if ($first == 0)
  39     {
  40                 if ( $linebefore =~ m#type class: published (.+)# )
  41                 {
  42                         $published = 1;
  43                         $typeclass = $1;
  44                 } elsif ( $linebefore =~ m#type class: (.+)# )
  45                 {
  46                         $published = 0;
  47                         $typeclass = $1;
  48                 } else
  49                 {
  50                         $published = 0;
  51                         $typeclass = "";
  52                 }
  53         } else
  54     {
  55                 $first = 0;
  56     }
  57
  58     if ( (!$typeclass eq "") && ($_ =~ m# *type name: \"([^\[.]+)\"#) )
  59     {
  60                 if ($DEBUG == 1)
  61                 {
  62                         print CURRENT "$1\n";
  63                 }
  64             if ( ! exists $main::currenttypes->{$1} )
  65             {
  66                         $main::currenttypes->{$1} = { PUBLISHED => $published,
  67                                                                                   TYPECLASS => $typeclass,
  68                                                                                   COUNT => 1 };
  69 #                       print "### $main::currenttypes->{$1}->{PUBLISHED} $main::currenttypes->{$1}->{TYPECLASS} $main::currenttypes->{$1}->{COUNT}\n";
  70             }
  71     }
  72     $linebefore = $_;
  73 }
  74 close( FILEIN );
  75 close( CURRENT );
  76
  77 open ( FILEIN, "regview \"$ARGV[1]\" |" ) || die "could not use content of reference type library \"$ARGV[1]\", regview doesn't work\n";
  78
  79 if ($DEBUG == 1)
  80 {
  81         open( REFERENCE, ">reference_types.txt" ) || die "\nERROR: could not open reference_types.txt for writing";
  82 }
  83
  84 # reset variables
  85 $first = 1;
  86 $linebefore = "";
  87 $published = 0;
  88 $typeclass = "";
  89 while (<FILEIN>)
  90 {
  91     if ($first == 0)
  92     {
  93                 if ( $linebefore =~ m#type class: published (.+)# )
  94                 {
  95                         $published = 1;
  96                         $typeclass = $1;
  97                 } elsif ( $linebefore =~ m#type class: (.+)# )
  98                 {
  99                         $published = 0;
 100                         $typeclass = $1;
 101                 } else
 102                 {
 103                         $published = 0;
 104                         $typeclass = "";
 105                 }
 106         } else
 107     {
 108                 $first = 0;
 109     }
 110
 111     if ( (!$typeclass eq "") && ($_ =~ m# *type name: \"([^\[.]+)\"#) )
 112     {
 113                 if ($DEBUG == 1)
 114                 {
 115                         print REFERENCE "$1\n";
 116                 }
 117             if ( ! exists $main::reftypes->{$1} )
 118             {
 119                         $main::reftypes->{$1}++;
 120
 121                         if ( exists $main::currenttypes->{$1} )
 122                         {
 123                                 $main::currenttypes->{$1}->{COUNT}++;
 124 #                               print "###### $main::currenttypes->{$1}->{PUBLISHED} $main::currenttypes->{$1}->{TYPECLASS} $main::currenttypes->{$1}->{COUNT}\n";
 125                         } else
 126                         {
 127                                 if ($published == 0)
 128                                 {
 129                                         $main::removedtypes->{$1} = { PUBLISHED => $published,
 130                                                                                                   TYPECLASS => $typeclass };
 131                                 } else
 132                                 {
 133                                         print "ERROR: type $1 is only in reference type library, this can't be happen\n";
 134                                 }
 135                         }
 136             }
 137     }
 138     $linebefore = $_;
 139 }
 140 close( FILEIN );
 141 close( REFERENCE );
 142
 143
 144 @typekeys = keys %{$main::currenttypes};
 145 $allunotypes = $#typekeys+1;
 146 $newunotypes = 0;
 147 $newpublished = 0;
 148 $draftscount = 0;
 149 $draftspublished = 0;
 150 foreach $i ( sort @typekeys )
 151 {
 152     if ( $main::currenttypes->{$i}->{COUNT} == 1 &&
 153                  !("$main::currenttypes->{$i}->{TYPECLASS}" eq "module"))
 154     {
 155                 $newunotypes++;
 156                 my $t = $i;
 157                 $t =~ s#/#\.#go;
 158                 if ($main::currenttypes->{$i}->{PUBLISHED} == 1)
 159                 {
 160                         print "published ";
 161                         $newpublished++;
 162                 }
 163                 if ( $t =~ m#drafts\.com.+#)
 164                 {
 165                         $draftscount++;
 166                         if ($main::currenttypes->{$i}->{PUBLISHED} == 1)
 167                         {
 168                                 $draftspublished++;
 169                         }
 170                 }
 171                 print "$main::currenttypes->{$i}->{TYPECLASS} = $t\n";
 172         }
 173 }
 174
 175 # count removed not yet published types
 176 $removednotpublished = 0;
 177
 178 @removedtypekeys = keys %{$main::removedtypes};
 179 foreach $i ( sort @removedtypekeys )
 180 {
 181     $removednotpublished++;
 182     my $t = $i;
 183     $t =~ s#/#\.#go;
 184     print "removed not yet published $main::currenttypes->{$i}->{TYPECLASS} = $t\n";
 185 }
 186
 187 print "\n=======================================================\n\n";
 188 print "Summary [last check for $main::buildinfo]:\n\n";
 189 print "Number of UNO types = $allunotypes\n";
 190 print "Number of new UNO types = $newunotypes\n";
 191 print "New and published types = $newpublished\n";
 192 print "New and draft types = $draftscount\n";
 193 print "New, draft and published = $draftspublished\n";
 194 print "Removed and not published = $removednotpublished\n";
 195
 196 exit 0;