/** @file
$ Id $
$ Date $
$ Author $
@ copy & copy ; Marc W & auml ; ckerlin
@ license LGPL , see file < a href = " license.html " > COPYING < / a >
$ Log $
Revision 1.2 2004 / 11 / 25 18 : 26 : 04 marc
Constness corrected
Revision 1.1 2004 / 08 / 28 16 : 13 : 42 marc
mrw - c + + - 0.92 ( mrw )
- new file : version . cpp
- new file header for all sources
- work around warning in mrw : : auto < T >
- possibility to compile without log4cxx
- work around bugs in demangle . h and libiberty . h
- corrections in documentation
- added simple tracing mechanism
- more warnings
- small corrections in Auto < > : : Free and a new test for it
- possibility to compile without stack trace
*/
# include <mrw/arg.hpp>
# include <mrw/exception.hpp>
namespace mrw {
const std : : string & Param : : Value : : toString ( ) const throw ( std : : exception ) {
throw mrw : : bad_cast ( ) ;
}
int Param : : Value : : toInt ( ) const throw ( std : : exception ) {
throw mrw : : bad_cast ( ) ;
}
bool Param : : Value : : toBool ( ) const throw ( std : : exception ) {
throw mrw : : bad_cast ( ) ;
}
void Param : : IntValue : : operator = ( const std : : string & s ) throw ( std : : exception ) {
if ( ! ( std : : stringstream ( s ) > > _i ) ) throw mrw : : bad_cast ( ) ;
}
const mrw : : SmartPointer < Param : : Value > & Param : : operator [ ] ( unsigned int i ) const
throw ( std : : exception ) {
if ( i < _params . size ( ) ) return _params [ i ] ;
throw mrw : : out_of_range
( ( ( std : : stringstream & )
( std : : stringstream ( ) < < " check failed: "
< < i < < ' < ' < < _params . size ( ) ) ) . str ( ) ) ;
}
mrw : : SmartPointer < Param : : Value > & Param : : setable ( unsigned int i )
throw ( std : : exception ) {
if ( i < _params . size ( ) ) return _params [ i ] ;
throw mrw : : out_of_range
( ( ( std : : stringstream & )
( std : : stringstream ( ) < < " check failed: "
< < i < < ' < ' < < _params . size ( ) ) ) . str ( ) ) ;
}
Args & Args : : operator < < ( const mrw : : Opt & opt ) throw ( std : : invalid_argument ) {
// twice the same, but other sort order
Options : : iterator it ( _options . insert ( _options . end ( ) , opt ) ) ;
if ( ! _shortopts . insert ( ShortOpts : : value_type ( opt . _shortname , it ) ) . second )
throw mrw : : invalid_argument ( std : : string ( 1 , opt . _shortname ) ) ;
if ( ! _longopts . insert ( LongOpts : : value_type ( opt . _longname , it ) ) . second )
throw mrw : : invalid_argument ( opt . _longname ) ;
return * this ;
}
Args & Args : : operator < < ( char const * const * const argv ) throw ( std : : exception ) {
if ( _argc < 0 )
throw mrw : : invalid_argument ( " argc was not set when shifting argv " ) ;
return parse ( _argc , argv ) ;
}
const Opt & Args : : find ( char c ) const throw ( std : : exception ) {
ShortOpts : : const_iterator it ( _shortopts . find ( c ) ) ;
if ( it = = _shortopts . end ( ) ) throw mrw : : out_of_range ( std : : string ( 1 , c ) ) ;
return * it - > second ;
}
const Opt & Args : : find ( const std : : string & s ) const throw ( std : : exception ) {
LongOpts : : const_iterator it ( _longopts . find ( s ) ) ;
if ( it = = _longopts . end ( ) ) throw mrw : : out_of_range ( s ) ;
return * it - > second ;
}
Args & Args : : parse ( int argc , char const * const * const argv )
throw ( std : : exception ) {
if ( argc > 0 ) _filename = argv [ 0 ] ;
for ( int i ( 1 ) ; i < argc ; + + i ) {
std : : string arg ( argv [ i ] ) ;
if ( arg . find ( " -- " ) = = 0 & & arg ! = " -- " ) { // long arguments
LongOpts : : iterator it ( _longopts . find ( arg ) ) ;
if ( it ! = _longopts . end ( ) | | i + it - > second - > args ( ) . size ( ) > = argc )
throw mrw : : invalid_argument ( arg ) ;
it - > second - > set ( ) ;
for ( int j ( 0 ) , l ( it - > second - > args ( ) . size ( ) ) ; j < l ; + + j ) {
* ( it - > second - > args ( ) . setable ( j ) ) = argv [ + + i ] ;
}
} else if ( arg . find ( " - " ) = = 0 ) { // short arguments
// first check all, then set all
for ( int j ( 1 ) , l ( arg . size ( ) ) ; j < l ; + + j ) {
ShortOpts : : iterator it ( _shortopts . find ( arg [ j ] ) ) ;
if ( it = = _shortopts . end ( ) | | it - > second - > args ( ) . size ( ) > 0 & &
( j + 1 ! = l | | i + it - > second - > args ( ) . size ( ) > = argc ) )
throw mrw : : invalid_argument ( arg ) ;
}
for ( int j ( 1 ) , l ( arg . size ( ) ) ; j < l ; + + j ) {
ShortOpts : : iterator it ( _shortopts . find ( arg [ j ] ) ) ;
it - > second - > set ( ) ;
if ( j + 1 = = l & & it - > second - > args ( ) . size ( ) > 0 ) {
for ( int k ( 0 ) ; k < it - > second - > args ( ) . size ( ) ; + + k ) {
* ( it - > second - > args ( ) . setable ( k ) ) = argv [ + + i ] ;
}
}
}
} else {
if ( arg ! = " -- " ) _otherargs . push_back ( arg ) ;
while ( + + i < argc ) _otherargs . push_back ( argv [ i ] ) ;
}
}
if ( _help & & find ( _help ) ) help ( ) ;
return * this ;
}
}