solenv/bin/modules/pre2par/parameter.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: parameter.pm,v $
  10 #
  11 # $Revision: 1.8 $
  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::parameter;
  34
  35 use Cwd;
  36 use pre2par::files;
  37 use pre2par::globals;
  38 use pre2par::systemactions;
  39
  40 ############################################
  41 # Parameter Operations
  42 ############################################
  43
  44 sub usage
  45 {
  46     print <<Ende;
  47 ---------------------------------------------------------
  48 $pre2par::globals::prog
  49 The following parameter are needed:
  50 -s: path to the pre file
  51 -o: path to the par file
  52 -l: path to the ulf file (mlf or jlf file)
  53 -v: log  process (optional)
  54
  55 Example:
  56
  57 perl pre2par.pl -l test.mlf -s readme.pre -o readme.par -v
  58
  59 ---------------------------------------------------------
  60 Ende
  61     exit(-1);
  62 }
  63
  64 #####################################
  65 # Reading parameter
  66 #####################################
  67
  68 sub getparameter
  69 {
  70     while ( $#ARGV >= 0 )
  71     {
  72         my $param = shift(@ARGV);
  73
  74         if ($param eq "-s") { $pre2par::globals::prefilename = shift(@ARGV); }
  75         elsif ($param eq "-o") { $pre2par::globals::parfilename = shift(@ARGV); }
  76         elsif ($param eq "-l") { $pre2par::globals::langfilename = shift(@ARGV); }
  77         elsif ($param eq "-v") { $pre2par::globals::logging = 1; }
  78         else
  79         {
  80             print("\n*************************************\n");
  81             print("Sorry, unknown parameter: $param");
  82             print("\n*************************************\n");
  83             usage();
  84             exit(-1);
  85         }
  86     }
  87 }
  88
  89 ############################################
  90 # Controlling  the fundamental parameter
  91 # (required for every process)
  92 ############################################
  93
  94 sub control_parameter
  95 {
  96     if ($pre2par::globals::prefilename eq "")
  97     {
  98         print "\n************************************************\n";
  99         print "Error: Name of the input file not set (-s)!";
 100         print "\n************************************************\n";
 101         usage();
 102         exit(-1);
 103     }
 104
 105     if ($pre2par::globals::parfilename eq "")
 106     {
 107         print "\n************************************************\n";
 108         print "Error: Name of the output file not set (-o)!";
 109         print "\n************************************************\n";
 110         usage();
 111         exit(-1);
 112     }
 113
 114     if (!($pre2par::globals::prefilename =~ /\.pre\s*$/))
 115     {
 116         print "\n************************************************\n";
 117         print "Error: Input file is no .pre file!";
 118         print "\n************************************************\n";
 119         usage();
 120         exit(-1);
 121     }
 122
 123     if (!($pre2par::globals::parfilename =~ /\.par\s*$/))
 124     {
 125         print "\n************************************************\n";
 126         print "Error: Output file is no .par file!";
 127         print "\n************************************************\n";
 128         usage();
 129         exit(-1);
 130     }
 131
 132     # The input file has to exist
 133
 134     pre2par::files::check_file($pre2par::globals::prefilename);
 135 }
 136
 137 ##########################################################
 138 # The path parameters can be relative or absolute.
 139 # This function creates absolute pathes.
 140 ##########################################################
 141
 142 sub make_path_absolute
 143 {
 144     my ($pathref) = @_;
 145
 146     if ( $pre2par::globals::isunix )
 147     {
 148         if (!($$pathref =~ /^\s*\//))   # this is a relative unix path
 149         {
 150             $$pathref = cwd() . $pre2par::globals::separator . $$pathref;
 151         }
 152     }
 153
 154     if ( $pre2par::globals::iswin )
 155     {
 156         if (!($$pathref =~ /^\s*\w\:/)) # this is a relative windows path
 157         {
 158             $$pathref = cwd() . $pre2par::globals::separator . $$pathref;
 159             $$pathref =~ s/\//\\/g;
 160         }
 161     }
 162
 163     $$pathref =~ s/\Q$pre2par::globals::separator\E\s*$//;      # removing ending slashes
 164 }
 165
 166 #####################################
 167 # Writing parameter to shell
 168 #####################################
 169
 170 sub outputparameter
 171 {
 172     $pre2par::globals::logging ? ($logoption = " -v") : ($logoption = "");
 173     print "\n$pre2par::globals::prog -l $pre2par::globals::langfilename -s $pre2par::globals::prefilename -o $pre2par::globals::parfilename$logoption\n";
 174
 175 #       print "\n********************************************************\n";
 176 #       print "This is $pre2par::globals::prog, version 1.0\n";
 177 #       print "Input file: $pre2par::globals::prefilename\n";
 178 #       print "Output file: $pre2par::globals::parfilename\n";
 179 #       print "********************************************************\n";
 180 }
 181
 182 1;