From 33c8603284d03db56ffdf2b7136bb318beff8744 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 17 Mar 2005 17:43:35 +0000 Subject: use monitor-probe-using-X --- perl-install/Xconfig/main.pm | 2 +- perl-install/Xconfig/monitor.pm | 41 +++++++++++++++++++++++++++++------------ perl-install/Xconfig/xfree.pm | 6 +++++- 3 files changed, 35 insertions(+), 14 deletions(-) (limited to 'perl-install/Xconfig') diff --git a/perl-install/Xconfig/main.pm b/perl-install/Xconfig/main.pm index abcbe8be1..eb0d1d22b 100644 --- a/perl-install/Xconfig/main.pm +++ b/perl-install/Xconfig/main.pm @@ -64,7 +64,7 @@ sub configure_everything { my $X = {}; my $ok = 1; - my $probed_info = Xconfig::monitor::probe(); + my $probed_info = Xconfig::monitor::probe($raw_X->get_Driver); $options->{VideoRam_probed} = $probed_info->{VideoRam_probed}; $ok &&= $X->{card} = Xconfig::card::configure($in, $raw_X, $do_pkgs, $auto, $options); $ok &&= $X->{monitors} = Xconfig::monitor::configure($in, $raw_X, int($raw_X->get_devices), $probed_info, $auto); diff --git a/perl-install/Xconfig/monitor.pm b/perl-install/Xconfig/monitor.pm index 1338b08aa..0f09339fd 100644 --- a/perl-install/Xconfig/monitor.pm +++ b/perl-install/Xconfig/monitor.pm @@ -41,7 +41,7 @@ sub configure { } my $head_nb = 1; foreach my $monitor (@$monitors) { - choose($in, $monitor, @$monitors > 1 ? $head_nb++ : 0, $b_auto) or return; + choose($in, $monitor, @$monitors > 1 ? $head_nb++ : 0, $raw_X->get_Driver, $b_auto) or return; } $raw_X->set_monitors(@$monitors); $monitors; @@ -67,7 +67,7 @@ sub configure_auto_install { } $monitors, $old_X->{monitors} if $old_X->{monitors}; if (!is_valid($monitors->[0])) { - put_in_hash($monitors->[0], probe()); + put_in_hash($monitors->[0], probe($old_X->{card}{Driver})); } foreach my $monitor (@$monitors) { @@ -82,7 +82,7 @@ sub configure_auto_install { } sub choose { - my ($in, $monitor, $head_nb, $b_auto) = @_; + my ($in, $monitor, $head_nb, $card_Driver, $b_auto) = @_; my $ok = is_valid($monitor); if ($b_auto) { @@ -123,7 +123,7 @@ sub choose { local $::noauto = 0; #- hey, you asked for plug'n play, so i do probe! delete @$monitor{'VendorName', 'ModelName', 'EISA_ID'}; if ($head_nb <= 1) { - if (my $probed_info = probe()) { + if (my $probed_info = probe($card_Driver)) { put_in_hash($monitor, $probed_info); } else { $in->ask_warn('', N("Plug'n Play probing failed. Please select the correct monitor")); @@ -176,12 +176,9 @@ sub is_valid { $monitor->{HorizSync} && $monitor->{VertRefresh}; } -sub probe() { - my $monitor = probe_DDC(); - if (!configure_automatic($monitor || {})) { - $monitor = probe_DMI(); - } - is_valid($monitor) && $monitor; +sub probe { + my ($o_card_Driver) = @_; + probe_DDC() || probe_using_X($o_card_Driver) || probe_DMI(); } sub probe_DDC() { @@ -213,19 +210,39 @@ sub probe_DDC() { $monitor->{VendorName} = "Plug'n Play"; $monitor->{ModelName} = $monitor->{monitor_name}; } + configure_automatic($monitor) or return; $monitor; } +sub probe_using_X { + my ($card_Driver) = @_; + + detect_devices::isLaptop() or return; + + $card_Driver ||= do { + require Xconfig::card; + my @cards = Xconfig::card::probe(); + $cards[0]{Driver}; + } or return; + + my $resolution = run_program::rooted_get_stdout($::prefix, 'monitor-probe-using-X', $card_Driver) or return; + generic_flat_panel($resolution); +} + sub probe_DMI() { my ($res) = my @res = uniq(map { if_($_->{driver} =~ /^Resolution:(.*)/, $1) } detect_devices::probeall()) or return; if (@res > 1) { log::l("oops, more than one resolution from DMI and pci probe: ", join(' ', @res)); } - my ($X, $Y) = $res =~ /(\d+)x(\d+)/ or log::l("bad resolution $res"), return; + generic_flat_panel($res); +} +sub generic_flat_panel { + my ($resolution) = @_; + my ($X, $Y) = $resolution =~ /(\d+)x(\d+)/ or log::l("bad resolution $resolution"), return; { VendorName => 'Generic', - ModelName => "Flat Panel $res", + ModelName => "Flat Panel $resolution", HorizSync => '31.5-100', VertRefresh => '60', preferred_resolution => { X => $X, Y => $Y }, }; diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm index 3aee2d311..b621393aa 100644 --- a/perl-install/Xconfig/xfree.pm +++ b/perl-install/Xconfig/xfree.pm @@ -181,7 +181,11 @@ sub _new_device_sections { $raw_X->remove_Section('Device'); map { $raw_X->add_Section('Device', { Identifier => { val => "device$_" }, DPMS => { Option => 1 } }) } (1 .. $nb_new); } - +sub get_Driver { + my ($raw_X) = @_; + my $card = eval { $raw_X->get_device }; + $card && $card->{Driver}; +} ################################################################################ # wacoms ####################################################################### -- cgit v1.2.1