import re
import argparse

parser = argparse.ArgumentParser()
parser.add_argument("--input", help="The '7_V-REGION-mutation-and-AA-change-table' and '10_V-REGION-mutation-hotspots' merged together, with an added 'best_match' annotation")
parser.add_argument("--genes", help="The genes available in the 'best_match' column")
parser.add_argument("--includefr1", help="The genes available in the 'best_match' column")
parser.add_argument("--output", help="Output file")

args = parser.parse_args()

infile = args.input
genes = str(args.genes).split(",")
include_fr1 = True if args.includefr1 == "yes" else False
outfile = args.output 

genedic = dict()

mutationdic = dict()
mutationMatcher = re.compile("^(.)(\d+).(.),?(.)?(\d+)?.?(.)?(.?.?.?.?.?)?")
linecount = 0

IDIndex = 0
best_matchIndex = 0
fr1Index = 0
cdr1Index = 0
fr2Index = 0
cdr2Index = 0
fr3Index = 0
first=True
IDlist = []
mutationList = []

with open(infile, 'r') as i:
  for line in i:
		if first:
			linesplt = line.split("\t")
			IDIndex = linesplt.index("Sequence.ID")
			best_matchIndex = linesplt.index("best_match")
			fr1Index = linesplt.index("FR1.IMGT")
			cdr1Index = linesplt.index("CDR1.IMGT")
			fr2Index = linesplt.index("FR2.IMGT")
			cdr2Index = linesplt.index("CDR2.IMGT")
			fr3Index = linesplt.index("FR3.IMGT")
			first = False
			continue
		linecount += 1
		linesplt = line.split("\t")
		ID = linesplt[IDIndex]
		genedic[ID] = linesplt[best_matchIndex]
		mutationdic[ID + "_FR1"] = [mutationMatcher.match(x).groups() for x in linesplt[fr1Index].split("|") if x] if include_fr1 else []
		mutationdic[ID + "_CDR1"] = [mutationMatcher.match(x).groups() for x in linesplt[cdr1Index].split("|") if x]
		mutationdic[ID + "_FR2"] = [mutationMatcher.match(x).groups() for x in linesplt[fr2Index].split("|") if x]
		mutationdic[ID + "_CDR2"] = [mutationMatcher.match(x).groups() for x in linesplt[cdr2Index].split("|") if x]
		mutationdic[ID + "_FR2-CDR2"] = mutationdic[ID + "_FR2"] + mutationdic[ID + "_CDR2"]
		mutationdic[ID + "_FR3"] = [mutationMatcher.match(x).groups() for x in linesplt[fr3Index].split("|") if x]
		
		mutationList += mutationdic[ID + "_FR1"] + mutationdic[ID + "_CDR1"] + mutationdic[ID + "_FR2"] + mutationdic[ID + "_CDR2"] + mutationdic[ID + "_FR3"]
		
		IDlist += [ID]


AA_mutation = [0] * (int(max(mutationList, key=lambda i:int(i[4]) if i[4] else 0)[4]) + 1) #[4] is the position of the AA mutation, None if silent

for mutation in mutationList:
	if mutation[4]: #if non silent mutation
		AA_mutation[int(mutation[4])] += 1

aa_mutations_file = outfile[:outfile.rindex("/")] + "/aa_mutations.txt"
with open(aa_mutations_file, 'w') as o:
	o.write(",".join([str(x) for x in AA_mutation]) + "\n")
    
if linecount == 0:
	print "No data, exiting"
	with open(outfile, 'w') as o:
		o.write("RGYW (%)," + ("0,0,0\n" * len(genes)))
		o.write("WRCY (%)," + ("0,0,0\n" * len(genes)))
		o.write("WA (%)," + ("0,0,0\n" * len(genes)))
		o.write("TW (%)," + ("0,0,0\n" * len(genes)))
	import sys
	sys.exit()

hotspotMatcher = re.compile("[actg]+,(\d+)-(\d+)\((.*)\)")
RGYWCount = {g: 0 for g in genes}
WRCYCount = {g: 0 for g in genes}
WACount = {g: 0 for g in genes}
TWCount = {g: 0 for g in genes}

IDIndex = 0
ataIndex = 0
tatIndex = 0
aggctatIndex = 0
atagcctIndex = 0
first = True
with open(infile, 'r') as i:
	for line in i:
		if first:
			linesplt = line.split("\t")
			ataIndex = linesplt.index("X.a.t.a")
			tatIndex = linesplt.index("t.a.t.")
			aggctatIndex = linesplt.index("X.a.g.g.c.t..a.t.")
			atagcctIndex = linesplt.index("X.a.t..a.g.c.c.t.")
			first = False
			continue
		linesplt = line.split("\t")
		gene = linesplt[best_matchIndex]
		ID = linesplt[IDIndex]
		RGYW = [(int(x),int(y),z) for (x,y,z) in [hotspotMatcher.match(x).groups() for x in linesplt[aggctatIndex].split("|") if x]]
		WRCY = [(int(x),int(y),z) for (x,y,z) in [hotspotMatcher.match(x).groups() for x in linesplt[atagcctIndex].split("|") if x]]
		WA = [(int(x),int(y),z) for (x,y,z) in [hotspotMatcher.match(x).groups() for x in linesplt[ataIndex].split("|") if x]]
		TW = [(int(x),int(y),z) for (x,y,z) in [hotspotMatcher.match(x).groups() for x in linesplt[tatIndex].split("|") if x]]
		RGYWCount[ID], WRCYCount[ID], WACount[ID], TWCount[ID] = 0,0,0,0
		
		mutationList = (mutationdic[ID + "_FR1"] if include_fr1 else []) + mutationdic[ID + "_CDR1"] + mutationdic[ID + "_FR2"] + mutationdic[ID + "_CDR2"] + mutationdic[ID + "_FR3"]
		for mutation in mutationList:
			frm, where, to, AAfrm, AAwhere, AAto, junk = mutation
			mutation_in_RGYW = any([(start <= int(where) <= end) for (start,end,region) in RGYW])
			mutation_in_WRCY = any([(start <= int(where) <= end) for (start,end,region) in WRCY])
			mutation_in_WA = any([(start <= int(where) <= end) for (start,end,region) in WA])
			mutation_in_TW = any([(start <= int(where) <= end) for (start,end,region) in TW])
			
			in_how_many_motifs = sum([mutation_in_RGYW, mutation_in_WRCY, mutation_in_WA, mutation_in_TW])
			
			if in_how_many_motifs > 0:
				RGYWCount[ID] += (1.0 * int(mutation_in_RGYW)) / in_how_many_motifs
				WRCYCount[ID] += (1.0 * int(mutation_in_WRCY)) / in_how_many_motifs
				WACount[ID] += (1.0 * int(mutation_in_WA)) / in_how_many_motifs
				TWCount[ID] += (1.0 * int(mutation_in_TW)) / in_how_many_motifs

directory = outfile[:outfile.rfind("/") + 1]
value = 0
valuedic = dict()
for gene in genes:
	with open(directory + gene + "_value.txt", 'r') as v:
		valuedic[gene] = int(v.readlines()[0].rstrip())
with open(directory + "total_value.txt", 'r') as v:
	valuedic["total"] = int(v.readlines()[0].rstrip())

dic = {"RGYW": RGYWCount, "WRCY": WRCYCount, "WA": WACount, "TW": TWCount}
arr = ["RGYW", "WRCY", "WA", "TW"]
with open(outfile, 'w') as o:	
	for typ in arr:
		o.write(typ + " (%)")
		curr = dic[typ]
		for gene in genes:
			geneMatcher = re.compile(".*" + gene + ".*")
			if valuedic[gene] is 0:
				o.write(",0,0,0")
			else:
				x = int(round(sum([curr[x] for x in [y for y,z in genedic.iteritems() if geneMatcher.match(z)]])))
				y = valuedic[gene]
				z = str(round(x / float(valuedic[gene]) * 100, 1))
				o.write("," + str(x) + "," + str(y) + "," + z)
		#for total
		x = int(round(sum([y for x,y in curr.iteritems()])))
		y = valuedic["total"]
		z = str(round(x / float(valuedic["total"]) * 100, 1))
		o.write("," + str(x) + "," + str(y) + "," + z + "\n")


#for testing
seq_motif_file = outfile[:outfile.rindex("/")] + "/motif_per_seq.txt"
first = True
with open(seq_motif_file, 'w') as o:
	for ID in IDlist:
		if first:
			o.write("ID\tRGYWC\tWRCY\tWA\tTW\n")
			first = False
			continue
		o.write(ID + "\t" + str(int(RGYWCount[ID])) + "\t" + str(int(WRCYCount[ID])) + "\t" + str(int(WACount[ID])) + "\t" + str(int(TWCount[ID])) + "\n")