From 6bf20c78f5b69d40bcc4931df93d29198435ab67 Mon Sep 17 00:00:00 2001 From: zakk Date: Fri, 26 Aug 2005 17:39:27 +0000 Subject: newlines fixed git-svn-id: svn://svn.icculus.org/quake3/trunk@6 edf5b092-35ff-0310-97b2-ce42778d08ea --- code/unix/Cons_gcc.pm | 94 +++++++++++++++++++++++++-------------------------- 1 file changed, 47 insertions(+), 47 deletions(-) (limited to 'code/unix/Cons_gcc.pm') diff --git a/code/unix/Cons_gcc.pm b/code/unix/Cons_gcc.pm index 1b24589..41df3fd 100755 --- a/code/unix/Cons_gcc.pm +++ b/code/unix/Cons_gcc.pm @@ -1,47 +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; +# +# 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; -- cgit v1.2.3