nixenvironment 0.0.70 → 0.0.71

data/legacy/SaveRevision.sh

@@ -1,122 +0,0 @@
-#!/bin/sh -e
-
-# Created by Yuri Govorushchenko on 6/24/11.
-# Copyright 2011 nix. All rights reserved.
-
-# Script which saves next vars into _last_revision.sh:
-#    SCM revision of working copy
-#    "monotonic" revision (good for build numbers) of working copy
-#    checks if working copy is not modified
-
-currentScriptDir=$(cd "$(dirname "$0")"; pwd)
-SCM_TYPE=$("${currentScriptDir}/DetectSCM.sh")
-
-# Subversion
-if [[ "${SCM_TYPE}" = "svn" ]]; then
-    echo "SVN working copy detected"
-    CURRENT_REVISION="$(svnversion)"
-    CURRENT_MONOTONIC_REVISION=${CURRENT_REVISION} # SVN revision is already an incrementing number
-
-    # simply check that the SVN version is a digit
-    if [[ ${CURRENT_REVISION} =~ ^[0-9]+$ ]]; then
-        WORKING_COPY_IS_CLEAN=1
-    else
-        echo "Working copy is not clean because of svnversion returning ${CURRENT_REVISION}"
-        WORKING_COPY_IS_CLEAN=0
-    fi
-
-# git
-elif [[ "${SCM_TYPE}" = "git" ]]; then
-    echo "GIT working copy detected"
-    CURRENT_REVISION="$(git rev-parse HEAD | xargs)"
-    LAST_REVISION_IN_REPO="$(git rev-list --all | head -n 1 | xargs)"
-
-    if [[ $CURRENT_REVISION == $LAST_REVISION_IN_REPO ]]; then
-        UNLESS_STARTS_FROM=1
-    else
-        UNLESS_STARTS_FROM=2
-    fi
-
-    CURRENT_MONOTONIC_REVISION=$(git rev-list --all | perl -ne "print unless $UNLESS_STARTS_FROM../$CURRENT_REVISION/" | wc -l | xargs) # number of pushes before current
-
-    if [[ $UNLESS_STARTS_FROM == 1 ]]; then
-        CURRENT_MONOTONIC_REVISION=$(($CURRENT_MONOTONIC_REVISION + 1))
-    fi
-
-    STATUS="$(git status --porcelain)"
-
-    if [[ "${STATUS}" = "" ]]; then
-        WORKING_COPY_IS_CLEAN=1
-    else
-        # ignore changes to build folder, because it's created by Xcode before the script runs as a build phase
-        LINES_COUNT=$(echo "$STATUS" | wc -l)
-
-        if [ ${LINES_COUNT} != 1 ]; then
-            printf "Working copy is not clean because of status:\n${STATUS}"
-            WORKING_COPY_IS_CLEAN=0
-        else
-            MODIFIED_PATH=$(echo "$STATUS" | colrm 1 3)
-            WC_ROOT=$(git rev-parse --show-toplevel)
-            ABS_MODIFIED_PATH="${WC_ROOT}/${MODIFIED_PATH}"
-
-            # compare path to Xcode env var
-            if [[ "${ABS_MODIFIED_PATH}" -ef "${BUILD_ROOT}" ]]; then
-                WORKING_COPY_IS_CLEAN=1
-            else
-                printf "Working copy is not clean because of status:\n${STATUS}"
-                WORKING_COPY_IS_CLEAN=0
-            fi
-        fi
-    fi
-
-# mercurial
-elif [[ "${SCM_TYPE}" = "mercurial" ]]; then
-    echo "Mercurial working copy detected"
-    CURRENT_REVISION="$(hg id -i)"
-    CURRENT_MONOTONIC_REVISION="$(hg log --template '{rev}:{node|short} {desc|firstline} ({author})\n' | wc -l | tr -d ' ')" # number of pushes in current branch
-
-    STATUS="$(hg status)"
-
-    if [[ "${STATUS}" = "" ]]; then
-        WORKING_COPY_IS_CLEAN=1
-    else
-        # ignore changes to build folder, because it's created by Xcode before the script runs as a build phase
-        LINES_COUNT=$(echo "$STATUS" | wc -l)
-
-        if [ ${LINES_COUNT} != 1 ]; then
-            printf "Working copy is not clean because of status:\n${STATUS}"
-            WORKING_COPY_IS_CLEAN=0
-        else
-            MODIFIED_PATH=$(echo "$STATUS" | colrm 1 3)
-            WC_ROOT=$(git rev-parse --show-toplevel)
-            ABS_MODIFIED_PATH="${WC_ROOT}/${MODIFIED_PATH}"
-
-            # compare path to Xcode env var
-            if [[ "${ABS_MODIFIED_PATH}" -ef "${BUILD_ROOT}" ]]; then
-                WORKING_COPY_IS_CLEAN=1
-            else
-                printf "Working copy is not clean because of status:\n${STATUS}"
-                WORKING_COPY_IS_CLEAN=0
-            fi
-        fi
-    fi
-    
-# undefined SCM
-else
-    echo "warning: script must be run from working copy. Revision is undefined."
-
-    CURRENT_REVISION="undefined"
-    CURRENT_MONOTONIC_REVISION="undefined"
-    WORKING_COPY_IS_CLEAN=0
-fi
-
-OUTPUT="
-REVISION=\"${CURRENT_REVISION}\"
-MONOTONIC_REVISION=\"${CURRENT_MONOTONIC_REVISION}\"
-WORKING_COPY_IS_CLEAN=\"${WORKING_COPY_IS_CLEAN}\"
-"
-
-echo "${OUTPUT}"
-echo "#!/bin/sh
-### AUTOGENERATED BY SaveRevision.sh; DO NOT EDIT ###
-${OUTPUT}" > _last_revision.sh

data/legacy/VerifyBinarySigning.py

@@ -1,80 +0,0 @@
-#!/usr/bin/python
-
-import os
-import optparse
-import sys
-
-def main():
-    parser = optparse.OptionParser(description='Verifies that iOS binary has expected keychain-access-group. Using the same keychain-access-group insures\
-that app will have access to its keychain after updates.',
-                                   prog='VerifyBinarySigning')
-    
-    parser.add_option("-b", "--binary", dest="path_to_binary", help="Full path to app binary", metavar="BINARY")
-    parser.add_option("-s", "--keychain_access_group", dest="keychain_access_group", help="Expected keychain-access-group", metavar="KEYCHAIN-ACCESS-GROUP")
-    
-    (options, args) = parser.parse_args()
-    
-    if options.path_to_binary is None or options.keychain_access_group is None:
-        parser.error('All arguments must be specified. Use option -h to see the usage.')
-    
-    logfile = open(options.path_to_binary, "r").readlines()
-
-    currentLineNumber = 0
-
-    """
-    example from the binary:
-    
-    .
-    .
-    .
-    <key>keychain-access-groups</key>
-    <array>
-    <string>KEYCHAIN-ACCESS-GROUP</string>
-    </array>
-    .
-    .
-    .
-    """
-    
-    for line in logfile:
-        if line.find('keychain-access-groups') != -1:
-            currentLineNumber += 1
-            
-            if logfile[currentLineNumber].strip() != "<array>":
-                print_error("Something wrong happened, there is no <array> in the <key>keychain-access-groups</key>")
-                return 1
-            
-            currentLineNumber += 1
-            
-            while logfile[currentLineNumber].strip() != "</array>":
-                line_with_access_group = logfile[currentLineNumber].strip().replace("<string>","").replace("</string>","")
-                
-                print line_with_access_group
-                
-                if line_with_access_group == options.keychain_access_group:
-                    print 'App is signed correctly'
-                    return 0
-                        
-                currentLineNumber += 1
-            
-            print_error("App is signed incorrectly, specified keychain access group '%s' was not found" % options.keychain_access_group)
-            return 1
-        
-        currentLineNumber += 1
-            
-    print_error('App must be signed')
-    return 1
-
-def print_error(error_message):
-    """ Prints error message with predefined prefix.
-        
-    Args:
-        error_message: Error message.
-    """
-    
-    XCODE_ERROR_PREFIX = 'error: ' # log messages with such prefix are highlighted in XCode as errors
-    
-    print('%s%s' % (XCODE_ERROR_PREFIX, error_message))
-
-if __name__ == '__main__':
-    sys.exit(main())

data/legacy/svn-clean.pl

@@ -1,246 +0,0 @@
-#!/usr/bin/perl
-
-# svn-clean - Wipes out unversioned files from SVN working copy.
-# Copyright (C) 2004, 2005, 2006 Simon Perreault
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
-
-use strict;
-use Cwd;
-use File::Path;
-use Getopt::Long;
-use Pod::Usage;
-
-# Try to use SVN module if available.
-my $use_svn_module = eval { require SVN::Client };
-
-my $CWD = getcwd;
-
-my @exclude      = ();
-my $force        = 0;
-my $quiet        = 0;
-my $print        = 0;
-my $help         = 0;
-my $man          = 0;
-my $nonrecursive = 0;
-my @paths        = ($CWD);
-GetOptions(
-"exclude=s"       => \@exclude,
-"force"           => \$force,
-"non-recursive|N" => \$nonrecursive,
-"quiet"           => \$quiet,
-"print"           => \$print,
-"help|?"          => \$help,
-"man"             => \$man
-) or pod2usage(2);
-pod2usage(1) if $help;
-pod2usage( -exitstatus => 0, -verbose => 2 ) if $man;
-@paths = map { Cwd::abs_path($_) } @ARGV if @ARGV;
-
-# Precompile regexes.
-$_ = qr/$_/ foreach @exclude;
-
-if ($use_svn_module) {
-    
-    # Create SVN client object. No need for connection to remote server.
-    my $ctx = new SVN::Client;
-    
-    # Call handler function with status info for each file.
-    $ctx->status( $_, undef, \&clean, !$nonrecursive, 1, 0, 1 )
-    for @paths;
-}
-else {
-    warn "Warning: Not using SVN Perl modules, this might be slow.\n"
-    unless $quiet;
-    
-    # Build svn client command
-    my @command = qw(svn status --no-ignore -v);
-    if ($nonrecursive) {
-        push @command, '-N';
-    }
-    
-    # Main file-wiping loop.
-    if ( $^O eq 'MSWin32' ) {
-        
-        # Perl on Windows currently doesn't have list pipe opens.
-        open SVN, join( ' ', @command, @paths ) . '|'
-        or die "Can't call program \"svn\": $!\n";
-    }
-    else {
-        open SVN, "-|", @command, @paths
-        or die "Can't call program \"svn\": $!\n";
-    }
-LINE: while (<SVN>) {
-    if (/^([\?ID])/) {
-        my $file = (split)[-1];
-        foreach my $ex (@exclude) {
-            if ( $file =~ $ex ) {
-                print "excluded $file\n" unless $quiet or $print;
-                next LINE;
-            }
-        }
-        if ( $1 eq 'D' ) {
-            next unless -f $file;
-        }
-        else {
-            next unless -e $file;
-        }
-        if ($print) {
-            print "$file\n";
-        }
-        else {
-            rmtree( $file, !$quiet, !$force );
-        }
-    }
-}
-}
-
-# Main file-wiping function.
-sub clean {
-    my ( $path, $status ) = @_;
-    
-    # Use relative path for pretty-printing.
-    if ( $path =~ s/^\Q$CWD\E\/?//o ) {
-        
-        # If the substitution succeeded, we should have a relative path. Make
-        # sure we don't delete critical stuff.
-        return if $path =~ /^\//;
-    }
-    
-    # Find files needing to be removed.
-    if (   $status->text_status == $SVN::Wc::Status::unversioned
-        or $status->text_status == $SVN::Wc::Status::ignored
-        or $status->text_status == $SVN::Wc::Status::deleted )
-    {
-        foreach my $ex (@exclude) {
-            if ( $path =~ $ex ) {
-                print "excluded $path\n" unless $quiet or $print;
-                return;
-            }
-        }
-        
-        # Make sure the file exists before removing it. Do not remove deleted
-        # directories as they are needed to remove the files they contain when
-        # committing.
-        lstat $path or stat $path;
-        if (
-            -e _
-            and ( not -d _
-            or $status->text_status != $SVN::Wc::Status::deleted )
-            )
-        {
-            if ($print) {
-                print "$path\n";
-            }
-            else {
-                rmtree( $path, !$quiet, !$force );
-            }
-        }
-    }
-}
-
-__END__
-
-=head1 NAME
- 
- svn-clean - Wipes out unversioned files from Subversion working copy
- 
- =head1 SYNOPSIS
- 
- svn-clean [options] [directory or file ...]
- 
- =head1 DESCRIPTION
- 
- B<svn-clean> will scan the given files and directories recursively and find
- unversioned files and directories (files and directories that are not present in
- the Subversion repository). After the scan is done, these files and directories
- will be deleted.
- 
- If no file or directory is given, B<svn-clean> defaults to the current directory
- (".").
- 
- B<svn-clean> uses the SVN Perl modules if they are available. This is much
- faster than parsing the output of the B<svn> command-line client.
- 
- =head1 OPTIONS
- 
- =over 8
- 
- =item B<-e>, B<--exclude>
- 
- A regular expression for filenames to be exluded. For example, the following
- command will skip files ending in ".zip":
- 
- =over 8
- 
- svn-clean --exclude '\.zip$'
- 
- =back
- 
- Multiple exclude patterns can be specified. If at least one matches, then the
- file is skipped. For example, the following command will skip files ending in
- ".jpg" or ".png":
- 
- =over 8
- 
- svn-clean --exclude '\.jpg$' --exclude '\.png$'
- 
- =back
- 
- The following command will skip the entire "build" subdirectory:
- 
- =over 8
- 
- svn-clean --exclude '^build(/|$)'
- 
- =back
- 
- =item B<-f>, B<--force>
- 
- Files to which you do not have delete access (if running under VMS) or write
- access (if running under another OS) will not be deleted unless you use this
- option.
- 
- =item B<-N>, B<--non-recursive>
- 
- Do not search recursively for unversioned files and directories. Unversioned
- directories will still be deleted along with all their contents.
- 
- =item B<-q>, B<--quiet>
- 
- Do not print progress info. In particular, do not print a message each time a
- file is examined, giving the name of the file, and indicating whether "rmdir" or
- "unlink" is used to remove it, or that it's skipped.
- 
- =item B<-p>, B<--print>
- 
- Do not delete anything. Instead, print the name of every file and directory that
- would have been deleted.
- 
- =item B<-?>, B<-h>, B<--help>
- 
- Prints a brief help message and exits.
- 
- =item B<--man>
- 
- Prints the manual page and exits.
- 
- =back
- 
- =head1 AUTHOR
- 
- Simon Perreault <nomis80@nomis80.org>
- 
- =cut