diff options
Diffstat (limited to 'perl-install/interactive_stdio.pm')
| -rw-r--r-- | perl-install/interactive_stdio.pm | 171 |
1 files changed, 0 insertions, 171 deletions
diff --git a/perl-install/interactive_stdio.pm b/perl-install/interactive_stdio.pm deleted file mode 100644 index ef77e8884..000000000 --- a/perl-install/interactive_stdio.pm +++ /dev/null @@ -1,171 +0,0 @@ -package interactive_stdio; # $Id$ - -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 _("Bad choice, try again\n"); - print _("Your choice? (default %s) ", $def_s); - $i = readln(); - } until (!$i || check_it($i, $max)); - $i; -} - -sub ask_fromW { - my ($o, $common, $l, $l2) = @_; - -ask_fromW_begin: - - my $already_entries = 0; - my $predo_widget = sub { - my ($e) = @_; - - $e->{type} = 'list' if $e->{type} =~ /(icon|tree)list/; - #- combo doesn't 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 _("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 "`${$e->{val}}' $e->{label} $e->{text}\n"; }; - my $do_widget = sub { - my ($e, $ind) = @_; - - if ($e->{type} eq 'bool') { - print "$e->{text} $e->{label}\n"; - print _("Your choice? (0/1, default `%s') ", ${$e->{val}} || '0'); - my $i = readln(); - if ($i ne '') { - to_bool($i) != to_bool(${$e->{val}}) and $common->{callbacks}{changed}->($ind); - ${$e->{val}} = $i; - } - } elsif ($e->{type} =~ /list/) { - ($e->{text} || $e->{label}) and print "=> $e->{label} $e->{text}\n"; - my $n = 0; my $size = 0; my $def_n = 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); - ${$e->{val}} eq $_ and $def_n = $n; - } - print "\n"; - my $i = good_choice(may_apply($e->{format}, ${$e->{val}}), $n); - print "Setting to <", $i ? ${$e->{list}}[$i-1] : ${$e->{val}}, ">\n"; - $i and ${$e->{val}} = ${$e->{list}}[$i-1], $common->{callbacks}{changed}->($ind); - } elsif ($e->{type} eq 'button') { - print _("Button `%s': %s", $e->{label}, may_apply($e->{format}, ${$e->{val}})), " $e->{text}\n"; - print _("Do you want to click on this button? "); - my $i = readln(); - ($i && $i !~ /^n/i) and $e->{clicked_may_quit}(), $common->{callbacks}{changed}->($ind); - } 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 _("Your choice? (default `%s'%s) ", ${$e->{val}}, ${$e->{val}} ne '' ? " 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 and $common->{callbacks}{changed}->($ind); - } else { - print "UNSUPPORTED WIDGET TYPE (type <$e->{type}> label <$e->{label}> text <$e->{text}> val <${$e->{val}}>\n"; - } - }; - - 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 _("=> There are many things to choose from (%s).\n", $ll); -ask_fromW_handle_verylonglist: - print _( -"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)) { - map_index { $do_widget->($_, $::i) } grep_index { $::i >= $i-1 && $::i < $i+9 } @$l; - goto ask_fromW_handle_verylonglist; - } - } else { - map_index { $do_widget->($_, $::i) } @$l; - } - - my $lab; - map_index { $labels[$::i] && (($lab = $format_label->($_)) ne $labels[$::i]) and print _("=> Notice, a label changed:\n%s", $lab); } - grep { $_->{type} eq 'label' } @$l; - - my $i; - if (listlength(@$l) != 1 || $common->{ok} ne _("Ok") || $common->{cancel} ne _("Cancel")) { - print "[1] ", $common->{ok} || _("Ok"); - $common->{cancel} and print " [2] $common->{cancel}"; - @$l and print " [9] ", _("Re-submit"); - print "\n"; - do { - defined $i and print _("Bad choice, try again\n"); - print _("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; - } - my ($callback_error) = $common->{callbacks}{$i == 2 ? 'canceled' : 'complete'}->(); - $callback_error and goto ask_fromW_begin; - return !($i == 2); -} - -sub wait_messageW { - my ($o, $title, $message) = @_; - print join "\n", @$message; -} -sub wait_message_nextW { - my $m = join "\n", @{$_[1]}; - print "\r$m", ' ' x (60 - length $m); -} -sub wait_message_endW { print "\nDone\n" } - -1; - |