#! /usr/bin/perl

#  Ce script prend en entre un dictionnaire au format XML et affiche la liste des entre pour lesquelles il
#  existe 2 lemmes diffrents ou 2 formes normalises diffrentes.

my $current,$lemma,$lemmaFlag,$norm,$normalFlag;

while (<>) {
  chop();
  if (/<k>(.*)<\/k>/)
  {
    $current=$1;
    $lemmaFlag=0;
    $normalFlag=0;
  }
  if (/<l>(.*)<\/l>/)
  {
    if (($lemmaFlag == 1) && ($1 ne $lemma))  {
      print "$current has at least 2 lemma : $lemma ; $1\n";
    }
    $lemmaFlag=1;
    $lemma=$1;
  }
  if (/<l\/>/)
  {
    if (($lemmaFlag == 1) && ($current ne $lemma)) {
      print "$current has at least 2 lemma : $lemma ; $current\n";
    }
    $lemmaFlag=1;
    $lemma=$current;
  }
  if (/<n>(.*)<\/n>/)
  {
    if (($normalFlag == 1) && ($1 ne $norm)) {
      print "$current has at least 2 norms : $norm ; $1\n";
    }
    $normalFlag=1;
    $norm=$1;
  }
  if (/<n\/>/)
  {
    if (($normalFlag == 1) && ($current ne $norm)) {
      print "$current has at least 2 norms : $norm ; $current\n";
    }
    $normalFlag=1;
    $norm=$current;
  }
}

