EDIT

/**

 * Copyright (C) 2007 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.io.iapt;

import eu.etaxonomy.cdm.api.facade.DerivedUnitFacade;

import eu.etaxonomy.cdm.api.service.pager.Pager;

import eu.etaxonomy.cdm.common.CdmUtils;

import eu.etaxonomy.cdm.io.mexico.SimpleExcelTaxonImport;

import eu.etaxonomy.cdm.io.mexico.SimpleExcelTaxonImportState;

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

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

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

import eu.etaxonomy.cdm.model.common.*;

import eu.etaxonomy.cdm.model.name.*;

import eu.etaxonomy.cdm.model.occurrence.*;

import eu.etaxonomy.cdm.model.occurrence.Collection;

import eu.etaxonomy.cdm.model.reference.Reference;

import eu.etaxonomy.cdm.model.reference.ReferenceFactory;

import eu.etaxonomy.cdm.model.reference.ReferenceType;

import eu.etaxonomy.cdm.model.taxon.*;

import eu.etaxonomy.cdm.strategy.parser.NonViralNameParserImpl;

import eu.etaxonomy.cdm.strategy.parser.ParserProblem;

import org.apache.commons.lang.ArrayUtils;

import org.apache.commons.lang.StringEscapeUtils;

import org.apache.commons.lang.StringUtils;

import org.apache.log4j.Level;

import org.apache.log4j.Logger;

import org.joda.time.DateTimeFieldType;

import org.joda.time.Partial;

import org.joda.time.format.DateTimeFormat;

import org.joda.time.format.DateTimeFormatter;

import org.springframework.stereotype.Component;

import java.util.*;

import java.util.regex.Matcher;

import java.util.regex.Pattern;

/**

 * @author a.mueller

 * @created 05.01.2016

 */

@Component("iAPTExcelImport")

public class IAPTExcelImport<CONFIG extends IAPTImportConfigurator> extends SimpleExcelTaxonImport<CONFIG> {

    private static final long serialVersionUID = -747486709409732371L;

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

    public static final String ANNOTATION_MARKER_STRING = "[*]";

    private static UUID ROOT_UUID = UUID.fromString("4137fd2a-20f6-4e70-80b9-f296daf51d82");

    private static NonViralNameParserImpl nameParser = NonViralNameParserImpl.NewInstance();

    private final static String REGISTRATIONNO_PK= "RegistrationNo_Pk";

    private final static String HIGHERTAXON= "HigherTaxon";

    private final static String FULLNAME= "FullName";

    private final static String AUTHORSSPELLING= "AuthorsSpelling";

    private final static String LITSTRING= "LitString";

    private final static String REGISTRATION= "Registration";

    private final static String TYPE= "Type";

    private final static String CAVEATS= "Caveats";

    private final static String FULLBASIONYM= "FullBasionym";

    private final static String FULLSYNSUBST= "FullSynSubst";

    private final static String NOTESTXT= "NotesTxt";

    private final static String REGDATE= "RegDate";

    private final static String NAMESTRING= "NameString";

    private final static String BASIONYMSTRING= "BasionymString";

    private final static String SYNSUBSTSTR= "SynSubstStr";

    private final static String AUTHORSTRING= "AuthorString";

    private  static List<String> expectedKeys= Arrays.asList(new String[]{

            REGISTRATIONNO_PK, HIGHERTAXON, FULLNAME, AUTHORSSPELLING, LITSTRING, REGISTRATION, TYPE, CAVEATS, FULLBASIONYM, FULLSYNSUBST, NOTESTXT, REGDATE, NAMESTRING, BASIONYMSTRING, SYNSUBSTSTR, AUTHORSTRING});

    private static final Pattern nomRefTokenizeP = Pattern.compile("^(?<title>.*):\\s(?<detail>[^\\.:]+)\\.(?<date>.*?)(?:\\s\\((?<issue>[^\\)]*)\\)\\s*)?\\.?$");

    private static final Pattern[] datePatterns = new Pattern[]{

            // NOTE:

            // The order of the patterns is extremely important!!!

            //

            // all patterns cover the years 1700 - 1999

            Pattern.compile("^(?<year>1[7,8,9][0-9]{2})$"), // only year, like '1969'

            Pattern.compile("^(?<monthName>\\p{L}+\\.?)\\s(?<day>[0-9]{1,2})(?:st|rd|th)?\\.?,?\\s(?<year>(?:1[7,8,9])?[0-9]{2})$"), // full date like April 12, 1969 or april 12th 1999

            Pattern.compile("^(?<monthName>\\p{L}+\\.?),?\\s?(?<year>(?:1[7,8,9])?[0-9]{2})$"), // April 99 or April, 1999 or Apr. 12

            Pattern.compile("^(?<day>[0-9]{1,2})([\\.\\-/])(\\s?)(?<month>[0-1]?[0-9])\\2\\3(?<year>(?:1[7,8,9])?[0-9]{2})$"), // full date like 12.04.1969 or 12. 04. 1969 or 12/04/1969 or 12-04-1969

            Pattern.compile("^(?<day>[0-9]{1,2})([\\.\\-/])(?<monthName>[IVX]{1,2})\\2(?<year>(?:1[7,8,9])?[0-9]{2})$"), // full date like 12-VI-1969

            Pattern.compile("^(?:(?<day>[0-9]{1,2})(?:\\sde)\\s)?(?<monthName>\\p{L}+)\\sde\\s(?<year>(?:1[7,8,9])?[0-9]{2})$"), // full and partial date like 12 de Enero de 1999 or Enero de 1999

            Pattern.compile("^(?<month>[0-1]?[0-9])([\\.\\-/])(?<year>(?:1[7,8,9])?[0-9]{2})$"), // partial date like 04.1969 or 04/1969 or 04-1969

            Pattern.compile("^(?<year>(?:1[7,8,9])?[0-9]{2})([\\.\\-/])(?<month>[0-1]?[0-9])$"),//  partial date like 1999-04

            Pattern.compile("^(?<monthName>[IVX]{1,2})([\\.\\-/])(?<year>(?:1[7,8,9])?[0-9]{2})$"), // partial date like VI-1969

            Pattern.compile("^(?<day>[0-9]{1,2})(?:[\\./]|th|rd|st)?\\s(?<monthName>\\p{L}+\\.?),?\\s?(?<year>(?:1[7,8,9])?[0-9]{2})$"), // full date like 12. April 1969 or april 1999 or 22 Dec.1999

        };

    private static final Pattern typeSpecimenSplitPattern =  Pattern.compile("^(?:\"*[Tt]ype: (?<fieldUnit>.*?))(?:[Hh]olotype:(?<holotype>.*?)\\.?)?(?:[Ii]sotype.*?[:\\(](?<isotype>.*)\\.?)?\\.?$");

    private static final Pattern typeNameBasionymPattern =  Pattern.compile("\\([Bb]asionym\\s?\\:\\s?(?<basionymName>[^\\)]*).*$");

    private static final Pattern typeNameNotePattern =  Pattern.compile("\\[([^\\[]*)"); // matches the inner of '[...]'

    private static final Pattern typeNameSpecialSplitPattern =  Pattern.compile("(?<note>.*\\;.*?)\\:(?<agent>)\\;(<name>.*)");

    private static final Pattern collectorPattern =  Pattern.compile(".*?(?<fullStr1>\\(leg\\.\\s+(?<data1>[^\\)]*)\\))|.*?(?<fullStr2>\\sleg\\.\\s+(?<data2>.*?)\\.?)$");

    private static final Pattern collectionDataPattern =  Pattern.compile("^(?<collector>[^,]*),\\s?(?<detail>.*?)\\.?$");

    private static final Pattern collectorsNumber =  Pattern.compile("^([nN]o\\.\\s.*)$");

    // AccessionNumbers: , #.*, n°:?, 96/3293, No..*, -?\w{1,3}-[0-9\-/]*

    private static final Pattern accessionNumberOnlyPattern = Pattern.compile("^(?<accNumber>(?:n°\\:?\\s?|#|No\\.?\\s?)?[\\d\\w\\-/]*)$");

    private static final Pattern[] specimenTypePatterns = new Pattern[]{

            Pattern.compile("^(?<colCode>[A-Z]+|CPC Micropaleontology Lab\\.?)\\s+(?:\\((?<institute>.*[^\\)])\\))(?<accNumber>.*)?$"), // like: GAUF (Gansu Agricultural University) No. 1207-1222

            Pattern.compile("^(?<colCode>[A-Z]+|CPC Micropaleontology Lab\\.?)\\s+(?:Coll\\.\\s(?<subCollection>[^\\.,;]*)(.))(?<accNumber>.*)?$"), // like KASSEL Coll. Krasske, Praep. DII 78

            Pattern.compile("^(?:in\\s)?(?<institute>[Cc]oll\\.\\s.*?)(?:\\s+(?<accNumber>(Praep\\.|slide|No\\.|Inv\\. Nr\\.|Nr\\.).*))?$"), // like Coll. Lange-Bertalot, Bot. Inst., Univ. Frankfurt/Main, Germany Praep. Neukaledonien OTL 62

            Pattern.compile("^(?<institute>Inst\\.\\s.*?)\\s+(?<accNumber>N\\s.*)?$"), // like Inst. Geological Sciences, Acad. Sci. Belarus, Minsk N 212 A

            Pattern.compile("^(?<colCode>[A-Z]+)(?:\\s+(?<accNumber>.*))?$"), // identifies the Collection code and takes the rest as accessionNumber if any

    };

    private static Map<String, Integer> monthFromNameMap = new HashMap<>();

    static {

        String[] ck = new String[]{"leden", "únor", "březen", "duben", "květen", "červen", "červenec ", "srpen", "září", "říjen", "listopad", "prosinec"};

        String[] fr = new String[]{"janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre"};

        String[] de = new String[]{"januar", "februar", "märz", "april", "mai", "juni", "juli", "august", "september", "oktober", "november", "dezember"};

        String[] en = new String[]{"january", "february", "march", "april", "may", "june", "july", "august", "september", "october", "november", "december"};

        String[] it = new String[]{"gennaio", "febbraio", "marzo", "aprile", "maggio", "giugno", "luglio", "agosto", "settembre", "ottobre", "novembre", "dicembre"};

        String[] sp = new String[]{"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"};

        String[] de_abbrev = new String[]{"jan.", "feb.", "märz", "apr.", "mai", "jun.", "jul.", "aug.", "sept.", "okt.", "nov.", "dez."};

        String[] en_abbrev = new String[]{"jan.", "feb.", "mar.", "apr.", "may", "jun.", "jul.", "aug.", "sep.", "oct.", "nov.", "dec."};

        String[] port = new String[]{"Janeiro", "Fevereiro", "Março", "Abril", "Maio", "Junho", "Julho", "Agosto", "Setembro", "Outubro", "Novembro", "Dezembro"};

        String[] rom_num = new String[]{"i", "ii", "iii", "iv", "v", "vi", "vii", "viii", "ix", "x", "xi", "xii"};

        String[][] perLang =  new String[][]{ck, de, fr, en, it, sp, port, de_abbrev, en_abbrev, rom_num};

        for (String[] months: perLang) {

            for(int m = 1; m < 13; m++){

                monthFromNameMap.put(months[m - 1].toLowerCase(), m);

            }

        }

        // special cases

        monthFromNameMap.put("mar", 3);

        monthFromNameMap.put("dec", 12);

        monthFromNameMap.put("Februari", 2);

    }

    DateTimeFormatter formatterYear = DateTimeFormat.forPattern("yyyy");

    private Map<String, Collection> collectionMap = new HashMap<>();

    enum TypesName {

        fieldUnit, holotype, isotype;

        public SpecimenTypeDesignationStatus status(){

            switch (this) {

                case holotype:

                    return SpecimenTypeDesignationStatus.HOLOTYPE();

                case isotype:

                    return SpecimenTypeDesignationStatus.ISOTYPE();

                default:

                    return null;

            }

        }

    }

    private MarkerType markerTypeFossil = null;

    private Rank rankUnrankedSupraGeneric = null;

    private Rank familyIncertisSedis = null;

    private AnnotationType annotationTypeCaveats = null;

    private Reference bookVariedadesTradicionales = null;

    /**

     * HACK for unit simple testing

     */

    boolean _testMode = System.getProperty("TEST_MODE") != null;

    private Taxon makeTaxon(HashMap<String, String> record, SimpleExcelTaxonImportState<CONFIG> state,

                            TaxonNode higherTaxonNode, boolean isFossil) {

        String regNumber = getValue(record, REGISTRATIONNO_PK, false);

        String regStr = getValue(record, REGISTRATION, true);

        String titleCacheStr = getValue(record, FULLNAME, true);

        String nameStr = getValue(record, NAMESTRING, true);

        String authorStr = getValue(record, AUTHORSTRING, true);

        String nomRefStr = getValue(record, LITSTRING, true);

        String authorsSpelling = getValue(record, AUTHORSSPELLING, true);

        String notesTxt = getValue(record, NOTESTXT, true);

        String caveats = getValue(record, CAVEATS, true);

        String fullSynSubstStr = getValue(record, FULLSYNSUBST, true);

        String fullBasionymStr = getValue(record, FULLBASIONYM, true);

        String basionymNameStr = getValue(record, FULLBASIONYM, true);

        String synSubstStr = getValue(record, SYNSUBSTSTR, true);

        String typeStr = getValue(record, TYPE, true);

        String nomRefTitle = null;

        String nomRefDetail;

        String nomRefPupDate = null;

        String nomRefIssue = null;

        Partial pupDate = null;

        boolean restoreOriginalReference = false;

        boolean nameIsValid = true;

        // preprocess nomRef: separate citation, reference detail, publishing date

        if(!StringUtils.isEmpty(nomRefStr)){

            nomRefStr = nomRefStr.trim();

            // handle the special case which is hard to parse:

            //

            // Las variedades tradicionales de frutales de la Cuenca del Río Segura. Catálogo Etnobotánico (1): Frutos secos, oleaginosos, frutales de hueso, almendros y frutales de pepita: 154. 1997.

            if(nomRefStr.startsWith("Las variedades tradicionales de frutales ")){

                if(bookVariedadesTradicionales == null){

                    bookVariedadesTradicionales = ReferenceFactory.newBook();

                    bookVariedadesTradicionales.setTitle("Las variedades tradicionales de frutales de la Cuenca del Río Segura. Catálogo Etnobotánico (1): Frutos secos, oleaginosos, frutales de hueso, almendros y frutales de pepita");

                    bookVariedadesTradicionales.setDatePublished(TimePeriod.NewInstance(1997));

                    getReferenceService().save(bookVariedadesTradicionales);

                }

                nomRefStr = nomRefStr.replaceAll("^.*?\\:.*?\\:", "Las variedades tradicionales:");

                restoreOriginalReference = true;

            }

            Matcher m = nomRefTokenizeP.matcher(nomRefStr);

            if(m.matches()){

                nomRefTitle = m.group("title");

                nomRefDetail = m.group("detail");

                nomRefPupDate = m.group("date").trim();

                nomRefIssue = m.group("issue");

                pupDate = parseDate(regNumber, nomRefPupDate);

                if (pupDate != null) {

                    nomRefTitle = nomRefTitle + ": " + nomRefDetail + ". " + pupDate.toString(formatterYear) + ".";

                } else {

                    logger.warn(csvReportLine(regNumber, "Pub date", nomRefPupDate, "in", nomRefStr, "not parsable"));

                }

            } else {

                nomRefTitle = nomRefStr;

            }

        }

        BotanicalName taxonName = makeBotanicalName(state, regNumber, titleCacheStr, nameStr, authorStr, nomRefTitle);

        // always add the original strings of parsed data as annotation

        taxonName.addAnnotation(Annotation.NewInstance("imported and parsed data strings:" +

                        "\n -  '" + LITSTRING + "': "+ nomRefStr +

                        "\n -  '" + TYPE + "': " + typeStr +

                        "\n -  '" + REGISTRATION  + "': " + regStr

                , AnnotationType.TECHNICAL(), Language.DEFAULT()));

        if(restoreOriginalReference){

            taxonName.setNomenclaturalReference(bookVariedadesTradicionales);

        }

        if(pupDate != null) {

            taxonName.getNomenclaturalReference().setDatePublished(TimePeriod.NewInstance(pupDate));

        }

        if(nomRefIssue != null) {

            ((Reference)taxonName.getNomenclaturalReference()).setVolume(nomRefIssue);

        }

        if(!StringUtils.isEmpty(notesTxt)){

            notesTxt = notesTxt.replace("Notes: ", "").trim();

            taxonName.addAnnotation(Annotation.NewInstance(notesTxt, AnnotationType.EDITORIAL(), Language.DEFAULT()));

            nameIsValid = false;

        }

        if(!StringUtils.isEmpty(caveats)){

            caveats = caveats.replace("Caveats: ", "").trim();

            taxonName.addAnnotation(Annotation.NewInstance(caveats, annotationTypeCaveats(), Language.DEFAULT()));

            nameIsValid = false;

        }

        if(nameIsValid){

            // Status is always considered valid if no notes and cavets are set

            taxonName.addStatus(NomenclaturalStatus.NewInstance(NomenclaturalStatusType.VALID()));

        }

        getNameService().save(taxonName);

        // Namerelations

        if(!StringUtils.isEmpty(authorsSpelling)){

            authorsSpelling = authorsSpelling.replaceFirst("Author's spelling:", "").replaceAll("\"", "").trim();

            String[] authorSpellingTokens = StringUtils.split(authorsSpelling, " ");

            String[] nameStrTokens = StringUtils.split(nameStr, " ");

            ArrayUtils.reverse(authorSpellingTokens);

            ArrayUtils.reverse(nameStrTokens);

            for (int i = 0; i < nameStrTokens.length; i++){

                if(i < authorSpellingTokens.length){

                    nameStrTokens[i] = authorSpellingTokens[i];

                }

            }

            ArrayUtils.reverse(nameStrTokens);

            String misspelledNameStr = StringUtils.join (nameStrTokens, ' ');

            // build the fullnameString of the misspelled name

            misspelledNameStr = taxonName.getTitleCache().replace(nameStr, misspelledNameStr);

            TaxonNameBase misspelledName = (BotanicalName) nameParser.parseReferencedName(misspelledNameStr, NomenclaturalCode.ICNAFP, null);

            misspelledName.addRelationshipToName(taxonName, NameRelationshipType.MISSPELLING(), null);

            getNameService().save(misspelledName);

        }

        // Replaced Synonyms

        if(!StringUtils.isEmpty(fullSynSubstStr)){

            fullSynSubstStr = fullSynSubstStr.replace("Syn. subst.: ", "");

            BotanicalName replacedSynonymName = makeBotanicalName(state, regNumber, fullSynSubstStr, synSubstStr, null, null);

            replacedSynonymName.addReplacedSynonym(taxonName, null, null, null);

            getNameService().save(replacedSynonymName);

        }

        Reference sec = state.getConfig().getSecReference();

        Taxon taxon = Taxon.NewInstance(taxonName, sec);

        // Basionym

        if(fullBasionymStr != null){

            fullBasionymStr = fullBasionymStr.replaceAll("^\\w*:\\s", ""); // Strip off the leading 'Basionym: "

            basionymNameStr = basionymNameStr.replaceAll("^\\w*:\\s", ""); // Strip off the leading 'Basionym: "

            BotanicalName basionym = makeBotanicalName(state, regNumber, fullBasionymStr, basionymNameStr, null, null);

            getNameService().save(basionym);

            taxonName.addBasionym(basionym);

            Synonym syn = Synonym.NewInstance(basionym, sec);

            taxon.addSynonym(syn, SynonymRelationshipType.HOMOTYPIC_SYNONYM_OF());

            getTaxonService().save(syn);

        }

        // Markers

        if(isFossil){

            taxon.addMarker(Marker.NewInstance(markerTypeFossil(), true));

        }

        // Types

        if(!StringUtils.isEmpty(typeStr)){

            if(taxonName.getRank().isSpecies() || taxonName.getRank().isLower(Rank.SPECIES())) {

                makeSpecimenTypeData(typeStr, taxonName, regNumber, state);

            } else {

                makeNameTypeData(typeStr, taxonName, regNumber, state);

            }

        }

        getTaxonService().save(taxon);

        if(taxonName.getRank().equals(Rank.SPECIES()) || taxonName.getRank().isLower(Rank.SPECIES())){

            // try to find the genus, it should have been imported already, Genera are coming first in the import file

            Taxon genus = ((IAPTImportState)state).getGenusTaxonMap().get(taxonName.getGenusOrUninomial());

            if(genus != null){

                higherTaxonNode = genus.getTaxonNodes().iterator().next();

            } else {

                logger.info(csvReportLine(regNumber, "Parent genus not found for", nameStr));

            }

        }

        if(higherTaxonNode != null){

            higherTaxonNode.addChildTaxon(taxon, null, null);

            getTaxonNodeService().save(higherTaxonNode);

        }

        if(taxonName.getRank().isGenus()){

            ((IAPTImportState)state).getGenusTaxonMap().put(taxonName.getGenusOrUninomial(), taxon);

        }

        return taxon;

    }

    private void makeSpecimenTypeData(String typeStr, BotanicalName taxonName, String regNumber, SimpleExcelTaxonImportState<CONFIG> state) {

        Matcher m = typeSpecimenSplitPattern.matcher(typeStr);

        if(m.matches()){

            String fieldUnitStr = m.group(TypesName.fieldUnit.name());

            // boolean isFieldUnit = typeStr.matches(".*([°']|\\d+\\s?m\\s|\\d+\\s?km\\s).*"); // check for location or unit m, km // makes no sense!!!!

            FieldUnit fieldUnit = parseFieldUnit(fieldUnitStr, regNumber, state);

            if(fieldUnit == null) {

                // create a field unit with only a titleCache using the fieldUnitStr substring

                logger.warn(csvReportLine(regNumber, "Type: fieldUnitStr can not be parsed", fieldUnitStr));

                fieldUnit = FieldUnit.NewInstance();

                fieldUnit.setTitleCache(fieldUnitStr, true);

                getOccurrenceService().save(fieldUnit);

            }

            getOccurrenceService().save(fieldUnit);

            // all others ..

            addSpecimenTypes(taxonName, fieldUnit, m.group(TypesName.holotype.name()), TypesName.holotype, false, regNumber);

            addSpecimenTypes(taxonName, fieldUnit, m.group(TypesName.isotype.name()), TypesName.isotype, true, regNumber);

        } else {

            // create a field unit with only a titleCache using the full typeStr

            FieldUnit fieldUnit = FieldUnit.NewInstance();

            fieldUnit.setTitleCache(typeStr, true);

            getOccurrenceService().save(fieldUnit);

            logger.warn(csvReportLine(regNumber, "Type: field 'Type' can not be parsed", typeStr));

        }

        getNameService().save(taxonName);

    }

    private void makeNameTypeData(String typeStr, BotanicalName taxonName, String regNumber, SimpleExcelTaxonImportState<CONFIG> state) {

        String nameStr = typeStr.replaceAll("^Type\\s?\\:\\s?", "");

        if(nameStr.isEmpty()) {

            return;

        }

        String basionymNameStr = null;

        String noteStr = null;

        String agentStr = null;

        Matcher m;

        if(typeStr.startsWith("not to be indicated")){

            // Special case:

            // Type: not to be indicated (Art. H.9.1. Tokyo Code); stated parent genera: Hechtia Klotzsch; Deuterocohnia Mez

            // FIXME

            m = typeNameSpecialSplitPattern.matcher(nameStr);

            if(m.matches()){

                nameStr = m.group("name");

                noteStr = m.group("note");

                agentStr = m.group("agent");

                // TODO better import of agent?

                if(agentStr != null){

                    noteStr = noteStr + ": " + agentStr;

                }

            }

        } else {

            // Generic case

            m = typeNameBasionymPattern.matcher(nameStr);

            if (m.find()) {

                basionymNameStr = m.group("basionymName");

                if (basionymNameStr != null) {

                    nameStr = nameStr.replace(m.group(0), "");

                }

            }

            m = typeNameNotePattern.matcher(nameStr);

            if (m.find()) {

                noteStr = m.group(1);

                if (noteStr != null) {

                    nameStr = nameStr.replace(m.group(0), "");

                }

            }

        }

        BotanicalName typeName = (BotanicalName) nameParser.parseFullName(nameStr, NomenclaturalCode.ICNAFP, null);

        if(typeName.isProtectedTitleCache() || typeName.getNomenclaturalReference() != null && typeName.getNomenclaturalReference().isProtectedTitleCache()) {

            logger.warn(csvReportLine(regNumber, "NameType not parsable", typeStr, nameStr));

        }

        if(basionymNameStr != null){

            BotanicalName basionymName = (BotanicalName) nameParser.parseFullName(nameStr, NomenclaturalCode.ICNAFP, null);

            getNameService().save(basionymName);

            typeName.addBasionym(basionymName);

        }

        NameTypeDesignation nameTypeDesignation = NameTypeDesignation.NewInstance();

        nameTypeDesignation.setTypeName(typeName);

        getNameService().save(typeName);

        if(noteStr != null){

            nameTypeDesignation.addAnnotation(Annotation.NewInstance(noteStr, AnnotationType.EDITORIAL(), Language.UNKNOWN_LANGUAGE()));

        }

        taxonName.addNameTypeDesignation(typeName, null, null, null, null, false);

    }

    /**

     * Currently only parses the collector, fieldNumber and the collection date.

     *

     * @param fieldUnitStr

     * @param regNumber

     * @param state

     * @return null if the fieldUnitStr could not be parsed

     */

    private FieldUnit parseFieldUnit(String fieldUnitStr, String regNumber, SimpleExcelTaxonImportState<CONFIG> state) {

        FieldUnit fieldUnit = null;

        Matcher m1 = collectorPattern.matcher(fieldUnitStr);

        if(m1.matches()){

            String collectorData = m1.group(2); // like (leg. Metzeltin, 30. 9. 1996)

            String removal = m1.group(1);

            if(collectorData == null){

                collectorData = m1.group(4); // like leg. Metzeltin, 30. 9. 1996

                removal = m1.group(3);

            }

            if(collectorData == null){

                return null;

            }

            // the fieldUnitStr is parsable

            // remove all collectorData from the fieldUnitStr and use the rest as locality

            String locality = fieldUnitStr.replace(removal, "");

            String collectorStr = null;

            String detailStr = null;

            Partial date = null;

            String fieldNumber = null;

            Matcher m2 = collectionDataPattern.matcher(collectorData);

            if(m2.matches()){

                collectorStr = m2.group("collector");

                detailStr = m2.group("detail");

                // Try to make sense of the detailStr

                if(detailStr != null){

                    detailStr = detailStr.trim();

                    // 1. try to parse as date

                    date = parseDate(regNumber, detailStr);

                    if(date == null){

                        // 2. try to parse as number

                        if(collectorsNumber.matcher(detailStr).matches()){

                            fieldNumber = detailStr;

                        }

                    }

                }

                if(date == null && fieldNumber == null){

                    // detailed parsing not possible, so need fo fallback

                    collectorStr = collectorData;

                }

            }

            if(collectorStr == null) {

                collectorStr = collectorData;

            }

            fieldUnit = FieldUnit.NewInstance();

            GatheringEvent ge = GatheringEvent.NewInstance();

            ge.setLocality(LanguageString.NewInstance(locality, Language.UNKNOWN_LANGUAGE()));

            TeamOrPersonBase agent =  state.getAgentBase(collectorStr);

            if(agent == null) {

                agent = Person.NewTitledInstance(collectorStr);

                getAgentService().save(agent);

                state.putAgentBase(collectorStr, agent);

            }

            ge.setCollector(agent);

            if(date != null){

                ge.setGatheringDate(date);

            }

            getEventBaseService().save(ge);

            fieldUnit.setGatheringEvent(ge);

            if(fieldNumber != null) {

                fieldUnit.setFieldNumber(fieldNumber);

            }

            getOccurrenceService().save(fieldUnit);

        }

        return fieldUnit;

    }

    protected Partial parseDate(String regNumber, String dateStr) {

        Partial pupDate = null;

        boolean parseError = false;

        String day = null;

        String month = null;

        String monthName = null;

        String year = null;

        for(Pattern p : datePatterns){

            Matcher m2 = p.matcher(dateStr);

            if(m2.matches()){

                try {

                    year = m2.group("year");

                } catch (IllegalArgumentException e){

                    // named capture group not found

                }

                try {

                    month = m2.group("month");

                } catch (IllegalArgumentException e){

                    // named capture group not found

                }

                try {

                    monthName = m2.group("monthName");

                    month = monthFromName(monthName, regNumber);

                    if(month == null){

                        parseError = true;

                    }

                } catch (IllegalArgumentException e){

                    // named capture group not found

                }

                try {

                    day = m2.group("day");

                } catch (IllegalArgumentException e){

                    // named capture group not found

                }

                if(year != null){

                    if (year.length() == 2) {

                        // it is an abbreviated year from the 19** years

                        year = "19" + year;

                    }

                    break;

                } else {

                    parseError = true;

                }

            }

        }

        if(year == null){

            parseError = true;

        }

        List<DateTimeFieldType> types = new ArrayList<>();

        List<Integer> values = new ArrayList<>();

        if(!parseError) {

            types.add(DateTimeFieldType.year());

            values.add(Integer.parseInt(year));

            if (month != null) {

                types.add(DateTimeFieldType.monthOfYear());

                values.add(Integer.parseInt(month));

            }

            if (day != null) {

                types.add(DateTimeFieldType.dayOfMonth());

                values.add(Integer.parseInt(day));

            }

            pupDate = new Partial(types.toArray(new DateTimeFieldType[types.size()]), ArrayUtils.toPrimitive(values.toArray(new Integer[values.size()])));

        }

        return pupDate;

    }

    private String monthFromName(String monthName, String regNumber) {

        Integer month = monthFromNameMap.get(monthName.toLowerCase());

        if(month == null){

            logger.warn(csvReportLine(regNumber, "Unknown month name", monthName));

            return null;

        } else {

            return month.toString();

        }

    }

    private void addSpecimenTypes(BotanicalName taxonName, FieldUnit fieldUnit, String typeStr, TypesName typeName, boolean multiple, String regNumber){

        if(StringUtils.isEmpty(typeStr)){

            return;

        }

        typeStr = typeStr.trim().replaceAll("\\.$", "");

        Collection collection = null;

        DerivedUnit specimen = null;

        List<DerivedUnit> specimens = new ArrayList<>();

        if(multiple){

            String[] tokens = typeStr.split("\\s?,\\s?");

            for (String t : tokens) {

                // command to  list all complex parsabel types:

                // csvcut -t -c RegistrationNo_Pk,Type iapt.csv | csvgrep -c Type -m "Holotype" | egrep -o 'Holotype:\s([A-Z]*\s)[^.]*?'

                // csvcut -t -c RegistrationNo_Pk,Type iapt.csv | csvgrep -c Type -m "Holotype" | egrep -o 'Isotype[^:]*:\s([A-Z]*\s)[^.]*?'

                if(!t.isEmpty()){

                    // trying to parse the string

                    specimen = parseSpecimenType(fieldUnit, typeName, collection, t, regNumber);

                    if(specimen != null){

                        specimens.add(specimen);

                    } else {

                        // parsing was not successful make simple specimen

                        specimens.add(makeSpecimenType(fieldUnit, t));

                    }

                }

            }

        } else {

            specimen = parseSpecimenType(fieldUnit, typeName, collection, typeStr, regNumber);

            if(specimen != null) {

                specimens.add(specimen);

                // remember current collection

                collection = specimen.getCollection();

            } else {

                // parsing was not successful make simple specimen

                specimens.add(makeSpecimenType(fieldUnit, typeStr));

            }

        }

        for(DerivedUnit s : specimens){

            taxonName.addSpecimenTypeDesignation(s, typeName.status(), null, null, null, false, true);

       }

    }

    private DerivedUnit makeSpecimenType(FieldUnit fieldUnit, String titleCache) {

        DerivedUnit specimen;DerivedUnitFacade facade = DerivedUnitFacade.NewInstance(SpecimenOrObservationType.PreservedSpecimen, fieldUnit);

        facade.setTitleCache(titleCache.trim(), true);

        specimen = facade.innerDerivedUnit();

        return specimen;

    }

    /**

     *

     * @param fieldUnit

     * @param typeName

     * @param collection

     * @param text

     * @param regNumber

     * @return

     */

    protected DerivedUnit parseSpecimenType(FieldUnit fieldUnit, TypesName typeName, Collection collection, String text, String regNumber) {

        DerivedUnit specimen = null;

        String collectionCode = null;

        String collectionTitle = null;

        String subCollectionStr = null;

        String instituteStr = null;

        String accessionNumber = null;

        boolean unusualAccessionNumber = false;

        text = text.trim();

        // 1.  For Isotypes often the accession number is noted alone if the

        //     preceeding entry has a collection code.

        if(typeName .equals(TypesName.isotype) && collection != null){

            Matcher m = accessionNumberOnlyPattern.matcher(text);

            if(m.matches()){

                try {

                    accessionNumber = m.group("accNumber");

                    specimen = makeSpecimenType(fieldUnit, collection, accessionNumber);

                } catch (IllegalArgumentException e){

                    // match group acc_number not found

                }

            }

        }

        //2. try it the 'normal' way

        if(specimen == null) {

            for (Pattern p : specimenTypePatterns) {

                Matcher m = p.matcher(text);

                if (m.matches()) {

                    // collection code or collectionTitle is mandatory

                    try {

                        collectionCode = m.group("colCode");

                    } catch (IllegalArgumentException e){

                        // match group colCode not found

                    }

                    try {

                        instituteStr = m.group("institute");

                    } catch (IllegalArgumentException e){

                        // match group col_name not found

                    }

                    try {

                        subCollectionStr = m.group("subCollection");

                    } catch (IllegalArgumentException e){

                        // match group subCollection not found

                    }

                    try {

                        accessionNumber = m.group("accNumber");