This commit was manufactured by cvs2svn to create tag 'V1_1_9_9mdk'.V1_1_9_9mdk

1 files changed, 0 insertions, 105 deletions

diff --git a/perl-install/Xconfig/xfree.pm b/perl-install/Xconfig/xfree.pm
deleted file mode 100644
index 69c1b307e..000000000
--- a/perl-install/Xconfig/xfree.pm
+++ /dev/null
@@ -1,105 +0,0 @@
-package Xconfig::xfree; # $Id$
-
-use diagnostics;
-use strict;
-
-use common;
-use Xconfig::parse;
-use Xconfig::xfree3;
-use Xconfig::xfree4;
-use log;
-
-
-#- files are optional
-sub read {
-    my ($class, $xfree3_file, $xfree4_file) = @_;
-    bless { xfree3 => Xconfig::xfree3->read($xfree3_file), 
-	    xfree4 => Xconfig::xfree4->read($xfree4_file) }, $class;
-}
-#- files are optional
-sub write {
-    my ($both, $xfree3_file, $xfree4_file) = @_;
-    $both->{xfree3}->write($xfree3_file);
-    $both->{xfree4}->write($xfree4_file);
-}
-
-sub empty_config {
-    my ($class) = @_;
-    bless { xfree3 => Xconfig::xfree3->empty_config, 
-	    xfree4 => Xconfig::xfree4->empty_config }, $class;
-}
-
-sub get_keyboard { get_both('get_keyboard', @_) }
-sub set_keyboard { set_both('set_keyboard', @_) }
-sub get_mice     { get_both('get_mice', @_) }
-sub set_mice     { set_both('set_mice', @_) }
-
-sub get_resolution { get_both('get_resolution', @_) }
-sub set_resolution { set_both('set_resolution', @_) }
-
-sub get_device   { get_both('get_device', @_) }
-sub get_devices  { get_both('get_devices', @_) }
-sub set_devices  { set_both('set_devices', @_) }
-
-sub set_wacoms { set_both('set_wacoms', @_) }
-
-sub get_monitor  { get_both('get_monitor', @_) }
-sub get_monitors { get_both('get_monitors', @_) }
-sub set_monitors { set_both('set_monitors', @_) }
-
-#-##############################################################################
-#- helpers
-#-##############################################################################
-sub get_both {
-    my ($getter, $both) = @_;
-
-    my @l3 = $both->{xfree3}->$getter;
-    my @l4 = $both->{xfree4}->$getter;
-    merge_values(\@l3, \@l4);
-}
-sub set_both {
-    my ($setter, $both, @l) = @_;
-
-    $both->{xfree3}->$setter(@l);
-    $both->{xfree4}->$setter(@l);
-}
-
-sub merge_values {
-    my ($l3, $l4) = @_;
-
-    sub merge_values__hashes {
-	my ($h3, $h4) = @_;
-	$h3 || $h4 or return;
-	$h3 or return $h4;
-	$h4 or return $h3;
-
-	my %h = %$h4;
-	foreach (keys %$h3) {
-	    if (exists $h{$_}) {
-		if (ref($h{$_}) eq 'HASH' && ref($h3->{$_}) eq 'HASH') {
-		    #- needed for "Options" of Devices
-		    $h{$_} = +{ %{$h3->{$_}}, %{$h{$_}} };
-		} else {
-		    my $s4  = join(", ", deref_array($h{$_}));
-		    my $s3  = join(", ", deref_array($h3->{$_}));
-		    my $s3_ = join(", ", map { qq("$_") } deref_array($h3->{$_}));
-		    if ($s4 eq $s3_) {
-			#- keeping the non-double-quoted value
-			$h{$_} = $h3->{$_};
-		    } else {
-			$s4 eq $s3 or log::l(qq(XFree: conflicting value for $_, "$s4" and "$s3" are different));
-		    }
-		}
-	    } else {
-		$h{$_} = $h3->{$_};
-	    }
-	}
-	\%h;
-    }
-
-    my @r = mapn(\&merge_values__hashes, $l3, $l4);
-
-    @r == 1 ? $r[0] : @r;
-}
-
-1;