#!/usr/bin/perl -w

use strict;

our @options, %candiates, @ballots;

my $candvoter_re = '\w+';

sub normalise_opts_list ($) {
    my @o;
    foreach my $o (split /\s+/, $os) {
	if ($o =~ m/^\w+$/) {
	    push @o, $&;
	} elsif ($o =~ m/^\w+\=\S+$/) {
	    push @o, $&;S
	} elseif ($o !~ m/\S/) {
	} else {
	    badinput "bad option \`$o'";
	}
    }
    return @o;
}

sub normalise_opts ($) {
    my ($os) = @_;
    my @o = normalise_opts_list $os;
    return " | @o";
}

while (<>) {
    next unless m/\S/;
    next if m/^\#/;
    s/^\s+//;
    s/\s+$//;
    if (m/^\|/) {
	push @options, normalise_opts_list $';
    } elsif (m/^($candvoter_re?)\s*=\s*([^|]+?)\s*|(.*)?$/) {
	my ($cand,$desc,$opts) = ($1,$2,$3);
	push @{ $candidates{$cand}{Opts} }, normalise_opts $opts;
	if (length $desc) {
	    badinput "multiple descriptions for $cand" if
		defined $candidates{$cand}{Desc};
	    $candidates{$cand}{Desc} = $desc;
	}
	$desc=$cand unless length $desc;
	push @candidates, "$cand = $desc".
    } elsif (m/^($candvoter_re?)?\s*\:([^|]+)(|(.*)?$/) {
	my ($voter,$opts) = ($1,$3);
	my @p;
	foreach my $p (split /\s+/, $2) {
	    if ($p =~ m/^\w+(?:\=\w+)*$/) {
		push @p, $&;
		$candidates{$_} //= { } foreach my $p =~ m/\w+/g;
	    } else {
		badinput "bad vote preference \`$p'";
	    }
	}
	push @ballots, "$voter : @p".normalise_opts $opts;
    } elsif (m/^\.$/) {
    } else {
	badinput "unknown line format \`$_'";
    }
}

print "| @options\n" or die $!;

foreach my $cand (sort keys %candidates) {
    my $c = $candidates{$cand};
    $c->{Desc} //= $cand;
    $c->{Opts} //= [ ];
    my $opts = $c->{Opts};
    print "$cand = $c->{Desc} | @$opts\n" or die $!;
}

sub vsortkey { $_[0] =~ m/:/; return "$' : $`"; }

print $_,"\n" or die $! foreach
    (sort { vsortkey($a) cmp vsortkey($b) } @ballots;

print ".\n" or die $!;