[apple/libc.git] / xcodescripts / patch_headers_variants.pl

#!/usr/bin/perl
#
# Copyright (c) 2006, 2007 Apple Inc. All rights reserved.
#
# @APPLE_LICENSE_HEADER_START@
# 
# 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.
# 
# @APPLE_LICENSE_HEADER_END@
#
# patchheaders srcdir destdir
#
# The last path component of srcdir is replicated in destdir, with the
# __DARWIN_ALIAS* and __DARWIN_EXTSN macro wrapped so that Libc can set
# the symbol decoration independently:
#
#   #ifndef LIBC_ALIAS_FOO
#   int foo(int) __DARWIN_ALIAS(foo);
#   #else /* LIBC_ALIAS_FOO */
#   int foo(int) LIBC_ALIAS(foo);
#   #endif /* !LIBC_ALIAS_FOO */

use strict;
use IO::File;
use File::Basename ();
use File::Find ();
use File::Path ();
use File::Spec;

my $MyName = File::Basename::basename($0);
my $dest;

sub process {
    my($path, $file) = @_;
    local $_;
	if (-e $file) {
		my $dest_mtime = (stat($file))[9];
		my $src_mtime = (stat($path))[9];

		if ($dest_mtime > $src_mtime) {
			return;
		}
	}

    my $p = IO::File->new($path, 'r');
    die "$MyName: Can't open $path: $!\n" unless defined($p);
    my $f = IO::File->new($file, 'w');
    die "$MyName: Can't open $file: $!\n" unless defined($f);
    my @save;
    while(<$p>) {
		if(/^\S/ or /^\s*$/) {
			my $n = scalar(@save);
			my $sym;
			if($n > 0) {
				my($sym) = ($save[$n - 1] =~ /__DARWIN_(?:10\d+|ALIAS|EXTSN|INODE64)[^(]*\(([^)]*)\)/);
				if(defined($sym)) {
					if(defined($path)) {
						print "  $path\n";
						undef($path);
					}
					$sym =~ s/^\s+//;
					$sym =~ s/\s+$//;
					$sym =~ tr/a-z/A-Z/;
					$f->print("#ifndef LIBC_ALIAS_$sym\n");
				}
				$f->print(@save);
				if(defined($sym)) {
					$save[$n - 1] =~ s/__DARWIN_(10\d+|ALIAS|EXTSN|INODE64)/LIBC_$1/;
					$f->print("#else /* LIBC_ALIAS_$sym */\n");
					$f->print(@save);
					$f->print("#endif /* !LIBC_ALIAS_$sym */\n");
				}
			}
			if(/^#/) {
				$f->print($_);
			@save = ();
	    } else {
			@save = ($_);
	    }
	} else {
	    push(@save, $_);
	}
}
$f->print(@save);
}

sub usage {
    die "Usage: $MyName srcdir dstdir\n";
}

sub wanted {
    if(-d $File::Find::name) {
		#print "DIR: $File::Find::name\n";
		my $dir = File::Spec->join($dest, $File::Find::name);
		File::Path::mkpath($dir, 0, 0755);
    } else {
		#print "FIL: $File::Find::name\n";
		my $file = File::Spec->join($dest, $File::Find::name);
		process($File::Find::name, $file);
    }
}

usage() unless scalar(@ARGV) == 2;
my $start = File::Basename::dirname($ARGV[0]);
chdir($start) || die "$MyName: chdir($start): $!\n";
$dest = $ARGV[1];
File::Path::mkpath($dest, 0, 0755);
File::Find::find({wanted => \&wanted, no_chdir => 1}, File::Basename::basename($ARGV[0]));
Commit	Line	Data
224c7076 A	1	#!/usr/bin/perl
	2	#
	3	# Copyright (c) 2006, 2007 Apple Inc. All rights reserved.
	4	#
	5	# @APPLE_LICENSE_HEADER_START@
	6	#
	7	# This file contains Original Code and/or Modifications of Original Code
	8	# as defined in and that are subject to the Apple Public Source License
	9	# Version 2.0 (the 'License'). You may not use this file except in
	10	# compliance with the License. Please obtain a copy of the License at
	11	# http://www.opensource.apple.com/apsl/ and read it before using this
	12	# file.
	13	#
	14	# The Original Code and all software distributed under the License are
	15	# distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
	16	# EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
	17	# INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
	18	# FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
	19	# Please see the License for the specific language governing rights and
	20	# limitations under the License.
	21	#
	22	# @APPLE_LICENSE_HEADER_END@
	23	#
	24	# patchheaders srcdir destdir
	25	#
	26	# The last path component of srcdir is replicated in destdir, with the
	27	# __DARWIN_ALIAS* and __DARWIN_EXTSN macro wrapped so that Libc can set
	28	# the symbol decoration independently:
	29	#
	30	# #ifndef LIBC_ALIAS_FOO
	31	# int foo(int) __DARWIN_ALIAS(foo);
	32	# #else /* LIBC_ALIAS_FOO */
	33	# int foo(int) LIBC_ALIAS(foo);
	34	# #endif /* !LIBC_ALIAS_FOO */
	35
	36	use strict;
	37	use IO::File;
	38	use File::Basename ();
	39	use File::Find ();
	40	use File::Path ();
	41	use File::Spec;
	42
	43	my $MyName = File::Basename::basename($0);
	44	my $dest;
	45
	46	sub process {
	47	my($path, $file) = @_;
	48	local $_;
ad3c9f2a A	49	if (-e $file) {
	50	my $dest_mtime = (stat($file))[9];
	51	my $src_mtime = (stat($path))[9];
	52
	53	if ($dest_mtime > $src_mtime) {
	54	return;
	55	}
	56	}
	57
224c7076 A	58	my $p = IO::File->new($path, 'r');
	59	die "$MyName: Can't open $path: $!\n" unless defined($p);
	60	my $f = IO::File->new($file, 'w');
	61	die "$MyName: Can't open $file: $!\n" unless defined($f);
	62	my @save;
	63	while(<$p>) {
ad3c9f2a A	64	if(/^\S/ or /^\s*$/) {
	65	my $n = scalar(@save);
	66	my $sym;
	67	if($n > 0) {
	68	my($sym) = ($save[$n - 1] =~ /__DARWIN_(?:10\d+\|ALIAS\|EXTSN\|INODE64)[^(]\(([^)])\)/);
	69	if(defined($sym)) {
	70	if(defined($path)) {
	71	print " $path\n";
	72	undef($path);
	73	}
	74	$sym =~ s/^\s+//;
	75	$sym =~ s/\s+$//;
	76	$sym =~ tr/a-z/A-Z/;
	77	$f->print("#ifndef LIBC_ALIAS_$sym\n");
	78	}
	79	$f->print(@save);
	80	if(defined($sym)) {
	81	$save[$n - 1] =~ s/__DARWIN_(10\d+\|ALIAS\|EXTSN\|INODE64)/LIBC_$1/;
	82	$f->print("#else /* LIBC_ALIAS_$sym */\n");
	83	$f->print(@save);
	84	$f->print("#endif /* !LIBC_ALIAS_$sym */\n");
	85	}
	86	}
	87	if(/^#/) {
	88	$f->print($_);
	89	@save = ();
224c7076	90	} else {
ad3c9f2a	91	@save = ($_);
224c7076 A	92	}
	93	} else {
	94	push(@save, $_);
	95	}
ad3c9f2a A	96	}
ad3c9f2a A	97	$f->print(@save);
224c7076 A	98	}
	99
	100	sub usage {
	101	die "Usage: $MyName srcdir dstdir\n";
	102	}
	103
	104	sub wanted {
	105	if(-d $File::Find::name) {
ad3c9f2a A	106	#print "DIR: $File::Find::name\n";
	107	my $dir = File::Spec->join($dest, $File::Find::name);
	108	File::Path::mkpath($dir, 0, 0755);
224c7076	109	} else {
ad3c9f2a A	110	#print "FIL: $File::Find::name\n";
	111	my $file = File::Spec->join($dest, $File::Find::name);
	112	process($File::Find::name, $file);
224c7076 A	113	}
	114	}
	115
	116	usage() unless scalar(@ARGV) == 2;
	117	my $start = File::Basename::dirname($ARGV[0]);
	118	chdir($start) \|\| die "$MyName: chdir($start): $!\n";
	119	$dest = $ARGV[1];
	120	File::Path::mkpath($dest, 0, 0755);
	121	File::Find::find({wanted => \&wanted, no_chdir => 1}, File::Basename::basename($ARGV[0]));