X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bcftools%2Fbcf.c;h=a538e6e14d7a0a78af7927b92073d05da0844640;hb=dc27682f70713a70d4f31bca652cf78e00757da2;hp=080b6fefcfc6ba8af057bd0a9792f620ac061f7a;hpb=27eec65490fb3461f0af054868d9a0949e1843ed;p=samtools.git

diff --git a/bcftools/bcf.c b/bcftools/bcf.c
index 080b6fe..a538e6e 100644
--- a/bcftools/bcf.c
+++ b/bcftools/bcf.c
@@ -103,8 +103,14 @@ int bcf_sync(bcf1_t *b)
 	ks_tokaux_t aux;
 	// set ref, alt, flt, info, fmt
 	b->ref = b->alt = b->flt = b->info = b->fmt = 0;
-	for (p = b->str, n = 0; p < b->str + b->l_str; ++p)
-		if (*p == 0 && p+1 != b->str + b->l_str) tmp[n++] = p + 1;
+	for (p = b->str, n = 0; p < b->str + b->l_str; ++p) {
+		if (*p == 0 && p+1 != b->str + b->l_str) {
+			if (n == 5) {
+				++n;
+				break;
+			} else tmp[n++] = p + 1;
+		}
+	}
 	if (n != 5) {
 		fprintf(stderr, "[%s] incorrect number of fields (%d != 5) at %d:%d\n", __func__, n, b->tid, b->pos);
 		return -1;
@@ -134,7 +140,7 @@ int bcf_sync(bcf1_t *b)
 	for (i = 0; i < b->n_gi; ++i) {
 		if (b->gi[i].fmt == bcf_str2int("PL", 2)) {
 			b->gi[i].len = b->n_alleles * (b->n_alleles + 1) / 2;
-		} else if (b->gi[i].fmt == bcf_str2int("DP", 2) || b->gi[i].fmt == bcf_str2int("HQ", 2)) {
+		} else if (b->gi[i].fmt == bcf_str2int("DP", 2) || b->gi[i].fmt == bcf_str2int("HQ", 2) || b->gi[i].fmt == bcf_str2int("DV", 2)) {
 			b->gi[i].len = 2;
 		} else if (b->gi[i].fmt == bcf_str2int("GQ", 2) || b->gi[i].fmt == bcf_str2int("GT", 2)) {
 			b->gi[i].len = 1;
@@ -227,7 +233,31 @@ void bcf_fmt_core(const bcf_hdr_t *h, bcf1_t *b, kstring_t *s)
 	}
 	x = b->n_alleles * (b->n_alleles + 1) / 2;
 	if (b->n_gi == 0) return;
+    int iPL = -1;
+    if ( b->n_alleles > 2 ) {
+        for (i=0; i<b->n_gi; i++) {
+            if ( b->gi[i].fmt == bcf_str2int("PL", 2) ) {
+                iPL = i;
+                break;
+            }
+        }
+    }
 	for (j = 0; j < h->n_smpl; ++j) {
+
+        // Determine GT with maximum PL (multiple ALT sites only)
+        int imax=-1;
+        if ( iPL!=-1 ) {
+            uint8_t *d = (uint8_t*)b->gi[iPL].data + j * x;
+            int k,identical=1;
+            imax=0;
+            for (k=1; k<x; k++)
+            {
+                if ( identical && d[k]!=d[k-1] ) identical = 0;
+                if ( d[k]<d[imax] ) imax = k;
+            }
+            // If all lks are identical, leave GT untouched
+            if ( identical ) imax = -1;
+        }
 		kputc('\t', s);
 		for (i = 0; i < b->n_gi; ++i) {
 			if (i) kputc(':', s);
@@ -238,21 +268,37 @@ void bcf_fmt_core(const bcf_hdr_t *h, bcf1_t *b, kstring_t *s)
 					if (k > 0) kputc(',', s);
 					kputw(d[k], s);
 				}
-			} else if (b->gi[i].fmt == bcf_str2int("DP", 2)) {
+			} else if (b->gi[i].fmt == bcf_str2int("DP", 2) || b->gi[i].fmt == bcf_str2int("DV", 2)) {
 				kputw(((uint16_t*)b->gi[i].data)[j], s);
 			} else if (b->gi[i].fmt == bcf_str2int("GQ", 2)) {
 				kputw(((uint8_t*)b->gi[i].data)[j], s);
 			} else if (b->gi[i].fmt == bcf_str2int("SP", 2)) {
 				kputw(((int32_t*)b->gi[i].data)[j], s);
 			} else if (b->gi[i].fmt == bcf_str2int("GT", 2)) {
-				int y = ((uint8_t*)b->gi[i].data)[j];
-				if (y>>7&1) {
-					kputsn("./.", 3, s);
-				} else {
-					kputc('0' + (y>>3&7), s);
-					kputc("/|"[y>>6&1], s);
-					kputc('0' + (y&7), s);
-				}
+                int y = ((uint8_t*)b->gi[i].data)[j];
+                if ( y>>7&1 )
+                    kputsn("./.", 3, s);
+                else if ( imax==-1 )
+                {
+                    kputc('0' + (y>>3&7), s);
+                    kputc("/|"[y>>6&1], s);
+                    kputc('0' + (y&7), s);
+                }
+                else
+                {
+                    // Arguably, the while loop will be faster than two sqrts
+                    int n = 0;
+                    int row = 1;
+                    while ( n<imax )
+                    {
+                        row++;
+                        n += row;
+                    }
+                    row--;
+                    kputw(imax-n+row, s);
+                    kputc("/|"[y>>6&1], s);
+                    kputw(row, s);
+                }
 			} else if (b->gi[i].fmt == bcf_str2int("GL", 2)) {
 				float *d = (float*)b->gi[i].data + j * x;
 				int k;