[hibernate-commits] Hibernate SVN: r20920 - core/branches/Branch_3_3_2_GA_CP/etc and 1 other directories.
hibernate-commits at lists.jboss.org
hibernate-commits at lists.jboss.org
Sat Mar 12 08:38:13 EST 2011
Author: stliu
Date: 2011-03-12 08:38:13 -0500 (Sat, 12 Mar 2011)
New Revision: 20920
Removed:
annotations/branches/v3_4_0_GA_CP/.cvsignore
core/branches/Branch_3_3_2_GA_CP/etc/cvs-dup-eol-fixer
entitymanager/branches/v3_4_0_GA_CP/.cvsignore
Log:
remove out-of-date files
Deleted: annotations/branches/v3_4_0_GA_CP/.cvsignore
===================================================================
--- annotations/branches/v3_4_0_GA_CP/.cvsignore 2011-03-09 09:56:41 UTC (rev 20919)
+++ annotations/branches/v3_4_0_GA_CP/.cvsignore 2011-03-12 13:38:13 UTC (rev 20920)
@@ -1,9 +0,0 @@
-target
-build
-build.properties
-test_output
-testout
-common-build.xml
-javadoc.bat
-build.properties
-instrumenttestout
Deleted: core/branches/Branch_3_3_2_GA_CP/etc/cvs-dup-eol-fixer
===================================================================
--- core/branches/Branch_3_3_2_GA_CP/etc/cvs-dup-eol-fixer 2011-03-09 09:56:41 UTC (rev 20919)
+++ core/branches/Branch_3_3_2_GA_CP/etc/cvs-dup-eol-fixer 2011-03-12 13:38:13 UTC (rev 20920)
@@ -1,119 +0,0 @@
-#!perl -w
-###############################################################################
-#
-# Name: cvs-dup-eol-fixer
-# Author: Steve Ebersole
-#
-# Description:
-# Script to fix the bad end-of-line issues that sometimes occur after checking
-# out Hibernate source from the sourceforge CVS where everything is essentially
-# double-spaced. What I found however, at least on my environment, was that
-# this was actually caused by two carriage-return characters (i.e., \r\r) being
-# substituted for all line endings. This script works under that assumption
-# and fixes only that issue.
-#
-###############################################################################
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-# This subroutine is essentially a recursive directory searcher. It does also
-# filter out anything from the CVS local admin dirs.
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-sub parsedir($) {
- my @results = ();
- my $dir = shift at _;
- opendir(DIRHANDLE, $dir) or die("Unable to open dir [$dir] for parsing");
- my @dir_contents = readdir(DIRHANDLE);
- closedir(DIRHANDLE) or warn("Unable to close dir [$dir]");
-
- foreach $element (@dir_contents) {
- if ( $element eq "." || $element eq ".." ) {
- # Nothing to do here...
- }
- elsif ($element =~ /CVS/) {
- # nothing to do here...
- }
- # assume no extension means a directory
- elsif ($element =~ /\./) {
- if ($element =~ /\.java/) {
- push( @results, "$dir/$element" );
- }
- }
- else {
- push( @results, parsedir("$dir/$element") );
- }
- }
-
- return @results;
-}
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-# This subroutine basically checks to see if the file needs to be fixed, based
-# mainly on the number of adjacent (i.e., repeating) cariage-return characters.
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-sub checkfile($) {
- my $file_name = shift @_;
- my $loop_count = 0;
- my $adj_cr_count = 0;
- my $line_count = 0;
-
- open( INFILEHANDLE, "<$file_name" ) or die( "Unable to open file [$file_name] for check" );
- while (<INFILEHANDLE>) {
- $loop_count++;
-
- @matches = m/\r\r/g;
- $adj_cr_count = $adj_cr_count + $#matches + 1;
-
- $line_count = $line_count + tr/\r\n/\r\n/;
- }
- close( INFILEHANDLE );
-
- my $half_line_count = $line_count / 2;
- return $loop_count == 1 && int($half_line_count) <= $adj_cr_count && $adj_cr_count <= int($half_line_count + 1);
-}
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-# This is the subroutine where the file actually gets fixed. It is also
-# responsible for making sure files get backed up before doing the fix.
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-sub fixfile($) {
- my $file_name = shift @_;
- my $file_text = "";
-
- open( INFILEHANDLE, "<$file_name" ) or die( "Unable to open file [$file_name] for fix input" );
- while (<INFILEHANDLE>) {
- s/\r\r/\n/g;
- $file_text .= $_;
- }
- close( INFILEHANDLE );
-
- my $new_file_name = $file_name . ".old";
- rename( $file_name, $new_file_name );
-
- open( OUTFILEHANDLE, ">$file_name" ) or die( "Unable to open file [$file_name] for fix output" );
- print( OUTFILEHANDLE $file_text );
- close( OUTFILEHANDLE );
-}
-
-
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-# Start main process
-#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-open( REPORTFILEHANDLE, ">cvs-dup-eol-fixer.report" ) or die( "Unable to open report file" );
-
-my $basedir = shift @ARGV;
-print( REPORTFILEHANDLE "Using basedir : $basedir\n");
-
-my @file_list = parsedir($basedir);
-
-foreach $file_name (@file_list) {
- print( REPORTFILEHANDLE "Checking file [$file_name]\n" );
- if ( checkfile($file_name) ) {
- print( REPORTFILEHANDLE " Need to fix file : $file_name\n" );
- fixfile($file_name);
- }
-}
-
-close(REPORTFILEHANDLE) or warn("Unable to close report file");
-
-__END__
Deleted: entitymanager/branches/v3_4_0_GA_CP/.cvsignore
===================================================================
--- entitymanager/branches/v3_4_0_GA_CP/.cvsignore 2011-03-09 09:56:41 UTC (rev 20919)
+++ entitymanager/branches/v3_4_0_GA_CP/.cvsignore 2011-03-12 13:38:13 UTC (rev 20920)
@@ -1,4 +0,0 @@
-build.properties
-build
-target
-test_output
More information about the hibernate-commits
mailing list