str2l.cc

// --8<--8<--8<--8<--
//
// Copyright (C) 2006 Smithsonian Astrophysical Observatory
//
// This file is part of suplibxx
//
// suplibxx 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.
//
// suplibxx 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. 
//       51 Franklin Street, Fifth Floor
//       Boston, MA  02110-1301, USA
//
// -->8-->8-->8-->8--

#include <errno.h>
#include <cstdlib>
#include <string>

#include <limits.h>

#include <Exception/Exception.h>

#include "str.h"

long suplib::str2l( const char* txt, int base ) {

  // The field cannot be empty. The user must enter a value.
  if ( NULL == txt || '\0' == *txt )
    throw Exception( "suplib::strol( ) : Empty field" );

  char* ptr = NULL;
  long result = ::strtol( txt, &ptr, base );
  
  if ( (result == LONG_MAX || result == LONG_MIN) && errno == ERANGE )
    throw Exception( "suplib::str2l( " + std::string( txt ) +
                     ", int ) : Possibly under/over flow" );

  if ( '\0' != *ptr )
    throw Exception( "suplib::str2l( " + std::string( txt ) +
                     ", int ) : Not a number, problem starting at `" +
                     std::string( ptr ) + "'" );

  return result;

}