#!/usr/bin/perl $target=shift @ARGV; if($target eq 'installsrc') { sys_print("mkdir $ENV{SRCROOT}") unless -e $ENV{SRCROOT}; sys_print("ditto . $ENV{SRCROOT}"); chdir($ENV{SRCROOT}); foreach $module (glob('*')) { next if $module =~ /build/; next if $module =~ /Make/; next if $module =~ /uvn/; next if $module =~ /\./; print "installing source for $module\n"; chdir($module); sys_print("../uvn extract; ../uvn patch"); chdir('..'); } exit(); } if($target eq 'clean') { print "Cleaning out directory $ENV{SRCROOT}\n"; chdir($ENV{SRCROOT}); sys_print("find . -name .svn | xargs rm -rf"); sys_print("find . -name .uvn | xargs rm -rf"); sys_print("find . -name \"*.tar.gz\" | xargs rm"); sys_print("find . -name \"*.tar.bz2\" | xargs rm"); sys_print("find . -name patches | xargs rm -rf"); exit(); } if($target eq 'install') { sys_print("mkdir $ENV{DSTROOT}") unless -e $ENV{DSTROOT}; sys_print("mkdir $ENV{OBJROOT}") unless -e $ENV{OBJROOT}; $ENV{DESTDIR}=$ENV{DSTROOT}; print "Install phase: \n"; $prefix="/usr/X11"; ($osx_version)=(`sw_vers -productVersion` =~ /(10\.\d)/); print "Building on $osx_version\n"; # Must create local aclocal dir or aclocal fails $ACLOCAL_LOCALDIR="$ENV{DSTROOT}$prefix/share/aclocal"; system "mkdir -p $ACLOCAL_LOCALDIR"; # The following is required to make aclocal find our .m4 macros $ENV{ACLOCAL}="aclocal -I $ACLOCAL_LOCALDIR -I $prefix/share/aclocal"; $ENV{LIBTOOLIZE}="/usr/bin/glibtoolize"; # The following is required to make pkg-config find our .pc metadata files $ENV{PKG_CONFIG_PATH}="$ENV{DSTROOT}$prefix/lib/pkgconfig:$prefix/lib/pkgconfig:$ENV{PKG_CONFIG_PATH}"; # Set the library path so that locally built libs will be found by apps $ENV{LD_LIBRARY_PATH}="$ENV{DSTROOT}$prefix/lib:$prefix/lib:$ENV{LD_LIBRARY_PATH}"; $ENV{PATH}="$ENV{DSTROOT}$prefix/bin:$prefix/bin:$ENV{PATH}"; foreach $arch (split(/ /,$ENV{RC_ARCHS})) { $arch_flags_lib .= "-arch $arch "; if($ENV{MACOSFORGE_RELEASE} eq "YES") { $arch_flags_exec .= " -arch $arch " unless $arch =~ /64/; } else { $arch_flags_exec .= " -arch $arch " unless $arch =~ /ppc/; } } $ENV{MACOSX_DEPLOYMENT_TARGET}=$osx_version; set_arch_exec(); build("gccmakedep"); build("lndir"); build("makedepend"); build("xorg-sgml"); build("xorg-docs"); make_dsyms(); } sub get_workdir { system "pwd"; system "ls -l"; foreach (glob('*')) { if(-e "$_/configure") { return $_; } } die "Unable to determine workdir"; } sub build { ($module)=@_; $m1=$module; print("build($module): "); die "$module not found" unless -e "$ENV{SRCROOT}/$module"; chdir ("$ENV{SRCROOT}/$module"); $full_path="/$module/".get_workdir(); sys_print("mkdir -p $ENV{OBJROOT}/$full_path"); sys_print("ditto $ENV{SRCROOT}/$full_path $ENV{OBJROOT}/$full_path"); sys_print("find . -depth 1 -type f -print | xargs -I foo cp -pv foo $ENV{OBJROOT}/$module"); chdir("$ENV{OBJROOT}/$full_path"); sys_print("autoreconf -fvi"); print "Configuring...\n"; $conf_flags=" --prefix=$prefix --disable-static --disable-dependency-tracking --disable-nls "; $conf_flags_path=$ENV{OBJROOT}."/$module/conf_flags"; $post_config_path=$ENV{OBJROOT}."/$module/post-config"; if(-e $conf_flags_path) { $conf_flags .= `cat $conf_flags_path`; chomp $conf_flags; } sys_print("./configure $conf_flags"); if(-e $post_config_path) { sys_print("cd .. && $post_config_path"); } sys_print("make -j".`sysctl -n hw.activecpu`); sys_print("make install"); chdir('../..'); } sub make_dsyms { open(FIND,"find $ENV{DSTROOT} -type f -exec file {} +|"); while() { if(/(.*): .*Mach-O/) { $basename=$1; $fullpath=$1; $basename =~ s/\/.*\///; sys_print_nodie("dsymutil --out=$ENV{SYMROOT}/$basename.dSYM $fullpath"); sys_print_nodie("strip -S $fullpath"); } } close FIND; } sub set_arch_exec { $ENV{CFLAGS}="-I$ENV{DSTROOT}$prefix/include -D__DEBUG__ -ggdb3 -Os -pipe $arch_flags_exec -D_FORTIFY_SOURCE=2 -Wall -Wformat-security"; $ENV{LDFLAGS}="-pipe $arch_flags_exec"; } sub set_arch_lib { $ENV{CFLAGS}="-I$ENV{DSTROOT}$prefix/include -D__DEBUG__ -ggdb3 -Os -pipe $arch_flags_lib -D_FORTIFY_SOURCE=2 -Wall -Wformat-security"; $ENV{LDFLAGS}="-pipe $arch_flags_lib"; } sub sys_print { $command=shift; print "$command\n"; system $command; $retval=$? >> 8; die "returned code $retval" if $retval; } sub sys_print_nodie { $command=shift; print "$command\n"; system $command; $retval=$? >> 8; print "returned code $retval\n" if $retval; }