diff options
Diffstat (limited to 'solenv/bin/modules/pre2par/parameter.pm')
-rw-r--r-- | solenv/bin/modules/pre2par/parameter.pm | 178 |
1 files changed, 0 insertions, 178 deletions
diff --git a/solenv/bin/modules/pre2par/parameter.pm b/solenv/bin/modules/pre2par/parameter.pm deleted file mode 100644 index 5dfd87975..000000000 --- a/solenv/bin/modules/pre2par/parameter.pm +++ /dev/null @@ -1,178 +0,0 @@ -#************************************************************************* -# -# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -# -# Copyright 2000, 2010 Oracle and/or its affiliates. -# -# OpenOffice.org - a multi-platform office productivity suite -# -# This file is part of OpenOffice.org. -# -# OpenOffice.org is free software: you can redistribute it and/or modify -# it under the terms of the GNU Lesser General Public License version 3 -# only, as published by the Free Software Foundation. -# -# OpenOffice.org is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU Lesser General Public License version 3 for more details -# (a copy is included in the LICENSE file that accompanied this code). -# -# You should have received a copy of the GNU Lesser General Public License -# version 3 along with OpenOffice.org. If not, see -# <http://www.openoffice.org/license.html> -# for a copy of the LGPLv3 License. -# -#************************************************************************* - - -package pre2par::parameter; - -use Cwd; -use pre2par::files; -use pre2par::globals; -use pre2par::systemactions; - -############################################ -# Parameter Operations -############################################ - -sub usage -{ - print <<Ende; ---------------------------------------------------------- -$pre2par::globals::prog -The following parameter are needed: --s: path to the pre file --o: path to the par file --l: path to the ulf file (mlf or jlf file) --v: log process (optional) - -Example: - -perl pre2par.pl -l test.mlf -s readme.pre -o readme.par -v - ---------------------------------------------------------- -Ende - exit(-1); -} - -##################################### -# Reading parameter -##################################### - -sub getparameter -{ - while ( $#ARGV >= 0 ) - { - my $param = shift(@ARGV); - - if ($param eq "-s") { $pre2par::globals::prefilename = shift(@ARGV); } - elsif ($param eq "-o") { $pre2par::globals::parfilename = shift(@ARGV); } - elsif ($param eq "-l") { $pre2par::globals::langfilename = shift(@ARGV); } - elsif ($param eq "-v") { $pre2par::globals::logging = 1; } - else - { - print("\n*************************************\n"); - print("Sorry, unknown parameter: $param"); - print("\n*************************************\n"); - usage(); - exit(-1); - } - } -} - -############################################ -# Controlling the fundamental parameter -# (required for every process) -############################################ - -sub control_parameter -{ - if ($pre2par::globals::prefilename eq "") - { - print "\n************************************************\n"; - print "Error: Name of the input file not set (-s)!"; - print "\n************************************************\n"; - usage(); - exit(-1); - } - - if ($pre2par::globals::parfilename eq "") - { - print "\n************************************************\n"; - print "Error: Name of the output file not set (-o)!"; - print "\n************************************************\n"; - usage(); - exit(-1); - } - - if (!($pre2par::globals::prefilename =~ /\.pre\s*$/)) - { - print "\n************************************************\n"; - print "Error: Input file is no .pre file!"; - print "\n************************************************\n"; - usage(); - exit(-1); - } - - if (!($pre2par::globals::parfilename =~ /\.par\s*$/)) - { - print "\n************************************************\n"; - print "Error: Output file is no .par file!"; - print "\n************************************************\n"; - usage(); - exit(-1); - } - - # The input file has to exist - - pre2par::files::check_file($pre2par::globals::prefilename); -} - -########################################################## -# The path parameters can be relative or absolute. -# This function creates absolute pathes. -########################################################## - -sub make_path_absolute -{ - my ($pathref) = @_; - - if ( $pre2par::globals::isunix ) - { - if (!($$pathref =~ /^\s*\//)) # this is a relative unix path - { - $$pathref = cwd() . $pre2par::globals::separator . $$pathref; - } - } - - if ( $pre2par::globals::iswin ) - { - if (!($$pathref =~ /^\s*\w\:/)) # this is a relative windows path - { - $$pathref = cwd() . $pre2par::globals::separator . $$pathref; - $$pathref =~ s/\//\\/g; - } - } - - $$pathref =~ s/\Q$pre2par::globals::separator\E\s*$//; # removing ending slashes -} - -##################################### -# Writing parameter to shell -##################################### - -sub outputparameter -{ - $pre2par::globals::logging ? ($logoption = " -v") : ($logoption = ""); - print "\n$pre2par::globals::prog -l $pre2par::globals::langfilename -s $pre2par::globals::prefilename -o $pre2par::globals::parfilename$logoption\n"; - -# print "\n********************************************************\n"; -# print "This is $pre2par::globals::prog, version 1.0\n"; -# print "Input file: $pre2par::globals::prefilename\n"; -# print "Output file: $pre2par::globals::parfilename\n"; -# print "********************************************************\n"; -} - -1; |