Dakusan's Domain Forum

Main Site Discussion => Posts => Topic started by: Dakusan on January 03, 2011, 07:24:07 am

Title: SymLink Fix for Combining Android Project Versions
Post by: Dakusan on January 03, 2011, 07:24:07 am

Original post for SymLink Fix for Combining Android Project Versions can be found at https://www.castledragmire.com/Posts/SymLink_Fix_for_Combining_Android_Project_Versions.
Originally posted on: 01/03/11

Since I found out that NTFS now has semi-working native symlinks, I have updated the symlinking script used in the Combining an Android Project's Versions post. This script creates relative symlinks now through Perl instead of absolute hard links through Bash. It is as follows:

#!/usr/bin/perl
#Run this file to install links to shared files into all branches
use warnings;
use strict;

#Configuration
my $SharedDirectoryName="Shared";
my $NonProjectDirectories="^\\.(|/\\.git|/$SharedDirectoryName)\$"; #Non Project directories (., .git, $SharedDirectoryName)
my $IsWindows=(index(lc(`uname`), 'cygwin')!=-1);

#Create a symlink
sub MakeLink
{
   my ($LinkTarget, $LinkName, $IsWindows, $IsDirectory)=@_;

   #Create the target directory if it does not exist
   my $LinkDirectory=$LinkName;
   $LinkDirectory =~ s/\/[^\/]+$//;
   if(!-e $LinkDirectory) {
      print "Creating directory: $LinkDirectory\n";
      `mkdir -p "$LinkDirectory"`;
   }
   
   #If the link already exists, issue a warning
   if(-l $LinkName) {
      print "Link already exists: $LinkName\n";
      return;
   }

   #Create the relative symlink
   my $RelativePathFromLinkToTarget=('../' x ($LinkName =~ tr/\///)).$LinkTarget; #Determine the relative path between the link and its target
   my $Command;
   if(!$IsWindows) { #Create the Linux command
      $Command="ln -s \"$RelativePathFromLinkToTarget\" \"$LinkName\"";
   }
   else #Create the Windows command
   {
      #Replace /s in path with \s
      $RelativePathFromLinkToTarget =~ s/\//\\/g;
      $LinkName =~ s/\//\\/g;
      
      $Command='cmd /c mklink'.($IsDirectory ? ' /d' : '')." \"$LinkName\" \"$RelativePathFromLinkToTarget\"";
   }

   print "$Command\n";
   `$Command`;
}

#Find required information from file searches
my @LocalBranches=grep(!/$NonProjectDirectories/, `find -maxdepth 1 -type d`); #Find version folders by ignoring Non Project directories
my @Files=split(/\n?^$SharedDirectoryName\//m, substr(`find $SharedDirectoryName -type f`, 0, -1)); shift @Files; #Find shared files

#Propagate shared files into different versions
foreach my $LocalBranch (@LocalBranches) {
   $LocalBranch=substr($LocalBranch, 2, -1); #Remove ./ and new line separator
   foreach my $File (@Files) {
      MakeLink("$SharedDirectoryName/$File", "$LocalBranch/$File", $IsWindows, 0);
   }
}