drakx - Mageia Installer and base platform for many utilities

diff options

author	Thierry Vignaud <tvignaud@mandriva.org>	2005-04-21 15:25:29 +0000
committer	Thierry Vignaud <tvignaud@mandriva.org>	2005-04-21 15:25:29 +0000
commit	b6e6dfe3bb5ca1480b60d1bd6710dbf2298d00ab (patch)
tree	552c5c64693a3b846fe63ff00fe767a355b60462 /perl-install/install_steps_newt.pm
parent	a2c392a9ab83bb9031fb11f99f0101f1f2d9f140 (diff)
download	drakx-b6e6dfe3bb5ca1480b60d1bd6710dbf2298d00ab.tar drakx-b6e6dfe3bb5ca1480b60d1bd6710dbf2298d00ab.tar.gz drakx-b6e6dfe3bb5ca1480b60d1bd6710dbf2298d00ab.tar.bz2 drakx-b6e6dfe3bb5ca1480b60d1bd6710dbf2298d00ab.tar.xz drakx-b6e6dfe3bb5ca1480b60d1bd6710dbf2298d00ab.zip

switch from MandrakeSoft to Mandriva

Diffstat (limited to 'perl-install/install_steps_newt.pm')

-rw-r--r--

perl-install/install_steps_newt.pm

1 files changed, 1 insertions, 1 deletions

package Xconfig::card; # $Id$ use diagnostics; use strict; use detect_devices; use modules; use common; use log; my %VideoRams = ( 256 => N_("256 kB"), 512 => N_("512 kB"), 1024 => N_("1 MB"), 2048 => N_("2 MB"), 4096 => N_("4 MB"), 8192 => N_("8 MB"), 16384 => N_("16 MB"), 32768 => N_("32 MB"), 65536 => N_("64 MB or more"), ); my @xfree4_Drivers = ((arch() =~ /^sparc/ ? qw(sunbw2 suncg14 suncg3 suncg6 sunffb sunleo suntcx) : qw(apm ark chips cirrus cyrix glide i128 i740 i810 imstt mga neomagic newport nv rendition r128 radeon vesa s3 s3virge savage siliconmotion sis tdfx tga trident tseng vmware)), qw(ati glint vga fbdev)); sub from_raw_X { my ($raw_X) = @_; my $device = $raw_X->get_device or die "no card configured"; my $card = { use_DRI_GLX => eval { any { /dri/ } $raw_X->get_modules }, %$device, }; add_to_card__using_Cards($card, $card->{BoardName}); $card; } sub to_raw_X { my ($card, $raw_X) = @_; #- Specific ATI fglrx driver default options if ($card->{Driver} eq 'fglrx') { # $default_ATI_fglrx_config need to be move in proprietary ? $card->{raw_LINES} ||= default_ATI_fglrx_config(); } $raw_X->set_devices($card, @{$card->{cards} || []}); $raw_X->get_ServerLayout->{Xinerama} = { commented => !$card->{Xinerama}, Option => 1 } if defined $card->{Xinerama}; $raw_X->set_load_module('glx', !$card->{DRI_GLX_SPECIAL} && $card->{Driver2} ne 'fglrx'); #- glx for everyone, except proprietary nvidia $raw_X->set_load_module('dri', $card->{use_DRI_GLX} && !$card->{DRI_GLX_SPECIAL}); # This loads the NVIDIA GLX extension module. # IT IS IMPORTANT TO KEEP NAME AS FULL PATH TO libglx.so ELSE # IT WILL LOAD XFree86 glx module and the server will crash. $raw_X->set_load_module('/usr/X11R6/lib/modules/extensions/libglx.so', $card->{DRI_GLX_SPECIAL}); if ($card->{Driver2} ne 'nvidia') { $raw_X->set_load_module('/usr/X11R6/lib/modules/extensions/libglx.a', 1); } $raw_X->remove_Section('DRI'); $raw_X->add_Section('DRI', { Mode => { val => '0666' } }) if $card->{use_DRI_GLX}; $raw_X->remove_load_module('v4l') if $card->{use_DRI_GLX} && $card->{Driver} eq 'r128'; } sub default_ATI_fglrx_config() { our $default_ATI_fglrx_config } sub probe() { #-for Pixel tests #- my @c = { driver => 'Card:Matrox Millennium G400 DualHead', description => 'Matrox|Millennium G400 Dual HeadCard' }; my @c = detect_devices::matching_driver('(Card|Server|Driver):'); my @cards = map { my @l = $_->{description} =~ /(.*?)\|(.*)/; my $card = { description => $_->{description}, VendorName => $l[0], BoardName => $l[1], BusID => "PCI:$_->{pci_bus}:$_->{pci_device}:$_->{pci_function}", }; if ($_->{driver} =~ /Card:(.*)/) { $card->{BoardName} = $1; add_to_card__using_Cards($card, $1) } elsif ($_->{driver} =~ /Driver:(.*)/) { $card->{Driver} = $1 } else { internal_error() } $_->{VideoRam} = 4096 if $_->{Driver} eq 'i810'; $_->{Options}{UseFBDev} = undef if arch() =~ /ppc/ && $_->{Driver} eq 'r128'; $card; } @c; if (@cards >= 2 && $cards[0]{card_name} eq $cards[1]{card_name} && $cards[0]{card_name} eq 'Intel 830') { shift @cards; } #- take a default on sparc if nothing has been found. if (arch() =~ /^sparc/ && !@cards) { log::l("Using probe with /proc/fb as nothing has been found!"); my $s = cat_("/proc/fb"); @cards = { server => $s =~ /Mach64/ ? "Mach64" : $s =~ /Permedia2/ ? "3DLabs" : "Sun24" }; } #- disabling MULTI_HEAD when not available foreach (@cards) { $_->{MULTI_HEAD} && $_->{card_name} =~ /G[24]00/ or next; if ($ENV{MATROX_HAL}) { $_->{need_MATROX_HAL} = 1; } else { delete $_->{MULTI_HEAD}; } } #- in case of only one cards, remove all BusID reference, this will avoid #- need of change of it if the card is moved. #- on many PPC machines, card is on-board, BusID is important, leave? if (@cards == 1 && !$cards[0]{MULTI_HEAD} && arch() !~ /ppc/) { delete $cards[0]{BusID}; } @cards; } sub card_config__not_listed { my ($in, $card, $options) = @_; my $vendors_regexp = join '|', map { quotemeta } ( '3Dlabs', 'AOpen', 'ASUS', 'ATI', 'Ark Logic', 'Avance Logic', 'Cardex', 'Chaintech', 'Chips & Technologies', 'Cirrus Logic', 'Compaq', 'Creative Labs', 'Dell', 'Diamond', 'Digital', 'ET', 'Elsa', 'Genoa', 'Guillemot', 'Hercules', 'Intel', 'Leadtek', 'Matrox', 'Miro', 'NVIDIA', 'NeoMagic', 'Number Nine', 'Oak', 'Orchid', 'RIVA', 'Rendition Verite', 'S3', 'Silicon Motion', 'STB', 'SiS', 'Sun', 'Toshiba', 'Trident', 'VideoLogic', ); my $cards = readCardsDB("$ENV{SHARE_PATH}/ldetect-lst/Cards+"); my @xf4 = grep { $options->{allowFB} || $_ ne 'fbdev' } @xfree4_Drivers; my @list = ( (map { 'Vendor|' . $_ } keys %$cards), (map { 'Xorg|' . $_ } @xf4), ); my $r = exists $cards->{$card->{BoardName}} ? "Vendor|$card->{BoardName}" : 'Xorg|vesa'; $in->ask_from_({ title => N("X server"), messages => N("Choose an X server"), interactive_help_id => 'configureX_card_list', }, [ { val => \$r, separator => '|', list => \@list, sort => 1, format => sub { $_[0] =~ /^Vendor\|($vendors_regexp)\s*-?(.*)/ ? "Vendor|$1|$2" : $_[0] =~ /^Vendor\|(.*)/ ? "Vendor|Other|$1" : $_[0] } } ]) or return; log::l("Xconfig::card: $r manually chosen"); $r eq "Vendor|$card->{BoardName}" and return 1; #- it is unchanged, don't modify $card my ($kind, $s) = $r =~ /(.*?)\|(.*)/; %$card = (); if ($kind eq 'Vendor') { add_to_card__using_Cards($card, $s); } else { $card->{Driver} = $s; } $card->{manually_chosen} = 1; 1; } sub multi_head_choose { my ($in, $auto, @cards) = @_; my @choices = multi_head_choices('', @cards); my $tc = $choices[0]; if ($auto) { @choices == 1 or return; } else { $tc = $in->ask_from_listf(N("Multi-head configuration"), N("Your system supports multiple head configuration. What do you want to do?"), sub { $_[0]{text} }, \@choices) or return; } $tc->{code} or die internal_error(); return $tc->{code}(); } sub configure_auto_install { my ($raw_X, $do_pkgs, $old_X, $options) = @_; { my $card = $old_X->{card} || {}; if ($card->{card_name}) { #- try to get info from given card_name add_to_card__using_Cards($card, $card->{card_name}); undef $card->{card_name} if !$card->{Driver}; #- bad card_name as we can't find the driver } return if $card->{Driver}; } my @cards = probe(); my ($choice) = multi_head_choices($old_X->{Xinerama}, @cards); my $card = $choice ? $choice->{code}() : do { log::l('no graphic card probed, try providing one using $o->{card}{Driver} or $o->{card}{card_name}. Defaulting...'); { Driver => ($options->{allowFB} ? 'fbdev' : 'vesa') }; }; my ($glx_choice) = xfree_and_glx_choices($card); log::l("Using $glx_choice->{text}"); $glx_choice->{code}(); set_glx_restrictions($card); install_server($card, $options, $do_pkgs); if ($card->{needVideoRam} && !$card->{VideoRam}) { $card->{VideoRam} = $options->{VideoRam_probed} || 4096; log::l("argh, I need to know VideoRam! Taking " . ($options->{probed_VideoRam} ? "the probed" : "a default") . " value: VideoRam = $card->{VideoRam}"); } to_raw_X($card, $raw_X); $card; } sub configure { my ($in, $raw_X, $do_pkgs, $auto, $options) = @_; my @cards = probe(); @cards or @cards = {}; if (!$cards[0]{Driver}) { if ($options->{allowFB}) { $cards[0]{Driver} = 'fbdev'; } elsif ($auto) { log::l("Xconfig::card: auto failed (unknown card and no allowFB)"); return 0; } } if (!$auto) { card_config__not_listed: card_config__not_listed($in, $cards[0], $options) or return; } my $card = multi_head_choose($in, $auto, @cards) or return;


context:
space:
mode: