xwininfo libX11 libXmu libxcb mesa xserver xkeyboard-config git update 29

aug 2011

3 files changed, 3 insertions, 543 deletions

diff --git a/libX11/nls/Makefile.am b/libX11/nls/Makefile.am
index cabaf40e1..7dc43088c 100644
--- a/libX11/nls/Makefile.am
+++ b/libX11/nls/Makefile.am
@@ -1,14 +1,10 @@
 
 x11localedir = $(X11_LOCALEDATADIR)
-specdir = $(docdir)/Compose
 CLEANFILES =
-XMLTO_FLAGS =
 SUFFIXES =
 
-include $(top_srcdir)/nls/xmlrules.in
-
 EXTRA_DIST = locale.alias.pre compose.dir.pre locale.dir.pre \
-	compose-check.pl compose-chart.pl
+	compose-check.pl
 
 x11locale_DATA = locale.alias locale.dir compose.dir
 
@@ -18,68 +14,6 @@ CLEANFILES += \
 	locale.dir locale.dir.l1 locale.dir.l2 \
 	XLC_LOCALE
 
-locales = \
-	am_ET.UTF-8		\
-	armscii-8		\
-	C			\
-	el_GR.UTF-8		\
-	en_US.UTF-8		\
-	fi_FI.UTF-8		\
-	georgian-academy	\
-	georgian-ps		\
-	ibm-cp1133		\
-	iscii-dev		\
-	isiri-3342		\
-	iso8859-1		\
-	iso8859-10		\
-	iso8859-11		\
-	iso8859-13		\
-	iso8859-14		\
-	iso8859-15		\
-	iso8859-2		\
-	iso8859-3		\
-	iso8859-4		\
-	iso8859-5		\
-	iso8859-6		\
-	iso8859-7		\
-	iso8859-8		\
-	iso8859-9		\
-	iso8859-9e		\
-	ja			\
-	ja.JIS			\
-	ja_JP.UTF-8		\
-	ja.S90			\
-	ja.SJIS			\
-	ja.U90			\
-	ko			\
-	koi8-c			\
-	koi8-r			\
-	koi8-u			\
-	ko_KR.UTF-8		\
-	microsoft-cp1251	\
-	microsoft-cp1255	\
-	microsoft-cp1256	\
-	mulelao-1		\
-	nokhchi-1		\
-	pt_BR.UTF-8		\
-	ru_RU.UTF-8		\
-	tatar-cyr		\
-	th_TH			\
-	th_TH.UTF-8		\
-	tscii-0			\
-	vi_VN.tcvn		\
-	vi_VN.viscii		\
-	zh_CN			\
-	zh_CN.gb18030		\
-	zh_CN.gbk		\
-	zh_CN.UTF-8		\
-	zh_HK.big5		\
-	zh_HK.big5hkscs		\
-	zh_HK.UTF-8		\
-	zh_TW			\
-	zh_TW.big5		\
-	zh_TW.UTF-8
-
 include $(top_srcdir)/cpprules.in
 
 # Global data files
@@ -103,16 +37,8 @@ locale.dir: locale.dir.pre
 	cat locale.dir.l2 locale.dir.l1 > locale.dir
 
 if HAVE_PERL
-doc_sources = Compose/index.xml
-
-Compose/index.xml:
-	@$(MKDIR_P) $(@D)
-	$(AM_V_GEN)$(PERL) $(srcdir)/compose-chart.pl \
-	 --index --output="$@" $(locales)
-
-clean-local: clean-Compose-dir
-clean-Compose-dir:
-	-rm -rf Compose
+TESTS_ENVIRONMENT = $(PERL)
+TESTS = $(srcdir)/compose-check.pl
 endif HAVE_PERL
 
 
@@ -124,21 +50,3 @@ nobase_x11locale_DATA = $(locales:%=%/XLC_LOCALE) $(locales:%=%/Compose)
 EXTRA_DIST += $(nobase_x11locale_DATA:%=%.pre)
 CLEANFILES += $(nobase_x11locale_DATA)
 
-if HAVE_PERL
-TESTS_ENVIRONMENT = $(PERL)
-TESTS = $(srcdir)/compose-check.pl
-
-COMPOSE_CHARTS = $(locales:%=%/Compose.xml)
-doc_sources += $(locales:%=Compose/%.xml)
-CLEANFILES += $(COMPOSE_CHARTS) $(doc_sources)
-
-XMLTO_FLAGS += -o $(@D)
-
-%/Compose.xml: %/Compose
-	$(AM_V_GEN)$(PERL) $(srcdir)/compose-chart.pl \
-	 --locale="$(@D)" --output="$@" $<
-
-Compose/%.xml: %/Compose.xml
-	$(AM_V_GEN)cp $< $@
-
-endif HAVE_PERL
diff --git a/libX11/nls/compose-chart.pl b/libX11/nls/compose-chart.pl
deleted file mode 100644
index c38ae8320..000000000
--- a/libX11/nls/compose-chart.pl
+++ /dev/null
@@ -1,389 +0,0 @@
-#! /usr/bin/perl

-#

-# Copyright 2009, 2010, Oracle and/or its affiliates. All rights reserved.

-#

-# Permission is hereby granted, free of charge, to any person obtaining a

-# copy of this software and associated documentation files (the "Software"),

-# to deal in the Software without restriction, including without limitation

-# the rights to use, copy, modify, merge, publish, distribute, sublicense,

-# and/or sell copies of the Software, and to permit persons to whom the

-# Software is furnished to do so, subject to the following conditions:

-#

-# The above copyright notice and this permission notice (including the next

-# paragraph) shall be included in all copies or substantial portions of the

-# Software.

-#

-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR

-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,

-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL

-# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER

-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING

-# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER

-# DEALINGS IN THE SOFTWARE.

-#

-

-#

-# Make a DocBook chart showing compose combinations for a locale

-#

-# See perldoc at end (or run with --help or --man options) for details

-# of command-line options.

-#

-

-# Compose file grammar is defined in modules/im/ximcp/imLcPrs.c

-

-use strict;

-use warnings;

-use Getopt::Long;

-use Pod::Usage;

-

-my $error_count = 0;

-

-my $charset;

-my $locale_name;

-my $output_filename = '-';

-my $man = 0;

-my $help = 0;

-my $make_index = 0;

-

-GetOptions ('charset:s' => \$charset,

-	    'locale=s' => \$locale_name,

-	    'output=s' => \$output_filename,

-	    'index' => \$make_index,

-	    'help|?' => \$help,

-	    'man' => \$man)

-    or pod2usage(2);

-pod2usage(1) if $help;

-pod2usage(-exitstatus => 0, -verbose => 2) if $man;

-

-if (!defined($charset) || ($charset eq "")) {

-  if (defined($locale_name)) {

-    my $guessed_charset = $locale_name;

-    $guessed_charset =~ s{^.*\.}{};

-    if ($guessed_charset =~ m{^(utf-8|gbk|gb18030)$}i) {

-      $charset = $1;

-    } elsif ($guessed_charset =~ m{iso8859-(\d+)}i) {

-      $charset = "iso-8859-$1";

-    } elsif ($guessed_charset =~ m{^microsoft-cp(125\d)$}) {

-      $charset = "windows-$1";

-    }

-  }

-  if (!defined($charset) || ($charset eq "")) {

-    $charset = "utf-8";

-  }

-}

-

-if ($make_index) {

-  # Print Docbook output

-  open my $OUTPUT, '>', $output_filename

-      or die "Could not create $output_filename: $!";

-

-  print $OUTPUT

-      join ("\n",

-	    qq(<?xml version="1.0" encoding="$charset" ?>),

-	    q(<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN"),

-	    q( "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd">),

-	    q(<article id="compose-index">),

-	    q(<simplesect>),

-	    q(<title>Xlib Compose Key Charts</title>),

-	    q(<simplelist type='horiz' columns='3'>),

-	    ( map { qq(<member><ulink url="$_.html">$_</ulink></member>) }

-	      @ARGV ),

-	    q(</simplelist>),

-	    q(</simplesect>),

-	    q(</article>),

-	    "\n"

-      );

-

-  close $OUTPUT or die "Couldn't write $output_filename: $!";

-

-  exit(0);

-}

-

-foreach my $a (@ARGV) {

-  $error_count += make_compose_chart($a);

-}

-

-exit($error_count);

-

-sub make_compose_chart {

-  my ($filename) = @_;

-  my $errors = 0;

-

-  my @compose_table = ();

-  my @included_files = ();

-

-  my $line = 0;

-  my $pre_file = ($filename =~ m{\.pre$}) ? 1 : 0;

-  my $in_c_comment = 0;

-  my $in_comment = 0;

-  my $keyseq_count = 0;

-

-  open my $COMPOSE, '<', $filename or die "Could not open $filename: $!";

-

- COMPOSE_LINE:

-  while (my $cl = <$COMPOSE>) {

-    $line++;

-    chomp($cl);

-    my $original_line = $cl;

-

-    # Special handling for changes cpp makes to .pre files

-    if ($pre_file == 1) {

-      if ($in_c_comment) {		# Look for end of multi-line C comment

-	if ($cl =~ m{\*/(.*)$}) {

-	  $cl = $1;

-	  $in_c_comment = 0;

-	} else {

-	  next;

-	}

-      }

-      $cl =~ s{/\*.\**/}{};		# Remove single line C comments

-      if ($cl =~ m{^(.*)/\*}) {		# Start of a multi-line C comment

-	$cl = $1;

-	$in_c_comment = 1;

-      }

-      $cl =~ s{^\s*XCOMM}{#};		# Translate pre-processing comments

-    }

-

-    chomp($cl);

-

-    if ($cl =~ m{^\s*#\s*(.*)$}) {	# Comment only lines

-      # Combine commment blocks

-      my $comment = $1;

-

-      if ($in_comment) {

-	my $prev_comment = pop @compose_table;

-	$comment = join(' ', $prev_comment->{-comment}, $comment);

-      } else {

-	$in_comment = 1;

-      }

-

-      push @compose_table, { -type => 'comment', -comment => $comment };

-      next COMPOSE_LINE;

-    }

-

-    $in_comment = 0;

-

-    if ($cl =~ m{^\s*$}) {		# Skip blank lines

-      next COMPOSE_LINE;

-    }

-    elsif ($cl =~ m{^(STATE\s+|END_STATE)}) {

-      # Sun extension to compose file syntax

-      next COMPOSE_LINE;

-    }

-    elsif ($cl =~ m{^([^:]+)\s*:\s*(.+)$}) {

-      my ($seq, $action) = ($1, $2);

-      $seq =~ s{\s+$}{};

-

-      my @keys = grep { $_ !~ m/^\s*$/ } split /[\s\<\>]+/, $seq;

-

-      push @compose_table, {

-	-type => 'keyseq',

-	-keys => [ @keys ],

-	-action => $action

-      };

-      $keyseq_count++;

-      next COMPOSE_LINE;

-    } elsif ($cl =~ m{^(STATE_TYPE:|\@StartDeadKeyMap|\@EndDeadKeyMap)}) {

-      # ignore

-      next COMPOSE_LINE;

-    } elsif ($cl =~ m{^include "(.*)"}) {

-      my $incpath = $1;

-      $incpath =~ s{^X11_LOCALEDATADIR/(.*)/Compose}{the $1 compose table};

-

-      push @included_files, $incpath;

-      next COMPOSE_LINE;

-    } else {

-      print STDERR ('Unrecognized pattern in ', $filename,

-		    ' on line #', $line, ":\n  ", $cl, "\n");

-    }

-  }

-  close $COMPOSE;

-

-  if ($errors > 0) {

-    return $errors;

-  }

-

-  # Print Docbook output

-  open my $OUTPUT, '>', $output_filename

-      or die "Could not create $output_filename: $!";

-

-  print $OUTPUT

-      join ("\n",

-	    qq(<?xml version="1.0" encoding="$charset" ?>),

-	    q(<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.3//EN"),

-	    q( "http://www.oasis-open.org/docbook/xml/4.3/docbookx.dtd">),

-	    qq(<article id="$locale_name">),

-	    q(<simplesect>),

-	    qq(<title>Xlib Compose Keys for $locale_name</title>),

-	    q(<para>Applications using Xlib input handling should recognize),

-	    q( these compose key sequences in locales using the),

-	    qq( $locale_name compose table.</para>),

-	    "\n"

-      );

-

-  if (@included_files) {

-    print $OUTPUT

-	q(<para>This compose table includes the non-conflicting),

-	q( entries from: ),

-	join(',', @included_files),

-	q(.  Those entries are not shown here - see those charts for the),

-	q( included key sequences.</para>),

-	"\n";

-  }

-

-  my @pretable_comments = ();

-

-  if ($keyseq_count == 0) {

-    @pretable_comments = @compose_table;

-  } elsif ($compose_table[0]->{-type} eq 'comment') {

-    push @pretable_comments, shift @compose_table;

-  }

-

-  foreach my $comment_ref (@pretable_comments) {

-    print $OUTPUT

-	qq(<para>), xml_escape($comment_ref->{-comment}), qq(</para>\n);

-  }

-

-  if ($keyseq_count > 0) {

-    start_table($OUTPUT);

-    my $row_count = 0;

-

-    foreach my $cr (@compose_table) {

-

-      if ($row_count++ > 750) {

-	# Break tables every 750 rows to avoid overflowing

-	# xmlto/xsltproc limits on the largest tables

-	end_table($OUTPUT);

-	start_table($OUTPUT);

-	$row_count = 0;

-      }

-

-      if ($cr->{-type} eq 'comment') {

-	print $OUTPUT

-	    qq(<row><entry namest='seq' nameend='action'>),

-	    xml_escape($cr->{-comment}), qq(</entry></row>\n);

-      } elsif ($cr->{-type} eq 'keyseq') {

-	my $action = join(" ", xml_escape($cr->{-action}));

-	if ($action =~ m{^\s*"\\([0-7]+)"}) {

-	  my $char = oct($1);

-	  if ($char >= 32) {

-	    $action =~ s{^\s*"\\[0-7]+"}{"&#$char;"};

-	  }

-	}

-	$action =~ s{^\s*"(.+)"}{"$1"};

-

-	print $OUTPUT

-	    qq(<row><entry>),

-	    qq(<keycombo action='seq'>),

-	    (map { qq(<keysym>$_</keysym>) } xml_escape(@{$cr->{-keys}})),

-	    qq(</keycombo>),

-	    qq(</entry><entry>),

-	    $action,

-	    qq(</entry></row>\n);

-      }

-    }

-

-    end_table($OUTPUT);

-  } else {

-    print $OUTPUT

-	qq(<para><emphasis>),

-	qq(This compose table defines no sequences of its own.),

-	qq(</emphasis></para>\n);

-  }

-  print $OUTPUT "</simplesect>\n</article>\n";

-

-  close $OUTPUT or die "Couldn't write $output_filename: $!";

-

-  return $errors;

-}

-

-sub xml_escape {

-  my @output;

-

-  foreach my $l (@_) {

-      $l =~ s{\&}{&amp;}g;

-      $l =~ s{\<}{&lt;}g;

-      $l =~ s{\>}{&gt;}g;

-      push @output, $l;

-  }

-  return @output;

-}

-

-sub start_table {

-  my ($OUTPUT) = @_;

-

-  print $OUTPUT

-      join("\n",

-	   qq(<table><title>Compose Key Sequences for $locale_name</title>),

-	   qq(<tgroup cols='2'>),

-	   qq( <colspec colname='seq' /><colspec colname='action' />),

-	   qq( <thead><row>),

-	   qq(  <entry>Key Sequence</entry><entry>Action</entry>),

-	   qq( </row></thead>),

-	   qq( <tbody>\n),

-      );

-}

-

-sub end_table {

-  my ($OUTPUT) = @_;

-

-  print $OUTPUT "</tbody>\n</tgroup>\n</table>\n";

-}

-

-__END__

-

-=head1 NAME

-

-compose-chart - Make DocBook/XML charts of compose table entries

-

-=head1 SYNOPSIS

-

-compose-chart [options] [file ...]

-

- Options:

-    --charset[=<cset>]	character set to specify in XML doctype

-    --locale=<locale>	name of locale to display in chart

-    --output=<file>	filename to output chart to

-    --index		make index of charts instead of individual chart

-    --help		brief help message

-    --man		full documentation

-

-=head1 OPTIONS

-

-=over 8

-

-=item B<--charset>[=I<cset>]

-

-Specify a character set to list in the doctype declaration in the XML output.

-If not specified, attempts to guess from the locale name, else default to

-"utf-8".

-

-=item B<--locale>=I<locale>

-

-Specify the locale name to use in the chart titles and introductory text.

-

-=item B<--output>=I<file>

-

-Specify the output file to write the DocBook output to.

-

-=item B<--index>

-

-Generate an index of the listed locale charts instead of a chart for a

-specific locale.

-

-=item B<--help>

-

-Print a brief help message and exit.

-

-=item B<--man>

-

-Print the manual page and exit.

-

-=back

-

-=head1 DESCRIPTION

-

-This program will read the given compose table file(s) and generate

-DocBook/XML charts listing the available characters for end-user reference.

-

-=cut

diff --git a/libX11/nls/xmlrules.in b/libX11/nls/xmlrules.in
deleted file mode 100644
index 5a6be24f5..000000000
--- a/libX11/nls/xmlrules.in
+++ /dev/null
@@ -1,59 +0,0 @@
-#
-# Copyright (c) 2010, Oracle and/or its affiliates. All rights reserved.
-#
-# Permission is hereby granted, free of charge, to any person obtaining a
-# copy of this software and associated documentation files (the "Software"),
-# to deal in the Software without restriction, including without limitation
-# the rights to use, copy, modify, merge, publish, distribute, sublicense,
-# and/or sell copies of the Software, and to permit persons to whom the
-# Software is furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice (including the next
-# paragraph) shall be included in all copies or substantial portions of the
-# Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
-# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
-# DEALINGS IN THE SOFTWARE.
-#
-
-if HAVE_XMLTO
-spec_DATA = $(doc_sources:.xml=.html)
-
-if HAVE_FOP
-spec_DATA += $(doc_sources:.xml=.ps) $(doc_sources:.xml=.pdf)
-endif
-
-if HAVE_XMLTO_TEXT
-spec_DATA += $(doc_sources:.xml=.txt)
-endif
-
-if HAVE_STYLESHEETS
-XMLTO_FLAGS += 			\
-	-m $(XSL_STYLESHEET)	\
-	--stringparam img.src.path=$(abs_builddir)/	\
-	--stringparam html.stylesheet=$(STYLESHEET_SRCDIR)/xorg.css
-endif
-
-CLEANFILES += $(spec_DATA)
-
-%.txt: %.xml $(dist_spec_DATA)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) txt $<
-
-%.html: %.xml $(dist_spec_DATA)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) xhtml-nochunks $<
-
-%.pdf: %.xml $(dist_spec_DATA)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) --with-fop pdf $<
-
-%.ps: %.xml $(dist_spec_DATA)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) --with-fop ps $<
-
-chunked-html: $(doc_sources)
-	$(AM_V_GEN)$(XMLTO) $(XMLTO_FLAGS) -o html xhtml $(doc_sources)
-
-endif HAVE_XMLTO