mirror of
https://github.com/mas-cli/mas
synced 2024-11-24 12:33:08 +00:00
📜 Remove unused sort scripts
This commit is contained in:
Chris Araman
parent
15142c5aa7
commit
05083da253
5 changed files with 0 additions and 209 deletions
|
|
@ -15,7 +15,6 @@ rubocop:
|
|||
|
||||
shellcheck:
|
||||
enabled: true
|
||||
config_file: .shellcheck.yml
|
||||
|
||||
swiftlint:
|
||||
enabled: true
|
||||
|
|
|
|||
|
|
@ -1,8 +0,0 @@
|
|||
#
|
||||
# .shellcheck.yml
|
||||
# mas-cli
|
||||
#
|
||||
#
|
||||
---
|
||||
exclude:
|
||||
- script/sort.pl
|
||||
4
Makefile
4
Makefile
|
|
@ -109,10 +109,6 @@ install:
|
|||
uninstall:
|
||||
script/uninstall
|
||||
|
||||
.PHONY: sort
|
||||
sort:
|
||||
script/sort
|
||||
|
||||
.PHONY: lint
|
||||
lint:
|
||||
script/lint
|
||||
|
|
|
|||
18
script/sort
18
script/sort
|
|
@ -1,18 +0,0 @@
|
|||
#!/bin/bash
|
||||
#
|
||||
# script/sort
|
||||
# mas
|
||||
#
|
||||
# Invokes the sort.pl script on the Xcode project to organize project references.
|
||||
#
|
||||
|
||||
main() {
|
||||
echo "==> 📶 Sorting project files"
|
||||
sort_project
|
||||
}
|
||||
|
||||
sort_project() {
|
||||
perl script/sort.pl mas-cli.xcodeproj/project.pbxproj
|
||||
}
|
||||
|
||||
main
|
||||
178
script/sort.pl
178
script/sort.pl
|
|
@ -1,178 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
#
|
||||
# script/sort.pl
|
||||
# mas
|
||||
#
|
||||
# Sorts "children" and "files" sections in Xcode project.pbxproj files.
|
||||
#
|
||||
|
||||
# Copyright (C) 2007, 2008, 2009, 2010 Apple Inc. All rights reserved.
|
||||
#
|
||||
# Redistribution and use in source and binary forms, with or without
|
||||
# modification, are permitted provided that the following conditions
|
||||
# are met:
|
||||
#
|
||||
# 1. Redistributions of source code must retain the above copyright
|
||||
# notice, this list of conditions and the following disclaimer.
|
||||
# 2. Redistributions in binary form must reproduce the above copyright
|
||||
# notice, this list of conditions and the following disclaimer in the
|
||||
# documentation and/or other materials provided with the distribution.
|
||||
# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of
|
||||
# its contributors may be used to endorse or promote products derived
|
||||
# from this software without specific prior written permission.
|
||||
#
|
||||
# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
|
||||
# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
||||
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
|
||||
# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
|
||||
# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
|
||||
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
|
||||
# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
|
||||
# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
||||
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
||||
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||
|
||||
# Script to sort "children" and "files" sections in Xcode project.pbxproj files
|
||||
|
||||
use strict;
|
||||
|
||||
use File::Basename;
|
||||
use File::Spec;
|
||||
use File::Temp qw(tempfile);
|
||||
use Getopt::Long;
|
||||
|
||||
sub sortChildrenByFileName($$);
|
||||
sub sortFilesByFileName($$);
|
||||
|
||||
# Files (or products) without extensions
|
||||
my %isFile = map { $_ => 1 } qw(
|
||||
create_hash_table
|
||||
jsc
|
||||
minidom
|
||||
testapi
|
||||
testjsglue
|
||||
);
|
||||
|
||||
my $printWarnings = 1;
|
||||
my $showHelp;
|
||||
|
||||
my $getOptionsResult = GetOptions(
|
||||
'h|help' => \$showHelp,
|
||||
'w|warnings!' => \$printWarnings,
|
||||
);
|
||||
|
||||
if (scalar(@ARGV) == 0 && !$showHelp) {
|
||||
print STDERR "ERROR: No Xcode project files (project.pbxproj) listed on command-line.\n";
|
||||
undef $getOptionsResult;
|
||||
}
|
||||
|
||||
if (!$getOptionsResult || $showHelp) {
|
||||
print STDERR <<__END__;
|
||||
Usage: @{[ basename($0) ]} [options] path/to/project.pbxproj [path/to/project.pbxproj ...]
|
||||
-h|--help show this help message
|
||||
-w|--[no-]warnings show or suppress warnings (default: show warnings)
|
||||
__END__
|
||||
exit 1;
|
||||
}
|
||||
|
||||
for my $projectFile (@ARGV) {
|
||||
if (basename($projectFile) =~ /\.xcodeproj$/) {
|
||||
$projectFile = File::Spec->catfile($projectFile, "project.pbxproj");
|
||||
}
|
||||
|
||||
if (basename($projectFile) ne "project.pbxproj") {
|
||||
print STDERR "WARNING: Not an Xcode project file: $projectFile\n" if $printWarnings;
|
||||
next;
|
||||
}
|
||||
|
||||
# Grab the mainGroup for the project file
|
||||
my $mainGroup = "";
|
||||
open(IN, "< $projectFile") || die "Could not open $projectFile: $!";
|
||||
while (my $line = <IN>) {
|
||||
$mainGroup = $2 if $line =~ m#^(\s*)mainGroup = ([0-9A-F]{24} /\* .+ \*/);$#;
|
||||
}
|
||||
close(IN);
|
||||
|
||||
my ($OUT, $tempFileName) = tempfile(
|
||||
basename($projectFile) . "-XXXXXXXX",
|
||||
DIR => dirname($projectFile),
|
||||
UNLINK => 0,
|
||||
);
|
||||
|
||||
# Clean up temp file in case of die()
|
||||
$SIG{__DIE__} = sub {
|
||||
close(IN);
|
||||
close($OUT);
|
||||
unlink($tempFileName);
|
||||
};
|
||||
|
||||
my @lastTwo = ();
|
||||
open(IN, "< $projectFile") || die "Could not open $projectFile: $!";
|
||||
while (my $line = <IN>) {
|
||||
if ($line =~ /^(\s*)files = \(\s*$/) {
|
||||
print $OUT $line;
|
||||
my $endMarker = $1 . ");";
|
||||
my @files;
|
||||
while (my $fileLine = <IN>) {
|
||||
if ($fileLine =~ /^\Q$endMarker\E\s*$/) {
|
||||
$endMarker = $fileLine;
|
||||
last;
|
||||
}
|
||||
push @files, $fileLine;
|
||||
}
|
||||
print $OUT sort sortFilesByFileName @files;
|
||||
print $OUT $endMarker;
|
||||
} elsif ($line =~ /^(\s*)children = \(\s*$/) {
|
||||
print $OUT $line;
|
||||
my $endMarker = $1 . ");";
|
||||
my @children;
|
||||
while (my $childLine = <IN>) {
|
||||
if ($childLine =~ /^\Q$endMarker\E\s*$/) {
|
||||
$endMarker = $childLine;
|
||||
last;
|
||||
}
|
||||
push @children, $childLine;
|
||||
}
|
||||
if ($lastTwo[0] =~ m#^\s+\Q$mainGroup\E = \{$#) {
|
||||
# Don't sort mainGroup
|
||||
print $OUT @children;
|
||||
} else {
|
||||
print $OUT sort sortChildrenByFileName @children;
|
||||
}
|
||||
print $OUT $endMarker;
|
||||
} else {
|
||||
print $OUT $line;
|
||||
}
|
||||
|
||||
push @lastTwo, $line;
|
||||
shift @lastTwo if scalar(@lastTwo) > 2;
|
||||
}
|
||||
close(IN);
|
||||
close($OUT);
|
||||
|
||||
unlink($projectFile) || die "Could not delete $projectFile: $!";
|
||||
rename($tempFileName, $projectFile) || die "Could not rename $tempFileName to $projectFile: $!";
|
||||
}
|
||||
|
||||
exit 0;
|
||||
|
||||
sub sortChildrenByFileName($$)
|
||||
{
|
||||
my ($a, $b) = @_;
|
||||
my $aFileName = $1 if $a =~ /^\s*[A-Z0-9]{24} \/\* (.+) \*\/,$/;
|
||||
my $bFileName = $1 if $b =~ /^\s*[A-Z0-9]{24} \/\* (.+) \*\/,$/;
|
||||
my $aSuffix = $1 if $aFileName =~ m/\.([^.]+)$/;
|
||||
my $bSuffix = $1 if $bFileName =~ m/\.([^.]+)$/;
|
||||
if ((!$aSuffix && !$isFile{$aFileName} && $bSuffix) || ($aSuffix && !$bSuffix && !$isFile{$bFileName})) {
|
||||
return !$aSuffix ? -1 : 1;
|
||||
}
|
||||
return lc($aFileName) cmp lc($bFileName);
|
||||
}
|
||||
|
||||
sub sortFilesByFileName($$)
|
||||
{
|
||||
my ($a, $b) = @_;
|
||||
my $aFileName = $1 if $a =~ /^\s*[A-Z0-9]{24} \/\* (.+) in /;
|
||||
my $bFileName = $1 if $b =~ /^\s*[A-Z0-9]{24} \/\* (.+) in /;
|
||||
return lc($aFileName) cmp lc($bFileName);
|
||||
}
|
||||
Loading…
Reference in a new issue