solenv/bin/modules/pre2par/work.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: work.pm,v $
  10 #
  11 # $Revision: 1.13 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32
  33 package pre2par::work;
  34
  35 use pre2par::exiter;
  36 use pre2par::remover;
  37 use pre2par::pathanalyzer;
  38
  39 ############################################
  40 # pre2par working module
  41 ############################################
  42
  43 ############################################
  44 # procedure to split a line, that contains
  45 # more than one par file lines
  46 ############################################
  47
  48 sub split_line
  49 {
  50     my ($line, $parfile) = @_;
  51
  52     while ( $line =~ /^((?:[^"]|\"(?:[^"\\]|\\.)*\")*?\;\s+)\s*(.*)$/ )
  53     {
  54         my $oneline = $1;
  55         $line = $2;
  56         pre2par::remover::remove_leading_and_ending_whitespaces(\$oneline);
  57         $oneline = $oneline . "\n";
  58         push(@{$parfile}, $oneline);
  59
  60         if ( $line =~ /^\s*End\s+(\w+.*$)/i )
  61         {
  62             $line = $1;
  63             push(@{$parfile}, "End\n\n");
  64         }
  65     }
  66
  67     # the last line
  68
  69     pre2par::remover::remove_leading_and_ending_whitespaces(\$line);
  70     $line = $line . "\n";
  71     push(@{$parfile}, $line);
  72
  73     if ( $line =~ /^\s*End\s*$/i ) { push(@{$parfile}, "\n"); }
  74 }
  75
  76 ###################################################################
  77 # Preprocessing the pre file to split all lines with semicolon
  78 ###################################################################
  79
  80 sub preprocess_macros
  81 {
  82     my ($prefile) = @_;
  83
  84     my @newprefile = ();
  85
  86     for ( my $i = 0; $i <= $#{$prefile}; $i++ )
  87     {
  88         my $oneline = ${$prefile}[$i];
  89         if ( $oneline =~ /\;\s*\w+/ )
  90         {
  91             split_line($oneline, \@newprefile);
  92         }
  93         else
  94         {
  95             push(@newprefile, $oneline);
  96         }
  97     }
  98
  99     return \@newprefile;
 100 }
 101
 102 ############################################
 103 # main working procedure
 104 ############################################
 105
 106 sub convert
 107 {
 108     my ($prefile) = @_;
 109
 110     my @parfile = ();
 111
 112     my $iscodesection = 0;
 113     my $ismultiliner = 0;
 114     my $globalline = "";
 115
 116     # Preprocessing the pre file to split all lines with semicolon
 117     $prefile = preprocess_macros($prefile);
 118
 119     for ( my $i = 0; $i <= $#{$prefile}; $i++ )
 120     {
 121         my $oneline = ${$prefile}[$i];
 122
 123         if ($iscodesection)
 124         {
 125             if ( $oneline =~ /^\s*\}\;\s*$/ )
 126             {
 127                 $iscodesection = 0;
 128             }
 129             else        # nothing to do for code inside a code section
 130             {
 131                 push(@parfile, $oneline);
 132                 next;
 133              }
 134         }
 135
 136         if ( $oneline =~ /^\s*$/ ) { next; }
 137
 138         if ( $oneline =~ /^\s*Code\s+\=\s+\{/ )
 139         {
 140             $iscodesection = 1;
 141         }
 142
 143         pre2par::remover::remove_leading_and_ending_whitespaces(\$oneline);
 144
 145         my $insertemptyline = 0;
 146
 147         if ( $oneline =~ /^\s*End\s*$/i ) { $insertemptyline = 1; }
 148
 149         # Sometimes the complete file is in one line, then the gid line has to be separated
 150
 151         if ( $oneline =~ /^\s*(\w+\s+\w+)\s+(\w+\s+\=.*$)/ )    # three words before the equal sign
 152         {
 153             my $gidline = $1;
 154             $oneline = $2;
 155             $gidline = $gidline . "\n";
 156
 157             push(@parfile, $gidline);
 158         }
 159
 160         if ( $oneline =~ /\;\s*\w+/ )
 161         {
 162             split_line($oneline, \@parfile);
 163             next;
 164         }
 165
 166         # searching for lines with brackets, like Customs = { ..., which can be parted above several lines
 167
 168         if ( $oneline =~ /^\s*\w+\s+\=\s*\(.*\)\s*\;\s*$/ )             # only one line
 169         {
 170             if (( ! ( $oneline =~ /^\s*Assignment\d+\s*\=/ )) && ( ! ( $oneline =~ /^\s*PatchAssignment\d+\s*\=/ )))
 171             {
 172                 $oneline =~ s/\s//g;            # removing whitespaces in lists
 173                 $oneline =~ s/\=/\ \=\ /;       # adding whitespace around equals sign
 174             }
 175         }
 176
 177         if ( $oneline =~ /^\s*\w+\s+\=\s*$/ )
 178         {
 179             $oneline =~ s/\s*$//;
 180             pre2par::exiter::exit_program("Error: Illegal syntax, no line break after eqals sign allowed. Line: \"$oneline\"", "convert");
 181         }
 182
 183         if (( $oneline =~ /^\s*\w+\s+\=\s*\(/ ) && (!( $oneline =~ /\)\s*\;\s*$/ )))     # several lines
 184         {
 185             $ismultiliner = 1;
 186             $oneline =~ s/\s//g;
 187             $globalline .= $oneline;
 188             next;                                               # not including yet
 189         }
 190
 191         if ( $ismultiliner )
 192         {
 193             $oneline =~ s/\s//g;
 194             $globalline .= $oneline;
 195
 196             if ( $oneline =~ /\)\s*\;\s*$/ ) {  $ismultiliner = 0; }
 197
 198             if (! ( $ismultiliner ))
 199             {
 200                 $globalline =~ s/\=/\ \=\ /;    # adding whitespace around equals sign
 201                 $globalline .= "\n";
 202                 push(@parfile, $globalline);
 203                 $globalline = "";
 204             }
 205
 206             next;
 207         }
 208
 209         $oneline = $oneline . "\n";
 210
 211         $oneline =~ s/\s*\=\s*/ \= /;   # nice, to have only one whitespace around equal signs
 212
 213         # Concatenate adjacent string literals:
 214         while ($oneline =~
 215                s/^((?:[^"]*
 216                       \"(?:[^\\"]|\\.)*\"
 217                       (?:[^"]*[^[:blank:]"][^"]*\"(?:[^\\"]|\\.)*\")*)*
 218                    [^"]*
 219                    \"(?:[^\\"]|\\.)*)
 220                  \"[[:blank:]]*\"
 221                  ((?:[^\\"]|\\.)*\")
 222                 /\1\2/x)
 223         {}
 224
 225         push(@parfile, $oneline);
 226
 227         if ($insertemptyline) { push(@parfile, "\n"); }
 228
 229     }
 230
 231     return \@parfile;
 232 }
 233
 234 ############################################
 235 # formatting the par file
 236 ############################################
 237
 238 sub formatter
 239 {
 240     my ($parfile) = @_;
 241
 242     my $iscodesection = 0;
 243
 244     my $tabcounter = 0;
 245     my $isinsideitem = 0;
 246     my $currentitem;
 247
 248     for ( my $i = 0; $i <= $#{$parfile}; $i++ )
 249     {
 250         my $oneline = ${$parfile}[$i];
 251         my $isitemline = 0;
 252
 253         if (! $isinsideitem )
 254         {
 255             for ( my $j = 0; $j <= $#pre2par::globals::allitems; $j++ )
 256             {
 257                 if ( $oneline =~ /^\s*$pre2par::globals::allitems[$j]\s+\w+\s*$/ )
 258                 {
 259                     $currentitem = $pre2par::globals::allitems[$j];
 260                     $isitemline = 1;
 261                     $isinsideitem = 1;
 262                     $tabcounter = 0;
 263                     last;
 264                 }
 265             }
 266         }
 267
 268         if ( $isitemline )
 269         {
 270             next;       # nothing to do
 271         }
 272
 273         if ( $oneline =~ /^\s*end\s*$/i )
 274         {
 275             $isinsideitem = 0;
 276             $tabcounter--;
 277         }
 278
 279         if ( $isinsideitem )
 280         {
 281             $oneline = "\t" . $oneline;
 282             ${$parfile}[$i] = $oneline;
 283         }
 284     }
 285 }
 286
 287 ###################################################
 288 # Returning the language file name
 289 ###################################################
 290
 291 sub getlangfilename
 292 {
 293     return $pre2par::globals::langfilename;
 294 }
 295
 296 ###################################################
 297 # Creating the ulf file name from the
 298 # corresponding pre file name
 299 ###################################################
 300
 301 sub getulffilename
 302 {
 303     my ($prefilename) = @_;
 304
 305     my $ulffilename = $prefilename;
 306     $ulffilename =~ s/\.pre\s*$/\.ulf/;
 307     pre2par::pathanalyzer::make_absolute_filename_to_relative_filename(\$ulffilename);
 308
 309     return $ulffilename;
 310 }
 311
 312 ############################################
 313 # Checking if a file exists
 314 ############################################
 315
 316 sub fileexists
 317 {
 318     my ($langfilename) = @_;
 319
 320     my $fileexists = 0;
 321
 322     if( -f $langfilename ) { $fileexists = 1; }
 323
 324     return $fileexists;
 325 }
 326
 327 ############################################
 328 # Checking the existence of ulf and
 329 # jlf/mlf files
 330 ############################################
 331
 332 sub check_existence_of_langfiles
 333 {
 334     my ($langfilename, $ulffilename) = @_;
 335
 336     my $do_localize = 0;
 337
 338     if (( fileexists($ulffilename) ) && ( ! fileexists($langfilename) )) { pre2par::exiter::exit_program("Error: Did not find language file $langfilename", "check_existence_of_langfiles"); }
 339     if (( fileexists($ulffilename) ) && ( fileexists($langfilename) )) { $do_localize = 1; }
 340
 341     return $do_localize;
 342 }
 343
 344 ############################################
 345 # Checking that the pre file has content
 346 ############################################
 347
 348 sub check_content
 349 {
 350     my ($filecontent, $filename) = @_;
 351
 352     if ( $#{$filecontent} < 0 ) { pre2par::exiter::exit_program("Error: $filename has no content!", "check_content"); }
 353 }
 354
 355 ############################################
 356 # Checking content of par files.
 357 # Currently only size.
 358 ############################################
 359
 360 sub diff_content
 361 {
 362     my ($content1, $content2, $filename) = @_;
 363
 364     if ( $#{$content1} != $#{$content2} ) { pre2par::exiter::exit_program("Error: $filename was not saved correctly!", "diff_content"); }
 365 }
 366
 367 1;