diff options
Diffstat (limited to 'solenv/bin/mkout.pl')
| -rwxr-xr-x | solenv/bin/mkout.pl | 156 |
1 files changed, 156 insertions, 0 deletions
diff --git a/solenv/bin/mkout.pl b/solenv/bin/mkout.pl new file mode 100755 index 000000000000..9df626b63568 --- /dev/null +++ b/solenv/bin/mkout.pl @@ -0,0 +1,156 @@ +: +eval 'exec perl -wS $0 ${1+"$@"}' + if 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. +# +#************************************************************************* + +# +# mkout.pl - create output tree +# + +use Cwd; +use Getopt::Std; +use File::Path; + +#### script id ##### + +( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; + +#### globals #### + +$is_debug = 0; + +$base_dir = 0; # path to module base directory +$dir_mode = 0755; # default directory creation mode + +$envpath = 0; # platform/product combination +$opt_r = 0; # create 'remote' subdirs + +%sub_dirs = ( +# dirname remote(yes/no) + 'bin' => 1, + 'class' => 0, + 'inc' => 0, + 'lib' => 1, + 'misc/logs' => 1, + 'obj' => 1, + 'res' => 1, + 'slb' => 1, + 'slo' => 1, + 'srs' => 1 + ); + +#### main #### + +parse_options(); +init_globals(); +create_dirs(); + +exit(0); + +#### subroutines ##### + +sub parse_options { + my $rc; + + $rc = getopts('r'); + + if ( !$rc || $#ARGV > 0 ) { + usage(); + exit(1); + } + $envpath = $ARGV[0] if defined($ARGV[0]); +} + +sub init_globals { + my $umask; + $base_dir = get_base(); + print "Base_Diri=$base_dir\n" if $is_debug; + + $umask = umask(); + if ( defined($umask) ) { + $dir_mode = 0777 - $umask; + } + $envpath = $ENV{INPATH} unless $envpath; + + if ( !$envpath ) { + print_error("can't determine platform/environment"); + exit(3); + } + print "Platform/Environment: $envpath\n" if $is_debug; +} + +sub get_base { + # a module base dir contains a subdir 'prj' + # which in turn contains a file 'd.lst' + my (@field, $base, $dlst); + my $path = cwd(); + + @field = split(/\//, $path); + + while ( $#field != -1 ) { + $base = join('/', @field); + $dlst = $base . '/prj/d.lst'; + last if -e $dlst; + pop @field; + } + + if ( $#field == -1 ) { + print_error("can't determine module"); + exit(2); + } + else { + return $base; + } +} + +sub create_dirs { + foreach $dir ( keys %sub_dirs ) { + $path = $base_dir . '/' . $envpath . '/' . $dir; + if ( $opt_r && $sub_dirs{$dir} ) { + $path .= "/remote"; + } + eval { mkpath($path, 0, $dir_mode) }; + if ( $@ ) { + print_error( "$@" ); + } + print "Create path: $path\n" if $is_debug; + } +} + +sub print_error { + my $message = shift; + + print STDERR "$script_name: ERROR: $message\n"; +} + +sub usage { + print STDERR "Usage:\n$script_name [-r] [platform/environment]\n"; + print STDERR "Options:\n -r create 'remote' directories\n"; +} + +# vim: set ts=4 shiftwidth=4 expandtab syntax=perl: |