#!/usr/bin/perl -w

use FileHandle;
use File::Temp (”mkdtemp”);
use File::Copy (”copy”);
use File::Basename (”basename”);
use Cwd (”chdir”);

my $filename = basename(”%%%{PBXFilePath}%%%”);
my $temporary_directory = mkdtemp(”/tmp/uncrustifyXXXX”);

my $uncrustify = “/Applications/UniversalIndentGUI/indenters/uncrustify”;
my $config = “/Applications/UniversalIndentGUI/myIndenters/p31Indenter.cfg”;

# Write out the file to a temp directory
open(OUTFILE, “> $temporary_directory/uncrustifyMe.m”) or die “Unable to create temporary file: $!”;
print OUTFILE while();
close(OUTFILE);

chdir(”$temporary_directory”);

# Write to temp first then read in file and print it
my $output = `$uncrustify -c $config -o output.m -f uncrustifyMe.m`;

# Read in file
open FILE, “< output.m”;
$file_contents = do { local $/; };

# Clean up
unlink “uncrustifyMe.m”;
unlink “output.m”;
rmdir “$temporary_directory”;

print $file_contents;

My biggest problem is the way it handles spaces around colons. The same config that adds or removes spaces to make 1 space before and after colon in this line:

[UIView setAnimationDelegate : self];

Ignores the spacing around the colons in this line:

if (self = [super initWithNibName:nibNameOrNil bundle: nibBundleOrNil])

I’ve tried playing with the sp_after_send_oc_colon and sp_before_send_oc_colon parameters but they don’t seem to do anything.

Overall I’m happy enough with it as it is. The problems are minor and don’t prevent anything from compiling. It’s still 100x better than just using the built in re-indent.

Have fun trying it.

Thomas