Itsa me, quake3io!

git-svn-id: svn://svn.icculus.org/quake3/trunk@2 edf5b092-35ff-0310-97b2-ce42778d08ea

1 files changed, 47 insertions, 0 deletions

diff --git a/code/unix/Cons_gcc.pm b/code/unix/Cons_gcc.pm
new file mode 100755
index 0000000..1b24589
--- /dev/null
+++ b/code/unix/Cons_gcc.pm
@@ -0,0 +1,47 @@
+#

+# Some utilities to handle gcc compiler setup

+#

+

+package Cons_gcc;

+

+# pass the compiler name

+# returns an array, first element is 2 for 2.x 3 for 3.x, then full version, then machine info

+sub get_gcc_version

+{

+  my @ret;

+  my ($CC) = @_;

+  my $version=`$CC --version | head -1`;

+  chop($version);

+  my $machine=`$CC -dumpmachine`;

+  chop($machine);

+  if($version =~ '2\.[0-9]*\.[0-9]*')

+  {

+    push @ret, '2';

+  } else {

+    push @ret, '3';

+  }

+  push @ret, $version;

+  push @ret, $machine;

+  return @ret;

+}

+

+# http://ccache.samba.org/

+# check ccache existence and path

+# returns an array, first element 0 / 1, then path

+sub get_ccache

+{

+  my @ret;  

+  $ccache_path=`which ccache`;

+  chop($ccache_path);

+  if(-x $ccache_path)

+  {

+    push @ret, '1';

+    push @ret, $ccache_path;

+    return @ret;

+  }

+  push @ret, '0';

+  return @ret;

+}

+

+# close package

+1;