mirror of
https://gitlab.gnome.org/GNOME/gtk.git
synced 2024-11-18 09:00:34 +00:00
181c53885c
2006-05-11 Matthias Clasen <mclasen@redhat.com> * gdk/gdkkeysyms.h: Regenerated from Xorg 7.1 keysyms.h, using gdkkeysyms-update.pl. * gdk/gdkkeysyms-update.pl: Script to sync gdkkeysyms.h with Xorg. (#321896, Simos Xenitellis) * gdk/Makefile.am (EXTRA_DIST): Add gdkkeysyms-update.pl
120 lines
3.8 KiB
Perl
Executable File
120 lines
3.8 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
# Updates http://cvs.gnome.org/viewcvs/gtk%2B/gdk/gdkkeysyms.h from upstream (X.org 6.9/7.0),
|
|
# OLD OLD -----from http://cvs.freedesktop.org/xorg/xc/include/keysymdef.h------ OLD OLD
|
|
# from http://webcvs.freedesktop.org/*checkout*/xorg/proto/X11/keysymdef.h
|
|
#
|
|
# Author : Simos Xenitellis <simos at gnome dot org>.
|
|
# Version : 1.0
|
|
#
|
|
# Input : http://webcvs.freedesktop.org/xorg/proto/X11/keysymdef.h
|
|
# Output : http://cvs.gnome.org/viewcvs/gtk%2B/gdk/gdkkeysyms.h
|
|
#
|
|
# Notes : It downloads keysymdef.h from the Internet if not found locally
|
|
# Notes : and creates an updated gdkkeysyms.h
|
|
|
|
use strict;
|
|
|
|
# Used for reading the keysymdef symbols.
|
|
my @keysymelements;
|
|
|
|
if ( ! -f "keysymdef.h" )
|
|
{
|
|
print "Trying to download keysymdef.h from\n";
|
|
print "http://webcvs.freedesktop.org/xorg/proto/X11/keysymdef.h: ";
|
|
die "Unable to download keysymdef.h from http://webcvs.freedesktop.org/xorg/proto/X11/keysymdef.h\n"
|
|
unless system("wget -q \"http://webcvs.freedesktop.org/*checkout*/xorg/proto/X11/keysymdef.h\"") == 0;
|
|
print " done.\n\n";
|
|
}
|
|
else
|
|
{
|
|
print "We are using existing keysymdef.h found in this directory.\n";
|
|
print "It is assume that you took care and it is a recent version\n";
|
|
print "as found at http://webcvs.freedesktop.org/*checkout*/xorg/proto/X11/keysymdef.h\n\n";
|
|
}
|
|
|
|
|
|
if ( -f "gdkkeysyms.h" )
|
|
{
|
|
print "There is already a gdkkeysyms.h file in this directory. We are not overwriting it.\n";
|
|
print "Please move it in order to run this script.\n";
|
|
die "Exiting...\n\n";
|
|
}
|
|
|
|
# Source: http://cvs.freedesktop.org/xorg/xc/include/keysymdef.h
|
|
die "Could not open file keysymdef.h: $!\n" unless open(IN_KEYSYMDEF, "<:utf8", "keysymdef.h");
|
|
|
|
# Output: gtk+/gdk/gdkkeysyms.h
|
|
die "Could not open file gdkkeysyms.h: $!\n" unless open(OUT_GDKKEYSYMS, ">:utf8", "gdkkeysyms.h");
|
|
|
|
print OUT_GDKKEYSYMS<<EOF;
|
|
/* GDK - The GIMP Drawing Kit
|
|
* Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
|
|
* Copyright (C) 2005 GNOME Foundation
|
|
*
|
|
* 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, write to the
|
|
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
* Boston, MA 02111-1307, USA.
|
|
*/
|
|
|
|
/*
|
|
* File auto-generated from script gdkkeysyms-update.pl
|
|
* using the input file
|
|
* http://cvs.freedesktop.org/xorg/xc/include/keysymdef.h
|
|
*/
|
|
|
|
/*
|
|
* Modified by the GTK+ Team and others 1997-2001. See the AUTHORS
|
|
* file for a list of people on the GTK+ Team. See the ChangeLog
|
|
* files for a list of changes. These files are distributed with
|
|
* GTK+ at ftp://ftp.gtk.org/pub/gtk/.
|
|
*/
|
|
|
|
#ifndef __GDK_KEYSYMS_H__
|
|
#define __GDK_KEYSYMS_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/ );
|
|
|
|
$keysymelements[1] =~ s/^XK_/GDK_/g;
|
|
|
|
printf OUT_GDKKEYSYMS "#define %s 0x%03x\n", $keysymelements[1], hex($keysymelements[2]);
|
|
}
|
|
|
|
#$gdksyms{"0"} = "0000";
|
|
|
|
close IN_KEYSYMDEF;
|
|
|
|
|
|
print OUT_GDKKEYSYMS<<EOF;
|
|
|
|
#endif /* __GDK_KEYSYMS_H__ */
|
|
EOF
|
|
|
|
printf "We just finished converting keysymdef.h to gdkkeysyms.h\n";
|