#! @PERL@
#
# Copyright 2000-2022 S. Varshavchik.  See COPYING for
# distribution information.
#
# Ok, the output of LIST is given in filesystem order, so fix that by
# prefixing a line number count, which doesn't incremenet for a LIST,
# and have the output of this script sorted.
#

$n=0;

sub sortflags {
    my ($n)=@_;

    my $sp="";

    $sp=" " if $n =~ s/\s+$//;

    my @w = grep { $_ ne ""} split(/\s+/, $n);

    return join(" ", sort @w) . $sp;
}

sub sortflags2 {
    my ($n)=@_;

    my @w = split(/,/,$n);

    return join(",", sort @w);
}

while (<>)
{
    s/UIDVALIDITY \d+/UIDVALIDITY/;
    s/INTERNALDATE "[^"]*"/INTERNALDATE -DATE-/g;
    s/\[COPYUID.*\] //;
    s/\[APPENDUID.*\] //;
    s/^\* ADD \"UID=.*/* ADD UID/;
    s/^\* COPY \d+ \"NEWUID=.*/* COPY NEWUID/;
    s/^(\* (\d+ FETCH \()?FLAGS \(|\* OK \[PERMANENTFLAGS \()([^\\\)]+)/$1 . sortflags($3)/e;
    s/^(\* FETCH \d+ .*"[-+]?KEYWORDS=)([^"]+)/$1 . sortflags2($2)/e;

    printf("%06d %s", $n, $_);
    ++$n unless $_ =~ /^\* (LIST|LSUB|ENABLED)/ || $_ =~ /Options enabled/;
}
