#!/usr/bin/env python

# Transforms a map spreadsheet to use a different root

import csv

import os.path

import sys

sys.path.append(os.path.dirname(__file__)+"/../lib")

import opts

def all_not_none(list_):

    return reduce(lambda a, b: a and b, map(lambda e: e != None, list_))

def main():

    # Get config from env vars

    config_names = ['in_root', 'out_root']

    env_names = []

    configs = map(lambda col: opts.get_env_vars(config_names, col, env_names),

        ['left', 'right'])

    if not all_not_none(configs): raise SystemExit(

        'Usage: '+opts.env_usage(env_names)+' '+sys.argv[0]+' <in_map >out_map')

    # Transform map

    reader = csv.reader(sys.stdin)

    writer = csv.writer(sys.stdout)

    cols = reader.next()

    for i in range(len(configs)):

        config = configs[i]

        config['root'] = cols[i]

        label = cols[i].partition('/')[0]

        config['prefix'] = label+config['in_root']

        config['prefix_len'] = len(config['prefix'])

        cols[i] = label+config['out_root']

    writer.writerow(cols)

    for row in reader:

        for i in range(len(configs)): row[i] = configs[i]['root']+row[i]

        if row[0].startswith(configs[0]['prefix']):

            assert row[1].startswith(configs[1]['prefix'])

            for i in range(len(configs)):

                row[i] = row[i][configs[i]['prefix_len']:]

            writer.writerow(row)

main()

export \

left_in_root='/*s/individualOrganismObservation/*ID->/*s/plotObservation/' \

left_out_root='/*s/plotObservation/' \

right_in_root=/ \

right_out_root=/

../scripts/util/ch_map_root <VegX-VegBank.csv >VegX-VegBank.plots.csv

"*ID->/*s/individualOrganism/*sID->/*s/taxonNameUsageConcept->/*s/taxonDetermination[*ID,partyWithRole/role=TaxonScrubber]/*s/taxonRelationshipAssertion(/assertion/*ID->/*s/taxonConcept[Rank/@code=TaxonomicRankBelowSubspeciesEnum])/Rank","stemLocation/taxonInterpretation(/PLANTCONCEPT_ID/plantConcept[plantStatus/plantLevel=Subspecies])/PLANTNAME_ID/plantName/plantName/rank"

"*ID->/*s/individualOrganism/*sID->/*s/taxonNameUsageConcept->/*s/taxonDetermination[*ID,partyWithRole/role=collector]/groupType","stemLocation/taxonInterpretation[PLANTCONCEPT_ID=]/definedValue[@fkey=tableRecord_ID,userDefined[tableName=taxonInterpretation,userDefinedName=detType]]/definedValue"

"*ID->/*s/individualOrganism/*sID->/*s/taxonNameUsageConcept->/*s/taxonDetermination[*ID,partyWithRole/role=collector]/partyWithRole/*ID->/parties/party/individualName/givenName","stemLocation/taxonInterpretation[PLANTCONCEPT_ID=]/collector_ID->/party/givenName"

"*ID->/*s/individualOrganism/*sID->/*s/taxonNameUsageConcept->/*s/taxonDetermination[*ID,partyWithRole/role=collector]/partyWithRole/*ID->/parties/party/individualName/surName","stemLocation/taxonInterpretation[PLANTCONCEPT_ID=]/collector_ID->/party/surName"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/magnesium","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilMagnesium]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/nitrogen","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilNitrogen]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/ph","soilObs/soilPH"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/phosphorus","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilPhosphorus]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/pottasium","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilPotassium]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=acidity]/value","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilAcidity]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=base]/value","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilBase]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=calcium]/value","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilCalcium]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=carbon]/value","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilCarbon]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=cationCap]/value","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilCationCap]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=clayPercent]/value","soilObs/soilClay"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=conductivity]/value","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilConductivity]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=organicPercent]/value","soilObs/soilOrganic"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=sandPercent]/value","soilObs/soilSand"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=siltPercent]/value","soilObs/soilSilt"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=sodium]/value","soilObs/definedValue[@fkey=tableRecord_ID,userDefined[tableName=soilObs,userDefinedName=soilSodium]]/definedValue"

"*ID->/*s/plotObservation->/*s/abioticObservation[*ID]/simpleUserdefined[name=texture]/value","soilObs/soilTexture"

"*ID->/*s/plotObservation->/*s/communityDetermination[*ID]/communityConcepts/communityConcept/commonName","commName/commName"

"*ID->/*s/plotObservation->/*s/communityDetermination[*ID]/communityConcepts/communityConcept/name","commConcept/commDescription"

"*ID->/*s/plotObservation/*ID->/*s/project/title","project/projectName"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/area","plot/area"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/county","namedPlace[placeSystem=Geographic Name]/placeName"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/geospatial/maximumElevationInMeters","plot/elevationRange/max"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/geospatial/minimumElevationInMeters","plot/elevationRange/min"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/geospatial/verbatimElevation","plot/elevation"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/plotUniqueIdentifier","plot/authorPlotCode,observation/authorObsCode"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/simpleUserdefined[name=localityDescription]/value","namedPlace/placeDescription"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/simpleUserdefined[name=majorGeo]/value","namedPlace[placeSystem=continent]/placeName"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/slopeAspect","plot/slopeAspect"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/slopeGradient","plot/slopeGradient"

"*ID->/*s/plotObservation/*UniqueIdentifierID->/*s/plot/state","namedPlace[placeSystem=Geographic Name]/placeName"

"*ID->/*s/plotObservation/obsEndDate","observation/obsEndDate"

"*ID->/*s/plotObservation/obsStartDate","observation/obsStartDate"

"*ID->/*s/plotObservation/simpleUserdefined[name=plotMethodology]/value","observation/methodNarrative"

"*ID->/*s/plotObservation/simpleUserdefined[name=precipMm]/value","observation/definedValue[@fkey=tableRecord_ID,userDefined[tableName=observation,userDefinedName=precipMm]]/definedValue"

"*ID->/*s/plotObservation/temperature","observation/definedValue[@fkey=tableRecord_ID,userDefined[tableName=observation,userDefinedName=tempC]]/definedValue"

VegX/*s/plotObservation/,VegBank/

*ID->/*s/project/title,project/projectName

*UniqueIdentifierID->/*s/plot/area,plot/area

*UniqueIdentifierID->/*s/plot/county,namedPlace[placeSystem=Geographic Name]/placeName

*UniqueIdentifierID->/*s/plot/geospatial/maximumElevationInMeters,plot/elevationRange/max

*UniqueIdentifierID->/*s/plot/geospatial/minimumElevationInMeters,plot/elevationRange/min

*UniqueIdentifierID->/*s/plot/geospatial/verbatimElevation,plot/elevation

*UniqueIdentifierID->/*s/plot/plotUniqueIdentifier,"plot/authorPlotCode,observation/authorObsCode"

*UniqueIdentifierID->/*s/plot/simpleUserdefined[name=localityDescription]/value,namedPlace/placeDescription

*UniqueIdentifierID->/*s/plot/simpleUserdefined[name=majorGeo]/value,namedPlace[placeSystem=continent]/placeName

*UniqueIdentifierID->/*s/plot/slopeAspect,plot/slopeAspect

*UniqueIdentifierID->/*s/plot/slopeGradient,plot/slopeGradient

*UniqueIdentifierID->/*s/plot/state,namedPlace[placeSystem=Geographic Name]/placeName

obsEndDate,observation/obsEndDate

obsStartDate,observation/obsStartDate

simpleUserdefined[name=plotMethodology]/value,observation/methodNarrative

simpleUserdefined[name=precipMm]/value,"observation/definedValue[@fkey=tableRecord_ID,userDefined[tableName=observation,userDefinedName=precipMm]]/definedValue"

temperature,"observation/definedValue[@fkey=tableRecord_ID,userDefined[tableName=observation,userDefinedName=tempC]]/definedValue"