solenv/bin/modules/par2script/converter.pm

   1 #
   2 # This file is part of the LibreOffice project.
   3 #
   4 # This Source Code Form is subject to the terms of the Mozilla Public
   5 # License, v. 2.0. If a copy of the MPL was not distributed with this
   6 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 #
   8 # This file incorporates work covered by the following license notice:
   9 #
  10 #   Licensed to the Apache Software Foundation (ASF) under one or more
  11 #   contributor license agreements. See the NOTICE file distributed
  12 #   with this work for additional information regarding copyright
  13 #   ownership. The ASF licenses this file to you under the Apache
  14 #   License, Version 2.0 (the "License"); you may not use this file
  15 #   except in compliance with the License. You may obtain a copy of
  16 #   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  17 #
  18
  19
  20 package par2script::converter;
  21
  22 use par2script::remover;
  23
  24 #############################
  25 # Converter
  26 #############################
  27
  28 sub convert_array_to_hash
  29 {
  30     my ($arrayref) = @_;
  31
  32     my ($line, $key, $value);
  33
  34     my %newhash = ();
  35
  36     for ( my $i = 0; $i <= $#{$arrayref}; $i++ )
  37     {
  38         $line = ${$arrayref}[$i];
  39
  40         if ( $line =~ /^\s*(\w+?)\s+(.*?)\s*$/ )
  41         {
  42             $key = $1;
  43             $value = $2;
  44             $newhash{$key} = $value;
  45         }
  46     }
  47
  48     return \%newhash;
  49 }
  50
  51 sub convert_stringlist_into_array_2
  52 {
  53     my ( $input, $separator ) = @_;
  54
  55     my @newarray = ();
  56     my $first = "";
  57     my $last = "";
  58
  59     $last = $input;
  60
  61     while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/)   # "$" for minimal matching
  62     {
  63         $first = $1;
  64         $last = $2;
  65         par2script::remover::remove_leading_and_ending_whitespaces(\$first);
  66         if ( $first ) { push(@newarray, $first); }
  67     }
  68
  69     par2script::remover::remove_leading_and_ending_whitespaces(\$last);
  70     if ( $last ) { push(@newarray, $last); }
  71
  72     return \@newarray;
  73 }
  74
  75 sub convert_stringlist_into_array
  76 {
  77     my ( $includestringref, $separator ) = @_;
  78
  79     my @newarray = ();
  80     my ($first, $last);
  81
  82     $last = ${$includestringref};
  83
  84     while ( $last =~ /^\s*(.+?)\s*\Q$separator\E\s*(.+)\s*$/)   # "$" for minimal matching
  85     {
  86         $first = $1;
  87         $last = $2;
  88         par2script::remover::remove_leading_and_ending_whitespaces(\$first);
  89         push(@newarray, $first);
  90     }
  91
  92     par2script::remover::remove_leading_and_ending_whitespaces(\$last);
  93     push(@newarray, $last);
  94
  95     return \@newarray;
  96 }
  97
  98 #############################################################################
  99 # The file name contains for some files "/". If this programs runs on
 100 # a windows platform, this has to be converted to "\".
 101 #############################################################################
 102
 103 sub convert_slash_to_backslash
 104 {
 105     my ($filesarrayref) = @_;
 106
 107     my ($onefile, $filename);
 108
 109     for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
 110     {
 111         $onefile = ${$filesarrayref}[$i];
 112         $onefile->{'Name'} =~ s/\//\\/g;
 113     }
 114 }
 115
 116 1;