WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/jats.pl



#   Note: Don't use `pwd`. This sucks for so many reasons including
#         the fact that it may not be available until this wrapper
#         script has done it job.
#
$CWD = getcwd();
Error ("Cannot determine current directory - may be protected" )unless ( defined $CWD );
$CWD =~tr~\\/~/~s;
Verbose ("Current Working Directory: $CWD");
 
################################################################################
#   Setup drive

        #   Note: Don't use `pwd`. This sucks for so many reasons including
        #         the fact that it may not be available until this wrapper
        #         script has done it job.
        #
        $CWD = getcwd();
        Error ("Bad change directory: $dir","Cannot determine current directory - may be protected" )unless ( defined $CWD );
        $CWD =~tr~\\/~/~s;
    }
}
 
#-------------------------------------------------------------------------------

        @ant_arg = ('-f', "$flist[0].xml");
 
        Message ("Ant using projectfiles: $flist[0].xml");
 
        #
        #   Create auto.xml if we have a depends.xml
        #
 
 
        if ( -f $depend )
        {
            #
            #   Check for depends.xml newer than auto.xml.
            #
            my $auto_timestamp   = (stat('auto.xml'))[9] || 0;
            my $depend_timestamp = (stat($depend))[9];
            if ( $depend_timestamp > $auto_timestamp )
            {
                Message ("Creating: auto.xml");
                copy( $depend, 'auto.xml' );
                chmod 0777, 'auto.xml';
            }
        }
        else
        {
            Warning ("Project file does not have a depends.xml file");
        }
    }
    elsif ( $BUILD_FILE_SET  )
    {
        Error ("Specified build file pair not found:", $basename, $basename . "depends.xml");
    }
 
    #
    #   The ant provided startup scripts don't return an exit code under
    #   windows. Invoke ant directly
    #
    launch_ant ( $JAVA_HOME, $ANT_HOME, @ant_arg, @_ );

Rev 363	Rev 367
Line 665...	Line 665...
665	# Note: Don't use `pwd`. This sucks for so many reasons including	665	# Note: Don't use `pwd`. This sucks for so many reasons including
666	`# the fact that it may not be available until this wrapper`	666	`# the fact that it may not be available until this wrapper`
667	`# script has done it job.`	667	`# script has done it job.`
668	`#`	668	`#`
669	`$CWD = getcwd();`	669	`$CWD = getcwd();`
-		670	`Error ("Cannot determine current directory - may be protected" )unless ( defined $CWD );`
670	`$CWD =~tr~\\/~/~s;`	671	`$CWD =~tr~\\/~/~s;`
671	`Verbose ("Current Working Directory: $CWD");`	672	`Verbose ("Current Working Directory: $CWD");`
672		673
673	`################################################################################`	674	`################################################################################`
674	`# Setup drive`	675	`# Setup drive`
Line 1115...	Line 1116...
1115	# Note: Don't use `pwd`. This sucks for so many reasons including	1116	# Note: Don't use `pwd`. This sucks for so many reasons including
1116	`# the fact that it may not be available until this wrapper`	1117	`# the fact that it may not be available until this wrapper`
1117	`# script has done it job.`	1118	`# script has done it job.`
1118	`#`	1119	`#`
1119	`$CWD = getcwd();`	1120	`$CWD = getcwd();`
-		1121	`Error ("Bad change directory: $dir","Cannot determine current directory - may be protected" )unless ( defined $CWD );`
1120	`$CWD =~tr~\\/~/~s;`	1122	`$CWD =~tr~\\/~/~s;`
1121	`}`	1123	`}`
1122	`}`	1124	`}`
1123		1125
1124	`#-------------------------------------------------------------------------------`	1126	`#-------------------------------------------------------------------------------`
Line 1823...	Line 1825...
1823	`@ant_arg = ('-f', "$flist[0].xml");`	1825	`@ant_arg = ('-f', "$flist[0].xml");`
1824		1826
1825	`Message ("Ant using projectfiles: $flist[0].xml");`	1827	`Message ("Ant using projectfiles: $flist[0].xml");`
1826		1828
1827	`#`	1829	`#`
1828	`# Check for depends.xml newer than auto.xml.`	1830	`# Create auto.xml if we have a depends.xml`
1829	`#`	1831	`#`
1830	`my $auto_timestamp = (stat('auto.xml'))[9] \|\| 0;`	-
1831	`my $depend_timestamp = (stat($depend))[9];`	-
1832	`if ( $depend_timestamp > $auto_timestamp )`	1832	`if ( -f $depend )`
1833	`{`	1833	`{`
-		1834	`#`
-		1835	`# Check for depends.xml newer than auto.xml.`
-		1836	`#`
-		1837	`my $auto_timestamp = (stat('auto.xml'))[9] \|\| 0;`
-		1838	`my $depend_timestamp = (stat($depend))[9];`
-		1839	`if ( $depend_timestamp > $auto_timestamp )`
-		1840	`{`
1834	`Message ("Creating: auto.xml");`	1841	`Message ("Creating: auto.xml");`
1835	`copy( $depend, 'auto.xml' );`	1842	`copy( $depend, 'auto.xml' );`
1836	`chmod 0777, 'auto.xml';`	1843	`chmod 0777, 'auto.xml';`
-		1844	`}`
-		1845	`}`
-		1846	`else`
-		1847	`{`
-		1848	`Warning ("Project file does not have a depends.xml file");`
1837	`}`	1849	`}`
1838	`}`	1850	`}`
1839	`elsif ( $BUILD_FILE_SET )`	1851	`elsif ( $BUILD_FILE_SET )`
1840	`{`	1852	`{`
1841	`Error ("Specified build file pair not found:", $basename, $basename . "depends.xml");`	1853	`Error ("Specified build file pair not found:", $basename, $basename . "depends.xml");`
1842	`}`	1854	`}`
1843		-
1844	`#`	1855	`#`
1845	`# The ant provided startup scripts don't return an exit code under`	1856	`# The ant provided startup scripts don't return an exit code under`
1846	`# windows. Invoke ant directly`	1857	`# windows. Invoke ant directly`
1847	`#`	1858	`#`
1848	`launch_ant ( $JAVA_HOME, $ANT_HOME, @ant_arg, @_ );`	1859	`launch_ant ( $JAVA_HOME, $ANT_HOME, @ant_arg, @_ );`

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/jats.pl – Rev 363 → 367