#!/usr/bin/perl -w
#
# 28-7-2001, 15-10-2001, 4-4-2002
#
# kompaktigu
#
# Mi ne scias chu la kompaktigo misigas la alfabetigon.
#

if ($#ARGV != 0) {
        print "Uzo: kompaktigu.pl <lingvo>\n";
}

if ($#ARGV == 0) {
        ($lingvo) = @ARGV;
        
        open(FILE,"<$lingvo.ind");
        @dosier = <FILE>;
        close(FILE);

        $dosiero = join('',@dosier);

        # kopio de la origina dosiero:
        open(FILE,">$lingvo.ind.malnova");
        print FILE $dosiero;
        close(FILE);

        # pritrakto:

        # (1) \i --> {\i}
        $dosiero =~ s!\\i !\{\\i\}!gs;

        for ($i=1;$i<3;$i++) {

        # (aa) A, ---( )B --> A( )B
        $dosiero =~ s!  \\item ([^\n]+?, \\see[^\n]+?)\n    \\subitem ([^\n]+?)\n  \\item !  \\item $1: $2 \%\%aa\n  \\item !gs;

        # (bb) A, ---( )B \n\n --> A( )B \n
        $dosiero =~ s!  \\item ([^\n]+?, \\see[^\n]+?)\n    \\subitem ([^\n]+?)\n\n!  \\item $1: $2 \%\%bb\n\n!gs;

        }

        for ($i=1;$i<3;$i++) {

        # (2) A, ---( )B --> A( )B
        $dosiero =~ s!  \\item ([^\n]+?)\n    \\subitem \\BBanstatau \{\}([^\n]+?)\n  \\item !  \\item $1$2 \%\%2\n  \\item !gs;

        # (3) A, ---( )B \n\n --> A( )B \n
        $dosiero =~ s!  \\item ([^\n]+?)\n    \\subitem \\BBanstatau \{\}([^\n]+?)\n\n!  \\item $1$2 \%\%3\n\n!gs;

        }

        for ($i=1;$i<3;$i++) {

        # (4) A, B --> A: B
        $dosiero =~ s!  \\item ([^\n]+?)\n    \\subitem ([^\n]+?)\n  \\item !  \\item $1: $2 \%\%4\n  \\item !gs;

        # (4) A, B\n\n --> A: B
        $dosiero =~ s!  \\item ([^\n]+?)\n    \\subitem ([^\n]+?)\n\n!  \\item $1: $2 \%\%5\n\n!gs;

        }

        # savo de la pritraktita dosiero:
        open(FILE,">$lingvo.ind");
        print FILE $dosiero;
        close(FILE);

}



