solenv/bin/modules/par2script/converter.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: converter.pm,v $
  10 #
  11 # $Revision: 1.5 $
  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 par2script::converter;
  34
  35 use par2script::remover;
  36
  37 #############################
  38 # Converter
  39 #############################
  40
  41 sub convert_array_to_hash
  42 {
  43     my ($arrayref) = @_;
  44
  45     my ($line, $key, $value);
  46
  47     my %newhash = ();
  48
  49     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
  50     {
  51         $line = ${$arrayref}[$i];
  52
  53         if ( $line =~ /^\s*(\w+?)\s+(.*?)\s*$/ )
  54         {
  55             $key = $1;
  56             $value = $2;
  57             $newhash{$key} = $value;
  58         }
  59     }
  60
  61     return \%newhash;
  62 }
  63
  64 sub convert_hash_into_array
  65 {
  66     my ($hashref) = @_;
  67
  68     my @array = ();
  69     my ($key, $value, $input);
  70
  71     foreach $key (keys %{$hashref})
  72     {
  73         $value = $hashref->{$key};
  74         $input = "$key = $value\n";
  75         push(@array ,$input);
  76     }
  77
  78     return \@array
  79 }
  80
  81 sub convert_stringlist_into_array_2
  82 {
  83     my ( $input, $separator ) = @_;
  84
  85     my @newarray = ();
  86     my $first = "";
  87     my $last = "";
  88
  89     $last = $input;
  90
  91     while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/)   # "$" for minimal matching
  92     {
  93         $first = $1;
  94         $last = $2;
  95         par2script::remover::remove_leading_and_ending_whitespaces(\$first);
  96         if ( $first ) { push(@newarray, $first); }
  97     }
  98
  99     par2script::remover::remove_leading_and_ending_whitespaces(\$last);
 100     if ( $last ) { push(@newarray, $last); }
 101
 102     return \@newarray;
 103 }
 104
 105 sub convert_stringlist_into_array
 106 {
 107     my ( $includestringref, $separator ) = @_;
 108
 109     my @newarray = ();
 110     my ($first, $last);
 111
 112     $last = ${$includestringref};
 113
 114     while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/)   # "$" for minimal matching
 115     {
 116         $first = $1;
 117         $last = $2;
 118         par2script::remover::remove_leading_and_ending_whitespaces(\$first);
 119         push(@newarray, $first);
 120     }
 121
 122     par2script::remover::remove_leading_and_ending_whitespaces(\$last);
 123     push(@newarray, $last);
 124
 125     return \@newarray;
 126 }
 127
 128 #############################################################################
 129 # The file name contains for some files "/". If this programs runs on
 130 # a windows platform, this has to be converted to "\".
 131 #############################################################################
 132
 133 sub convert_slash_to_backslash
 134 {
 135     my ($filesarrayref) = @_;
 136
 137     my ($onefile, $filename);
 138
 139     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 140     {
 141         $onefile = ${$filesarrayref}[$i];
 142         $onefile->{'Name'} =~ s/\//\\/g;
 143     }
 144 }
 145
 146 1;