dss_license_tool.pl

#!/usr/bin/perl -w
use strict;

# This was used to update copyright/license text.  It should be executed from the base DSS directory.
# The script expects the @APPLE_LICENSE_HEADER_START@ and @APPLE_LICENSE_HEADER_END@ tags and will
# replace the content with the text defined below.

# Text to use for filetypes that support multi-line documentation:
my $new_text = q! *
 * Copyright (c) 1999-2008 Apple Inc.  All Rights Reserved.
 *
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this
 * file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 * 
!;

# Text to use for Perl:
my $new_text_perl = q!#
#
# Copyright (c) 1999-2008 Apple Inc.  All Rights Reserved.
#
# This file contains Original Code and/or Modifications of Original Code
# as defined in and that are subject to the Apple Public Source License
# Version 2.0 (the 'License'). You may not use this file except in
# compliance with the License. Please obtain a copy of the License at
# http://www.opensource.apple.com/apsl/ and read it before using this
# file.
#
# The Original Code and all software distributed under the License are
# distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
# EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
# INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
# Please see the License for the specific language governing rights and
# limitations under the License.
#
!;

sub is_code_file {
	my $file = shift;
	if ($file =~ /(\.s|\.m|\.cpp|\.h|\.c|\.pl|\.py|\.cgi)$/) {
		return 1;
	}
	return 0;
}

sub process_file {
	my $file = shift;
	#print "DEBUG: $file\n";
	my $ret = `grep APPLE_LICENSE_HEADER_START "$file"`;
	if ($ret eq "") {
		print "$file: Apple Header not found\n";
		return;
	}

	open(F, "<$file") || die "Cannot open file $file";
	my @lines = <F>;
	close(F);
	open(F, ">$file.license-update") || die "Cannot create file $file";
	my $replaced = 0;
	my $done = 0;
	foreach my $line (@lines) {
		if ($line =~ "\@APPLE_LICENSE_HEADER_START\@") {
			print F $line;
			if ($file =~ /(\.cgi|\.pl)$/) {     # assumes that .cgi is a Perl script
				print F $new_text_perl;
			} else {
				print F $new_text;
			}
			$replaced = 1;
			next;
		}
		if ($replaced == 1 && $done == 0) {
			if ($line =~ "\@APPLE_LICENSE_HEADER_END\@") {
				print F $line;
				$done = 1;
				next;
			} else {
				next;
			}
		}
		print F $line;
	}	
	close(F);
	my $cmd = "mv -vf \"$file.license-update\" \"$file\"";
	system($cmd);
}

sub process_dir {
	my $dir = shift;
	opendir(D, $dir) || die "can't open dir $dir";
	my @files = readdir(D);
	closedir(D);
	foreach my $file (@files) {
		if ($file eq "." || $file eq ".." || $file eq ".svn" || $file eq "CVS") {
			next;
		}
		my $full_filename = "$dir/$file";
		if (-d $full_filename) {
			&process_dir($full_filename);
		} else {
			if (&is_code_file($full_filename)) {
				&process_file($full_filename);
			}
		}
	}
}

#### MAIN
&process_dir(".");
print "Finished updating.\n";