EDIT

/**

* Copyright (C) 2009 EDIT

* European Distributed Institute of Taxonomy

* http://www.e-taxonomy.eu

*

* The contents of this file are subject to the Mozilla Public License Version 1.1

* See LICENSE.TXT at the top of this package for the full license terms.

*/

package eu.etaxonomy.cdm.strategy.cache.agent;

import java.util.UUID;

import java.util.regex.Matcher;

import java.util.regex.Pattern;

import org.apache.log4j.Logger;

import eu.etaxonomy.cdm.common.CdmUtils;

import eu.etaxonomy.cdm.model.agent.Person;

import eu.etaxonomy.cdm.strategy.StrategyBase;

/**

 * @author AM

 */

public class PersonDefaultCacheStrategy

        extends StrategyBase

        implements INomenclaturalAuthorCacheStrategy<Person> {

	private static final long serialVersionUID = -6184639515553953112L;

	@SuppressWarnings("unused")

	private static final Logger logger = Logger.getLogger(PersonDefaultCacheStrategy.class);

	final static UUID uuid = UUID.fromString("9abda0e1-d5cc-480f-be38-40a510a3f253");

	private static PersonDefaultCacheStrategy instance;

	private String initialsSeparator = "";

	public static PersonDefaultCacheStrategy NewInstance(){

		return new PersonDefaultCacheStrategy();

	}

	public static PersonDefaultCacheStrategy INSTANCE(){

	    if (instance == null){

	        instance = PersonDefaultCacheStrategy.NewInstance();

	    }

	    return instance;

	}

// ******************** CONSTRUCTOR **********************************/

	private PersonDefaultCacheStrategy() {

		super();

	}

	@Override

	protected UUID getUuid() {

		return uuid;

	}

	@Override

    public String getNomenclaturalTitle(Person person) {

		return person.getNomenclaturalTitle();

	}

    @Override

    public String getFamilyTitle(Person person) {

        return isNotBlank(person.getFamilyName())? person.getFamilyName() : person.getTitleCache();

    }

    @Override

    public String getTitleCache(Person person) {

        String result = "";

        if (isNotBlank(person.getFamilyName() ) ){

            result = person.getFamilyName();

            result = addInitials(result, person);

            return result;

        }else{

            result = person.getNomenclaturalTitle();

            if (isNotBlank(result)){

                return result;

            }

            result = addInitials("", person);

            if (isNotBlank(result)){

                return result;

            }

        }

        return person.toString();

    }

    @Override

    public String getCollectorTitleCache(Person person){

        if (isNotBlank(person.getCollectorTitle())){

            return person.getCollectorTitle();

        }else{

            return getTitleCache(person);

        }

    }

    private String addInitials(String existing, Person person) {

        String result = existing;

        String initials = person.getInitials();

        if (isBlank(initials)){

            boolean forceFirstLetter = false;

            initials = getInitialsFromGivenName(person.getGivenName(), forceFirstLetter);

        }

        result = CdmUtils.concat(", ", result, initials);

        return result;

    }

    @Override

    public String getFullTitle(Person person) {

		String result = "";

		result = person.getFamilyName();

		result = addGivenNamePrefixSuffix(result, person);

		if (isNotBlank(result)){

		    return result;

		}

	    result = person.getNomenclaturalTitle();

	    if (isNotBlank(result)){

	        return result;

	    }

	    result = addGivenNamePrefixSuffix("", person);

	    if (isNotBlank(result)){

	        return result;

		}

		return person.toString();

	}

	private String addGivenNamePrefixSuffix(String oldString, Person person) {

		String result = oldString;

		if (isNotBlank(person.getGivenName())){

		    result = CdmUtils.concat(" ", person.getGivenName(), result);

		}else{

		    result = CdmUtils.concat(" ", person.getInitials(), result);

	    }

		result = CdmUtils.concat(" ", person.getPrefix(), result);

		result = CdmUtils.concat(" ", result, person.getSuffix());

		return result;

	}

    public String getInitialsFromGivenName(String givenname, boolean forceOnlyFirstLetter) {

        if (givenname == null){

            return null;

        }else if (isBlank(givenname)){

            return null;

        }

        //remove brackets

        final String regex = "\\([^)]*\\)";

        final Pattern pattern = Pattern.compile(regex);

        final Matcher matcher = pattern.matcher(givenname);

        givenname = matcher.replaceAll("").replaceAll("\\s\\s", " ");

        String result = "";

        String[] splits = givenname.split("((?<=\\.)|\\s+|(?=([\\-\u2013])))+"); // [\\-\u2013]? // (?!=\\s) wasn't successful to trim

        for (String split : splits){

            split = split.trim();

            if (isBlank(split) || split.matches("\\(.*\\)")){  //again checking brackets not really necessary

                continue;

            }

            if (split.matches("^[\\-\u2013].*")){

                result += split.substring(0, 1);

                split = split.substring(1);

                if (isBlank(split)){

                    continue;

                }

            }

            if (split.matches("[A-Z]{2,3}")){

                split = split.replaceAll("(?<!^)",".");  //insert dots after each letter (each position but not at start)

                result = CdmUtils.concat(initialsSeparator, result, split);

            }else if (forceOnlyFirstLetter){

                result = CdmUtils.concat(initialsSeparator, result, split.substring(0, 1) + ".");

            }else if (split.endsWith(".")){

                result = CdmUtils.concat(initialsSeparator, result, split);

            }else{

                result = CdmUtils.concat(initialsSeparator, result, split.substring(0, 1) + ".");

            }

        }

        return CdmUtils.Ne(result);

    }

}