diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/Xconfig.pm | 224 | ||||
| -rw-r--r-- | perl-install/Xconfigurator.pm | 910 | ||||
| -rw-r--r-- | perl-install/Xconfigurator_consts.pm | 845 | ||||
| -rw-r--r-- | perl-install/install_steps.pm | 12 | ||||
| -rwxr-xr-x | perl-install/standalone/XFdrake | 63 |
5 files changed, 733 insertions, 1321 deletions
diff --git a/perl-install/Xconfig.pm b/perl-install/Xconfig.pm index fb83ec654..e235e5311 100644 --- a/perl-install/Xconfig.pm +++ b/perl-install/Xconfig.pm @@ -4,11 +4,12 @@ use diagnostics; use strict; use any; +use log; use common; use mouse; use devices; use keyboard; -use Xconfigurator; +use Xconfigurator_consts; sub keyboard_from_kmap { @@ -20,49 +21,72 @@ sub keyboard_from_kmap { } +sub info { + my ($X) = @_; + my $info; + my $xf_ver = $X->{card}{use_xf4} ? "4.2.0" : "3.3.6"; + my $title = ($X->{card}{DRI_GLX} || $X->{UTAH_GLX} ? + _("XFree %s with 3D hardware acceleration", $xf_ver) : _("XFree %s", $xf_ver)); + + $info .= _("Keyboard layout: %s\n", $X->{keyboard}{XkbLayout}); + $info .= _("Mouse type: %s\n", $X->{mouse}{XMOUSETYPE}); + $info .= _("Mouse device: %s\n", $X->{mouse}{device}) if $::expert; + $info .= _("Monitor: %s\n", $X->{monitor}{type}); + $info .= _("Monitor HorizSync: %s\n", $X->{monitor}{hsyncrange}) if $::expert; + $info .= _("Monitor VertRefresh: %s\n", $X->{monitor}{vsyncrange}) if $::expert; + $info .= _("Graphics card: %s\n", $X->{card}{type}); + $info .= _("Graphics card identification: %s\n", $X->{card}{identifier}) if $::expert; + $info .= _("Graphics memory: %s kB\n", $X->{card}{VideoRam}) if $X->{card}{VideoRam}; + if ($X->{default_depth} and my $depth = $X->{card}{depth}{$X->{default_depth}}) { + $info .= _("Color depth: %s\n", translate($Xconfigurator_consts::depths{$X->{default_depth}})); + $info .= _("Resolution: %s\n", join "x", @{$depth->[0]}) if $depth && !is_empty_array_ref($depth->[0]); + } + $info .= _("XFree86 server: %s\n", $X->{card}{server}) if $X->{card}{server}; + $info .= _("XFree86 driver: %s\n", $X->{card}{driver}) if $X->{card}{driver}; + "$title\n\n$info"; +} + sub getinfo { - my $o = shift || {}; - getinfoFromDDC($o); - getinfoFromSysconfig($o); + my $X = shift || {}; + getinfoFromDDC($X); + getinfoFromSysconfig($X); my ($mouse) = mouse::detect(); - add2hash($o->{mouse}, $mouse) unless $o->{mouse}{XMOUSETYPE}; - add2hash($o->{mouse}{auxmouse}, $mouse->{auxmouse}) unless $o->{mouse}{auxmouse}{XMOUSETYPE}; - $o->{mouse}{auxmouse}{XMOUSETYPE} or delete $o->{mouse}{auxmouse}; + add2hash($X->{mouse}, $mouse) if !$X->{mouse}{XMOUSETYPE}; + add2hash($X->{mouse}{auxmouse}, $mouse->{auxmouse}) if !$X->{mouse}{auxmouse}{XMOUSETYPE}; + $X->{mouse}{auxmouse}{XMOUSETYPE} or delete $X->{mouse}{auxmouse}; - $o->{mouse}{device} ||= "mouse" if -e "/dev/mouse"; - $o; + $X->{mouse}{device} ||= "mouse" if -e "/dev/mouse"; + $X; } sub getinfoFromXF86Config { - my $o = shift || {}; #- original $::o->{X} which must be changed only if sure! - my $prefix = shift || ""; + my ($X, $prefix) = @_; #- original $::o->{X} which must be changed only if sure! + $X ||= {}; + my (%keyboard, %mouse, %wacom, %card, %monitor); my (%c, $depth, $driver); - local $_; - local *G; open G, "$prefix/etc/X11/XF86Config-4"; - while (<G>) { + foreach (cat_("$prefix/etc/X11/XF86Config-4")) { if (my $i = /^Section "InputDevice"/ .. /^EndSection/) { %c = () if $i == 1; $c{driver} = $1 if /^\s*Driver\s+"(.*?)"/; $c{id} = $1 if /^\s*Identifier\s+"[^\d"]*(\d*)"/; - $c{xkb_model} ||= $1 if /^\s*Option\s+"XkbModel"\s+"(.*?)"/; - $c{xkb_keymap} ||= $1 if /^\s*Option\s+"XkbLayout"\s+"(.*?)"/; + $c{XkbModel} ||= $1 if /^\s*Option\s+"XkbModel"\s+"(.*?)"/; + $c{XkbLayout} ||= $1 if /^\s*Option\s+"XkbLayout"\s+"(.*?)"/; $c{XMOUSETYPE} ||= $1 if /^\s*Option\s+"Protocol"\s+"(.*?)"/; $c{device} ||= $1 if /^\s*Option\s+"Device"\s+"\/dev\/(.*?)"/; - $c{chordmiddle} ||= $1 if /^\s*Option\s+"ChordMiddle"\s+"\/dev\/(.*?)"/; $c{nbuttons} = 2 if /^\s*Option\s+"Emulate3Buttons"\s+/; $c{nbuttons} ||= 5 if /^\s*#\s*Option\s+"ZAxisMapping"\s.*5/; $c{nbuttons} = 7 if /^\s*#\s*Option\s+"ZAxisMapping"\s.*7/; if ($i =~ /E0/) { - @keyboard{qw(xkb_keymap)} = @c{qw(xkb_keymap)} + @keyboard{qw(XkbLayout)} = @c{qw(XkbLayout)} if $c{driver} =~ /keyboard/i; - @{$mouse{auxmouse}}{qw(XMOUSETYPE device chordmiddle nbuttons)} = @c{qw(XMOUSETYPE device chordmiddle nbuttons)} + @{$mouse{auxmouse}}{qw(XMOUSETYPE device nbuttons)} = @c{qw(XMOUSETYPE device nbuttons)} if $c{driver} =~ /mouse/i && $c{id} > 1; - @mouse{qw(XMOUSETYPE device chordmiddle nbuttons)} = @c{qw(XMOUSETYPE device chordmiddle nbuttons)} + @mouse{qw(XMOUSETYPE device nbuttons)} = @c{qw(XMOUSETYPE device nbuttons)} if $c{driver} =~ /mouse/i && $c{id} < 1; $wacom{$c{device}} = undef if $c{driver} =~ /wacom/i; @@ -71,9 +95,7 @@ sub getinfoFromXF86Config { $monitor{type} ||= $1 if /^\s*Identifier\s+"(.*?)"/; $monitor{hsyncrange} ||= $1 if /^\s*HorizSync\s+(.*)/; $monitor{vsyncrange} ||= $1 if /^\s*VertRefresh\s+(.*)/; - $monitor{vendor} ||= $1 if /^\s*VendorName\s+"(.*?)"/; - $monitor{model} ||= $1 if /^\s*ModelName\s+"(.*?)"/; - $monitor{modelines_}{"$1_$2"} = $_ if /^\s*Mode[lL]ine\s+(\S+)\s+(\S+)\s+/; + $monitor{ModeLines} .= $_ if /^\s*Mode[lL]ine\s+(\S+)\s+(\S+)\s+/; } elsif (my $s = /^Section "Screen"/ .. /^EndSection/) { $card{default_depth} ||= $1 if /^\s*DefaultColorDepth\s+(\d+)/; if (my $i = /^\s*Subsection\s+"Display"/ .. /^\s*EndSubsection/) { @@ -87,18 +109,13 @@ sub getinfoFromXF86Config { } } } - close G; - local *F; open F, "$prefix/etc/X11/XF86Config"; - while (<F>) { + foreach (cat_("$prefix/etc/X11/XF86Config")) { if (/^Section "Keyboard"/ .. /^EndSection/) { - $keyboard{xkb_model} ||= $1 if /^\s*XkbModel\s+"(.*?)"/; - $keyboard{xkb_keymap} ||= $1 if /^\s*XkbLayout\s+"(.*?)"/; + $keyboard{XkbModel} ||= $1 if /^\s*XkbModel\s+"(.*?)"/; + $keyboard{XkbLayout} ||= $1 if /^\s*XkbLayout\s+"(.*?)"/; } elsif (/^Section "Pointer"/ .. /^EndSection/) { $mouse{XMOUSETYPE} ||= $1 if /^\s*Protocol\s+"(.*?)"/; $mouse{device} ||= $1 if m|^\s*Device\s+"/dev/(.*?)"|; - $mouse{cleardtrrts} ||= 1 if m/^\s*ClearDTR\s+/; - $mouse{cleardtrrts} ||= 1 if m/^\s*ClearRTS\s+/; - $mouse{chordmiddle} ||= 1 if m/^\s*ChordMiddle\s+/; $mouse{nbuttons} = 2 if m/^\s*Emulate3Buttons\s+/; $mouse{nbuttons} ||= 5 if m/^\s*ZAxisMapping\s.*5/; $mouse{nbuttons} = 7 if m/^\s*ZAxisMapping\s.*7/; @@ -110,26 +127,22 @@ sub getinfoFromXF86Config { $monitor{type} ||= $1 if /^\s*Identifier\s+"(.*?)"/; $monitor{hsyncrange} ||= $1 if /^\s*HorizSync\s+(.*)/; $monitor{vsyncrange} ||= $1 if /^\s*VertRefresh\s+(.*)/; - $monitor{vendor} ||= $1 if /^\s*VendorName\s+"(.*?)"/; - $monitor{model} ||= $1 if /^\s*ModelName\s+"(.*?)"/; - $monitor{modelines_}{"$1_$2"} = $_ if /^\s*Mode[lL]ine\s+(\S+)\s+(\S+)\s+/; + $monitor{ModeLines_xf3} .= $_ if /^\s*Mode[lL]ine\s+(\S+)\s+(\S+)\s+/; } elsif (my $i = /^Section "Device"/ .. /^EndSection/) { %c = () if $i == 1; $c{type} ||= $1 if /^\s*Identifier\s+"(.*?)"/; - $c{memory} ||= $1 if /VideoRam\s+(\d+)/; + $c{VideoRam} ||= $1 if /VideoRam\s+(\d+)/; $c{flags}{needVideoRam} ||= 1 if /^\s*VideoRam\s+/; - $c{vendor} ||= $1 if /^\s*VendorName\s+"(.*?)"/; - $c{board} ||= $1 if /^\s*BoardName\s+"(.*?)"/; $c{driver} ||= $1 if /^\s*Driver\s+"(.*?)"/; - $c{options_xf3}{$1} ||= 1 if /^\s*Option\s+"(.*?)"/; $c{options_xf3}{$1} ||= 0 if /^\s*#\s*Option\s+"(.*?)"/; + $c{options_xf3}{$1} ||= 1 if /^\s*Option\s+"(.*?)"/; add2hash(\%card, \%c) if ($i =~ /E0/ && $c{type} && $c{type} ne "Generic VGA"); } elsif (my $s = /^Section "Screen"/ .. /^EndSection/) { undef $driver if $s == 1; $driver = $1 if /^\s*Driver\s+"(.*?)"/; - if ($driver eq $Xconfigurator::serversdriver{$card{server}}) { + if ($driver eq $Xconfigurator_consts::serversdriver{$card{server}}) { $card{default_depth} ||= $1 if /^\s*DefaultColorDepth\s+(\d+)/; if (my $i = /^\s*Subsection\s+"Display"/ .. /^\s*EndSubsection/) { undef $depth if $i == 1; @@ -143,19 +156,12 @@ sub getinfoFromXF86Config { } } } - close F; - - #- clean up modeline by those automatically given by $modelines_text. - foreach (split /\n/, $Xconfigurator::modelines_text) { - delete $monitor{modelines_}{"$1_$2"} if /^\s*Mode[lL]ine\s+(\S+)\s+(\S+)\s+(.*)/; - } - $monitor{modelines} .= $_ foreach values %{$monitor{modelines_}}; delete $monitor{modelines_}; #- get the default resolution according the the current file. #- suggestion to take into account, but that have to be checked. - $o->{card}{suggest_depth} = $card{default_depth}; + $X->{card}{suggest_depth} = $card{default_depth}; if (my @depth = keys %{$card{depth}}) { - $o->{card}{suggest_wres} = ($card{depth}{$o->{card}{suggest_depth} || $depth[0]}[0][0]); + $X->{card}{suggest_x_res} = ($card{depth}{$X->{card}{suggest_depth} || $depth[0]}[0][0]); } #- final clean-up. @@ -163,44 +169,46 @@ sub getinfoFromXF86Config { $mouse{auxmouse}{nbuttons} ||= 3; mouse::update_type_name(\%mouse); #- allow getting fullname (type|name). mouse::update_type_name($mouse{auxmouse}); - delete $mouse{auxmouse} unless $mouse{auxmouse}{XMOUSETYPE}; #- only take care of a true mouse. + delete $mouse{auxmouse} if !$mouse{auxmouse}{XMOUSETYPE}; #- only take care of a true mouse. - #- try to merge with $o, the previous has been obtained by ddcxinfos. - put_in_hash($o->{keyboard} ||= {}, \%keyboard); - add2hash($o->{mouse} ||= {}, \%mouse); - @{$o->{wacom} || []} > 0 or $o->{wacom} = [ keys %wacom ]; - add2hash($o->{monitor} ||= {}, \%monitor); + #- try to merge with $X, the previous has been obtained by ddcxinfos. + put_in_hash($X->{keyboard} ||= {}, \%keyboard); + add2hash($X->{mouse} ||= {}, \%mouse); + @{$X->{wacom} || []} > 0 or $X->{wacom} = [ keys %wacom ]; + add2hash($X->{monitor} ||= {}, \%monitor); - $o; + $X; } sub getinfoFromSysconfig { - my $o = shift || {}; + my $X = shift || {}; my $prefix = shift || ""; - add2hash($o->{mouse} ||= {}, { getVarsFromSh("$prefix/etc/sysconfig/mouse") }); + add2hash($X->{mouse} ||= {}, { getVarsFromSh("$prefix/etc/sysconfig/mouse") }); if (my %keyboard = getVarsFromSh "$prefix/etc/sysconfig/keyboard") { - $o->{keyboard}{xkb_keymap} ||= keyboard_from_kmap($keyboard{KEYTABLE}) if $keyboard{KEYTABLE}; + $X->{keyboard}{XkbLayout} ||= keyboard_from_kmap($keyboard{KEYTABLE}) if $keyboard{KEYTABLE}; } - $o; + $X; } sub getinfoFromDDC { - my $o = shift || {}; - my $O = $o->{monitor} ||= {}; - #- return $o if $O->{hsyncrange} && $O->{vsyncrange} && $O->{modelines}; + my $X = shift || {}; + my $O = $X->{monitor} ||= {}; + #- return $X if $O->{hsyncrange} && $O->{vsyncrange} && $O->{ModeLines}; my ($m, @l) = any::ddcxinfos(); - $? == 0 or return $o; + $? == 0 or return $X; - $o->{card}{memory} ||= to_int($m); + $X->{card}{VideoRam} ||= to_int($m); local $_; while (($_ = shift @l) ne "\n") { my ($depth, $x, $y) = split; $depth = int(log($depth) / log(2)); if ($depth >= 8 && $x >= 640) { - push @{$o->{card}{depth}{$depth}}, [ $x, $y ] unless scalar grep { $_->[0] == $x && $_->[1] == $y } @{$o->{card}{depth}{$depth}}; - push @{$o->{card}{depth}{32}}, [ $x, $y ] if $depth == 24 && ! scalar grep { $_->[0] == $x && $_->[1] == $y } @{$o->{card}{depth}{32}}; + push @{$X->{card}{depth}{$depth}}, [ $x, $y ] + if ! grep { $_->[0] == $x && $_->[1] == $y } @{$X->{card}{depth}{$depth}}; + push @{$X->{card}{depth}{32}}, [ $x, $y ] + if $depth == 24 && ! grep { $_->[0] == $x && $_->[1] == $y } @{$X->{card}{depth}{32}}; } } my ($h, $v, $size, @m) = @l; @@ -209,8 +217,88 @@ sub getinfoFromDDC { $O->{vsyncrange} ||= first($v =~ /^(\S*)/); $O->{size} ||= to_float($size); $O->{EISA_ID} = lc($1) if $size =~ /EISA ID=(\S*)/; - $O->{modelines} ||= join '', @m; - $o; + $O->{ModeLines_xf3} ||= join '', @m; + $X; +} + + +sub XF86check_link { + my ($prefix, $ext) = @_; + + my $f = "$prefix/etc/X11/XF86Config$ext"; + touch($f); + + my $l = "$prefix/usr/X11R6/lib/X11/XF86Config$ext"; + + if (-e $l && (stat($f))[1] != (stat($l))[1]) { #- compare the inode, must be the sames + -e $l and unlink($l) || die "can't remove bad $l"; + symlinkf "../../../../etc/X11/XF86Config$ext", $l; + } +} + +sub add2card { + my ($card, $other_card) = @_; + + push @{$card->{lines}}, @{$other_card->{lines} || []}; + add2hash($card->{flags}, $other_card->{flags}); + add2hash($card, $other_card); +} + +sub readCardsDB { + my ($file) = @_; + my ($card, %cards); + + my $F = common::openFileMaybeCompressed($file); + + my ($lineno, $cmd, $val) = 0; + my $fs = { + NAME => sub { + $cards{$card->{type}} = $card if $card; + $card = { type => $val }; + }, + SEE => sub { + my $c = $cards{$val} or die "Error in database, invalid reference $val at line $lineno"; + add2card($card, $c); + }, + CHIPSET => sub { + $card->{Chipset} = $val; + $card->{flags}{needVideoRam} = 1 if member($val, qw(mgag10 mgag200 RIVA128 SiS6326)); + }, + LINE => sub { + push @{$card->{lines}}, $val; + }, + SERVER => sub { $card->{server} = $val }, + DRIVER => sub { $card->{driver} = $val }, + DRIVER2 => sub { $card->{driver2} = $val }, + NEEDVIDEORAM => sub { $card->{flags}{needVideoRam} = 1 }, + DRI_GLX => sub { $card->{DRI_GLX} = 1 }, + UTAH_GLX => sub { $card->{UTAH_GLX} = 1 }, + DRI_GLX_EXPERIMENTAL => sub { $card->{DRI_GLX_EXPERIMENTAL} = 1 }, + UTAH_GLX_EXPERIMENTAL => sub { $card->{UTAH_GLX_EXPERIMENTAL} = 1 }, + UNSUPPORTED => sub { delete $card->{driver} }, + + #- Obsolete stuff, no existing card still need this + RAMDAC => sub { $card->{Ramdac} = $val }, + DACSPEED => sub { $card->{Dacspeed} = $val }, + CLOCKCHIP => sub { $card->{Clockchip} = $val }, + + COMMENT => sub {}, + }; + + local $_; + while (<$F>) { $lineno++; + s/\s+$//; + /^#/ and next; + /^$/ and next; + /^END/ and do { $cards{$card->{type}} = $card if $card; last }; + + ($cmd, $val) = /(\S+)\s*(.*)/ or next; #log::l("bad line $lineno ($_)"), next; + + my $f = $fs->{$cmd}; + + $f ? $f->() : log::l("unknown line $lineno ($_)"); + } + \%cards; } 1; diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index efc6bfdec..d381ea2f6 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -2,19 +2,20 @@ package Xconfigurator; # $Id$ use diagnostics; use strict; -use vars qw($in $do_pkgs @window_managers @depths @monitorSize2resolution @hsyncranges %min_hsync4wres @vsyncranges %depths @resolutions %serversdriver @svgaservers @accelservers @allbutfbservers @allservers @allbutfbdrivers @alldrivers %vgamodes %videomemory @ramdac_name @ramdac_id @clockchip_name @clockchip_id %keymap_translate %standard_monitors $XF86firstchunk_text $keyboardsection_start $keyboardsection_start_v4 $keyboardsection_part2 $keyboardsection_part3 $keyboardsection_part3_v4 $keyboardsection_end $pointersection_text $monitorsection_text1 $monitorsection_text2 $monitorsection_text3 $monitorsection_text4 $modelines_text_Trident_TG_96xx $modelines_text_ext $modelines_text $devicesection_text $devicesection_text_v4 $screensection_text1 %lines @options %xkb_options $good_default_monitor $low_default_monitor $layoutsection_v4 $modelines_text_apple); +use vars qw($in $do_pkgs); use common; use log; use detect_devices; use run_program; use Xconfigurator_consts; +use Xconfig; use any; use modules; my $tmpconfig = "/tmp/Xconfig"; -my ($prefix, %monitors, %standard_monitors_); +my ($prefix); sub xtest { @@ -24,58 +25,6 @@ sub xtest { c::Xtest($display); } -sub getVGAMode($) { $_[0]->{card}{vga_mode} || $vgamodes{"640x480x16"}; } - -sub readCardsDB { - my ($file) = @_; - my ($card, %cards); - - my $F = common::openFileMaybeCompressed($file); - - my ($lineno, $cmd, $val) = 0; - my $fs = { - LINE => sub { push @{$card->{lines}}, $val unless $val eq "VideoRam" }, - NAME => sub { - $cards{$card->{type}} = $card if $card; - $card = { type => $val }; - }, - SEE => sub { - my $c = $cards{$val} or die "Error in database, invalid reference $val at line $lineno"; - - push @{$card->{lines}}, @{$c->{lines} || []}; - add2hash($card->{flags}, $c->{flags}); - add2hash($card, $c); - }, - CHIPSET => sub { - $card->{chipset} = $val; - $card->{flags}{needChipset} = 1 if $val eq 'GeForce DDR'; - $card->{flags}{needVideoRam} = 1 if member($val, qw(mgag10 mgag200 RIVA128 SiS6326)); - }, - SERVER => sub { $card->{server} = $val; }, - DRIVER => sub { $card->{driver} = $val; }, - RAMDAC => sub { $card->{ramdac} = $val; }, - DACSPEED => sub { $card->{dacspeed} = $val; }, - CLOCKCHIP => sub { $card->{clockchip} = $val; $card->{flags}{noclockprobe} = 1; }, - NOCLOCKPROBE => sub { $card->{flags}{noclockprobe} = 1 }, - UNSUPPORTED => sub { $card->{flags}{unsupported} = 1 }, - COMMENT => sub {}, - }; - - local $_; - while (<$F>) { $lineno++; - s/\s+$//; - /^#/ and next; - /^$/ and next; - /^END/ and do { $cards{$card->{type}} = $card if $card; last }; - - ($cmd, $val) = /(\S+)\s*(.*)/ or next; #log::l("bad line $lineno ($_)"), next; - - my $f = $fs->{$cmd}; - - $f ? $f->() : log::l("unknown line $lineno ($_)"); - } - \%cards; -} sub readCardsNames { my $file = "$ENV{SHARE_PATH}/ldetect-lst/CardsNames"; map { (split '=>')[0] } grep { !/^#/ } catMaybeCompressed($file); @@ -104,17 +53,15 @@ sub realName2CardName { } sub updateCardAccordingName { my ($card, $name) = @_; - my $cards = readCardsDB("$ENV{SHARE_PATH}/ldetect-lst/Cards+"); - - add2hash($card->{flags}, $cards->{$name}{flags}); - add2hash($card, $cards->{$name}); + my $cards = Xconfig::readCardsDB("$ENV{SHARE_PATH}/ldetect-lst/Cards+"); + Xconfig::add2card($card, $cards->{$name}); $card; } sub readMonitorsDB { my ($file) = @_; - %monitors and return; + my (%monitors, %standard_monitors); my $F = common::openFileMaybeCompressed($file); local $_; @@ -134,66 +81,58 @@ sub readMonitorsDB { } $monitors{"$l{vendor}|$l{type}"} = \%l; } - while (my ($k, $v) = each %standard_monitors) { - $monitors{'Generic|' . translate($k)} = $standard_monitors_{$k} = + while (my ($k, $v) = each %Xconfigurator_consts::standard_monitors) { + $monitors{'Generic|' . translate($k)} = $standard_monitors{$k} = { hsyncrange => $v->[1], vsyncrange => $v->[2] }; } + \%monitors, \%standard_monitors; } sub keepOnlyLegalModes { my ($card, $monitor) = @_; - my $mem = 1024 * ($card->{memory} || ($card->{server} eq 'FBDev' ? 2048 : 32768)); #- limit to 2048x1536x64 + my $mem = 1024 * ($card->{VideoRam} || ($card->{server} eq 'FBDev' ? 2048 : 32768)); #- limit to 2048x1536x64 my $hsync = max(split(/[,-]/, $monitor->{hsyncrange})); while (my ($depth, $res) = each %{$card->{depth}}) { @$res = grep { $mem >= product(@$_, $depth / 8) && - $hsync >= ($min_hsync4wres{$_->[0]} || 0) && - ($card->{server} ne 'FBDev' || $vgamodes{"$_->[0]x$_->[1]x$depth"}) + $hsync >= ($Xconfigurator_consts::min_hsync4x_res{$_->[0]} || 0) && + ($card->{server} ne 'FBDev' || (Xconfigurator_consts::bios_vga_modes($_->[0], $depth))[2] == $_->[1]) } @$res; delete $card->{depth}{$depth} if @$res == 0; } } sub cardConfigurationAuto() { - my @cards; - if (my @c = grep { $_->{driver} =~ /(Card|Server):/ } detect_devices::probeall()) { - @c >= 2 && $c[0]{description} eq $c[1]{description} && $c[0]{description} =~ /82830 CGC/ and shift @c; - foreach my $i (0..$#c) { - local $_ = $c[$i]->{driver}; - my $card = { identifier => ($c[$i]{description} . (@c > 1 && " $i")) }; - $card->{type} = $1 if /Card:(.*)/; - $card->{server} = $1 if /Server:(.*)/; - $card->{driver} = $1 if /Driver:(.*)/; - $card->{flags}{needVideoRam} = /86c368|S3 Inc|Tseng.*ET6\d00/; - $card->{busid} = "PCI:$c[$i]{pci_bus}:$c[$i]{pci_device}:$c[$i]{pci_function}"; - push @{$card->{lines}}, @{$lines{$card->{identifier}} || []}; - push @cards, $card; - } + my @c = grep { $_->{driver} =~ /(Card|Server|Driver):/ } detect_devices::probeall(); + + if (@c >= 2 && $c[0]{driver} eq $c[1]{driver} && $c[0]{driver} eq 'Card:Intel 830') { + shift @c; } + my @cards = map_index { + my $card = { + identifier => $_->{description} . (@c > 1 && " $::i"), + busid => "PCI:$_->{pci_bus}:$_->{pci_device}:$_->{pci_function}", + }; + if ($_->{driver} =~ /Card:(.*)/) { $card->{type} = $1 } + elsif ($_->{driver} =~ /Server:(.*)/) { $card->{server} = $1 } + elsif ($_->{driver} =~ /Driver:(.*)/) { $card->{driver} = $1 } + else { internal_error() } + + $card; + } @c; #- 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!"); local $_ = cat_("/proc/fb"); - if (/Mach64/) { push @cards, { server => "Mach64" } } - elsif (/Permedia2/) { push @cards, { server => "3DLabs" } } - else { push @cards, { server => "Sun24" } } + @cards = { server => /Mach64/ ? "Mach64" : /Permedia2/ ? "3DLabs" : "Sun24" }; } #- special case for dual head card using only one busid. - @cards = map { my $dup = $_->{identifier} =~ /MGA G[45]50/ ? 2 : 1; - if ($dup > 1) { - my @result; - my $orig = $_; - foreach (1..$dup) { - my $card = {}; - add2hash($card, $orig); - push @result, $card; - } - @result; - } else { - ($_); - } - } @cards; + @cards = map { + my $dup = member($_->{type}, 'Matrox Millennium G450', 'Matrox Millennium G550') ? 2 : 1; + map { {%$_} } ($_) x $dup; + } @cards; + #- make sure no type are already used, duplicate both screen #- and rename type (because used as id). if (@cards > 1) { @@ -207,11 +146,54 @@ sub cardConfigurationAuto() { #- 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? - @cards == 1 and delete $cards[0]{busid} if arch() !~ /ppc/; + if (@cards == 1 && arch() !~ /ppc/) { + delete $cards[0]{busid}; + } + @cards; } -sub cardConfiguration(;$$$) { +sub install_server { + my ($card, $cardOptions) = @_; + + my $prog = "/usr/X11R6/bin/" . + ($card->{use_xf4} ? 'XFree86' : + $card->{server} =~ /Sun(.*)/ ? "Xsun$1" : + $card->{server} eq 'Xpmac' ? 'Xpmac' : + "XF86_$card->{server}"); + + my @packages = (); + -x "$prefix$prog" or push @packages, $card->{use_xf4} ? 'XFree86-server' : "XFree86-$card->{server}"; + + #- additional packages to install according available card. + #- add XFree86-libs-DRI here if using DRI (future split of XFree86 TODO) + if ($card->{DRI_GLX}) { + push @packages, 'Glide_V5' if $card->{type} eq 'Voodoo5 (generic)'; + push @packages, 'Glide_V3-DRI' if member($card->{type}, 'Voodoo3 (generic)', 'Voodoo Banshee (generic)'); + push @packages, 'XFree86-glide-module' if $card->{type} =~ /Voodoo/; + } + if ($card->{UTAH_GLX}) { + push @packages, 'Mesa'; + } + #- 3D acceleration configuration for XFree 4 using NVIDIA driver (TNT, TN2 and GeForce cards only). + push @packages, @{$cardOptions->{allowNVIDIA_rpms}} if $card->{driver2} eq 'nvidia' && $cardOptions->{allowNVIDIA_rpms}; + + $do_pkgs->install(@packages) if @packages; + -x "$prefix$prog" or die "server $card->{server} is not available (should be in $prefix$prog)"; + + #- make sure everything is correct at this point, packages have really been installed + #- and driver and GLX extension is present. + if ($card->{driver2} eq 'nvidia' && + -e "$prefix/usr/X11R6/lib/modules/drivers/nvidia_drv.o" && + -e "$prefix/usr/X11R6/lib/modules/extensions/libglx.so") { + log::l("Using specific NVIDIA driver and GLX extensions"); + $card->{driver} = 'nvidia'; + } + + $prog; +} + +sub cardConfiguration { my ($card, $noauto, $cardOptions) = @_; $card ||= {}; @@ -228,7 +210,7 @@ sub cardConfiguration(;$$$) { $card->{Xinerama} = $_[0]; }; foreach (@cards) { - unless ($_->{driver} && !$_->{flags}{unsupported}) { + if (!$_->{driver}) { log::l("found card \"$_->{identifier}\" not supported by XF4, disabling mutli-head support"); $configure_multi_head = undef; } @@ -253,7 +235,7 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return; $tc->{code} and $tc->{code}(); } else { #- only one head found, configure it as before. - add2hash($card, $cards[0]) unless $noauto; + add2hash($card, $cards[0]) if !$noauto; delete $card->{cards}; delete $card->{Xinerama}; } $card->{server} = 'FBDev' unless !$cardOptions->{allowFB} || $card->{server} || $card->{driver} || $card->{type} || $noauto; @@ -265,12 +247,11 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return; or return unless $card->{type} || $card->{server} || $card->{driver}; updateCardAccordingName($card, $card->{type}) if $card->{type}; - add2hash($card, { vendor => "Unknown", board => "Unknown" }); #- check to use XFree 4 or XFree 3.3. - $card->{use_xf4} = $card->{driver} && !$card->{flags}{unsupported}; + $card->{use_xf4} = $card->{driver}; $card->{force_xf4} ||= arch() =~ /ppc|ia64/; #- try to figure out ugly hack for PPC (recommend XF4 always so...) - $card->{prefer_xf3} = !$card->{force_xf4} && ($card->{type} =~ /NeoMagic /); + $card->{prefer_xf3} = !$card->{force_xf4} && $card->{type} =~ /NeoMagic /; #- take into account current environment in standalone to keep #- the XFree86 version. if ($::isStandalone) { @@ -282,7 +263,7 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return; if ($card->{type} eq 'Other|Unlisted') { undef $card->{type}; - my @list = ('server', $cardOptions->{allowFB} ? @allservers : @allbutfbservers); + my @list = ('server', $cardOptions->{allowFB} ? @Xconfigurator_consts::allservers : @Xconfigurator_consts::allbutfbservers); my $default_server = if_(!$card->{use_xf4} || $card->{prefer_xf3}, $card->{server} || $cards[0]{server}) || 'server'; $card->{server} = $in->ask_from_list(_("X server"), _("Choose a X server"), \@list, $default_server) or return; @@ -292,7 +273,7 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return; $card->{server} = $card->{prefer_xf3} = undef; $card->{use_xf4} = $card->{force_xf4} = 1; $card->{driver} = $in->ask_from_list(_("X driver"), _("Choose a X driver"), - ($cardOptions->{allowFB} ? \@alldrivers : \@allbutfbdrivers), + ($cardOptions->{allowFB} ? \@Xconfigurator_consts::alldrivers : \@Xconfigurator_consts::allbutfbdrivers), $card->{driver} || $fake_card->{driver} || $cards[0]{driver}) or return; } else { $card->{driver} = $card->{use_xf4} = $card->{force_xf4} = undef; @@ -301,77 +282,31 @@ What do you want to do?"), sub { translate($_[0]{text}) }, \@choices) or return; } foreach ($card, @{$card->{cards} || []}) { - $_->{memory} = 4096, delete $_->{depth} if $_->{driver} eq 'i810'; - $_->{memory} = 16384, delete $_->{depth} if $_->{chipset} =~ /PERMEDIA/ && $_->{memory} <= 1024; + $_->{VideoRam} = 4096, delete $_->{depth} if $_->{driver} eq 'i810'; + $_->{VideoRam} = 16384, delete $_->{depth} if $_->{Chipset} =~ /PERMEDIA/ && $_->{VideoRam} <= 1024; } if (availableRamMB() > 800 || arch() =~ /ppc/) { #- No 3D XFree 3.3 for PPC #- and no Utah GLX if more than 800 Mb (server, or kernel-enterprise, Utha GLX does not work with latest). - $card->{Utah_glx} = $card->{Utah_glx_EXPERIMENTAL} = ''; - } else { - #- 3D acceleration configuration for XFree 3.3 using Utah-GLX. - $card->{Utah_glx} = ($card->{identifier} =~ /Matrox.* G[24]00/ || #- 8bpp does not work. - $card->{identifier} =~ /Rage X[CL]/ || - $card->{identifier} =~ /3D Rage (?:LT|Pro)/); - #- NOT WORKING $card->{type} =~ /Intel 810/); - #- 3D acceleration configuration for XFree 3.3 using Utah-GLX - #- but EXPERIMENTAL that may freeze the machine (FOR INFO NOT USED). - $card->{Utah_glx_EXPERIMENTAL} = ($card->{identifier} =~ /[nN]Vidia.*T[nN]T2?/ || #- all RIVA/GeForce comes from NVIDIA ... - $card->{identifier} =~ /[nN]Vidia.*NV[56]/ || #- and may freeze (gltron). - $card->{identifier} =~ /[nN]Vidia.*Vanta/ || - $card->{identifier} =~ /[nN]Vidia.*GeForce/ || - $card->{identifier} =~ /[nN]Vidia.*NV1[15]/ || - $card->{identifier} =~ /[nN]Vidia.*Quadro/ || - $card->{identifier} =~ /Riva.*128/ || # moved here as not working correctly enough - $card->{identifier} =~ /S3.*Savage.*3D/ || #- only this one is evoluting. - $card->{identifier} =~ /Rage Mobility [PL]/ || - $card->{identifier} =~ /SiS.*6C?326/ || #- prefer 16bit, other ? - $card->{identifier} =~ /SiS.*6C?236/ || - $card->{identifier} =~ /SiS.*630/); + $card->{UTAH_GLX} = $card->{UTAH_GLX_EXPERIMENTAL} = ''; } - #- 3D acceleration configuration for XFree 4 using DRI. - $card->{DRI_glx} = ($card->{identifier} =~ /Voodoo [35]|Voodoo Banshee/ || #- 16bit only - $card->{identifier} =~ /Matrox.* G[245][05]0/ || #- prefer 16bit with AGP only - $card->{identifier} =~ /8281[05].* CGC/ || #- 16bits (Intel 810 & 815). - $card->{identifier} =~ /Radeon / || #- 16bits preferable ? - $card->{identifier} =~ /Rage 128|Rage Mobility M/) && #- 16 and 32 bits, prefer 16bit as no DMA. - !($card->{identifier} =~ /Radeon 8500/); #- remove Radeon 8500 wich doesn't work with DRI (4.2). - #- 3D acceleration configuration for XFree 4 using DRI but EXPERIMENTAL that may freeze the machine (FOR INFO NOT USED). - $card->{DRI_glx_EXPERIMENTAL} = ($card->{identifier} =~ /SiS.*6C?326/ || #- prefer 16bit, other ? - $card->{identifier} =~ /SiS.*6C?236/ || - $card->{identifier} =~ /SiS.*630/); - #- 3D acceleration configuration for XFree 4 using NVIDIA driver (TNT, TN2 and GeForce cards only). - $card->{NVIDIA_glx} = $cardOptions->{allowNVIDIA_rpms} && ($card->{identifier} =~ /[nN]Vidia.*T[nN]T2/ || #- TNT2 cards - $card->{identifier} =~ /[nN]Vidia.*NV[56]/ || - $card->{identifier} =~ /[nN]Vidia.*Vanta/ || - $card->{identifier} =~ /[nN]Vidia.*GeForce/ || #- GeForce cards - $card->{identifier} =~ /[nN]Vidia.*NV1[15]/ || - $card->{identifier} =~ /[nN]Vidia.*Quadro/); - - #- hack for SiS 640 for laptop. - if ($card->{identifier} =~ /SiS.*640/ and detect_devices::isLaptop()) { - $card->{use_xf4} = $card->{force_xf4} = ''; - $card->{prefer_xf3} = 1; - $card->{server} = 'FBDev'; - } - #- XFree version available, better to parse available package and get version from it. my ($xf4_ver, $xf3_ver) = ("4.2.0", "3.3.6"); #- basic installation, use of XFree 4.2 or XFree 3.3. my $xf3_tc = { text => _("XFree %s", $xf3_ver), - code => sub { $card->{Utah_glx} = $card->{DRI_glx} = $card->{NVIDIA_glx} = ''; $card->{use_xf4} = ''; + code => sub { $card->{UTAH_GLX} = $card->{DRI_GLX} = ''; $card->{use_xf4} = ''; log::l("Using XFree $xf3_ver") } }; my $msg = _("Which configuration of XFree do you want to have?"); my @choices = $card->{use_xf4} ? (if_($card->{prefer_xf3}, $xf3_tc), if_(!$card->{prefer_xf3} || $::expert || $noauto, { text => _("XFree %s", $xf4_ver), - code => sub { $card->{Utah_glx} = $card->{DRI_glx} = $card->{NVIDIA_glx} = ''; + code => sub { $card->{UTAH_GLX} = $card->{DRI_GLX} = ''; log::l("Using XFree $xf4_ver") } }), if_(!$card->{prefer_xf3} && !$card->{force_xf4} && ($::expert || $noauto), $xf3_tc)) : $xf3_tc; #- try to figure if 3D acceleration is supported #- by XFree 3.3 but not XFree 4 then ask user to keep XFree 3.3 ? - if ($card->{Utah_glx} && !$card->{force_xf4}) { - $msg = ($card->{use_xf4} && !($card->{DRI_glx} || $card->{NVIDIA_glx}) && !$card->{prefer_xf3} ? + if ($card->{UTAH_GLX} && !$card->{force_xf4}) { + $msg = ($card->{use_xf4} && !$card->{DRI_GLX} && !$card->{prefer_xf3} ? _("Your card can have 3D hardware acceleration support but only with XFree %s. Your card is supported by XFree %s which may have a better support in 2D.", $xf3_ver, $xf4_ver) : _("Your card can have 3D hardware acceleration support with XFree %s.", $xf3_ver)) . "\n\n\n" . $msg; @@ -382,31 +317,31 @@ _("Your card can have 3D hardware acceleration support with XFree %s.", $xf3_ver } #- an expert user may want to try to use an EXPERIMENTAL 3D acceleration. - if ($::expert && $card->{use_xf4} && $card->{DRI_glx_EXPERIMENTAL} && !$card->{Xinerama}) { + if ($::expert && $card->{use_xf4} && $card->{DRI_GLX_EXPERIMENTAL} && !$card->{Xinerama}) { $msg = _("Your card can have 3D hardware acceleration support with XFree %s, NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf4_ver) . "\n\n\n" . $msg; push @choices, { text => _("XFree %s with EXPERIMENTAL 3D hardware acceleration", $xf4_ver), - code => sub { $card->{DRI_glx} = 'EXPERIMENTAL'; + code => sub { $card->{DRI_GLX} = 'EXPERIMENTAL'; log::l("Using XFree $xf4_ver with EXPERIMENTAL 3D hardware acceleration") } }; } #- an expert user may want to try to use an EXPERIMENTAL 3D acceleration, currenlty #- this is with Utah GLX and so, it can provide a way of testing. - if ($::expert && $card->{Utah_glx_EXPERIMENTAL} && !$card->{force_xf4}) { - $msg = ($card->{use_xf4} && !($card->{DRI_glx} || $card->{NVIDIA_glx}) && !$card->{prefer_xf3} ? + if ($::expert && $card->{UTAH_GLX_EXPERIMENTAL} && !$card->{force_xf4}) { + $msg = ($card->{use_xf4} && !$card->{DRI_GLX} && !$card->{prefer_xf3} ? _("Your card can have 3D hardware acceleration support but only with XFree %s, NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER. Your card is supported by XFree %s which may have a better support in 2D.", $xf3_ver, $xf4_ver) : _("Your card can have 3D hardware acceleration support with XFree %s, NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . "\n\n\n" . $msg; push @choices, { text => _("XFree %s with EXPERIMENTAL 3D hardware acceleration", $xf3_ver), - code => sub { $card->{use_xf4} = ''; $card->{Utah_glx} = 'EXPERIMENTAL'; + code => sub { $card->{use_xf4} = ''; $card->{UTAH_GLX} = 'EXPERIMENTAL'; log::l("Using XFree $xf3_ver with EXPERIMENTAL 3D hardware acceleration") } }; } #- ask the expert or any user on second pass user to enable or not hardware acceleration support. - if ($card->{use_xf4} && ($card->{DRI_glx} || $card->{NVIDIA_glx}) && !$card->{Xinerama}) { + if ($card->{use_xf4} && $card->{DRI_GLX} && !$card->{Xinerama}) { $msg = _("Your card can have 3D hardware acceleration support with XFree %s.", $xf4_ver) . "\n\n\n" . $msg; $::expert || $noauto or @choices = (); #- keep all user by default with XFree 4 including 3D acceleration. unshift @choices, { text => _("XFree %s with 3D hardware acceleration", $xf4_ver), @@ -414,8 +349,11 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . " } if (arch() =~ /ppc/) { #- not much choice for PPC - we only have XF4, and Xpmac from the installer - @choices = { text => _("XFree %s", $xf4_ver), code => sub { $card->{xpmac} = ''; log::l("Using XFree $xf4_ver") } }; - push @choices, { text => _("Xpmac (installation display driver)"), code => sub { $card->{xpmac} = 1 }} if ($ENV{DISPLAY}); + @choices = { text => _("XFree %s", $xf4_ver), code => sub { $card->{use_xf4} = 1; log::l("Using XFree $xf4_ver") } }; + push @choices, { text => _("Xpmac (installation display driver)"), code => sub { + $card->{server} = "Xpmac"; + $card->{use_xf4} = ''; + }} if $ENV{DISPLAY}; } #- examine choice of user, beware the list MUST NOT BE REORDERED AS the first item should be the #- proposed one by DrakX. @@ -423,105 +361,48 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . " #- in case of class discarding, this can help ... $tc or $tc = $choices[0]; $tc->{code} and $tc->{code}(); - - if ($card->{xpmac} eq "1") { - log::l("Use Xpmac - great..."); - #- define this stuff just so XF86Config isn't empty - we don't need it for Xpmac - $card->{type} = "Xpmac Frame Buffer Driver"; - $card->{vendor} = $card->{board} = "None"; - $card->{driver} = $card->{server} = "Xpmac"; - } - - $card->{prog} = "/usr/X11R6/bin/" . ($card->{use_xf4} ? 'XFree86' : $card->{server} =~ /Sun(.*)/ ? - "Xsun$1" : "XF86_$card->{server}"); - #- additional packages to install according available card. - #- add XFree86-libs-DRI here if using DRI (future split of XFree86 TODO) - my @l = (); - if ($card->{DRI_glx}) { - push @l, 'Glide_V5' if $card->{identifier} =~ /Voodoo 5/; - push @l, 'Glide_V3-DRI' if $card->{identifier} =~ /Voodoo (3|Banshee)/; - push @l, 'XFree86-glide-module' if $card->{identifier} =~ /Voodoo/; - } elsif ($card->{NVIDIA_glx}) { - push @l, @{$cardOptions->{allowNVIDIA_rpms}}; - } - if ($card->{Utah_glx}) { - push @l, 'Mesa' if !$card->{use_xf4}; - } - if ($card->{xpmac} eq "1") { - push @l, 'XFree86-Xpmac'; - $card->{use_xf4} = ''; - $card->{prog} = "/usr/X11R6/bin/Xpmac"; - $card->{server} = 'Xpmac'; - } - - unless ($::g_auto_install) { - if (-x "$prefix$card->{prog}") { - @l and $do_pkgs->install(@l); - } else { - $do_pkgs->install($card->{use_xf4} ? 'XFree86-server' : "XFree86-$card->{server}", @l); - } - -x "$prefix$card->{prog}" or die "server $card->{server} is not available (should be in $prefix$card->{prog})"; - } + $card->{prog} = install_server($card); #- check for Matrox G200 PCI cards, disable AGP in such cases, causes black screen else. - if ($card->{identifier} =~ /Matrox.* G[24]00/ && $card->{identifier} !~ /AGP/) { + if (member($card->{type}, 'Matrox Millennium 200', 'Matrox Millennium 200', 'Matrox Mystique') && $card->{identifier} !~ /AGP/) { log::l("disabling AGP mode for Matrox card, as it seems to be a PCI card"); log::l("this is only used for XFree 3.3.6, see /etc/X11/glx.conf"); substInFile { s/^\s*#*\s*mga_dma\s*=\s*\d+\s*$/mga_dma = 0\n/ } "$prefix/etc/X11/glx.conf"; } - #- make sure everything is correct at this point, packages have really been installed - #- and driver and GLX extension is present. - if ($card->{NVIDIA_glx} && !$card->{DRI_glx} && (-e "$prefix/usr/X11R6/lib/modules/drivers/nvidia_drv.o" && - -e "$prefix/usr/X11R6/lib/modules/extensions/libglx.so")) { - log::l("Using specific NVIDIA driver and GLX extensions"); - $card->{driver} = 'nvidia'; - foreach (@{$cardOptions->{allowNVIDIA_rpms}}) { #- hack as NVIDIA_kernel package does not do it actually (8.1 OEM). - if (/NVIDIA_kernel-([^\-]*)-([^\-]*)(?:-(.*))?/ && -e "$prefix/boot/System.map-$1-$2$3") { - run_program::rooted($prefix, "/sbin/depmod", "-a", "-F", "/boot/System.map-$1-$2$3", "$1-$2$3"); - } - } - } else { - $card->{NVIDIA_glx} = ''; - } delete $card->{depth}{32} if $card->{type} =~ /S3 Trio3D|SiS/; $card->{options}{sw_cursor} = 1 if $card->{type} =~ /S3 Trio3D|SiS 6326/; - unless ($card->{type}) { - $card->{flags}{noclockprobe} = member($card->{server}, qw(I128 S3 S3V Mach64)); - } $card->{options_xf3}{power_saver} = 1; $card->{options_xf4}{DPMS} = 'on'; + + $card->{VideoRam} ||= $in->ask_from_listf_('', _("Select the memory size of your graphics card"), + sub { $Xconfigurator_consts::VideoRams{$_[0]} }, + [ sort keys %Xconfigurator_consts::VideoRams ]) || return + if $card->{flags}{needVideoRam}; - $card->{flags}{needVideoRam} and - $card->{memory} ||= $videomemory{$in->ask_from_list_('', _("Select the memory size of your graphics card"), - [ sort { $videomemory{$a} <=> $videomemory{$b} } - keys %videomemory]) || return}; #- hack for ATI Mach64 cards where two options should be used if using Utah-GLX. - if ($card->{identifier} =~ /Rage X[CL]/ || - $card->{identifier} =~ /Rage Mobility [PL]/ || - $card->{identifier} =~ /3D Rage (?:LT|Pro)/) { - $card->{options_xf3}{no_font_cache} = $card->{Utah_glx}; - $card->{options_xf3}{no_pixmap_cache} = $card->{Utah_glx}; + if (member($card->{type}, 'ATI Mach64 Utah', 'ATI Rage Mobility')) { + $card->{options_xf3}{no_font_cache} = $card->{UTAH_GLX}; + $card->{options_xf3}{no_pixmap_cache} = $card->{UTAH_GLX}; } #- hack for SiS cards where an option should be used if using Utah-GLX. - if ($card->{identifier} =~ /SiS.*6C?326/ || - $card->{identifier} =~ /SiS.*6C?236/ || - $card->{identifier} =~ /SiS.*630/) { - $card->{options_xf3}{no_pixmap_cache} = $card->{Utah_glx}; + if (member($card->{type}, 'SiS 6326', 'SiS 630')) { + $card->{options_xf3}{no_pixmap_cache} = $card->{UTAH_GLX}; } #- 3D acceleration configuration for XFree 4 using DRI, this is enabled by default #- but for some there is a need to specify VideoRam (else it won't run). - if ($card->{DRI_glx}) { - $card->{identifier} =~ /Matrox.* G[245][05]0/ and $card->{flags}{needVideoRam} = 'fakeVideoRam'; - $card->{identifier} =~ /8281[05].* CGC/ and ($card->{flags}{needVideoRam}, $card->{memory}) = ('fakeVideoRam', 16384); + if ($card->{DRI_GLX}) { + $card->{flags}{needVideoRam} = 1 if $card->{identifier} =~ /Matrox.* G[245][05]0/; + ($card->{flags}{needVideoRam}, $card->{VideoRam}) = (1, 16384) + if member($card->{type}, 'Intel 810', 'Intel 815'); #- always enable (as a reminder for people using a better AGP mode to change it at their own risk). $card->{options_xf4}{AGPMode} = '1'; #- hack for ATI Rage 128 card using a bttv or peripheral with PCI bus mastering exchange #- AND using DRI at the same time. - if ($card->{identifier} =~ /Rage 128|Rage Mobility M/) { + if (member($card->{type}, 'ATI Rage 128', 'ATI Rage 128 Mobility')) { $card->{options_xf4}{UseCCEFor2D} = (detect_devices::matching_desc('Bt8[47][89]') || detect_devices::matching_desc('TV') || detect_devices::matching_desc('AG GMV1')) ? 'true' : 'false'; @@ -532,16 +413,16 @@ NOTE THIS IS EXPERIMENTAL SUPPORT AND MAY FREEZE YOUR COMPUTER.", $xf3_ver)) . " } sub optionsConfiguration($) { - my ($o) = @_; + my ($X) = @_; my @l; my %l; - foreach (@options) { - if ($o->{card}{server} eq $_->[1] && $o->{card}{identifier} =~ /$_->[2]/) { - my $options = 'options_' . ($o->{card}{server} eq 'XFree86' ? 'xf4' : 'xf3'); - $o->{card}{$options}{$_->[0]} ||= 0; - unless ($l{$_->[0]}) { - push @l, { label => $_->[0], val => \$o->{card}{$options}{$_->[0]}, type => 'bool' }; + foreach (@Xconfigurator_consts::options) { + if ($X->{card}{server} eq $_->[1] && $X->{card}{identifier} =~ /$_->[2]/) { + my $options = 'options_' . ($X->{card}{server} eq 'XFree86' ? 'xf4' : 'xf3'); + $X->{card}{$options}{$_->[0]} ||= 0; + if (!$l{$_->[0]}) { + push @l, { label => $_->[0], val => \$X->{card}{$options}{$_->[0]}, type => 'bool' }; $l{$_->[0]} = 1; } } @@ -555,24 +436,24 @@ sub monitorConfiguration(;$$) { my $monitor = shift || {}; my $useFB = shift || 0; - readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB"); + my ($monitors, $standard_monitors_) = readMonitorsDB("$ENV{SHARE_PATH}/ldetect-lst/MonitorsDB"); if ($monitor->{EISA_ID}) { log::l("EISA_ID: $monitor->{EISA_ID}"); - if (my ($mon) = grep { lc($_->{eisa}) eq $monitor->{EISA_ID} } values %monitors) { + if (my ($mon) = grep { lc($_->{eisa}) eq $monitor->{EISA_ID} } values %$monitors) { add2hash($monitor, $mon); log::l("EISA_ID corresponds to: $monitor->{type}"); } } if ($monitor->{hsyncrange} && $monitor->{vsyncrange}) { - add2hash($monitor, { type => "monitor1", vendor => "Unknown", model => "Unknown" }); + add2hash($monitor, { type => "monitor1" }); return $monitor; } - my $good_default = (arch() =~ /ppc/ ? 'Apple|' : 'Generic|') . translate($good_default_monitor); + my $good_default = (arch() =~ /ppc/ ? 'Apple|' : 'Generic|') . translate($Xconfigurator_consts::good_default_monitor); $monitor->{type} ||= - ($::auto_install ? $low_default_monitor : - $in->ask_from_treelist(_("Monitor"), _("Choose a monitor"), '|', ['Custom', keys %monitors], $good_default)); + ($::auto_install ? $Xconfigurator_consts::low_default_monitor : + $in->ask_from_treelist(_("Monitor"), _("Choose a monitor"), '|', ['Custom', keys %$monitors], $good_default)); if ($monitor->{type} eq 'Custom') { $in->ask_from('', _("The two critical parameters are the vertical refresh rate, which is the rate @@ -582,76 +463,78 @@ sync rate, which is the rate at which scanlines are displayed. It is VERY IMPORTANT that you do not specify a monitor type with a sync range that is beyond the capabilities of your monitor: you may damage your monitor. If in doubt, choose a conservative setting."), - [ { val => \$monitor->{hsyncrange}, list => \@hsyncranges, label => _("Horizontal refresh rate"), not_edit => 0 }, - { val => \$monitor->{vsyncrange}, list => \@vsyncranges, label => _("Vertical refresh rate"), not_edit => 0 } ]); + [ { val => \$monitor->{hsyncrange}, list => \@Xconfigurator_consts::hsyncranges, label => _("Horizontal refresh rate"), not_edit => 0 }, + { val => \$monitor->{vsyncrange}, list => \@Xconfigurator_consts::vsyncranges, label => _("Vertical refresh rate"), not_edit => 0 } ]); } else { - add2hash($monitor, $monitors{$monitor->{type}} || $standard_monitors_{$monitor->{type}}); + add2hash($monitor, $monitors->{$monitor->{type}} || $standard_monitors_->{$monitor->{type}}); } - add2hash($monitor, { type => "Unknown", vendor => "Unknown", model => "Unknown", manual => 1 }); + add2hash($monitor, { type => "monitor1", manual => 1 }); } -sub testConfig($) { - my ($o) = @_; - my ($resolutions, $clocklines); +sub finalize_config { + my ($X) = @_; - write_XF86Config($o, $tmpconfig); + $X->{monitor}{ModeLines_xf3} .= $Xconfigurator_consts::ModeLines_text_standard; + $X->{monitor}{ModeLines_xf3} .= $Xconfigurator_consts::ModeLines_text_ext; + $X->{monitor}{ModeLines} .= $Xconfigurator_consts::ModeLines_text_ext; - unlink "/tmp/.X9-lock"; - #- restart_xfs; + #- clean up duplicated ModeLines + foreach ($X->{monitor}{ModeLines}, $X->{monitor}{ModeLines_xf3}) { + s/Modeline/ModeLine/g; #- normalize + my @l = reverse split "\n"; + my %seen; + @l = grep { + !/^\s*Mode[lL]ine\s+(\S+)\s+(\S+)\s+(.*)/ || !$seen{"$1 $2"}++; + } @l; + $_ = join("\n", reverse @l); + } - my $f = $tmpconfig . ($o->{card}{use_xf4} && "-4"); - local *F; open F, "$prefix$o->{card}{prog} :9 -probeonly -pn -xf86config $f 2>&1 |"; - local $_; - while (<F>) { - $o->{card}{memory} ||= $2 if /(videoram|Video RAM):\s*(\d*)/; + $X->{keyboard}{XkbModel} ||= + arch() =~ /sparc/ ? 'sun' : + $X->{keyboard}{XkbLayout} eq 'jp' ? 'jp106' : + $X->{keyboard}{XkbLayout} eq 'br' ? 'abnt2' : 'pc105'; - # look for clocks - push @$clocklines, $1 if /clocks: (.*)/ && !/(pixel |num)clocks:/; +} - push @$resolutions, [ $1, $2 ] if /: Mode "(\d+)x(\d+)": mode clock/; - print; - } - close F or die "X probeonly failed"; +sub check_config { + my ($X) = @_; + + finalize_config($X); - ($resolutions, $clocklines); + $X->{monitor}{hsyncrange} && $X->{monitor}{vsyncrange} or die _("Monitor not configured") . "\n"; + $X->{card}{server} || $X->{card}{driver} or die _("Graphics card not configured yet") . "\n"; + $X->{card}{depth} or die _("Resolutions not chosen yet") . "\n"; } -sub testFinalConfig { - my ($o, $auto, $skiptest, $skip_badcard) = @_; +#- needed for bad cards not restoring cleanly framebuffer, according to which version of XFree are used. +sub check_bad_card { + my ($card) = @_; + my $bad_card = $card->{use_xf4} ? $card->{BAD_FB_RESTORE} : $card->{BAD_FB_RESTORE_XF3}; + $bad_card ||= $card->{driver} eq 'i810' || $card->{driver} eq 'fbdev'; + $bad_card ||= $card->{identifier} =~ /S3.*ViRGE/ if $::live; + $bad_card ||= $card->{driver} eq 'nvidia' if !$::isStandalone; #- avoid testing during install at any price. - $o->{monitor}{hsyncrange} && $o->{monitor}{vsyncrange} or - $in->ask_warn('', _("Monitor not configured")), return; + log::l("the graphics card does not like X in framebuffer") if $bad_card; - $o->{card}{server} || $o->{card}{driver} or - $in->ask_warn('', _("Graphics card not configured yet")), return; + !$bad_card; +} - $o->{card}{depth} or - $in->ask_warn('', _("Resolutions not chosen yet")), return; +sub testFinalConfig { + my ($X, $auto, $skiptest, $skip_badcard) = @_; my $f = "/etc/X11/XF86Config.test"; - write_XF86Config($o, $::testing ? $tmpconfig : "$prefix/$f"); - - $skiptest || $o->{card}{server} =~ 'FBDev|Sun' and return 1; #- avoid testing with these. + + eval { write_XF86Config($X, $::testing ? $tmpconfig : "$prefix/$f") }; + if (my $err = $@) { + $in->ask_warn('', $err); + return; + } - #- needed for bad cards not restoring cleanly framebuffer, according to which version of XFree are used. - my $bad_card = ($o->{card}{use_xf4} ? - $o->{card}{identifier} =~ /Matrox|Rage Mobility [PL]|SiS.*SG86C2.5|SiS.*559[78]|SiS.*300|SiS.*540|SiS.*6C?326|SiS.*6C?236|Tseng.*ET6\d00|Riva.*128/ : - $o->{card}{identifier} =~ /i740|Rage Mobility [PL]|3D Rage LT|Rage 128/); - $::live and $bad_card ||= $o->{card}{identifier} =~ /S3.*ViRGE/; - log::l("the graphics card does not like X in framebuffer") if $bad_card; + $skiptest || $X->{card}{server} =~ 'FBDev|Sun' and return 1; #- avoid testing with these. - my $verybad_card = $o->{card}{driver} eq 'i810' || $o->{card}{driver} eq 'fbdev'; - $verybad_card ||= $o->{card}{driver} eq 'nvidia' && !$::isStandalone; #- avoid testing during install at any price. - $bad_card || $verybad_card and return 1; #- deactivating bad_card test too. + check_bad_card($X->{card}) or return 1; - my $mesg = _("Do you want to test the configuration?"); - my $def = 1; - if ($bad_card && !$::isStandalone) { - $skip_badcard and return 1; - $mesg = $mesg . "\n" . _("Warning: testing this graphics card may freeze your computer"); - $def = 0; - } - $auto && $def or $in->ask_yesorno(_("Test of the configuration"), $mesg, $def) or return 1; + $in->ask_yesorno(_("Test of the configuration"), _("Do you want to test the configuration?"), 1) or return 1 if !$auto; unlink "$prefix/tmp/.X9-lock"; @@ -671,8 +554,8 @@ sub testFinalConfig { system("xauth add :9 . `mcookie`"); open STDERR, ">$f_err"; chroot $prefix if $prefix; - exec $o->{card}{prog}, - if_($o->{card}{prog} !~ /Xsun/, "-xf86config", ($::testing ? $tmpconfig : $f) . ($o->{card}{use_xf4} && "-4")), + exec $X->{card}{prog}, + if_($X->{card}{prog} !~ /Xsun/, "-xf86config", ($::testing ? $tmpconfig : $f) . ($X->{card}{use_xf4} && "-4")), ":9" or c::_exit(0); } @@ -680,12 +563,12 @@ sub testFinalConfig { my $b = before_leaving { unlink $f_err }; - unless (xtest(":9")) { + if (!xtest(":9")) { local $_; local *F; open F, $f_err; i: while (<F>) { - if ($o->{card}{use_xf4}) { - if (/^\(EE\)/ && $_ !~ /Disabling/ || /^Fatal\b/) { + if ($X->{card}{use_xf4}) { + if (/^\(EE\)/ && !/Disabling/ || /^Fatal\b/) { my @msg = !/error/ && $_ ; while (<F>) { /reporting a problem/ and last; @@ -759,7 +642,7 @@ sub allowedDepth($) { my ($card) = @_; my %allowed_depth; - if ($card->{Utah_glx} || $card->{DRI_glx}) { + if ($card->{UTAH_GLX} || $card->{DRI_GLX}) { $allowed_depth{16} = 1; #- this is the default. $card->{identifier} =~ /Voodoo 5/ and $allowed_depth{24} = undef; $card->{identifier} =~ /Matrox.* G[245][05]0/ and $allowed_depth{24} = undef; @@ -781,7 +664,7 @@ sub allowedDepth($) { } sub autoDefaultDepth($$) { - my ($card, $wres_wanted) = @_; + my ($card, $x_res_wanted) = @_; my ($best, $depth); #- check for forced depth according to current environment. @@ -797,9 +680,9 @@ sub autoDefaultDepth($$) { $depth = max($depth || 0, $d); #- try to have resolution_wanted - $best = max($best || 0, $d) if $r->[0][0] >= $wres_wanted; + $best = max($best || 0, $d) if $r->[0][0] >= $x_res_wanted; $best = $card->{suggest_depth}, last if ($card->{suggest_depth} && - $card->{suggest_wres} && $r->[0][0] >= $card->{suggest_wres}); + $card->{suggest_x_res} && $r->[0][0] >= $card->{suggest_x_res}); } $best || $depth or die "no valid modes"; } @@ -812,8 +695,8 @@ sub autoDefaultResolution { } my ($size) = @_; - $monitorSize2resolution[round($size || 14)] || #- assume a small monitor (size is in inch) - $monitorSize2resolution[-1]; #- no corresponding resolution for this size. It means a big monitor, take biggest we have + $Xconfigurator_consts::monitorSize2resolution[round($size || 14)] || #- assume a small monitor (size is in inch) + $Xconfigurator_consts::monitorSize2resolution[-1]; #- no corresponding resolution for this size. It means a big monitor, take biggest we have } sub chooseResolutionsGtk($$;$) { @@ -823,7 +706,7 @@ sub chooseResolutionsGtk($$;$) { my_gtk->import(qw(:helpers :wrappers)); my $W = my_gtk->new(_("Resolution")); - my %txt2depth = reverse %depths; + my %txt2depth = reverse %Xconfigurator_consts::depths; my ($r, $depth_combo, %w2depth, %w2h, %w2widget, $pix_monitor, $pix_colors, $w2_combo); $w2_combo = new Gtk::Combo; my $best_w; @@ -842,18 +725,18 @@ sub chooseResolutionsGtk($$;$) { $chosen_w = $best_w; $chosen_w ||= 640; #- safe guard ? - my $set_depth = sub { $depth_combo->entry->set_text(translate($depths{$chosen_depth})) }; + my $set_depth = sub { $depth_combo->entry->set_text(translate($Xconfigurator_consts::depths{$chosen_depth})) }; #- the set function is usefull to toggle the CheckButton with the callback being ignored my $ignore; my $no_human; # is the w2_combo->entry changed by a human? - my $set = sub { $ignore = 1; $_[0] and $_[0]->set_active(1); $ignore = 0; }; + my $set = sub { $ignore = 1; $_[0] and $_[0]->set_active(1); $ignore = 0 }; my %monitor; $monitor{$_} = [ gtkcreate_png("monitor-" . $_ . ".png") ] foreach (640, 800, 1024, 1280); $monitor{$_} = [ gtkcreate_png("monitor-" . 1024 . ".png") ] foreach (1152); #- add default icons for resolutions not taken into account (assume largest image available). - $monitor{$_} ||= [ gtkcreate_png("monitor-" . 1280 . ".png") ] foreach map { (split 'x', $_)[0] } @resolutions; + $monitor{$_} ||= [ gtkcreate_png("monitor-" . 1280 . ".png") ] foreach map { (split 'x', $_)[0] } @Xconfigurator_consts::resolutions; my $pixmap_mo = new Gtk::Pixmap( $monitor{$chosen_w}[0] , $monitor{$chosen_w}[1] ); @@ -868,7 +751,7 @@ sub chooseResolutionsGtk($$;$) { $chosen_w = $w; $no_human=1; $w2_combo->entry->set_text($w . "x" . $w2h{$w}); - unless (member($chosen_depth, @{$w2depth{$w}})) { + if (!member($chosen_depth, @{$w2depth{$w}})) { $chosen_depth = max(@{$w2depth{$w}}); &$set_depth(); } @@ -894,13 +777,13 @@ sub chooseResolutionsGtk($$;$) { ), 0, gtkadd($W->create_okcancel(_("Ok"), _("More")), $::isEmbedded ? - gtksignal_connect(new Gtk::Button(_("Expert Mode")), clicked => sub { system ("XFdrake --expert"); }) : + gtksignal_connect(new Gtk::Button(_("Expert Mode")), clicked => sub { system ("XFdrake --expert") }) : gtksignal_connect(new Gtk::Button(_("Show all")), clicked => sub { $W->{retval} = 1; $chosen_w = 0; Gtk->main_quit })), )); $depth_combo->disable_activate; $depth_combo->set_use_arrows_always(1); $depth_combo->entry->set_editable(0); - $depth_combo->set_popdown_strings(map { translate($depths{$_}) } grep { $allowed_depth{$_} } ikeys(%{$card->{depth}})); + $depth_combo->set_popdown_strings(map { translate($Xconfigurator_consts::depths{$_}) } grep { $Xconfigurator_consts::allowed_depth{$_} } ikeys(%{$card->{depth}})); $depth_combo->entry->signal_connect(changed => sub { $chosen_depth = $txt2depth{untranslate($depth_combo->entry->get_text, keys %txt2depth)}; my $w = $card->{depth}{$chosen_depth}[0][0]; @@ -949,24 +832,24 @@ sub chooseResolutions($$;$) { sub resolutionsConfiguration { - my ($o, $auto) = @_; - my $card = $o->{card}; + my ($X, $auto) = @_; + my $card = $X->{card}; - #- For the mono and vga16 server, no further configuration is required. - if (member($card->{server}, "Mono", "VGA16")) { + #- For the vga16 server, no further configuration is required. + if ($card->{server} eq "VGA16") { $card->{depth}{8} = [[ 640, 480 ]]; return; } elsif ($card->{server} =~ /Sun/) { $card->{depth}{2} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono)$/; $card->{depth}{8} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono|Sun)$/; $card->{depth}{24} = [[ 1152, 864 ]] if $card->{server} =~ /^(SunMono|Sun|Sun24)$/; - $card->{default_wres} = 1152; - $o->{default_depth} = max(keys %{$card->{depth}}); + $card->{default_x_res} = 1152; + $X->{default_depth} = max(keys %{$card->{depth}}); return 1; #- aka we cannot test, assumed as good (should be). } if (is_empty_hash_ref($card->{depth})) { - $card->{depth}{$_} = [ map { [ split "x" ] } @resolutions ] - foreach @depths; + $card->{depth}{$_} = [ map { [ split "x" ] } @Xconfigurator_consts::resolutions ] + foreach @Xconfigurator_consts::depths; } #- sort resolutions in each depth foreach (values %{$card->{depth}}) { @@ -976,26 +859,26 @@ sub resolutionsConfiguration { } #- remove unusable resolutions (based on the video memory size and the monitor hsync rate) - keepOnlyLegalModes($card, $o->{monitor}); + keepOnlyLegalModes($card, $X->{monitor}); - my $res = $o->{resolution_wanted} || $card->{suggest_wres} || autoDefaultResolution($o->{monitor}{size}); - my $wres = first(split 'x', $res); + my $res = $X->{resolution_wanted} || $card->{suggest_x_res} || autoDefaultResolution($X->{monitor}{size}); + my $x_res = first(split 'x', $res); #- take the first available resolution <= the wanted resolution - eval { $wres = max map { first(grep { $_->[0] <= $wres } @$_)->[0] } values %{$card->{depth}} }; - my $depth = eval { $o->{default_depth} || autoDefaultDepth($card, $wres) }; + eval { $x_res = max map { first(grep { $_->[0] <= $x_res } @$_)->[0] } values %{$card->{depth}} }; + my $depth = eval { $X->{default_depth} || autoDefaultDepth($card, $x_res) }; - $auto or ($depth, $wres) = chooseResolutions($card, $depth, $wres) or return; + $auto or ($depth, $x_res) = chooseResolutions($card, $depth, $x_res) or return; - #- if nothing has been found for wres, + #- if nothing has been found for x_res, #- try to find if memory used by mode found match the memory available #- card, if this is the case for a relatively low resolution ( < 1024 ), #- there could be a problem. - #- memory in KB is approximated by $wres*$dpeth/14 which is little less + #- memory in KB is approximated by $x_res*$dpeth/14 which is little less #- than memory really used, (correct factor is 13.65333 for w/h ratio of 1.33333). - if (!$wres || $auto && ref($in) !~ /class_discard/ && ($wres < 1024 && ($card->{memory} / ($wres * $depth / 14)) > 2)) { + if (!$x_res || $auto && ref($in) !~ /class_discard/ && ($x_res < 1024 && ($card->{VideoRam} / ($x_res * $depth / 14)) > 2)) { delete $card->{depth}; - return resolutionsConfiguration($o); + return resolutionsConfiguration($X); } #- needed in auto mode when all has been provided by the user @@ -1003,50 +886,53 @@ sub resolutionsConfiguration { #- remove all biggest resolution (keep the small ones for ctl-alt-+) #- otherwise there'll be a virtual screen :( - $_ = [ grep { $_->[0] <= $wres } @$_ ] foreach values %{$card->{depth}}; - $card->{default_wres} = $wres; - $card->{vga_mode} = $vgamodes{"${wres}xx$depth"} || $vgamodes{"${res}x$depth"}; #- for use with frame buffer. - $o->{default_depth} = $depth; + $_ = [ grep { $_->[0] <= $x_res } @$_ ] foreach values %{$card->{depth}}; + $card->{default_x_res} = $x_res; + $card->{bios_vga_mode} = (Xconfigurator_consts::bios_vga_modes($x_res, $depth))[0]; #- for use with frame buffer. + $X->{default_depth} = $depth; 1; } - #- Create the XF86Config file. sub write_XF86Config { - my ($o, $file) = @_; + my ($X, $file) = @_; my $O; + check_config($X); + $::g_auto_install and return; local (*F, *G); open F, ">$file" or die "can't write XF86Config in $file: $!"; open G, ">$file-4" or die "can't write XF86Config in $file-4: $!"; - print F $XF86firstchunk_text; - print G $XF86firstchunk_text; + print F $Xconfigurator_consts::XF86firstchunk_text; + print G $Xconfigurator_consts::XF86firstchunk_text; #- Write keyboard section. - $O = $o->{keyboard}; - print F $keyboardsection_start; - print G $keyboardsection_start_v4; - print F qq( XkbDisable\n) unless $O->{xkb_keymap}; - print G qq( Option "XkbDisable"\n) unless $O->{xkb_keymap}; - print F $keyboardsection_part3; - print G $keyboardsection_part3_v4; - - $O->{xkb_model} ||= - arch() =~ /sparc/ ? 'sun' : - $O->{xkb_keymap} eq 'jp' ? 'jp106' : - $O->{xkb_keymap} eq 'br' ? 'abnt2' : 'pc105'; - print F qq( XkbModel "$O->{xkb_model}"\n); - print G qq( Option "XkbModel" "$O->{xkb_model}"\n); - - print F qq( XkbLayout "$O->{xkb_keymap}"\n); - print G qq( Option "XkbLayout" "$O->{xkb_keymap}"\n); - print F join '', map { " $_\n" } @{$xkb_options{$O->{xkb_keymap}} || []}; - print G join '', map { /(\S+)(.*)/; qq( Option "$1" $2\n) } @{$xkb_options{$O->{xkb_keymap}} || []}; - print F $keyboardsection_end; - print G $keyboardsection_end; + $O = $X->{keyboard}; + + print F ' +Section "Keyboard" + Protocol "Standard" +'; + print G ' +Section "InputDevice" + Identifier "Keyboard1" + Driver "Keyboard" +'; + + print F qq( XkbDisable\n) if !$O->{XkbLayout}; + print G qq( Option "XkbDisable"\n) if !$O->{XkbLayout}; + + print F qq( XkbModel "$O->{XkbModel}"\n); + print G qq( Option "XkbModel" "$O->{XkbModel}"\n); + print F qq( XkbLayout "$O->{XkbLayout}"\n); + print G qq( Option "XkbLayout" "$O->{XkbLayout}"\n); + print F join '', map { " $_\n" } @{$Xconfigurator_consts::XkbOptions{$O->{XkbLayout}} || []}; + print G join '', map { /(\S+)(.*)/; qq( Option "$1" $2\n) } @{$Xconfigurator_consts::XkbOptions{$O->{XkbLayout}} || []}; + print F "\nEndSection\n\n"; + print G "\nEndSection\n\n"; #- Write pointer section. my $pointer = sub { @@ -1068,45 +954,32 @@ sub write_XF86Config { print G qq( Option "ZAxisMapping" "4 5"\n) if $O->{nbuttons} > 3; print G qq( Option "ZAxisMapping" "6 7"\n) if $O->{nbuttons} > 5; - print F "#" unless $O->{nbuttons} < 3; - print G "#" unless $O->{nbuttons} < 3; + print F "#" if $O->{nbuttons} >= 3; + print G "#" if $O->{nbuttons} >= 3; print F ($id > 1 && " ") . qq( Emulate3Buttons\n); print G qq( Option "Emulate3Buttons"\n); - print F "#" unless $O->{nbuttons} < 3; - print G "#" unless $O->{nbuttons} < 3; + print F "#" if $O->{nbuttons} >= 3; + print G "#" if $O->{nbuttons} >= 3; print F ($id > 1 && " ") . qq( Emulate3Timeout 50\n\n); print G qq( Option "Emulate3Timeout" "50"\n\n); - print F "# ChordMiddle is an option for some 3-button Logitech mice\n\n"; - print G "# ChordMiddle is an option for some 3-button Logitech mice\n\n"; - print F "#" unless $O->{chordmiddle}; - print G "#" unless $O->{chordmiddle}; - print F ($id > 1 && " ") . qq( ChordMiddle\n\n); - print G qq( Option "ChordMiddle"\n\n); - print F ($id > 1 && " ") . " ClearDTR\n" if $O->{cleardtrrts}; - print F ($id > 1 && " ") . " ClearRTS\n\n" if $O->{cleardtrrts}; $id > 1 and print F qq( EndSubSection\n); print F "EndSection\n\n\n"; print G "EndSection\n\n\n"; }; - print F $pointersection_text; - print G $pointersection_text; - $pointer->($o->{mouse}, 1); - $o->{mouse}{auxmouse} and $pointer->($o->{mouse}{auxmouse}, 2); + $pointer->($X->{mouse}, 1); + $pointer->($X->{mouse}{auxmouse}, 2) if $X->{mouse}{auxmouse}; #- write module section for version 3. - if (@{$o->{wacom}} || $o->{card}{Utah_glx}) { - print F qq(Section "Module" -); - print F qq( Load "xf86Wacom.so"\n) if @{$o->{wacom}}; - print F qq( Load "glx-3.so"\n) if $o->{card}{Utah_glx}; #- glx.so may clash with server version 4. - print F qq(EndSection - -); + if (@{$X->{wacom}} || $X->{card}{UTAH_GLX}) { + print F qq(Section "Module"\n); + print F qq( Load "xf86Wacom.so"\n) if @{$X->{wacom}}; + print F qq( Load "glx-3.so"\n) if $X->{card}{UTAH_GLX}; #- glx.so may clash with server version 4. + print F qq(EndSection\n\n); } #- write wacom device support. - foreach (1 .. @{$o->{wacom}}) { - my $dev = "/dev/" . $o->{wacom}[$_-1]; + foreach (1 .. @{$X->{wacom}}) { + my $dev = "/dev/" . $X->{wacom}[$_-1]; print F $dev =~ /input\/event/ ? qq( Section "XInput" SubSection "WacomStylus" @@ -1157,9 +1030,9 @@ EndSection ); } - foreach (1..@{$o->{wacom}}) { - my $dev = "/dev/" . $o->{wacom}[$_-1]; - print G $dev =~ /input\/event/ ? qq( + foreach (1..@{$X->{wacom}}) { + my $dev = "/dev/" . $X->{wacom}[$_-1]; + print G $dev =~ m|input/event| ? qq( Section "InputDevice" Identifier "Stylus$_" Driver "wacom" @@ -1216,37 +1089,29 @@ Section "Module" # This loads the DBE extension module. Load "dbe" ); - unless ($o->{card}{DRI_glx} && $o->{card}{driver} eq 'r128') { + if (!($X->{card}{DRI_GLX} && $X->{card}{driver} eq 'r128')) { print G qq( # This loads the Video for Linux module. Load "v4l" ); } - if ($o->{card}{DRI_glx}) { + + #- For example, this loads the NVIDIA GLX extension module. + #- When DRI_GLX_SPECIAL is set, DRI_GLX is also set + if ($X->{card}{DRI_GLX_SPECIAL}) { + print G $X->{card}{DRI_GLX_SPECIAL}; + } elsif ($X->{card}{DRI_GLX}) { print G qq( Load "glx" Load "dri" ); - } elsif ($o->{card}{NVIDIA_glx}) { - print G qq( -# 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. - - Load "/usr/X11R6/lib/modules/extensions/libglx.so" -); } print G qq( -# This loads the miscellaneous extensions module, and disables -# initialisation of the XFree86-DGA extension within that module. - SubSection "extmod" #Option "omit xfree86-dga" EndSubSection -# This loads the Type1 and FreeType font modules - Load "type1" Load "freetype" EndSection @@ -1257,70 +1122,48 @@ Section "DRI" Mode 0666 EndSection -) if $o->{card}{DRI_glx}; +) if $X->{card}{DRI_GLX}; #- Write monitor section. - $O = $o->{monitor}; - print F $monitorsection_text1; - print G $monitorsection_text1; + $O = $X->{monitor}; + print F qq(\nSection "Monitor"\n); + print G qq(\nSection "Monitor"\n); print F qq( Identifier "$O->{type}"\n); print G qq( Identifier "$O->{type}"\n); - print G qq( UseModes "Mac Modes"\n) if arch() =~ /ppc/; - print F qq( VendorName "$O->{vendor}"\n); - print G qq( VendorName "$O->{vendor}"\n); - print F qq( ModelName "$O->{model}"\n\n); - print G qq( ModelName "$O->{model}"\n\n); - print F $monitorsection_text2; - print G $monitorsection_text2; print F qq( HorizSync $O->{hsyncrange}\n\n); print G qq( HorizSync $O->{hsyncrange}\n\n); - print F $monitorsection_text3; - print G $monitorsection_text3; print F qq( VertRefresh $O->{vsyncrange}\n\n); print G qq( VertRefresh $O->{vsyncrange}\n\n); - print F $monitorsection_text4; - print F ($O->{modelines} || '') . ($o->{card}{type} eq "TG 96" ? - $modelines_text_Trident_TG_96xx : "$modelines_text$modelines_text_ext"); - print G $modelines_text_ext; + print F $O->{ModeLines_xf3} if $O->{ModeLines_xf3}; + print F $O->{ModeLines} if $O->{ModeLines}; + print G $O->{ModeLines} if $O->{ModeLines}; print F "\nEndSection\n\n\n"; print G "\nEndSection\n\n\n"; - print G $modelines_text_apple if arch() =~ /ppc/; - foreach (2..@{$o->{card}{cards} || []}) { + foreach (2..@{$X->{card}{cards} || []}) { print G qq(Section "Monitor"\n); print G qq( Identifier "monitor$_"\n); - print G qq( VendorName "$O->{vendor}"\n); - print G qq( ModelName "$O->{model}"\n\n); print G qq( HorizSync $O->{hsyncrange}\n); print G qq( VertRefresh $O->{vsyncrange}\n); print G qq(EndSection\n\n\n); } #- Write Device section. - $O = $o->{card}; - print F $devicesection_text; - print G $devicesection_text_v4; + $O = $X->{card}; + print F $Xconfigurator_consts::devicesection_text; print F qq(Section "Device"\n); print F qq( Identifier "$O->{type}"\n); - print F qq( VendorName "$O->{vendor}"\n); - print F qq( BoardName "$O->{board}"\n); + print F qq( Chipset "$O->{Chipset}"\n) if $O->{Chipset}; - print F "#" if $O->{chipset} && !$O->{flags}{needChipset}; - print F qq( Chipset "$O->{chipset}"\n) if $O->{chipset}; - - print F "#" if $O->{memory} && !$O->{flags}{needVideoRam}; - print F " VideoRam $O->{memory}\n" if $O->{memory}; + print F "#" if $O->{VideoRam} && !$O->{flags}{needVideoRam}; + print F " VideoRam $O->{VideoRam}\n" if $O->{VideoRam}; print F map { " $_\n" } @{$O->{lines} || []}; - print F qq( Ramdac "$O->{ramdac}"\n) if $O->{ramdac}; - print F qq( Dacspeed "$O->{dacspeed}"\n) if $O->{dacspeed}; + #- Obsolete stuff, no existing card still need this + print F qq( Ramdac "$O->{Ramdac}"\n) if $O->{Ramdac}; + print F qq( Dacspeed "$O->{Dacspeed}"\n) if $O->{Dacspeed}; + print F qq( Clockchip "$O->{Clockchip}"\n) if $O->{Clockchip}; - if ($O->{clockchip}) { - print F qq( Clockchip "$O->{clockchip}"\n); - } else { - print F " # Clock lines\n"; - print F " Clocks $_\n" foreach (@{$O->{clocklines}}); - } print F qq( # Uncomment following option if you see a big white block @@ -1344,20 +1187,16 @@ EndSection foreach (@{$O->{cards} || [ $O ]}) { print G qq(Section "Device"\n); print G qq( Identifier "$_->{type}"\n); - print G qq( VendorName "$_->{vendor}"\n); - print G qq( BoardName "$_->{board}"\n); print G qq( Driver "$_->{driver}"\n); - print G "#" if $_->{memory} && !$_->{flags}{needVideoRam}; - print G " VideoRam $_->{memory}\n" if $_->{memory}; + print G "#" if $_->{VideoRam} && !$_->{flags}{needVideoRam}; + print G " VideoRam $_->{VideoRam}\n" if $_->{VideoRam}; print G map { " $_\n" } @{$_->{lines} || []}; - print G qq( Ramdac "$_->{ramdac}"\n) if $_->{ramdac}; - print G qq( Dacspeed "$_->{dacspeed}"\n) if $_->{dacspeed}; - if ($_->{clockchip}) { - print G qq( Clockchip "$_->{clockchip}"\n); - } else { - print G " # Clock lines\n"; - print G " Clocks $_\n" foreach (@{$_->{clocklines}}); - } + + #- Obsolete stuff, no existing card still need this + print G qq( Ramdac "$_->{Ramdac}"\n) if $_->{Ramdac}; + print G qq( Dacspeed "$_->{Dacspeed}"\n) if $_->{Dacspeed}; + print G qq( Clockchip "$_->{clockchip}"\n) if $_->{clockchip}; + print G qq( # Uncomment following option if you see a big white block @@ -1375,10 +1214,6 @@ EndSection print G "EndSection\n\n\n"; } - #- Write Screen sections. - print F $screensection_text1, "\n"; - print G $screensection_text1, "\n"; - my $subscreen = sub { my ($f, $server, $defdepth, $depths) = @_; print $f " DefaultColorDepth $defdepth\n" if $defdepth; @@ -1400,45 +1235,32 @@ EndSection Section "Screen" Driver "$server" Device "$device" - Monitor "$o->{monitor}{type}" + Monitor "$X->{monitor}{type}" ); #-" $subscreen->(*F, $server, $defdepth, $depths); }; - #- SVGA screen section. - print F qq( -# The Colour SVGA server -); - - if (member($O->{server}, @svgaservers)) { - &$screen("svga", $o->{default_depth}, $O->{type}, $O->{depth}); - } else { - &$screen("svga", '', "Generic VGA", { 8 => [[ 320, 200 ]] }); - } - - &$screen("vga16", '', - (member($O->{server}, "Mono", "VGA16") ? $O->{type} : "Generic VGA"), - { '' => [[ 640, 480 ], [ 800, 600 ]]}); + &$screen("svga", $X->{default_depth}, $O->{type}, $O->{depth}) + if $O->{server} eq 'SVGA'; - &$screen("vga2", '', - (member($O->{server}, "Mono", "VGA16") ? $O->{type} : "Generic VGA"), - { '' => [[ 640, 480 ], [ 800, 600 ]]}); + &$screen("accel", $X->{default_depth}, $O->{type}, $O->{depth}) + if $Xconfigurator_consts::serversdriver{$O->{server}} eq 'accel'; - &$screen("accel", $o->{default_depth}, $O->{type}, $O->{depth}); + &$screen("fbdev", $X->{default_depth}, $O->{type}, $O->{depth}); - &$screen("fbdev", $o->{default_depth}, $O->{type}, $O->{depth}); + &$screen("vga16", '', "Generic VGA", { '' => [[ 640, 480 ], [ 800, 600 ]]}); print G qq( Section "Screen" Identifier "screen1" Device "$O->{type}" - Monitor "$o->{monitor}{type}" + Monitor "$X->{monitor}{type}" ); #- hack for DRI with Matrox card at 24 bpp, need another command. - $O->{DRI_glx} && $O->{identifier} =~ /Matrox.* G[245][05]0/ && $o->{default_depth} == 24 and + $O->{DRI_GLX} && $O->{identifier} =~ /Matrox.* G[245][05]0/ && $X->{default_depth} == 24 and print G " DefaultFbBpp 32\n"; #- bpp 32 not handled by XF4 - $subscreen->(*G, "svga", min($o->{default_depth}, 24), $O->{depth}); + $subscreen->(*G, "svga", min($X->{default_depth}, 24), $O->{depth}); foreach (2..@{$O->{cards} || []}) { my $device = $O->{cards}[$_ - 1]{type}; print G qq( @@ -1448,10 +1270,10 @@ Section "Screen" Monitor "monitor$_" ); #- hack for DRI with Matrox card at 24 bpp, need another command. - $O->{DRI_glx} && $O->{identifier} =~ /Matrox.* G[245][05]0/ && $o->{default_depth} == 24 and + $O->{DRI_GLX} && $O->{identifier} =~ /Matrox.* G[245][05]0/ && $X->{default_depth} == 24 and print G " DefaultFbBpp 32\n"; #- bpp 32 not handled by XF4 - $subscreen->(*G, "svga", min($o->{default_depth}, 24), $O->{depth}); + $subscreen->(*G, "svga", min($X->{default_depth}, 24), $O->{depth}); } print G qq( @@ -1467,96 +1289,52 @@ Section "ServerLayout" print G '#' if defined $O->{Xinerama} && !$O->{Xinerama}; print G qq( Option "Xinerama" "on"\n) if defined $O->{Xinerama}; - print G ' - InputDevice "Mouse1" "CorePointer" -'; - $o->{mouse}{auxmouse} and print G ' - InputDevice "Mouse2" "SendCoreEvents" -'; - foreach (1..@{$o->{wacom}}) { + print G qq(\n InputDevice "Mouse1" "CorePointer"\n); + print G qq(\n InputDevice "Mouse2" "SendCoreEvents"\n) if $X->{mouse}{auxmouse}; + + foreach (1..@{$X->{wacom}}) { print G qq( InputDevice "Stylus$_" "AlwaysCore" InputDevice "Eraser$_" "AlwaysCore" InputDevice "Cursor$_" "AlwaysCore" ); } - print G ' - InputDevice "Keyboard1" "CoreKeyboard" -EndSection -'; #-" + print G qq( InputDevice "Keyboard1" "CoreKeyboard"\n); + print G "\nEndSection\n\n"; close F; close G; } -sub XF86check_link { - my ($ext) = @_; - - my $f = "$prefix/etc/X11/XF86Config$ext"; - touch($f); - - my $l = "$prefix/usr/X11R6/lib/X11/XF86Config$ext"; - - if (-e $l && (stat($f))[1] != (stat($l))[1]) { #- compare the inode, must be the sames - -e $l and unlink($l) || die "can't remove bad $l"; - symlinkf "../../../../etc/X11/XF86Config$ext", $l; - } -} - -sub info { - my ($o) = @_; - my $info; - my $xf_ver = $o->{card}{use_xf4} ? "4.2.0" : "3.3.6"; - my $title = ($o->{card}{DRI_glx} || $o->{card}{NVIDIA_glx} || $o->{Utah_glx} ? - _("XFree %s with 3D hardware acceleration", $xf_ver) : _("XFree %s", $xf_ver)); - - $info .= _("Keyboard layout: %s\n", $o->{keyboard}{xkb_keymap}); - $info .= _("Mouse type: %s\n", $o->{mouse}{XMOUSETYPE}); - $info .= _("Mouse device: %s\n", $o->{mouse}{device}) if $::expert; - $info .= _("Monitor: %s\n", $o->{monitor}{type}); - $info .= _("Monitor HorizSync: %s\n", $o->{monitor}{hsyncrange}) if $::expert; - $info .= _("Monitor VertRefresh: %s\n", $o->{monitor}{vsyncrange}) if $::expert; - $info .= _("Graphics card: %s\n", $o->{card}{type}); - $info .= _("Graphics card identification: %s\n", $o->{card}{identifier}) if $::expert; - $info .= _("Graphics memory: %s kB\n", $o->{card}{memory}) if $o->{card}{memory}; - if ($o->{default_depth} and my $depth = $o->{card}{depth}{$o->{default_depth}}) { - $info .= _("Color depth: %s\n", translate($depths{$o->{default_depth}})); - $info .= _("Resolution: %s\n", join "x", @{$depth->[0]}) if $depth && !is_empty_array_ref($depth->[0]); - } - $info .= _("XFree86 server: %s\n", $o->{card}{server}) if $o->{card}{server}; - $info .= _("XFree86 driver: %s\n", $o->{card}{driver}) if $o->{card}{driver}; - "$title\n\n$info"; -} - sub show_info { - my ($o) = @_; - $in->ask_warn('', info($o)); + my ($X) = @_; + $in->ask_warn('', Xconfig::info($X)); } #- Program entry point. sub main { - ($prefix, my $o, $in, $do_pkgs, my $cardOptions) = @_; - $o ||= {}; + ($prefix, my $X, $in, $do_pkgs, my $cardOptions) = @_; + $X ||= {}; - XF86check_link(''); - XF86check_link('-4'); + Xconfig::XF86check_link($prefix, ''); + Xconfig::XF86check_link($prefix, '-4'); { my $w = $in->wait_message('', _("Preparing X-Window configuration"), 1); - $o->{card} = cardConfiguration($o->{card}, $::noauto, $cardOptions); + $X->{card} = cardConfiguration($X->{card}, $::noauto, $cardOptions); - $o->{monitor} = monitorConfiguration($o->{monitor}, $o->{card}{server} eq 'FBDev'); + $X->{monitor} = monitorConfiguration($X->{monitor}, $X->{card}{server} eq 'FBDev'); } - my $ok = resolutionsConfiguration($o, $::auto); + my $ok = resolutionsConfiguration($X, $::auto); - $ok &&= testFinalConfig($o, $::auto, $o->{skiptest}, $::auto); + $ok &&= testFinalConfig($X, $::auto, $X->{skiptest}, $::auto); my $quit; until ($ok || $quit) { ref($in) =~ /discard/ and die "automatic X configuration failed, ensure you give hsyncrange and vsyncrange with non-DDC aware videocards/monitors"; - $in->set_help('configureXmain') unless $::isStandalone; + $in->set_help('configureXmain') if !$::isStandalone; my $f; $in->ask_from_( @@ -1567,14 +1345,14 @@ sub main { }, [ { format => sub { $_[0][0] }, val => \$f, list => [ - [ _("Change Monitor") => sub { $o->{monitor} = monitorConfiguration() } ], + [ _("Change Monitor") => sub { $X->{monitor} = monitorConfiguration() } ], [ _("Change Graphics card") => sub { my $card = cardConfiguration('', 'noauto', $cardOptions); - $card and $o->{card} = $card } ], + $card and $X->{card} = $card } ], if_($::expert, - [ _("Change Server options") => sub { optionsConfiguration($o) } ]), - [ _("Change Resolution") => sub { resolutionsConfiguration($o) } ], - [ _("Show information") => sub { show_info($o) } ], - [ _("Test again") => sub { $ok = testFinalConfig($o, 1) } ], + [ _("Change Server options") => sub { optionsConfiguration($X) } ]), + [ _("Change Resolution") => sub { resolutionsConfiguration($X) } ], + [ _("Show information") => sub { show_info($X) } ], + [ _("Test again") => sub { $ok = testFinalConfig($X, 1) } ], [ _("Quit") => sub { $quit = 1 } ], ], } @@ -1586,28 +1364,26 @@ sub main { $ok = $in->ask_yesorno('', _("Keep the changes? The current configuration is: -%s", info($o))); +%s", Xconfig::info($X))); } if ($ok) { - unless ($::testing) { + if (!$::testing) { my $f = "$prefix/etc/X11/XF86Config"; if (-e "$f.test") { rename $f, "$f.old" or die "unable to make a backup of XF86Config"; rename "$f-4", "$f-4.old"; rename "$f.test", $f; rename "$f.test-4", "$f-4"; - if ($o->{card}{server} !~ /Xpmac/) { - symlinkf "../..$o->{card}{prog}", "$prefix/etc/X11/X"; - } + symlinkf "../..$X->{card}{prog}", "$prefix/etc/X11/X" if $X->{card}{server} !~ /Xpmac/; } } if (!$::isStandalone || $0 !~ /Xdrakres/) { - $in->set_help('configureXxdm') unless $::isStandalone; - my $run = exists $o->{xdm} ? $o->{xdm} : $::auto || $in->ask_yesorno(_("Graphical interface at startup"), + $in->set_help('configureXxdm') if !$::isStandalone; + my $run = exists $X->{xdm} ? $X->{xdm} : $::auto || $in->ask_yesorno(_("Graphical interface at startup"), _("I can setup your computer to automatically start the graphical interface (XFree) upon booting. Would you like XFree to start when you reboot?"), 1); - any::runlevel($prefix, $run ? 5 : 3) unless $::testing; + any::runlevel($prefix, $run ? 5 : 3) if !$::testing; } if ($::isStandalone && $in->isa('interactive_gtk')) { if (my $wm = any::running_window_manager()) { @@ -1622,7 +1398,7 @@ Would you like XFree to start when you reboot?"), 1); exec qw(perl -e), q{ my $wm = shift; for (my $nb = 30; $nb && `pidof "$wm"` > 0; $nb--) { sleep 1 } - system("killall X ; killall -15 xdm gdm kdm prefdm") unless `pidof "$wm"` > 0; + system("killall X ; killall -15 xdm gdm kdm prefdm") if !(`pidof "$wm"` > 0); }, $wm; } } else { diff --git a/perl-install/Xconfigurator_consts.pm b/perl-install/Xconfigurator_consts.pm index 905168f46..79c7c4ca8 100644 --- a/perl-install/Xconfigurator_consts.pm +++ b/perl-install/Xconfigurator_consts.pm @@ -1,4 +1,4 @@ -package Xconfigurator; # $Id$ +package Xconfigurator_consts; # $Id$ use common; @@ -11,11 +11,7 @@ use common; ); @depths = ikeys(%depths); -if (arch() =~ /ppc/) { -@resolutions = qw(640x480 800x600 1024x768 1152x768 1280x1024 1400x1050 1600x1200 1920x1440 2048x1536); -} else { -@resolutions = qw(640x480 800x600 1024x768 1152x864 1280x1024 1400x1050 1600x1200 1920x1440 2048x1536); -} +@resolutions = ('640x480', '800x600', '1024x768', (arch() =~ /ppc/ ? '1152x864' : '1152x768'), '1280x1024', '1400x1050', '1600x1200', '1920x1440', '2048x1536'); %serversdriver = arch() =~ /^sparc/ ? ( 'Mach64' => "accel", @@ -27,8 +23,6 @@ if (arch() =~ /ppc/) { 'FBDev' => "fbdev", ) : ( 'SVGA' => "svga", -#- 'Rage128' => "svga", -#- '3dfx' => "svga", 'S3' => "accel", 'Mach32' => "accel", 'Mach8' => "accel", @@ -40,12 +34,9 @@ if (arch() =~ /ppc/) { 'I128' => "accel", 'S3V' => "accel", '3DLabs' => "accel", - 'Mono' => "vga2", 'VGA16' => "vga16", 'FBDev' => "fbdev", ); -@svgaservers = grep { $serversdriver{$_} eq "svga" } keys(%serversdriver); -@accelservers = grep { $serversdriver{$_} eq "accel" } keys(%serversdriver); @allbutfbservers = grep { arch() =~ /^sparc/ || $serversdriver{$_} ne "fbdev" } keys(%serversdriver); @allservers = keys(%serversdriver); @@ -54,40 +45,28 @@ if (arch() =~ /ppc/) { s3 s3virge savage siliconmotion sis tdfx tga trident tseng vmware)), qw(ati glint vga)); @alldrivers = (@allbutfbdrivers, 'fbdev', 'vesa'); -%vgamodes = ( - '640xx8' => 769, - '640x480x8' => 769, - '800xx8' => 771, - '800x600x8' => 771, - '1024xx8' => 773, - '1024x768x8' => 773, - '1280xx8' => 775, - '1280x1024x8' => 775, - '640xx15' => 784, - '640x480x15' => 784, - '800xx15' => 787, - '800x600x15' => 787, - '1024xx15' => 790, - '1024x768x15' => 790, - '1280xx15' => 793, - '1280x1024x15' => 793, - '640xx16' => 785, - '640x480x16' => 785, - '800xx16' => 788, - '800x600x16' => 788, - '1024xx16' => 791, - '1024x768x16' => 791, - '1280xx16' => 794, - '1280x1024x16' => 794, -#- '640xx24' => 786, #- there is a problem with these resolutions since the BIOS may take 24 or 32 planes. -#- '640x480x24' => 786, -#- '800xx24' => 789, -#- '800x600x24' => 789, -#- '1024xx24' => 792, -#- '1024x768x24' => 792, -#- '1280xx24' => 795, -#- '1280x1024x24' => 795, +%bios_vga_modes = ( + 769 => [ 640, 480, 8 ], + 771 => [ 800, 600, 8 ], + 773 => [ 1024, 768, 8 ], + 775 => [ 1280, 1024, 8 ], + 784 => [ 640, 480, 15 ], + 787 => [ 800, 600, 15 ], + 790 => [ 1024, 768, 15 ], + 793 => [ 1280, 1024, 15 ], + 785 => [ 640, 480, 16 ], + 788 => [ 800, 600, 16 ], + 791 => [ 1024, 768, 16 ], + 794 => [ 1280, 1024, 16 ], ); +sub bios_vga_modes { + my ($xres, $depth) = @_; + foreach (keys %bios_vga_modes) { + my $l = $bios_vga_modes{$_}; + return ($_, @$l) if $xres == $l->[0] && $depth == $l->[2]; + } + (); +} { #- @monitorSize2resolution my %l = my @l = ( #- size in inch @@ -109,19 +88,19 @@ if (arch() =~ /ppc/) { } } -%videomemory = ( - __("256 kB") => 256, - __("512 kB") => 512, - __("1 MB") => 1024, - __("2 MB") => 2048, - __("4 MB") => 4096, - __("8 MB") => 8192, - __("16 MB") => 16384, - __("32 MB") => 32768, - __("64 MB or more") => 65536, +%VideoRams = ( + 256 => __("256 kB"), + 512 => __("512 kB"), + 1024 => __("1 MB"), + 2048 => __("2 MB"), + 4096 => __("4 MB"), + 8192 => __("8 MB"), + 16384 => __("16 MB"), + 32768 => __("32 MB"), + 65536 => __("64 MB or more"), ); -$good_default_monitor = arch !~ /ppc/ ? "High Frequency SVGA, 1024x768 at 70 Hz" : +$good_default_monitor = arch() !~ /ppc/ ? "High Frequency SVGA, 1024x768 at 70 Hz" : detect_devices::get_mac_model =~ /^iBook/ ? "iBook 800x600" : "iMac/PowerBook 1024x768"; $low_default_monitor = "Super VGA, 800x600 at 56 Hz"; @@ -157,7 +136,7 @@ $low_default_monitor = "Super VGA, 800x600 at 56 Hz"; "31.5-94.0", ); -%min_hsync4wres = ( +%min_hsync4x_res = ( 640 => 31.5, 800 => 35.1, 1024 => 35.5, @@ -170,19 +149,8 @@ $low_default_monitor = "Super VGA, 800x600 at 56 Hz"; ); -%lines = ( -#- 'Cirrus Logic|GD 5446' => [ ' Option "no_bitblt"' ], - 'Silicon Integrated Systems [SiS]|86C326' => [ qq( Option "noaccel") ], - 'Neomagic Corporation|NM2160 [MagicGraph 128XD]' => [ 'Option "XaaNoScanlineImageWriteRect"', 'Option "XaaNoScanlineCPUToScreenColorExpandFill' ], - 'Neomagic Corporation|[MagicMedia 256XL+]' => [ ' Option "sw_cursor"' ], - -#- 'Trident Microsystems|Cyber 9525' => [ ' Option "noaccel"' ], -#- 'S3 Inc.|86c368 [Trio 3D/2X]' => [ ' ChipID 0x8a10' ], -); - #- most usefull XFree86-4.0.1 server options. Default values is the first ones. @options_serverflags = ( - 'NoTrapSignals' => [ "Off", "On" ], 'DontZap' => [ "Off", "On" ], 'DontZoom' => [ "Off", "On" ], 'DisableVidModeExtension' => [ "Off", "On" ], @@ -205,208 +173,31 @@ $low_default_monitor = "Super VGA, 800x600 at 56 Hz"; @options = ( [ 'DPMS', 'XFree86', '.*' ], [ 'SyncOnGreen', 'XFree86', '.*' ], - [ 'power_saver', 'Mono', '.*' ], - [ 'hibit_low', 'VGA16', 'Tseng.*ET4000' ], - [ 'hibit_high', 'VGA16', 'Tseng.*ET4000' ], - [ 'power_saver', 'VGA16', '.*' ], - [ 'noaccel', 'SVGA', 'Cirrus|C&T|SiS|Oak|Western Digital|Alliance|Trident|Tseng' ], - [ 'no_accel', 'SVGA', 'ARK|MGA|i740|Oak|ET6000|W32|Media.*GX|Neomagic' ], - [ 'linear', 'SVGA', 'Cirrus|ET6000|ET4000/W32p rev [CD]|Oak|Neomagic|Triden|Tseng' ], - [ 'nolinear', 'SVGA', 'Cirrus|C&T|Trident' ], - [ 'no_linear', 'SVGA', 'ARK|SiS|Neomagic|Tseng' ], - [ 'no_bitblt', 'SVGA', 'Cirrus|C&T|SiS' ], - [ 'no_imageblt', 'SVGA', 'Cirrus|C&T|SiS' ], - [ 'sw_cursor', 'SVGA', '.*' ], - [ 'slow_dram', 'SVGA', 'Cirrus|Trident|ET6000|W32|Western Digital|Tseng' ], - [ 'mga_sdram', 'SVGA', 'MGA' ], - [ 'no_pixmap_cache', 'SVGA', 'ARK|Cirrus|C&T|MGA|SiS|Trident.*9440|Trident.*9680|Tseng' ], - [ 'no_mmio', 'SVGA', 'Cirrus|Neomagic|Trident' ], - [ 'pci_burst_off', 'SVGA', 'ET6000|W32|Trident|Tseng' ], - [ 'hw_clocks', 'SVGA', 'SiS|C&T' ], - [ 'use_modeline', 'SVGA', 'C&T' ], - [ 'enable_bitblt', 'SVGA', 'Oak' ], - [ 'w32_interleave_off', 'SVGA', 'ET6000|W32|Tseng' ], - [ 'fifo_conservative', 'SVGA', 'Cirrus|ARK|SiS|Oak' ], - [ 'fifo_moderate', 'SVGA', 'Cirrus|ARK|SiS' ], - [ 'all_wait', 'SVGA', 'Oak' ], - [ 'one_wait', 'SVGA', 'Oak' ], - [ 'first_wait', 'SVGA', 'Oak' ], - [ 'first_wwait', 'SVGA', 'Oak' ], - [ 'write_wait', 'SVGA', 'Oak' ], - [ 'read_wait', 'SVGA', 'Oak' ], - [ 'clgd6225_lcd', 'SVGA', 'Cirrus' ], - [ 'fix_panel_size', 'SVGA', 'C&T' ], - [ 'lcd_center', 'SVGA', 'C&T|Neomagic|Trident' ], - [ 'cyber_shadow', 'SVGA', 'Trident' ], - [ 'STN', 'SVGA', 'C&T' ], - [ 'no_stretch', 'SVGA', 'C&T|Cirrus|Neomagic|Trident' ], - [ 'no_prog_lcd_mode_regs', 'SVGA', 'Neomagic' ], - [ 'prog_lcd_mode_stretch', 'SVGA', 'Neomagic' ], - [ 'suspend_hack', 'SVGA', 'C&T' ], - [ 'use_18bit_bus', 'SVGA', 'C&T' ], - [ 'hibit_low', 'SVGA', 'Tseng.*ET4000' ], - [ 'hibit_high', 'SVGA', 'Tseng.*ET4000' ], - [ 'probe_clocks', 'SVGA', 'Cirrus' ], - [ 'power_saver', 'SVGA', '.*' ], - [ 'use_vlck1', 'SVGA', 'C&T' ], - [ 'sgram', 'SVGA', 'i740' ], - [ 'sdram', 'SVGA', 'i740' ], - [ 'no_2mb_banksel', 'SVGA', 'Cirrus' ], - [ 'tgui_pci_read_on', 'SVGA', 'Trident' ], - [ 'tgui_pci_write_on', 'SVGA', 'Trident' ], - [ 'no_program_clocks', 'SVGA', 'Trident' ], - [ 'mmio', 'SVGA', 'Cirrus|C&T|Neomagic' ], - [ 'sync_on_green', 'SVGA', 'C&T|MGA' ], - [ 'pci_retry', 'SVGA', 'Tseng|MGA|Cirrus' ], - [ 'hw_cursor', 'SVGA', 'C&T|SiS|ARK|ET6000|i740|Tseng' ], - [ 'xaa_no_color_exp', 'SVGA', 'C&T|Cirrus|Trident|Tseng' ], - [ 'xaa_benchmarks', 'SVGA', 'C&T' ], - [ 'pci_burst_on', 'SVGA', 'Trident|Tseng' ], - [ 'prog_lcd_mode_regs', 'SVGA', 'Neomagic' ], - [ 'no_prog_lcd_mode_stretch', 'SVGA', 'Neomagic' ], - [ 'no_wait', 'SVGA', 'Oak' ], - #- [ 'med_dram', 'SVGA', 'Cirrus|Trident|Western Digital' ], #- WARNING, MAY DAMAGE CARD - #- [ 'fast_dram', 'SVGA', 'C&T|Cirrus|ET[46]000|Trident|Western Digital' ], #- WARNING, MAY DAMAGE CARD - #- [ 'fast_vram', 'SVGA', 'SiS' ], #- WARNING, MAY DAMAGE CARD - #- [ 'clock_50', 'SVGA', 'Oak' ], #- WARNING, MAY DAMAGE CARD - #- [ 'clock_66', 'SVGA', 'Oak' ], #- WARNING, MAY DAMAGE CARD - #- [ 'fifo_aggressive', 'SVGA', 'Cirrus|ARK|SiS|Oak' ], #- WARNING, MAY DAMAGE CARD - #- [ 'override_validate_mode', 'SVGA', 'Neomagic' ], #- WARNING, MAY DAMAGE CARD - #- [ 'tgui_mclk_66', 'SVGA', 'Trident' ], #- WARNING, MAY DAMAGE CARD - #- [ 'favour_bitblt', 'SVGA', 'Cirrus' ], #- OBSELETE - [ 'sw_cursor', '3DLabs', '.*' ], - [ 'no_pixmap_cache', '3DLabs', '.*' ], - [ 'no_accel', '3DLabs', '.*' ], - [ 'firegl_3000', '3DLabs', '.*' ], - [ 'sync_on_green', '3DLabs', '.*' ], - [ 'pci_retry', '3DLabs', '.*' ], - #- [ 'overclock_mem', '3DLabs', '.*' ], #- WARNING, MAY DAMAGE CARD - [ 'dac_8_bit', 'I128', '.*' ], - [ 'no_accel', 'I128', '.*' ], - [ 'sync_on_green', 'I128', '.*' ], - [ 'composite', 'Mach32', '.*' ], - [ 'sw_cursor', 'Mach32', '.*' ], - [ 'dac_8_bit', 'Mach32', '.*' ], - [ 'ast_mach32', 'Mach32', '.*' ], - [ 'intel_gx', 'Mach32', '.*' ], - [ 'no_linear', 'Mach32', '.*' ], - [ 'sw_cursor', 'Mach64', '.*' ], - [ 'nolinear', 'Mach64', '.*' ], - [ 'no_block_write', 'Mach64', '.*' ], - [ 'block_write', 'Mach64', '.*' ], - [ 'fifo_conservative', 'Mach64', '.*' ], - [ 'no_font_cache', 'Mach64', '.*' ], - [ 'no_pixmap_cache', 'Mach64', '.*' ], - [ 'composite', 'Mach64', '.*' ], - [ 'power_saver', 'Mach64', '.*' ], - [ 'no_program_clocks', 'Mach64', '.*' ], - [ 'no_bios_clocks', 'Mach64', '.*' ], - [ 'dac_6_bit', 'Mach64', '.*' ], - [ 'dac_8_bit', 'Mach64', '.*' ], - [ 'hw_cursor', 'Mach64', '.*' ], - #- [ 'override_bios', 'Mach64', '.*' ], #- WARNING, MAY DAMAGE CARD - [ 'sw_cursor', 'P9000', '.*' ], - [ 'noaccel', 'P9000', '.*' ], - [ 'sync_on_green', 'P9000', '.*' ], - [ 'vram_128', 'P9000', '.*' ], - [ 'nolinear', 'S3', '.*' ], - [ 'dac_8_bit', 'S3', '.*' ], - [ 'slow_vram', 'S3', 'S3.*964' ], - [ 'stb_pegasus', 'S3', 'S3.*928' ], - [ 'SPEA_Mercury', 'S3', 'S3.*(928|964)' ], - [ 'number_nine', 'S3', 'S3.*(864|928)' ], - [ 'lcd_center', 'S3', 'S3.*Aurora64V' ], - [ 'noaccel', 'S3V', '.*' ], - [ 'slow_edodram', 'S3V', '.*' ], - [ 'pci_burst_on', 'S3V', '.*' ], - [ 'early_ras_precharge', 'S3V', '.*' ], - [ 'late_ras_precharge', 'S3V', '.*' ], - [ 'fifo_conservative', 'S3V', '.*' ], - [ 'fifo_aggressive', 'S3V', '.*' ], - [ 'fifo_moderate', 'S3V', '.*' ], - [ 'lcd_center', 'S3V', 'S3.*ViRGE\/MX' ], - [ 'hw_cursor', 'S3V', '.*' ], - [ 'pci_retry', 'S3V', '.*' ], - [ 'dac_6_bit', 'AGX', '.*' ], - [ 'dac_8_bit', 'AGX', '.*' ], - [ 'sync_on_green', 'AGX', '.*' ], - [ '8_bit_bus', 'AGX', '.*' ], - [ 'wait_state', 'AGX', '.*' ], - [ 'no_wait_state', 'AGX', '.*' ], - [ 'noaccel', 'AGX', '.*' ], - [ 'crtc_delay', 'AGX', '.*' ], - [ 'fifo_conserv', 'AGX', '.*' ], - [ 'fifo_aggressive', 'AGX', '.*' ], - [ 'fifo_moderate', 'AGX', '.*' ], - [ 'vram_delay_latch', 'AGX', '.*' ], - [ 'vram_delay_ras', 'AGX', '.*' ], - [ 'vram_extend_ras', 'AGX', '.*' ], - [ 'slow_dram', 'AGX', '.*' ], - [ 'slow_vram', 'AGX', '.*' ], - [ 'med_dram', 'AGX', '.*' ], - [ 'med_vram', 'AGX', '.*' ], - [ 'fast_dram', 'AGX', '.*' ], - [ 'fast_vram', 'AGX', '.*' ], - [ 'engine_delay', 'AGX', '.*' ], - [ 'vram_128', 'AGX', '.*' ], - [ 'vram_256', 'AGX', '.*' ], - [ 'refresh_20', 'AGX', '.*' ], - [ 'refresh_25', 'AGX', '.*' ], - [ 'screen_refresh', 'AGX', '.*' ], - [ 'vlb_a', 'AGX', '.*' ], - [ 'vlb_b', 'AGX', '.*' ], - [ 'slow_dram', 'W32', '.*' ], - [ 'pci_burst_off', 'W32', '.*' ], - [ 'w32_interleave_off', 'W32', '.*' ], - [ 'no_accel', 'W32', '.*' ], - [ 'nolinear', '8514', '.*' ], - [ 'sw_cursor', '8514', '.*' ], - [ 'no_block_write', '8514', '.*' ], - [ 'block_write', '8514', '.*' ], - [ 'fifo_conservative', '8514', '.*' ], - [ 'no_font_cache', '8514', '.*' ], - [ 'no_pixmap_cache', '8514', '.*' ], - [ 'composite', '8514', '.*' ], - [ 'power_saver', '8514', '.*' ], - [ 'power_saver', 'FBDev', '.*' ], ); -%xkb_options = ( +%XkbOptions = ( 'ru(winkeys)' => [ 'XkbOptions "grp:caps_toggle"' ], - 'jp' => [ 'XkbModel "jp106"' ], ); $XF86firstchunk_text = q( # File generated by XFdrake. # ********************************************************************** -# Refer to the XF86Config(4/5) man page for details about the format of +# Refer to the XF86Config man page for details about the format of # this file. # ********************************************************************** Section "Files" - - RgbPath "/usr/X11R6/lib/X11/rgb" - -# Multiple FontPath entries are allowed (they are concatenated together) -# By default, Mandrake 6.0 and later now use a font server independent of -# the X server to render fonts. - + # Multiple FontPath entries are allowed (they are concatenated together) + # By default, Mandrake 6.0 and later now use a font server independent of + # the X server to render fonts. FontPath "unix/:-1" EndSection -# ********************************************************************** -# Server flags section. -# ********************************************************************** Section "ServerFlags" - # Uncomment this to cause a core dump at the spot where a signal is - # received. This may leave the console in an unusable state, but may - # provide a better stack trace in the core dump to aid in debugging - #NoTrapSignals - # Uncomment this to disable the <Crtl><Alt><BS> server abort sequence # This allows clients to receive this key event. #DontZap @@ -421,424 +212,190 @@ Section "ServerFlags" EndSection -# ********************************************************************** -# Input devices -# ********************************************************************** ); -$keyboardsection_start = ' -# ********************************************************************** -# Keyboard section -# ********************************************************************** - -Section "Keyboard" - - Protocol "Standard" - - # when using XQUEUE, comment out the above line, and uncomment the - # following line - #Protocol "Xqueue" - - AutoRepeat 250 30 - - # Let the server do the NumLock processing. This should only be - # required when using pre-R6 clients - #ServerNumLock - - # Specify which keyboard LEDs can be user-controlled (eg, with xset(1)) - #Xleds "1 2 3" - - #To set the LeftAlt to Meta, RightAlt key to ModeShift, - #RightCtl key to Compose, and ScrollLock key to ModeLock: - - LeftAlt Meta - RightAlt Meta - ScrollLock Compose - RightCtl Control - -# To disable the XKEYBOARD extension, uncomment XkbDisable. - -# XkbDisable -'; - -$keyboardsection_start_v4 = ' -# ********************************************************************** -# Keyboard section -# ********************************************************************** - -Section "InputDevice" - - Identifier "Keyboard1" - Driver "Keyboard" - Option "AutoRepeat" "250 30" -'; - -if (arch() =~ /^sparc/) { - $keyboardsection_part3 = ' -# To customise the XKB settings to suit your keyboard, modify the -# lines below (which are the defaults). For example: -# XkbModel "type6" -# If you have a SUN keyboard, you may use: -# XkbModel "sun" -# -# Then to change the language, change the Layout setting. -# For example, a german layout can be obtained with: -# XkbLayout "de" -# or: -# XkbLayout "de" -# XkbVariant "nodeadkeys" -# -# If you\'d like to switch the positions of your capslock and -# control keys, use: -# XkbOptions "ctrl:swapcaps" - -# These are the default XKB settings for XFree86 on SUN: -# XkbRules "sun" -# XkbModel "type5_unix" -# XkbLayout "us" -# XkbCompat "compat/complete" -# XkbTypes "types/complete" -# XkbKeycodes "sun(type5)" -# XkbGeometry "sun(type5)" -# XkbSymbols "sun/us(sun5)" - - XkbRules "sun" - XkbLayout "us" - XkbCompat "compat/complete" - XkbTypes "types/complete" - XkbKeycodes "sun(type5)" - XkbGeometry "sun(type5)" - XkbSymbols "sun/us(sun5)" -'; -$keyboardsection_part3_v4 = ' - Option "XkbRules" "sun" - Option "XkbLayout" "us" - Option "XkbCompat" "compat/complete" - Option "XkbTypes" "types/complete" - Option "XkbKeycodes" "sun(type5)" - Option "XkbGeometry" "sun(type5)" - Option "XkbSymbols" "sun/us(sun5)" -'; -} else { -$keyboardsection_part3 = ' -# To customise the XKB settings to suit your keyboard, modify the -# lines below (which are the defaults). For example, for a non-U.S. -# keyboard, you will probably want to use: -# XkbModel "pc102" -# If you have a US Microsoft Natural keyboard, you can use: -# XkbModel "microsoft" -# -# Then to change the language, change the Layout setting. -# For example, a german layout can be obtained with: -# XkbLayout "de" -# or: -# XkbLayout "de" -# XkbVariant "nodeadkeys" -# -# If you\'d like to switch the positions of your capslock and -# control keys, use: -# XkbOptions "ctrl:swapcaps" - -# These are the default XKB settings for XFree86 -# XkbRules "xfree86" -# XkbModel "pc101" -# XkbLayout "us" -# XkbVariant "" -# XkbOptions "" - - XkbKeycodes "xfree86" - XkbTypes "default" - XkbCompat "default" - XkbSymbols "us(pc105)" - XkbGeometry "pc" - XkbRules "xfree86" -'; - -$keyboardsection_part3_v4 = ' - Option "XkbRules" "xfree86" -'; -} - -$keyboardsection_end = ' -EndSection -'; - -$pointersection_text = ' -# ********************************************************************** -# Pointer section -# ********************************************************************** - -'; - -$monitorsection_text1 = ' -# ********************************************************************** -# Monitor section -# ********************************************************************** - -# Any number of monitor sections may be present - -Section "Monitor" -'; - -$monitorsection_text2 = ' -# HorizSync is in kHz unless units are specified. -# HorizSync may be a comma separated list of discrete values, or a -# comma separated list of ranges of values. -# NOTE: THE VALUES HERE ARE EXAMPLES ONLY. REFER TO YOUR MONITOR\'S -# USER MANUAL FOR THE CORRECT NUMBERS. -'; - -$monitorsection_text3 = ' -# VertRefresh is in Hz unless units are specified. -# VertRefresh may be a comma separated list of discrete values, or a -# comma separated list of ranges of values. -# NOTE: THE VALUES HERE ARE EXAMPLES ONLY. REFER TO YOUR MONITOR\'S -# USER MANUAL FOR THE CORRECT NUMBERS. -'; - -$monitorsection_text4 = ' -# Modes can be specified in two formats. A compact one-line format, or -# a multi-line format. - -# These two are equivalent - -# ModeLine "1024x768i" 45 1024 1048 1208 1264 768 776 784 817 Interlace - -# Mode "1024x768i" -# DotClock 45 -# HTimings 1024 1048 1208 1264 -# VTimings 768 776 784 817 -# Flags "Interlace" -# EndMode -'; - -$modelines_text_Trident_TG_96xx = ' -# This is a set of standard mode timings. Modes that are out of monitor spec -# are automatically deleted by the server (provided the HorizSync and -# VertRefresh lines are correct), so there\'s no immediate need to -# delete mode timings (unless particular mode timings don\'t work on your -# monitor). With these modes, the best standard mode that your monitor -# and video card can support for a given resolution is automatically -# used. - -# These are special modelines for Trident Providia 9685. It is for VA Linux -# systems only. -# 640x480 @ 72 Hz, 36.5 kHz hsync -Modeline "640x480" 31.5 640 680 720 864 480 488 491 521 -# 800x600 @ 72 Hz, 48.0 kHz hsync -Modeline "800x600" 50 800 856 976 1040 600 637 643 666 +hsync +vsync -# 1024x768 @ 60 Hz, 48.4 kHz hsync -#Modeline "1024x768" 65 1024 1032 1176 1344 768 771 777 806 -hsync -vsync -# 1024x768 @ 70 Hz, 56.5 kHz hsync -Modeline "1024x768" 75 1024 1048 1184 1328 768 771 777 806 -hsync -vsync -'; -$modelines_text_ext = ' -# This is a set of extended mode timings typically used for laptop, -# TV fullscreen mode or DVD fullscreen output. -# These are available along with standard mode timings. - -# Sony Vaio C1(X,XS,VE,VN)? -# 1024x480 @ 85.6 Hz, 48 kHz hsync -ModeLine "1024x480" 65.00 1024 1032 1176 1344 480 488 494 563 -hsync -vsync - -# 768x576 @ 79 Hz, 50 kHz hsync -ModeLine "768x576" 50.00 768 832 846 1000 576 590 595 630 -# 768x576 @ 100 Hz, 61.6 kHz hsync -ModeLine "768x576" 63.07 768 800 960 1024 576 578 590 616 - -'; -$modelines_text_apple = ' -Section "Modes" - Identifier "Mac Modes" +$ModeLines_text_ext = + arch() =~ /ppc/ ? ' # Apple iMac modes - Modeline "1024x768" 78.525 1024 1049 1145 1312 768 769 772 800 +hsync +vsync - Modeline "800x600" 62.357 800 821 901 1040 600 601 604 632 +hsync +vsync - Modeline "640x480" 49.886 640 661 725 832 480 481 484 514 +hsync +vsync + ModeLine "1024x768" 78.525 1024 1049 1145 1312 768 769 772 800 +hsync +vsync + ModeLine "800x600" 62.357 800 821 901 1040 600 601 604 632 +hsync +vsync + ModeLine "640x480" 49.886 640 661 725 832 480 481 484 514 +hsync +vsync # Apple monitors tend to do 832x624 - Modeline "832x624" 57 832 876 940 1152 624 625 628 667 -hsync -vsync + ModeLine "832x624" 57 832 876 940 1152 624 625 628 667 -hsync -vsync # Apple PowerBook G3 - Modeline "800x600" 100 800 816 824 840 600 616 624 640 -hsync -vsync + ModeLine "800x600" 100 800 816 824 840 600 616 624 640 -hsync -vsync # Apple TI Powerbook - Modeline "1152x768" 78.741 1152 1173 1269 1440 768 769 772 800 +vsync +vsync + ModeLine "1152x768" 78.741 1152 1173 1269 1440 768 769 772 800 +vsync +vsync # Pismo Firewire G3 - Modeline "1024x768" 65 1024 1032 1176 1344 768 771 777 806 -hsync -vsync + ModeLine "1024x768" 65 1024 1032 1176 1344 768 771 777 806 -hsync -vsync # iBook2 - Modeline "1024x768" 65 1024 1048 1184 1344 768 771 777 806 -hsync -vsync + ModeLine "1024x768" 65 1024 1048 1184 1344 768 771 777 806 -hsync -vsync # 17" Apple Studio Display - Modeline "1024x768" 112.62 1024 1076 1248 1420 768 768 780 808 +hsync +vsync + ModeLine "1024x768" 112.62 1024 1076 1248 1420 768 768 780 808 +hsync +vsync # HiRes Apple Studio Display - Modeline "1280x1024" 135 1280 1288 1392 1664 1024 1027 1030 1064 + ModeLine "1280x1024" 135 1280 1288 1392 1664 1024 1027 1030 1064 # Another variation - Modeline "1280x1024" 134.989 1280 1317 1429 1688 1024 1025 1028 1066 +hsync +vsync -EndSection -'; -$modelines_text = ' -# This is a set of standard mode timings. Modes that are out of monitor spec -# are automatically deleted by the server (provided the HorizSync and -# VertRefresh lines are correct), so there\'s no immediate need to -# delete mode timings (unless particular mode timings don\'t work on your -# monitor). With these modes, the best standard mode that your monitor -# and video card can support for a given resolution is automatically -# used. - -# 640x400 @ 70 Hz, 31.5 kHz hsync -Modeline "640x400" 25.175 640 664 760 800 400 409 411 450 -# 640x480 @ 60 Hz, 31.5 kHz hsync -Modeline "640x480" 25.175 640 664 760 800 480 491 493 525 -# 800x600 @ 56 Hz, 35.15 kHz hsync -ModeLine "800x600" 36 800 824 896 1024 600 601 603 625 -# 1024x768 @ 87 Hz interlaced, 35.5 kHz hsync -Modeline "1024x768" 44.9 1024 1048 1208 1264 768 776 784 817 Interlace - -# 640x400 @ 85 Hz, 37.86 kHz hsync -Modeline "640x400" 31.5 640 672 736 832 400 401 404 445 -HSync +VSync -# 640x480 @ 72 Hz, 36.5 kHz hsync -Modeline "640x480" 31.5 640 680 720 864 480 488 491 521 -# 640x480 @ 75 Hz, 37.50 kHz hsync -ModeLine "640x480" 31.5 640 656 720 840 480 481 484 500 -HSync -VSync -# 800x600 @ 60 Hz, 37.8 kHz hsync -Modeline "800x600" 40 800 840 968 1056 600 601 605 628 +hsync +vsync - -# 640x480 @ 85 Hz, 43.27 kHz hsync -Modeline "640x480" 36 640 696 752 832 480 481 484 509 -HSync -VSync -# 1152x864 @ 89 Hz interlaced, 44 kHz hsync -ModeLine "1152x864" 65 1152 1168 1384 1480 864 865 875 985 Interlace - -# 800x600 @ 72 Hz, 48.0 kHz hsync -Modeline "800x600" 50 800 856 976 1040 600 637 643 666 +hsync +vsync -# 1024x768 @ 60 Hz, 48.4 kHz hsync -Modeline "1024x768" 65 1024 1032 1176 1344 768 771 777 806 -hsync -vsync - -# 640x480 @ 100 Hz, 53.01 kHz hsync -Modeline "640x480" 45.8 640 672 768 864 480 488 494 530 -HSync -VSync -# 1152x864 @ 60 Hz, 53.5 kHz hsync -Modeline "1152x864" 89.9 1152 1216 1472 1680 864 868 876 892 -HSync -VSync -# 800x600 @ 85 Hz, 55.84 kHz hsync -Modeline "800x600" 60.75 800 864 928 1088 600 616 621 657 -HSync -VSync - -# 1024x768 @ 70 Hz, 56.5 kHz hsync -Modeline "1024x768" 75 1024 1048 1184 1328 768 771 777 806 -hsync -vsync -# 1280x1024 @ 87 Hz interlaced, 51 kHz hsync -Modeline "1280x1024" 80 1280 1296 1512 1568 1024 1025 1037 1165 Interlace - -# 800x600 @ 100 Hz, 64.02 kHz hsync -Modeline "800x600" 69.65 800 864 928 1088 600 604 610 640 -HSync -VSync -# 1024x768 @ 76 Hz, 62.5 kHz hsync -Modeline "1024x768" 85 1024 1032 1152 1360 768 784 787 823 -# 1152x864 @ 70 Hz, 62.4 kHz hsync -Modeline "1152x864" 92 1152 1208 1368 1474 864 865 875 895 -# 1280x1024 @ 61 Hz, 64.2 kHz hsync -Modeline "1280x1024" 110 1280 1328 1512 1712 1024 1025 1028 1054 -# 1400x1050 @ 60 Hz, 65.5 kHz -ModeLine "1400x1050" 122.0 1400 1488 1640 1880 1050 1052 1064 1082 +HSync +VSync - -# 1024x768 @ 85 Hz, 70.24 kHz hsync -Modeline "1024x768" 98.9 1024 1056 1216 1408 768 782 788 822 -HSync -VSync -# 1152x864 @ 78 Hz, 70.8 kHz hsync -Modeline "1152x864" 110 1152 1240 1324 1552 864 864 876 908 - -# 1280x1024 @ 70 Hz, 74.59 kHz hsync -Modeline "1280x1024" 126.5 1280 1312 1472 1696 1024 1032 1040 1068 -HSync -VSync -# 1600x1200 @ 60Hz, 75.00 kHz hsync -Modeline "1600x1200" 162 1600 1664 1856 2160 1200 1201 1204 1250 +HSync +VSync -# 1152x864 @ 84 Hz, 76.0 kHz hsync -Modeline "1152x864" 135 1152 1464 1592 1776 864 864 876 908 - -# 1280x1024 @ 74 Hz, 78.85 kHz hsync -Modeline "1280x1024" 135 1280 1312 1456 1712 1024 1027 1030 1064 - -# 1024x768 @ 100Hz, 80.21 kHz hsync -Modeline "1024x768" 115.5 1024 1056 1248 1440 768 771 781 802 -HSync -VSync -# 1280x1024 @ 76 Hz, 81.13 kHz hsync -Modeline "1280x1024" 135 1280 1312 1416 1664 1024 1027 1030 1064 -# 1400x1050 @ 75 Hz, 82.2 kHz hsync -ModeLine "1400x1050" 155.8 1400 1464 1784 1912 1050 1052 1064 1090 +HSync +VSync - -# 1600x1200 @ 70 Hz, 87.50 kHz hsync -Modeline "1600x1200" 189 1600 1664 1856 2160 1200 1201 1204 1250 -HSync -VSync -# 1152x864 @ 100 Hz, 89.62 kHz hsync -Modeline "1152x864" 137.65 1152 1184 1312 1536 864 866 885 902 -HSync -VSync -# 1280x1024 @ 85 Hz, 91.15 kHz hsync -Modeline "1280x1024" 157.5 1280 1344 1504 1728 1024 1025 1028 1072 +HSync +VSync -# 1600x1200 @ 75 Hz, 93.75 kHz hsync -Modeline "1600x1200" 202.5 1600 1664 1856 2160 1200 1201 1204 1250 +HSync +VSync -# 1600x1200 @ 85 Hz, 105.77 kHz hsync -Modeline "1600x1200" 220 1600 1616 1808 2080 1200 1204 1207 1244 +HSync +VSync -# 1600x1200 @ 85 Hz, 106.3 kHz hsync -ModeLine "1600x1200" 229.5 1600 1664 1856 2160 1200 1201 1204 1250 +HSync +VSync -# 1280x1024 @ 100 Hz, 107.16 kHz hsync -Modeline "1280x1024" 181.75 1280 1312 1440 1696 1024 1031 1046 1072 -HSync -VSync - -# 1800x1440 @ 64Hz, 96.15 kHz hsync -ModeLine "1800X1440" 230 1800 1896 2088 2392 1440 1441 1444 1490 +HSync +VSync -# 1800x1440 @ 70Hz, 104.52 kHz hsync -ModeLine "1800X1440" 250 1800 1896 2088 2392 1440 1441 1444 1490 +HSync +VSync - -# 1920x1440 @ 60 Hz, 90.0 kHz hsync -ModeLine "1920x1440" 234.0 1920 2048 2256 2600 1440 1441 1444 1500 -HSync +VSync -# 1920x1440 @ 75 Hz, 112.5kHz hsync -ModeLine "1920x1440" 297.0 1920 2064 2288 2640 1440 1441 1444 1500 -HSync +VSync - -# 512x384 @ 78 Hz, 31.50 kHz hsync -Modeline "512x384" 20.160 512 528 592 640 384 385 388 404 -HSync -VSync -# 512x384 @ 85 Hz, 34.38 kHz hsync -Modeline "512x384" 22 512 528 592 640 384 385 388 404 -HSync -VSync - - -# Low-res Doublescan modes -# If your chipset does not support doublescan, you get a \'squashed\' -# resolution like 320x400. - -# 320x200 @ 70 Hz, 31.5 kHz hsync, 8:5 aspect ratio -Modeline "320x200" 12.588 320 336 384 400 200 204 205 225 Doublescan -# 320x240 @ 60 Hz, 31.5 kHz hsync, 4:3 aspect ratio -Modeline "320x240" 12.588 320 336 384 400 240 245 246 262 Doublescan -# 320x240 @ 72 Hz, 36.5 kHz hsync -Modeline "320x240" 15.750 320 336 384 400 240 244 246 262 Doublescan -# 400x300 @ 56 Hz, 35.2 kHz hsync, 4:3 aspect ratio -ModeLine "400x300" 18 400 416 448 512 300 301 302 312 Doublescan -# 400x300 @ 60 Hz, 37.8 kHz hsync -Modeline "400x300" 20 400 416 480 528 300 301 303 314 Doublescan -# 400x300 @ 72 Hz, 48.0 kHz hsync -Modeline "400x300" 25 400 424 488 520 300 319 322 333 Doublescan -# 480x300 @ 56 Hz, 35.2 kHz hsync, 8:5 aspect ratio -ModeLine "480x300" 21.656 480 496 536 616 300 301 302 312 Doublescan -# 480x300 @ 60 Hz, 37.8 kHz hsync -Modeline "480x300" 23.890 480 496 576 632 300 301 303 314 Doublescan -# 480x300 @ 63 Hz, 39.6 kHz hsync -Modeline "480x300" 25 480 496 576 632 300 301 303 314 Doublescan -# 480x300 @ 72 Hz, 48.0 kHz hsync -Modeline "480x300" 29.952 480 504 584 624 300 319 322 333 Doublescan + ModeLine "1280x1024" 134.989 1280 1317 1429 1688 1024 1025 1028 1066 +hsync +vsync +' : ' + # This is a set of extended mode timings typically used for laptop, + # TV fullscreen mode or DVD fullscreen output. + # These are available along with standard mode timings. + + # Sony Vaio C1(X,XS,VE,VN)? + # 1024x480 @ 85.6 Hz, 48 kHz hsync + ModeLine "1024x480" 65.00 1024 1032 1176 1344 480 488 494 563 -hsync -vsync + + # 768x576 @ 79 Hz, 50 kHz hsync + ModeLine "768x576" 50.00 768 832 846 1000 576 590 595 630 + # 768x576 @ 100 Hz, 61.6 kHz hsync + ModeLine "768x576" 63.07 768 800 960 1024 576 578 590 616 '; -$devicesection_text = ' -# ********************************************************************** -# Graphics device section -# ********************************************************************** - -Section "Device" - Identifier "Generic VGA" - Chipset "generic" -EndSection +$ModeLines_text_standard = ' + # This is a set of standard mode timings. Modes that are out of monitor spec + # are automatically deleted by the server (provided the HorizSync and + # VertRefresh lines are correct), so there\'s no immediate need to + # delete mode timings (unless particular mode timings don\'t work on your + # monitor). With these modes, the best standard mode that your monitor + # and video card can support for a given resolution is automatically + # used. + + # 640x400 @ 70 Hz, 31.5 kHz hsync + ModeLine "640x400" 25.175 640 664 760 800 400 409 411 450 + # 640x480 @ 60 Hz, 31.5 kHz hsync + ModeLine "640x480" 25.175 640 664 760 800 480 491 493 525 + # 800x600 @ 56 Hz, 35.15 kHz hsync + ModeLine "800x600" 36 800 824 896 1024 600 601 603 625 + # 1024x768 @ 87 Hz interlaced, 35.5 kHz hsync + ModeLine "1024x768" 44.9 1024 1048 1208 1264 768 776 784 817 Interlace + + # 640x400 @ 85 Hz, 37.86 kHz hsync + ModeLine "640x400" 31.5 640 672 736 832 400 401 404 445 -HSync +VSync + # 640x480 @ 75 Hz, 37.50 kHz hsync + ModeLine "640x480" 31.5 640 656 720 840 480 481 484 500 -HSync -VSync + # 800x600 @ 60 Hz, 37.8 kHz hsync + ModeLine "800x600" 40 800 840 968 1056 600 601 605 628 +hsync +vsync + + # 640x480 @ 85 Hz, 43.27 kHz hsync + ModeLine "640x480" 36 640 696 752 832 480 481 484 509 -HSync -VSync + # 1152x864 @ 89 Hz interlaced, 44 kHz hsync + ModeLine "1152x864" 65 1152 1168 1384 1480 864 865 875 985 Interlace + + # 800x600 @ 72 Hz, 48.0 kHz hsync + ModeLine "800x600" 50 800 856 976 1040 600 637 643 666 +hsync +vsync + # 1024x768 @ 60 Hz, 48.4 kHz hsync + ModeLine "1024x768" 65 1024 1032 1176 1344 768 771 777 806 -hsync -vsync + + # 640x480 @ 100 Hz, 53.01 kHz hsync + ModeLine "640x480" 45.8 640 672 768 864 480 488 494 530 -HSync -VSync + # 1152x864 @ 60 Hz, 53.5 kHz hsync + ModeLine "1152x864" 89.9 1152 1216 1472 1680 864 868 876 892 -HSync -VSync + # 800x600 @ 85 Hz, 55.84 kHz hsync + ModeLine "800x600" 60.75 800 864 928 1088 600 616 621 657 -HSync -VSync + + # 1024x768 @ 70 Hz, 56.5 kHz hsync + ModeLine "1024x768" 75 1024 1048 1184 1328 768 771 777 806 -hsync -vsync + # 1280x1024 @ 87 Hz interlaced, 51 kHz hsync + ModeLine "1280x1024" 80 1280 1296 1512 1568 1024 1025 1037 1165 Interlace + + # 800x600 @ 100 Hz, 64.02 kHz hsync + ModeLine "800x600" 69.65 800 864 928 1088 600 604 610 640 -HSync -VSync + # 1024x768 @ 76 Hz, 62.5 kHz hsync + ModeLine "1024x768" 85 1024 1032 1152 1360 768 784 787 823 + # 1152x864 @ 70 Hz, 62.4 kHz hsync + ModeLine "1152x864" 92 1152 1208 1368 1474 864 865 875 895 + # 1280x1024 @ 61 Hz, 64.2 kHz hsync + ModeLine "1280x1024" 110 1280 1328 1512 1712 1024 1025 1028 1054 + # 1400x1050 @ 60 Hz, 65.5 kHz + ModeLine "1400x1050" 122.0 1400 1488 1640 1880 1050 1052 1064 1082 +HSync +VSync + + # 1024x768 @ 85 Hz, 70.24 kHz hsync + ModeLine "1024x768" 98.9 1024 1056 1216 1408 768 782 788 822 -HSync -VSync + # 1152x864 @ 78 Hz, 70.8 kHz hsync + ModeLine "1152x864" 110 1152 1240 1324 1552 864 864 876 908 + + # 1280x1024 @ 70 Hz, 74.59 kHz hsync + ModeLine "1280x1024" 126.5 1280 1312 1472 1696 1024 1032 1040 1068 -HSync -VSync + # 1600x1200 @ 60Hz, 75.00 kHz hsync + ModeLine "1600x1200" 162 1600 1664 1856 2160 1200 1201 1204 1250 +HSync +VSync + # 1152x864 @ 84 Hz, 76.0 kHz hsync + ModeLine "1152x864" 135 1152 1464 1592 1776 864 864 876 908 + + # 1280x1024 @ 75 Hz, 79.98 kHz hsync + ModeLine "1280x1024" 135 1280 1296 1440 1688 1024 1025 1028 1066 +HSync +VSync + + # 1024x768 @ 100Hz, 80.21 kHz hsync + ModeLine "1024x768" 115.5 1024 1056 1248 1440 768 771 781 802 -HSync -VSync + # 1400x1050 @ 75 Hz, 82.2 kHz hsync + ModeLine "1400x1050" 155.8 1400 1464 1784 1912 1050 1052 1064 1090 +HSync +VSync + + # 1600x1200 @ 70 Hz, 87.50 kHz hsync + ModeLine "1600x1200" 189 1600 1664 1856 2160 1200 1201 1204 1250 -HSync -VSync + # 1152x864 @ 100 Hz, 89.62 kHz hsync + ModeLine "1152x864" 137.65 1152 1184 1312 1536 864 866 885 902 -HSync -VSync + # 1280x1024 @ 85 Hz, 91.15 kHz hsync + ModeLine "1280x1024" 157.5 1280 1344 1504 1728 1024 1025 1028 1072 +HSync +VSync + # 1600x1200 @ 75 Hz, 93.75 kHz hsync + ModeLine "1600x1200" 202.5 1600 1664 1856 2160 1200 1201 1204 1250 +HSync +VSync + # 1600x1200 @ 85 Hz, 105.77 kHz hsync + ModeLine "1600x1200" 220 1600 1616 1808 2080 1200 1204 1207 1244 +HSync +VSync + # 1600x1200 @ 85 Hz, 106.3 kHz hsync + ModeLine "1600x1200" 229.5 1600 1664 1856 2160 1200 1201 1204 1250 +HSync +VSync + # 1280x1024 @ 100 Hz, 107.16 kHz hsync + ModeLine "1280x1024" 181.75 1280 1312 1440 1696 1024 1031 1046 1072 -HSync -VSync + + # 1800x1440 @ 64Hz, 96.15 kHz hsync + ModeLine "1800X1440" 230 1800 1896 2088 2392 1440 1441 1444 1490 +HSync +VSync + # 1800x1440 @ 70Hz, 104.52 kHz hsync + ModeLine "1800X1440" 250 1800 1896 2088 2392 1440 1441 1444 1490 +HSync +VSync + + # 1920x1440 @ 60 Hz, 90.0 kHz hsync + ModeLine "1920x1440" 234.0 1920 2048 2256 2600 1440 1441 1444 1500 -HSync +VSync + # 1920x1440 @ 75 Hz, 112.5kHz hsync + ModeLine "1920x1440" 297.0 1920 2064 2288 2640 1440 1441 1444 1500 -HSync +VSync + + # 512x384 @ 78 Hz, 31.50 kHz hsync + ModeLine "512x384" 20.160 512 528 592 640 384 385 388 404 -HSync -VSync + # 512x384 @ 85 Hz, 34.38 kHz hsync + ModeLine "512x384" 22 512 528 592 640 384 385 388 404 -HSync -VSync + + + # Low-res Doublescan modes + # If your chipset does not support doublescan, you get a \'squashed\' + # resolution like 320x400. + + # 320x200 @ 70 Hz, 31.5 kHz hsync, 8:5 aspect ratio + ModeLine "320x200" 12.588 320 336 384 400 200 204 205 225 Doublescan + # 320x240 @ 60 Hz, 31.5 kHz hsync, 4:3 aspect ratio + ModeLine "320x240" 12.588 320 336 384 400 240 245 246 262 Doublescan + # 320x240 @ 72 Hz, 36.5 kHz hsync + ModeLine "320x240" 15.750 320 336 384 400 240 244 246 262 Doublescan + # 400x300 @ 56 Hz, 35.2 kHz hsync, 4:3 aspect ratio + ModeLine "400x300" 18 400 416 448 512 300 301 302 312 Doublescan + # 400x300 @ 60 Hz, 37.8 kHz hsync + ModeLine "400x300" 20 400 416 480 528 300 301 303 314 Doublescan + # 400x300 @ 72 Hz, 48.0 kHz hsync + ModeLine "400x300" 25 400 424 488 520 300 319 322 333 Doublescan + # 480x300 @ 56 Hz, 35.2 kHz hsync, 8:5 aspect ratio + ModeLine "480x300" 21.656 480 496 536 616 300 301 302 312 Doublescan + # 480x300 @ 60 Hz, 37.8 kHz hsync + ModeLine "480x300" 23.890 480 496 576 632 300 301 303 314 Doublescan + # 480x300 @ 63 Hz, 39.6 kHz hsync + ModeLine "480x300" 25 480 496 576 632 300 301 303 314 Doublescan + # 480x300 @ 72 Hz, 48.0 kHz hsync + ModeLine "480x300" 29.952 480 504 584 624 300 319 322 333 Doublescan '; -$devicesection_text_v4 = ' +$devicesection_text = ' # ********************************************************************** # Graphics device section # ********************************************************************** Section "Device" Identifier "Generic VGA" - Driver "vga" + Chipset "generic" EndSection '; - -$screensection_text1 = ' -# ********************************************************************** -# Screen sections -# ********************************************************************** -'; - diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 982e49534..953b0f819 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -881,7 +881,7 @@ sub setupBootloader($) { #------------------------------------------------------------------------------ sub configureXBefore { my ($o) = @_; - my $xkb = $o->{X}{keyboard}{xkb_keymap} || keyboard::keyboard2xkb($o->{keyboard}); + my $xkb = $o->{X}{keyboard}{XkbLayout} || keyboard::keyboard2xkb($o->{keyboard}); $xkb = '' if !($xkb && $xkb =~ /([^(]*)/ && -e "$o->{prefix}/usr/X11R6/lib/X11/xkb/symbols/$1"); if (!$xkb && (my $f = keyboard::xmodmap_file($o->{keyboard}))) { cp_af($f, "$o->{prefix}/etc/X11/xinit/Xmodmap"); @@ -891,7 +891,7 @@ sub configureXBefore { my $f = "$o->{prefix}/etc/sysconfig/i18n"; setVarsInSh($f, add2hash_({ XKB_IN_USE => $xkb ? '': 'no' }, { getVarsFromSh($f) })); } - $o->{X}{keyboard}{xkb_keymap} = $xkb; + $o->{X}{keyboard}{XkbLayout} = $xkb; $o->{X}{mouse} = $o->{mouse}; $o->{X}{wacom} = $o->{wacom}; @@ -921,12 +921,12 @@ sub configureX { sub configureXAfter { my ($o) = @_; if ($o->{X}{card}{server} eq 'FBDev') { - unless (install_any::setupFB($o, Xconfigurator::getVGAMode($o->{X}))) { + install_any::setupFB($o, $o->{X}{card}{bios_vga_mode}) or do { log::l("disabling automatic start-up of X11 if any as setup framebuffer failed"); - any::runlevel($o->{prefix}, 3) unless $::testing; #- disable automatic start-up of X11 on error. - } + any::runlevel($o->{prefix}, 3); #- disable automatic start-up of X11 on error. + }; } - if ($o->{X}{default_depth} >= 16 && $o->{X}{card}{default_wres} >= 1024) { + if ($o->{X}{default_depth} >= 16 && $o->{X}{card}{default_x_res} >= 1024) { log::l("setting large icon style for kde"); install_any::kderc_largedisplay($o->{prefix}); } diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake index e432b9681..e5e7b5609 100755 --- a/perl-install/standalone/XFdrake +++ b/perl-install/standalone/XFdrake @@ -60,45 +60,36 @@ Xconfig::getinfo($i); Xconfig::getinfoFromXF86Config($i); #- take default from here at least. my $allowNVIDIA_rpms; -my (%list, %select); -#- local *F; -#- open F, "/var/lib/urpmi/depslist.ordered"; -#- while (<F>) { -#- /(.*NVIDIA.*)-([^-]*)-([^-]*)\s+/ and $list{$1} = 1; -#- } -#- close F; -#- now replaced by the following code using directly urpm library. -eval { - require urpm; - my $urpm = new urpm; - $urpm->read_config(nocheck_access => 1); - foreach (grep { !$_->{ignore} } @{$urpm->{media} || []}) { - $urpm->parse_synthesis($_); - } - foreach (@{$urpm->{params}{depslist} || []}) { - $_->{name} =~ /NVIDIA/ and $list->{$_->{name}} = 1; - } -}; -if ($list{NVIDIA_GLX}) { +{ + my (%list, %select); eval { - my ($version, $release, $ext) = `uname -r` =~ /([^-]*)-([^-]*mdk)(\S*)/; - $ext and $ext = "-$ext"; - $list{"NVIDIA_kernel-$version-$release$ext"} or die "no NVIDIA kernel for current kernel"; - $select{"NVIDIA_kernel-$version-$release$ext"} = 1; - foreach (`rpm -qa kernel-2* kernel-smp-2* kernel-enterprise-2* kernel-secure-2* kernel kernel-smp kernel-entreprise kernel22 kernel22-smp kernel22-secure`) { - ($ext, $version, $release) = /kernel[^-]*(-\D[^-]*)-([^-]*)-([^-]*mdk)?/; - $release or ($version, $release) = $version =~ /(.*?)\.(\d+mdk)/; - $list{"NVIDIA_kernel-$version-$release$ext"} and $select{"NVIDIA_kernel-$version-$release$ext"} = 1; + require urpm; + my $urpm = new urpm; + $urpm->read_config(nocheck_access => 1); + foreach (grep { !$_->{ignore} } @{$urpm->{media} || []}) { + $urpm->parse_synthesis($_); + } + foreach (@{$urpm->{params}{depslist} || []}) { + $_->{name} =~ /NVIDIA/ and $list->{$_->{name}} = 1; + } + }; + if ($list{NVIDIA_GLX}) { + eval { + my ($version, $release, $ext) = c::kernel_version() =~ /([^-]*)-([^-]*mdk)(\S*)/; + $ext and $ext = "-$ext"; + $list{"NVIDIA_kernel-$version-$release$ext"} or die "no NVIDIA kernel for current kernel"; + $select{"NVIDIA_kernel-$version-$release$ext"} = 1; + foreach (`rpm -qa kernel-2* kernel-smp-2* kernel-enterprise-2* kernel-secure-2* kernel kernel-smp kernel-entreprise kernel22 kernel22-smp kernel22-secure`) { + ($ext, $version, $release) = /kernel[^-]*(-\D[^-]*)-([^-]*)-([^-]*mdk)?/; + $release or ($version, $release) = $version =~ /(.*?)\.(\d+mdk)/; + $list{"NVIDIA_kernel-$version-$release$ext"} and $select{"NVIDIA_kernel-$version-$release$ext"} = 1; + } + $allowNVIDIA_rpms = [ keys(%select), "NVIDIA_GLX" ]; } - $allowNVIDIA_rpms = [ keys(%select), "NVIDIA_GLX" ]; } -} -if (!$allowNVIDIA_rpms) { - my ($uname_r) = `uname -r` =~ /(\S+)/; - $allowNVIDIA_rpms = ((-e "/lib/modules/$uname_r/kernel/drivers/char/NVdriver.o.gz" || - -e "/lib/modules/$uname_r/kernel/drivers/char/NVdriver.o") && - -e "/usr/X11R6/lib/modules/drivers/nvidia_drv.o" && - -e "/usr/X11R6/lib/modules/extensions/libglx.so") && []; #- empty list but true. + if (!$allowNVIDIA_rpms) { + $allowNVIDIA_rpms = system("modprobe NVdriver 2>/dev/null") == 0 && []; #- empty list but true. + } } $::isEmbedded and kill USR2, $::CCPID; |