212 lines
6.1 KiB
Perl
Executable File
212 lines
6.1 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# Author : Simos Xenitellis <simos at gnome dot org>.
|
|
# Authos : Bastien Nocera <hadess@hadess.net>
|
|
# Version : 1.2
|
|
#
|
|
# Notes : It downloads keysymdef.h from the Internet, if not found locally,
|
|
# Notes : and creates an updated clutter-keysyms.h
|
|
|
|
use strict;
|
|
|
|
my $update_url = 'http://git.clutter-project.org/clutter/plain/clutter/clutter-keysyms-update.pl';
|
|
|
|
# Used for reading the keysymdef symbols.
|
|
my @keysymelements;
|
|
|
|
my $keysymdef_url = 'http://cgit.freedesktop.org/xorg/proto/x11proto/plain/keysymdef.h';
|
|
|
|
if ( ! -f "keysymdef.h" )
|
|
{
|
|
print "Trying to download keysymdef.h from\n", $keysymdef_url, "\n";
|
|
die "Unable to download keysymdef.h: $!"
|
|
unless system("wget -c -O keysymdef.h \"$keysymdef_url\"") == 0;
|
|
print " done.\n\n";
|
|
}
|
|
else
|
|
{
|
|
print "We are using existing keysymdef.h found in this directory.\n";
|
|
print "It is assumed that you took care and it is a recent version\n";
|
|
}
|
|
|
|
my $XF86keysym_url = 'http://cgit.freedesktop.org/xorg/proto/x11proto/plain/XF86keysym.h';
|
|
|
|
if ( ! -f "XF86keysym.h" )
|
|
{
|
|
print "Trying to download XF86keysym.h from\n", $XF86keysym_url, "\n";
|
|
die "Unable to download keysymdef.h: $!\n"
|
|
unless system("wget -c -O XF86keysym.h \"$XF86keysym_url\"") == 0;
|
|
print " done.\n\n";
|
|
}
|
|
else
|
|
{
|
|
print "We are using existing XF86keysym.h found in this directory.\n";
|
|
print "It is assumed that you took care and it is a recent version\n";
|
|
}
|
|
|
|
if ( -f "clutter-keysyms.h" )
|
|
{
|
|
print "There is already a clutter-keysyms.h file in this directory. We are not overwriting it.\n";
|
|
print "Please move it somewhere else in order to run this script.\n";
|
|
die "Exiting...\n\n";
|
|
}
|
|
|
|
die "Could not open file keysymdef.h: $!\n"
|
|
unless open(IN_KEYSYMDEF, "<:utf8", "keysymdef.h");
|
|
|
|
# Output: clutter/clutter/clutter-keysyms.h
|
|
die "Could not open file clutter-keysyms.h: $!\n"
|
|
unless open(OUT_KEYSYMS, ">:utf8", "clutter-keysyms.h");
|
|
|
|
# Output: clutter/clutter/deprecated/clutter-keysyms.h
|
|
die "Could not open file clutter-keysyms-compat.h: $!\n"
|
|
unless open(OUT_KEYSYMS_COMPAT, ">:utf8", "deprecated/clutter-keysyms.h");
|
|
|
|
my $LICENSE_HEADER= <<EOF;
|
|
/* Clutter
|
|
*
|
|
* Copyright (C) 2006, 2007, 2008 OpenedHand Ltd
|
|
* Copyright (C) 2009, 2010 Intel Corp
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library. If not, see <http://www.gnu.org/licenses>.
|
|
*/
|
|
|
|
EOF
|
|
|
|
print OUT_KEYSYMS $LICENSE_HEADER;
|
|
print OUT_KEYSYMS_COMPAT $LICENSE_HEADER;
|
|
|
|
print OUT_KEYSYMS<<EOF;
|
|
|
|
/*
|
|
* File auto-generated from script at:
|
|
* $update_url
|
|
*
|
|
* using the input files:
|
|
* $keysymdef_url
|
|
* and
|
|
* $XF86keysym_url
|
|
*/
|
|
|
|
#ifndef __CLUTTER_KEYSYMS_H__
|
|
#define __CLUTTER_KEYSYMS_H__
|
|
|
|
EOF
|
|
|
|
print OUT_KEYSYMS_COMPAT<<EOF;
|
|
/*
|
|
* Compatibility version of clutter-keysyms.h.
|
|
*
|
|
* Since Clutter 1.4, the key symbol defines have been changed to have
|
|
* a KEY_ prefix. This is a compatibility header that is included when
|
|
* deprecated symbols are enabled. Consider porting to the new names
|
|
* instead.
|
|
*/
|
|
|
|
#ifndef __CLUTTER_KEYSYMS_DEPRECATED_H__
|
|
#define __CLUTTER_KEYSYMS_DEPRECATED_H__
|
|
|
|
EOF
|
|
|
|
while (<IN_KEYSYMDEF>)
|
|
{
|
|
next if ( ! /^#define / );
|
|
|
|
@keysymelements = split(/\s+/);
|
|
die "Internal error, no \@keysymelements: $_\n" unless @keysymelements;
|
|
|
|
$_ = $keysymelements[1];
|
|
die "Internal error, was expecting \"XC_*\", found: $_\n" if ( ! /^XK_/ );
|
|
|
|
$_ = $keysymelements[2];
|
|
die "Internal error, was expecting \"0x*\", found: $_\n" if ( ! /^0x/ );
|
|
|
|
my $element = $keysymelements[1];
|
|
my $binding = $element;
|
|
$binding =~ s/^XK_/CLUTTER_KEY_/g;
|
|
my $compat_binding = $element;
|
|
$compat_binding =~ s/^XK_/CLUTTER_/g;
|
|
|
|
printf OUT_KEYSYMS "#define %s 0x%03x\n", $binding, hex($keysymelements[2]);
|
|
printf OUT_KEYSYMS_COMPAT "#define %s 0x%03x\n", $compat_binding, hex($keysymelements[2]);
|
|
}
|
|
|
|
close IN_KEYSYMDEF;
|
|
|
|
#$cluttersyms{"0"} = "0000";
|
|
|
|
# Source: http://gitweb.freedesktop.org/?p=xorg/proto/x11proto.git;a=blob;f=XF86keysym.h
|
|
die "Could not open file XF86keysym.h: $!\n" unless open(IN_XF86KEYSYM, "<:utf8", "XF86keysym.h");
|
|
|
|
while (<IN_XF86KEYSYM>)
|
|
{
|
|
next if ( ! /^#define / );
|
|
|
|
@keysymelements = split(/\s+/);
|
|
die "Internal error, no \@keysymelements: $_\n" unless @keysymelements;
|
|
|
|
$_ = $keysymelements[1];
|
|
die "Internal error, was expecting \"XF86XK_*\", found: $_\n" if ( ! /^XF86XK_/ );
|
|
|
|
# Work-around https://bugs.freedesktop.org/show_bug.cgi?id=11193
|
|
if ($_ eq "XF86XK_XF86BackForward") {
|
|
$keysymelements[1] = "XF86XK_AudioForward";
|
|
}
|
|
# XF86XK_Clear could end up a dupe of XK_Clear
|
|
# XF86XK_Select could end up a dupe of XK_Select
|
|
if ($_ eq "XF86XK_Clear") {
|
|
$keysymelements[1] = "XF86XK_WindowClear";
|
|
}
|
|
if ($_ eq "XF86XK_Select") {
|
|
$keysymelements[1] = "XF86XK_SelectButton";
|
|
}
|
|
|
|
# Ignore XF86XK_Q
|
|
next if ( $_ eq "XF86XK_Q");
|
|
# XF86XK_Calculater is misspelled, and a dupe
|
|
next if ( $_ eq "XF86XK_Calculater");
|
|
|
|
$_ = $keysymelements[2];
|
|
die "Internal error, was expecting \"0x*\", found: $_\n" if ( ! /^0x/ );
|
|
|
|
my $element = $keysymelements[1];
|
|
my $binding = $element;
|
|
$binding =~ s/^XF86XK_/CLUTTER_KEY_/g;
|
|
my $compat_binding = $element;
|
|
$compat_binding =~ s/^XF86XK_/CLUTTER_/g;
|
|
|
|
printf OUT_KEYSYMS "#define %s 0x%03x\n", $binding, hex($keysymelements[2]);
|
|
printf OUT_KEYSYMS_COMPAT "#define %s 0x%03x\n", $compat_binding, hex($keysymelements[2]);
|
|
}
|
|
|
|
close IN_XF86KEYSYM;
|
|
|
|
|
|
print OUT_KEYSYMS<<EOF;
|
|
|
|
#endif /* __CLUTTER_KEYSYMS_H__ */
|
|
EOF
|
|
|
|
print OUT_KEYSYMS_COMPAT<<EOF;
|
|
|
|
#endif /* __CLUTTER_KEYSYMS_DEPRECATED_H__ */
|
|
EOF
|
|
|
|
foreach my $f (qw/ keysymdef.h XF86keysym.h /) {
|
|
unlink $f or die "Unable to delete $f: $!";
|
|
}
|
|
|
|
printf "We just finished converting keysymdef.h to clutter-keysyms.h "
|
|
. "and deprecated/clutter-keysyms.h\nThank you\n";
|