#!/usr/bin/perl

$py = 0;
$wade = 1;
$yale = 2;
$gi = 3;
$gr1 = 4;
$gr2 = 5;
$gr3 = 6;
$gr4 = 7;
$bpmf = 8;
$french = 9;

# load french info
open(FR, "withfrench.txt") or die "Can't open with french file\n";
while (<FR>) {
    m/^\{\"[^\"]+\",\t\"([^\"]+)\",\t\"[^\"]+\",\t\"([^\"]+)\",/;
    #print $1, $2;
    $py2french{$1} = $2;
}
close(FR);


open(PY, "pywgzh.gb") or die "Can't open py file.\n";

print("#PY	WG	YALE	GI	BPMF	GR	FR\n");

while (<PY>) {
    last if /^\#END/;
    next if /^\#/ or /^\s*$/;
    chomp;

    @fields = split(/\t/);

    $fields[$french] = $py2french{$fields[$py]};
    $fields[$french] =~ s/o:/\\u00f6/;

    $fields[$gr1] =~ s/^<//;
    $fields[$gr4] =~ s/>$//;

    # Set the neutral spelling for GR
    if ($fields[$gr1] =~ m/^[mnlr]/) {
	$gr0 = $fields[$gr2];
    } else {
	$gr0 = $fields[$gr1];
    }

    print $fields[$py], "\t", $fields[$wade], "\t", $fields[$yale], "\t", 
           $fields[$gi], "\t", $fields[$bpmf], "\\u02D9,", $fields[$bpmf], 
           "\t.", $gr0, "\t", $fields[$french], "\n";

    for ($j = 0; $j <= 3; $j++) {
	$fields1[$j] = "";
	@variants = split(/,/, $fields[$j]);
	for ($k = 0; $k < $#variants; $k++) {
	    $fields1[$j] .= $variants[$k] . "1,";
	}
	$fields1[$j] .= $variants[$#variants] . "1";
    }
    $fields1[$french] = "";
    @variants = split(/,/, $fields[$french]);
    for ($k = 0; $k < $#variants; $k++) {
	$fields1[$french] .= $variants[$k] . "1,";
    }
    $fields1[$french] .= $variants[$#variants] . "1";

    print $fields1[$py], "\t", $fields1[$wade], "\t", $fields1[$yale], "\t", 
           $fields1[$gi], "\t", $fields[$bpmf], "\\u02C9\t", $fields[$gr1], "\t", $fields1[$french], "\n";

    for ($j = 0; $j <= 3; $j++) {
	@variants = split(/,/, $fields[$j]);
	$fields2[$j] = "";
	for ($k = 0; $k < $#variants; $k++) {
	    $fields2[$j] .= $variants[$k] . "2,";
	}
	$fields2[$j] .= $variants[$#variants] . "2";
    }
    $fields2[$french] = "";
    @variants = split(/,/, $fields[$french]);
    for ($k = 0; $k < $#variants; $k++) {
	$fields2[$french] .= $variants[$k] . "2,";
    }
    $fields2[$french] .= $variants[$#variants] . "2";

    print $fields2[$py], "\t", $fields2[$wade], "\t", $fields2[$yale], "\t", 
           $fields2[$gi], "\t", $fields[$bpmf], "\\u02CA\t", $fields[$gr2], "\t", $fields2[$french], "\n";

    for ($j = 0; $j <= 3; $j++) {
	@variants = split(/,/, $fields[$j]);
	$fields3[$j] = "";
	for ($k = 0; $k < $#variants; $k++) {
	    $fields3[$j] .= $variants[$k] . "3,";
	}
	$fields3[$j] .= $variants[$#variants] . "3";
    }
    $fields3[$french] = "";
    @variants = split(/,/, $fields[$french]);
    for ($k = 0; $k < $#variants; $k++) {
	$fields3[$french] .= $variants[$k] . "3,";
    }
    $fields3[$french] .= $variants[$#variants] . "3";

    print $fields3[$py], "\t", $fields3[$wade], "\t", $fields3[$yale], "\t", 
           $fields3[$gi], "\t", $fields[$bpmf], "\\u02C7\t",  $fields[$gr3], "\t", $fields3[$french], "\n";

    for ($j = 0; $j <= 3; $j++) {
	@variants = split(/,/, $fields[$j]);
	$fields4[$j] = "";
	for ($k = 0; $k < $#variants; $k++) {
	    $fields4[$j] .= $variants[$k] . "4,";
	}
	$fields4[$j] .= $variants[$#variants] . "4";
    }
    $fields4[$french] = "";
    @variants = split(/,/, $fields[$french]);
    for ($k = 0; $k < $#variants; $k++) {
	$fields4[$french] .= $variants[$k] . "4,";
    }
    $fields4[$french] .= $variants[$#variants] . "4";

    print $fields4[$py], "\t", $fields4[$wade], "\t", $fields4[$yale], "\t", 
           $fields4[$gi], "\t", $fields[$bpmf], "\\u02CB\t", $fields[$gr4], "\t", $fields4[$french], "\n";
    
}