/*!\file PetscOptionsInsertMultipleString.cpp
 * \brief: create distributed Petsc vector.
 */

#ifdef HAVE_CONFIG_H
	#include <config.h>
#else
#error "Cannot compile with HAVE_CONFIG_H symbol! run configure first!"
#endif

/*Petsc includes: */
#include "petscmat.h"
#include "petscvec.h"
#include "petscksp.h"

#include "./petscpatches.h"

#include "../../../shared/shared.h"
#include "../../../include/include.h"

void PetscOptionsInsertMultipleString(char* options_string){


	/*The list of options is going to be pairs of the type "-option option_value"*/
	#if _PETSC_MAJOR_ == 2
		PetscToken *token=NULL ;
	#else
		PetscToken token=NULL;
	#endif
	char* first=NULL;
	char* second=NULL;
	char* final=NULL;
	size_t len;
	int ignore_second;
	int first_token=1;


	PetscTokenCreate(options_string,' ',&token);
	for (;;){
		

		/*Read next tokens*/
		if(first_token){
			PetscTokenFind(token,&first);
		}
		PetscTokenFind(token,&second);
		
		if (!first){
			/*We are at the end of options*/
			break;
		}
		if(!second){
			/*We have no second value, just take first
			 * and set the option, then end the token analysis.*/
			if(first[0]!='-'){
				/*This is not good, the option does not have '-'! Get out*/
				_error2_("Option " << first << " should be preceded by '-'!");
			}
			/*Reduce first to bare option value*/
			PetscStrlen(first,&len);
			while (len > 0 && (first[len-1] == ' ' || first[len-1] == 'n')) {
				len--; first[len] = 0;
			}
			PetscOptionsSetValue(first,second);
			break;
		}
		else{
			/*Ok, we have a second token coming in. Is it another option, or 'first' option's value?*/
			if (second[0]=='-'){
				/*Second is another option, ignore it*/
				PetscStrlen(first,&len);
				while (len > 0 && (first[len-1] == ' ' || first[len-1] == 'n')) {
					len--; first[len] = 0;
				}
				PetscOptionsSetValue(first,NULL);
				/*Preparing next loop step*/
				first=second;
				first_token=0;
			}
			else{
				/*Second is 'first' option's value*/
				PetscStrlen(second,&len);
				while (len > 0 && (second[len-1] == ' ' || second[len-1] == 'n')) {
					len--; second[len] = 0;
				}
				PetscOptionsSetValue(first,second);
				first_token=1;
			}
		}
	}

#ifdef _HAVE_PETSCDEV_
	PetscTokenDestroy(&token);
#else
	PetscTokenDestroy(token);
#endif
}
