#!/usr/bin/env perl # Updates http://svn.gnome.org/viewcvs/gtk%2B/trunk/gdk/gdkkeysyms.h?view=log from upstream (X.org 7.x), # from http://gitweb.freedesktop.org/?p=xorg/proto/x11proto.git;a=blob_plain;f=keysymdef.h # # Author : Simos Xenitellis . # Version : 1.2 # # Input : http://gitweb.freedesktop.org/?p=xorg/proto/x11proto.git;a=blob_plain;f=keysymdef.h # Output : http://svn.gnome.org/svn/gtk+/trunk/gdk/gdkkeysyms.h # # Notes : It downloads keysymdef.h from the Internet, if not found locally, # Notes : and creates an updated gdkkeysyms.h # Notes : This version updates the source of gdkkeysyms.h from CVS to the GIT server. use strict; # Used for reading the keysymdef symbols. my @keysymelements; if ( ! -f "keysymdef.h" ) { print "Trying to download keysymdef.h from\n"; print "http://gitweb.freedesktop.org/?p=xorg/proto/x11proto.git;a=blob_plain;f=keysymdef.h\n"; die "Unable to download keysymdef.h from http://gitweb.freedesktop.org/?p=xorg/proto/x11proto.git;a=blob_plain;f=keysymdef.h\n" unless system("wget -c -O keysymdef.h \"http://gitweb.freedesktop.org/?p=xorg/proto/x11proto.git;a=blob_plain;f=keysymdef.h\"") == 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"; print "as found at http://gitweb.freedesktop.org/?p=xorg/proto/x11proto.git;a=blob;f=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 somewhere else 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<) { 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<