Radix cross Linux Build System

Index: build-version
===================================================================
--- build-version	(nonexistent)
+++ build-version	(revision 5)
@@ -0,0 +1,202 @@
+#!/bin/env perl
+
+use strict;
+use warnings FATAL => 'all';
+
+use Cwd 'abs_path';
+use File::Basename;
+
+my ( $program, $path, $argpath, $system, $branch, $repo );
+
+$program = basename( $0 );
+$path    = dirname( abs_path(__FILE__) );
+
+$system  = "no";
+$branch  = "no";
+$repo    = "no";
+
+$argpath = "";
+
+sub usage
+{
+  print <<EOF;
+
+Usage: $program [options] [PATH]
+Options:
+   --system         - get system info othervise get build-system info;
+
+   --branch         - get branch name;
+   --repo           - get reposytory URL;
+
+   --help           - print this help message and exit.
+
+Args:
+   PATH             - path to the root directory of SCM repository
+                      or the path to a file located in the root directory
+                      of the repository.
+
+   If options `--branch' and `--repo' are not specified then '$program'
+   returns the SCM revision.
+
+EOF
+  exit;
+}
+
+foreach ( @ARGV )
+{
+  if ( /--system/ )
+  {
+    $system = "yes";
+    next;
+  }
+  elsif ( /--branch/ )
+  {
+    $repo   = "no";
+    $branch = "yes";
+    next;
+  }
+  elsif ( /--repo/ )
+  {
+    $branch = "no";
+    $repo   = "yes";
+    next;
+  }
+  elsif( /--help/ )
+  {
+    usage;
+  }
+  else
+  {
+    if( $_ )
+    {
+      if ( -d "$_" )
+      {
+        $argpath = abs_path( $_ );
+      }
+      elsif ( -f "$_" )
+      {
+        $argpath = dirname( abs_path( $_ ) );
+      }
+      else
+      {
+        usage;
+      }
+    }
+  }
+}
+
+if( $argpath eq "" )
+{
+  if ( $system eq "yes" )
+  {
+    $path = $path . "/..";
+  }
+}
+else
+{
+  $path = $argpath;
+}
+
+
+sub get_svn_release
+{
+  my $dir = shift;
+  my $info = `svn info $dir`;
+  $info =~ m!Revision: (.*)!;
+  return ( "$1" );
+}
+
+sub get_svn_branch
+{
+  my $dir = shift;
+  my $info = `svn info $dir`;
+  $info =~ m!URL: (.*)!;
+  my $url = $1;
+
+  if ( $url =~ m!branches/([^/]*)/?! )
+  {
+    return ( "branches/" . "$1" );
+  }
+  elsif ( $url =~ m!tags/([^/]*)/?! )
+  {
+    return ( "tags/" . "$1" );
+  }
+  else {
+    return ( "trunk" );
+  }
+}
+
+sub get_svn_repo
+{
+  my $dir = shift;
+  my $info = `svn info $dir`;
+  $info =~ m!Repository Root: (.*)!;
+  return ( "$1" );
+}
+
+
+sub get_git_release
+{
+  my $dir = shift;
+  my $info = `cd $dir && if \$(git rev-parse --is-inside-work-tree 2>/dev/null) ; then echo -n "\$(git rev-list --count HEAD)" ; else echo -n "0" ; fi`;
+  return ( "$info" );
+}
+
+sub get_git_branch
+{
+  my $dir = shift;
+  my $info = `cd $dir && if \$(git rev-parse --is-inside-work-tree 2>/dev/null) ; then echo -n "\$(git rev-parse --abbrev-ref HEAD)" ; else echo -n "unknown" ; fi`;
+  return ( "$info" );
+}
+
+sub get_git_repo
+{
+  my $dir = shift;
+  my $info = `cd $dir && if \$(git rev-parse --is-inside-work-tree 2>/dev/null) ; then echo -n "\$(git config --get remote.origin.url)" ; else echo -n "unknown" ; fi`;
+  return ( "$info" );
+}
+
+
+if( -d "$path/.svn" )
+{
+  #
+  # Subversion SCM:
+  #
+  if ( $branch eq "yes" )
+  {
+    print get_svn_branch( $path ) . "\n";
+  }
+  elsif ( $repo eq "yes" )
+  {
+    print get_svn_repo( $path ) . "\n";
+  }
+  else
+  {
+    print get_svn_release( $path ) . "\n";
+  }
+}
+elsif ( -d "$path/.git" )
+{
+  #
+  # Git SCM:
+  #
+  if ( $branch eq "yes" )
+  {
+    print get_git_branch( $path ) . "\n";
+  }
+  elsif ( $repo eq "yes" )
+  {
+    print get_git_repo( $path ) . "\n";
+  }
+  else
+  {
+    print get_git_release( $path ) . "\n";
+  }
+}
+else
+{
+  #
+  # Unknown SCM:
+  #
+  print "Unknown\n";
+}

Property changes on: build-version
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property