#!/bin/sh

########################################################################
#                 copyright 2001, Amoco Production Company             #
#                             All Rights Reserved                      #
#                     an affiliate of BP America Inc.                  #
########################################################################

#
# this script runs "version" on the Suns and the parses it to either
# return the compiler version or it's major version. (ie. SC2.0.1 or SC2 )
#
# This is used by the gmake rules file in ~trcgp/etc/gmake.init to 
# decide which directories to reference for objects and/or libraries 
# 
#							- Joe M. Wade 2/10/95
#
# ls -l `which f77` | awk '{print $NF}' | sed 's/\([A-z]*\)[.].*/\1/'
# 
if ( test "$1" = "-h" -o "$1" = "-?" )
 then
  echo Usage: comp_vers [-major] - return compiler version
  exit
fi
long_version=`version \`which f77\` | sed 's/^.*[:][ ]*\(.*\)/\1/' `
if ( test "${long_version}" = "" )
 then
  echo ERROR
fi
case $long_version in
  SC*)
if ( test "$1" = "-major" ) 
 then
  echo $long_version | sed 's/\([A-z]*\)[.].*/\1/'
 else
  echo $long_version | sed 's/\([A-z]*\)[ ].*/\1/'
fi;;
  WorkShop*)
if ( test "$1" = "-major" ) 
 then
  echo $long_version | awk '{print $3}' | sed 's/\([A-z]*\)[.].*/\1/'
 else
  echo $long_version | awk '{print $3}' | sed 's/\([A-z]*\)[ ].*/\1/'
fi;;
  Sun*)
if ( test "$1" = "-major" )
 then
  echo $long_version | awk '{print $3}' | sed 's/\([A-z]*\)[.].*/\1/'
 else
  echo $long_version | awk '{print $3}' | sed 's/\([A-z]*\)[ ].*/\1/'
fi;;
esac
    
