R/int_antsProcessArguments.R

In klshrinidhi/ANTsR: ANTs <--> R

int_antsProcessArguments <- function( args )
{
  if( typeof( args ) == "list" )
  {
    char_vect = NULL ;
    for( i in ( 1:length(args) ) )
    {
      if( length( names( args ) ) != 0 )
      {
	if( nchar( names( args )[i] ) > 1 )
	{
	  char_vect = c( char_vect , paste( "--" , names( args )[i] , sep = "" ) )
	}
	else
	{
	  char_vect = c( char_vect , paste( "-" , names( args )[i] , sep = "" ) )
	}
      }
      if( typeof( args[[i]] ) == "list" )
      {
        char_vect = c( char_vect , paste( args[[i]]$name , "[" , sep = "" ) )
	args[[i]]$name = NULL
	for( j in ( 1:length(args[[i]]) ) )
	{
	  char_vect = c( char_vect , as.character( int_antsExtractXptrAsString( args[[i]][[j]] ) ) )
	}
	char_vect = c( char_vect , "]" )
      }
      else
      {
        char_vect = c( char_vect , as.character( int_antsExtractXptrAsString( args[[i]] ) ) )
      }
    }
  }
  return( char_vect )
}