diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-05-10 15:42:45 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-05-10 15:42:45 +0000 |
| commit | b037e511dc43f03802d6b8451d990a529bc2091f (patch) | |
| tree | 6ad9216b51b5004ec06f761634575ce8f1b74184 /solenv/bin/mkdir.pl | |
| parent | f00b99d2fc6a808de6a64b9c8d4f6c083e859308 (diff) | |
INTEGRATION: CWS dialogdiet01 (1.3.20); FILE MERGED
2004/04/22 01:47:51 mwu 1.3.20.1: dialogdiet01_2004_04_22
Diffstat (limited to 'solenv/bin/mkdir.pl')
| -rwxr-xr-x | solenv/bin/mkdir.pl | 130 |
1 files changed, 65 insertions, 65 deletions
diff --git a/solenv/bin/mkdir.pl b/solenv/bin/mkdir.pl index d2a374adfc67..d64453a746df 100755 --- a/solenv/bin/mkdir.pl +++ b/solenv/bin/mkdir.pl @@ -1,65 +1,65 @@ -: # -*- perl -*- -eval 'exec perl -wS $0 ${1+"$@"}' - if 0; -# -# mkdir - a perl script to substitute mkdir -p -# accepts "/", ":", and "\" as delimiters of subdirectories -# options -p (for compatibility) -# -mode mode -# -# Copyright (c) 2000 Sun Microsystems, Inc. - -use Cwd; - -$currdir = cwd; - -$MODE = 00777 ; - -while ( $#ARGV >= 0 ) { - if ( $ARGV[0] eq "-mode" ) { - $MODE = oct $ARGV[1] ; - shift @ARGV ; - shift @ARGV ; - } - elsif ( $ARGV[0] eq "-p" ) { - shift @ARGV ; - # -p does not do anything, it's supported just for compatibility - } - else { - - $ARGV[0] =~ s?\\|:?/?g ; - @SUBDIRS = split "/", $ARGV[0] ; - - # absolute path UNIX - if ( $SUBDIRS[0] eq "" ) { - chdir '/' ; - shift @SUBDIRS ; - } - # absolute path WINDOWS - if ( $#SUBDIRS > 1 ) { - if ( $SUBDIRS[1] eq "" ) { - if ( $SUBDIRS[0] =~ /\w/ ) { - chdir "$SUBDIRS[0]:\\" ; - shift @SUBDIRS ; - shift @SUBDIRS ; - } ; - } ; - } - - while (@SUBDIRS) { - if ( -e $SUBDIRS[0] ) { - if ( ! -d $SUBDIRS[0] ) { - die "file exists\n" - } - } - else { - mkdir $SUBDIRS[0], $MODE or die "Can't create directory $SUBDIRS[0]" - } - chdir $SUBDIRS[0] or die "Can't cd to $SUBDIRS[0]" ; - shift @SUBDIRS ; - } ; - - shift @ARGV ; - } ; - chdir $currdir; -} +: # -*- perl -*-
+eval 'exec perl -wS $0 ${1+"$@"}'
+ if 0;
+#
+# mkdir - a perl script to substitute mkdir -p
+# accepts "/", ":", and "\" as delimiters of subdirectories
+# options -p (for compatibility)
+# -mode mode
+#
+# Copyright (c) 2000 Sun Microsystems, Inc.
+
+use Cwd;
+
+$currdir = cwd;
+
+$MODE = 00777 ;
+
+while ( $#ARGV >= 0 ) {
+ if ( $ARGV[0] eq "-mode" ) {
+ $MODE = oct $ARGV[1] ;
+ shift @ARGV ;
+ shift @ARGV ;
+ }
+ elsif ( $ARGV[0] eq "-p" ) {
+ shift @ARGV ;
+ # -p does not do anything, it's supported just for compatibility
+ }
+ else {
+
+ $ARGV[0] =~ s?\\|:?/?g ;
+ @SUBDIRS = split "/", $ARGV[0] ;
+
+ # absolute path UNIX
+ if ( $SUBDIRS[0] eq "" ) {
+ chdir '/' ;
+ shift @SUBDIRS ;
+ }
+ # absolute path WINDOWS
+ if ( $#SUBDIRS > 1 ) {
+ if ( $SUBDIRS[1] eq "" ) {
+ if ( $SUBDIRS[0] =~ /\w/ ) {
+ chdir "$SUBDIRS[0]:\\" ;
+ shift @SUBDIRS ;
+ shift @SUBDIRS ;
+ } ;
+ } ;
+ }
+
+ while (@SUBDIRS) {
+ if ( -e $SUBDIRS[0] ) {
+ if ( ! -d $SUBDIRS[0] ) {
+ die "file exists\n"
+ }
+ }
+ else {
+ mkdir $SUBDIRS[0], $MODE or die "Can't create directory $SUBDIRS[0]"
+ }
+ chdir $SUBDIRS[0] or die "Can't cd to $SUBDIRS[0]" ;
+ shift @SUBDIRS ;
+ } ;
+
+ shift @ARGV ;
+ } ;
+ chdir $currdir;
+}
|