#!/usr/bin/perl

#<interpretation>
#  <id></id>
#  <score></score>
#  <dact></dact>
#  <topic></topic>
#  <content>
#    <concept></concept>
#    ...
#  </content>
#  <parse></parse>
#</interpretation>
#   
#
#Jäsennys: 
#
#<parse>
#  <id></id>
#  <word><id></id>
#    <stem></stem>
#    <morfotags></morfotags>
#    <syntags></syntags>
#  </word
#  ...
#  <score></score>
#</parse>
#    
#
#Konseptit: #
#
#<concept>
#  <id></id>  
#  <name></name>
#  <constraint></constraint>
#  <value></value>
#  <new></new>
#</concept>

$id = 0;
$score = 0;
$dact = 0;

$linja = 0;
$linja_tieto = 0;
$linja_kysymys = 0;
$linja_kysy = 0;
$linja_value = "";
$linja_invalid = 0;
$linja_monikko = 0;
$linja_tarkitus = 0;

$aika = 0;
$aika_tieto = 0;
$aika_kysymys = 0;
$aika_kysy = 0;
$aika_value = "";
$aika_invalid = 0;
$aika_monikko = 0;
$aika_tarkitus = 0;

$paikka = 0;
$paikka_lahto = 0;
$paikka_lahto_tieto = 0;
$paikka_lahto_kysymys = 0;
$paikka_lahto_kysy = 0;
$paikka_lahto_value = "";
$paikka_lahto_invalid = 0;
$paikka_lahto_monikko = 0;
$paikka_lahto_tarkitus = 0;

$paikka_tulo = 0;
$paikka_tulo_tieto = 0;
$paikka_tulo_kysymys = 0;
$paikka_tulo_kysy = 0;
$paikka_tulo_value = "";
$paikka_tulo_invalid = 0;
$paikka_tulo_monikko = 0;
$paikka_tulo_tarkistus = 0;

$tervehdys_aloitus = 0;
$tervehdys_lopetus = 0;

$pyynto_toisto = 0;

$tila = 0;
$tila2 = 0;

$taulu = 0;

$wordid = 0;

$jatkumo = 0;

while (<>) {
    chop();

    if (/\[\<#\> \=/ && $jatkumo eq 1) {
	$jatkumo = 2;
    }

    if (/\[\<#\> \=/ && $jatkumo eq 0) {
	$jatkumo = 1;
    }

## CONCEPTIT!!
    if ($jatkumo eq 1) {

	if (/<fs>/) {
	    $id = $_;
	    $id =~ s/^.*\(//;
	    $id =~ s/\).*$//;
	}
	if (/<p>/) {
	    $score = $_;
	    $score =~ s/^.*= //;
	}
	if (/<dact>/) {
	    $dact = $_;
	    $dact =~ s/^.*= //;
	}
	if (/<base>/) {
	    $tila++;
	    $base[$tila] = $_;
	    $base[$tila] =~ s/^.*= \'//;
	    $base[$tila] =~ s/\'.*$//;
	    $kysymys = 0;
	}
	if (/<info> = K|T/) {
	    $kysymys = 1;
	}
	if (/<role> = ins/) {
	    if ($kysymys) {
		$linja_kysymys = 1;
	    }
	    $linja_value .= $base[$tila];
	    $linja = 1;
	}
	if (/<role> = tgt/) {
	    if ($kysymys) {
		$paikka_tulo_kysymys = 1;
	    }
	    $paikka_tulo_value .= $base[$tila];
	    $paikka_tulo = 1;
	}
	if (/<role> = src/) {
	    if ($kysymys) {
		$paikka_lahto_kysymys = 1;
	    }
	    $paikka_lahto_value .= $base[$tila];
	    $paikka_lahto = 1;
	}
	
## PARSET!!

	if (/<base>/) {
	    $wordid++;
	    $word[$wordid][0] = $_;
	    $word[$wordid][0] =~ s/^.*= \'//;
	    $word[$wordid][0] =~ s/\'.*$//;
	}
	if (/<case>/) {
	    $word[$wordid][1] = $_;
	    $word[$wordid][1] =~ s/^.*= //;
	}    
	if (/<number>/) {
	    $word[$wordid][2] = $_;
	    $word[$wordid][2] =~ s/^.*= //;
	}
	if (/<person>/) {
	    $word[$wordid][3] = $_;
	    $word[$wordid][3] =~ s/^.*= //;
	}
	if (/<role>/) {
	    $word[$wordid][4] = $_;
	    $word[$wordid][4] =~ s/^.*= //;
	}
	if (/<wd>/) {
	    $word[$wordid][5] = $_;
	    $word[$wordid][5] =~ s/^.*= //;
	    $word[$wordid][5] =~ s/\].*$//;
	}
    }
}

## MUUNNOKSIA

if ($dact eq "ask") { $dact = "KYSYMYS"; }
if (!(/[1-90]/ =~ $linja_value)) { $linja_value = ""; } 

## TULOSTUS

print "<interpretation>\n";
print "<id>", $id, "</id>\n";
print "<score>", $score, "</score>\n";
print "<dact>", $dact, "</dact>\n";
print "<topic></topic>\n";
print "<content>\n";

$conceptid = 0;
$conceptstatus = "";

if ($paikka_tulo) {
    $conceptid++;
    $conceptstatus = "";
    if ($paikka_tulo_kysymys) {
	$conceptstatus = "user-ask";
    }
    print "<concept>\n<id>", $conceptid, "</id>\n<name>paikka</name>\n<constraint>tulo</constraint>\n<status>", $conceptstatus, "</status>\n<values><value>", $paikka_tulo_value, "</value></values>\n";
}

if ($paikka_lahto) {
    $conceptid++;
    $conceptstatus = "";
    if ($paikka_lahto_kysymys) {
	$conceptstatus = "user-ask";
    }
    print "<concept>\n<id>", $conceptid, "</id>\n<name>paikka</name>\n<constraint>lahto</constraint>\n<status>", $conceptstatus, "</status>\n<values><value>", $paikka_lahto_value, "</value></values>\n";
}

if ($linja) {
    $conceptid++;
    $conceptstatus = "";
    if ($linja_kysymys) {
	$conceptstatus = "user-ask";
    }
    print "<concept>\n<id>", $conceptid, "</id>\n<name>linja</name>\n<constraint>bussi</constraint>\n<status>", $conceptstatus, "</status>\n<values><value>", $linja_value, "</value></values>\n";
}

while ($conceptid > 0) {
    print "</concept>\n";
    $conceptid--;
}
print "</content>\n";
print "<parse>\n<id>", $id, "</id>\n";

while ($wordid > 0) {
    print "<word>\n<id>", $word[$wordid][5], "</id>\n";
    print "<stem>", $word[$wordid][0], "</stem>\n";
    print "<morfotags>";
    if ($word[$wordid][1]) {
	print $word[$wordid][1];
	if ($word[$wordid][2] || $word[$wordid][3]) {
	    print " ";
	}
    }
    if ($word[$wordid][2]) {
	print $word[$wordid][2];
	if ($word[$wordid][3]) {
	    print " ";
	}
    }
    if ($word[$wordid][3]) {
	print $word[$wordid][3];
    }
    print "</morfotags>\n";
    print "<syntags>", $word[$wordid][4], "</syntags>\n";
    print "</word>\n";
    $wordid--;
}

print "</parse>\n";
print "</interpretation>\n";