package interactive::stdio;

use diagnostics;
use strict;
use vars qw(@ISA);

@ISA = qw(interactive);

use interactive;
use common;

$| = 1;

sub readln() {
    my $l = <STDIN>;
    chomp $l;
    $l;
}

sub check_it {
    my ($i, $n) = @_;
    $i =~ /^\s*\d+\s*$/ && 1 <= $i && $i <= $n;
}

sub good_choice {
    my ($def_s, $max) = @_;
    my $i;
    do {
	defined $i and print N("Bad choice, try again\n");
	print N("Your choice? (default %s) ", $def_s);
	$i = readln();
    } until !$i || check_it($i, $max);
    $i;
}

sub ask_fromW {
    my ($_o, $common, $l, $_l2) = @_;

    add2hash_($common, { ok => N("Ok"), cancel => N("Cancel") }) if !exists $common->{ok};

ask_fromW_begin:

    my $already_entries = 0;
    my $predo_widget = sub {
	my ($e) = @_;

	$e->{type} = 'list' if $e->{type} =~ /(icon|tree)list/;
	#- combo does not exist, fallback to a sensible default
	$e->{type} = $e->{not_edit} ? 'list' : 'entry' if $e->{type} eq 'combo';

	if ($e->{type} eq 'entry') {
	    my $t = "\t$e->{label} $e->{text}\n";
	    if ($already_entries) {
		length($already_entries) > 1 and print N("Entries you'll have to fill:\n%s", $already_entries);
		$already_entries = 1;
		print $t;
	    } else {
		$already_entries = $t;
	    }
	}
    };

    my @labels;
    my $format_label = sub { my ($e) = @_; return sprintf("`%s' %s %s\n", ${$e->{val}}, $e->{label}, $e->{text}) };
    my $do_widget = sub {
	my ($e, $_ind) = @_;

	if ($e->{type} eq 'bool') {
	    print "$e->{text} $e->{label}\n";
	    print N("Your choice? (0/1, default `%s') ", ${$e->{val}} || '0');
	    my $i = readln();
	    if ($i) {
		to_bool($i) != to_bool(${$e->{val}}) && $e->{changed} and $e->{changed}->();
		${$e->{val}} = $i;
	    }
	} elsif ($e->{type} =~ /list/) {
	    $e->{text} || $e->{label} and print "=> $e->{label} $e->{text}\n";
	    my $n = 0; my $size = 0;
	    foreach (@{$e->{list}}) {
		$n++;
		my $t = "$n: " . may_apply($e->{format}, $_) . "\t";
		if ($size + length($t) >= 80) {
		    print "\n";
		    $size = 0;
		}
		print $t;
		$size += length($t);
	    }
	    print "\n";
	    my $i = good_choice(may_apply($e->{format}, ${$e->{val}}), $n);
	    print "Setting to <", $i ? ${$e->{list}}[$i-1] : ${$e->{val}}, ">\n";
	    if ($i) { 
		${$e->{val}} = ${$e->{list}}[$i-1];
		$e->{changed} and $e->{changed}->();
	    }
	} elsif ($e->{type} eq 'button') {
	    print N("Button `%s': %s", $e->{label}, may_apply($e->{format}, ${$e->{val}})), " $e->{text}\n";
	    print N("Do you want to click on this button?");
	    my $i = readln();
	    if ($i && $i !~ /^n/i) {
		$e->{clicked_may_quit}();
		$e->{changed} and $e->{changed}->();
	    }
	} elsif ($e->{type} eq 'label') {
	    my $t = $format_label->($e);
	    push @labels, $t;
	    print $t;
	} elsif ($e->{type} eq 'entry') {
	    print "$e->{label} $e->{text}\n";
	    print N("Your choice? (default `%s'%s) ", ${$e->{val}}, ${$e->{val}} ? N(" enter `void' for void entry") : '');
	    my $i = readln();
	    ${$e->{val}} = $i || ${$e->{val}};
	    ${$e->{val}} = '' if ${$e->{val}} eq 'void';
	    print "Setting to <", ${$e->{val}}, ">\n";
	    $i && $e->{changed} and $e->{changed}->();
	} else {
	    printf "UNSUPPORTED WIDGET TYPE (type <%s> label <%s> text <%s> val <%s>\n", $e->{type}, $e->{label}, $e->{text}, ${$e->{val}};
	}
    };

    print "* ";
    $common->{title} and print "$common->{title}\n";
    print(map { "$_\n" } @{$common->{messages}});

    $predo_widget->($_) foreach @$l;
    if (listlength(@$l) > 30) {
	my $ll = listlength(@$l);
	print N("=> There are many things to choose from (%s).\n", $ll);
ask_fromW_handle_verylonglist:
	print
N("Please choose the first number of the 10-range you wish to edit,
or just hit Enter to proceed.
Your choice? ");
	my $i = readln();
	if (check_it($i, $ll)) {
	    each_index { $do_widget->($_, $::i) } grep_index { $::i >= $i-1 && $::i < $i+9 } @$l;
	    goto ask_fromW_handle_verylonglist;
	}
    } else {
	each_index { $do_widget->($_, $::i) } @$l;
    }

    my $lab;
    each_index { $labels[$::i] && (($lab = $format_label->($_)) ne $labels[$::i]) and print N("=> Notice, a label changed:\n%s", $lab) }
      grep { $_->{type} eq 'label' } @$l;

    my $i;
    if (listlength(@$l) != 1 || $common->{ok} ne N("Ok") || $common->{cancel} ne N("Cancel")) {
	print "[1] ", $common->{ok} || N("Ok");
	$common->{cancel} and print "  [2] $common->{cancel}";
	@$l and print "  [9] ", N("Re-submit");
	print "\n";
	do {
	    defined $i and print N("Bad choice, try again\n");
	    print N("Your choice? (default %s) ", $common->{focus_cancel} ? $common->{cancel} : $common->{ok});
	    $i = readln() || ($common->{focus_cancel} ? "2" : "1");
	} until check_it($i, 9);
	$i == 9 and goto ask_fromW_begin;
    } else {
	$i = 1;
    }
    if ($i == 1 && !$common->{validate}()) {
	goto ask_fromW_begin;
    }
    return $i != 2;
}

sub wait_messageW {
    my ($_o, $_title, $message, $message_modifiable) = @_;
    print join "\n", $message, $message_modifiable;
}
sub wait_message_nextW { 
    my $m = $_[1];
    print "\r$m", ' ' x (60 - length $m);
}
sub wait_message_endW { print "\nDone\n" }

1;

action='/software/drakx/log/perl-install/share'>
<input type='hidden' name='h' value='15.55'/><input type='hidden' name='id' value='4239b13f2b4f972c37141f90a5495e70d454e4fc'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/log/?h=15.55&amp;id=4239b13f2b4f972c37141f90a5495e70d454e4fc'>root</a>/<a href='/software/drakx/log/perl-install?h=15.55&amp;id=4239b13f2b4f972c37141f90a5495e70d454e4fc'>perl-install</a>/<a href='/software/drakx/log/perl-install/share?h=15.55&amp;id=4239b13f2b4f972c37141f90a5495e70d454e4fc'>share</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th></th><th class='left'>Commit message (<a href='/software/drakx/log/perl-install/share?h=15.55&amp;id=4239b13f2b4f972c37141f90a5495e70d454e4fc&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th><th class='left'>Age</th><th class='left'>Files</th><th class='left'>Lines</th></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=f849b68fce455b013d4493fc372e8da41147dd57'>cooker</a></td><td>Guillaume Cottenceau</td><td><span title='2003-06-06 15:10:14 +0000'>2003-06-06</span></td><td>1</td><td><span class='deletions'>-0</span>/<span class='insertions'>+0</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=98d8aa6727de9bdba8ef650bbc669f241d06467b'>updated Estonien, Japanese, Albanian and Vietnamese po files</a></td><td>Pablo Saratxaga</td><td><span title='2003-06-03 14:30:57 +0000'>2003-06-03</span></td><td>3</td><td><span class='deletions'>-3301</span>/<span class='insertions'>+3539</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=98e86b68ead1420e25051733c2169553f5a73c9e'>Update</a></td><td>Arkadiusz Lipiec</td><td><span title='2003-06-02 17:55:36 +0000'>2003-06-02</span></td><td>1</td><td><span class='deletions'>-195</span>/<span class='insertions'>+308</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=8ecb343fbabb87cd4bdcc65e5d2ad52574ca0f55'>updated Spanish translations</a></td><td>Fabián Mandelbaum</td><td><span title='2003-06-02 14:42:15 +0000'>2003-06-02</span></td><td>1</td><td><span class='deletions'>-154</span>/<span class='insertions'>+271</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=3e71d95d16e0602d4ba0e22c6dc5054a66220172'>changed the name of the russian phonetic layout</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-31 10:02:24 +0000'>2003-05-31</span></td><td>47</td><td><span class='deletions'>-6454</span>/<span class='insertions'>+11245</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=6c1748195382462f95fafbee578f8e8eb69d7309'>updated Vietnamese file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-30 18:31:40 +0000'>2003-05-30</span></td><td>2</td><td><span class='deletions'>-67</span>/<span class='insertions'>+68</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=039f6d5d590742c5ee4c2fae96fb37d01f8a9b17'>updated Albanian file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-28 15:32:12 +0000'>2003-05-28</span></td><td>1</td><td><span class='deletions'>-5</span>/<span class='insertions'>+46</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=e3da407f233805e159a7bfd42e1363738bc9687d'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-26 15:23:24 +0000'>2003-05-26</span></td><td>1</td><td><span class='deletions'>-3</span>/<span class='insertions'>+43</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=85e90a38fe5dbd0b88e7a8254c29e55714b34fa3'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-22 17:39:30 +0000'>2003-05-22</span></td><td>2</td><td><span class='deletions'>-75</span>/<span class='insertions'>+134</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=9daaa3f09953412921ea636ce409bd830afe8443'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-20 23:54:27 +0000'>2003-05-20</span></td><td>2</td><td><span class='deletions'>-98</span>/<span class='insertions'>+147</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=869ec05f3d954962ae1c66c27a018b979d0629bf'>updated German, Estonian and Finnish files</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-20 10:43:15 +0000'>2003-05-20</span></td><td>3</td><td><span class='deletions'>-1420</span>/<span class='insertions'>+1964</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=1a375e61453fc7d7a32fbdc475f84a8b908a5847'>update french translation</a></td><td>Thierry Vignaud</td><td><span title='2003-05-20 09:37:27 +0000'>2003-05-20</span></td><td>1</td><td><span class='deletions'>-67</span>/<span class='insertions'>+54</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=120da3b0016efb83c568cbfe43b1735d8ec29a87'>updated Spanish translations</a></td><td>Fabián Mandelbaum</td><td><span title='2003-05-19 13:52:26 +0000'>2003-05-19</span></td><td>1</td><td><span class='deletions'>-221</span>/<span class='insertions'>+176</span></td></tr>
<tr><td class='commitgraph'>* </td><td><a href='/software/drakx/commit/perl-install/share?h=15.55&amp;id=411e0e9d500d91cf111fb93209acd7d461ee2453'>updated pot file</a></td><td>Pablo Saratxaga</td><td><span title='2003-05-16 15:55:38 +0000'>2003-05-16</span>