blob: 161513149a293f5ed52f593a56233d813b5c9ae9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
#!/usr/bin/env perl
# Author : Simos Xenitellis <simos at gnome dot org>.
# Author : Bastien Nocera <hadess@hadess.net>
# Version : 1.2
#
# Input : gsd-power-constants.h
# Output : gsdpowerconstants.py
#
use strict;
# Used for reading the keysymdef symbols.
my @constantselements;
(scalar @ARGV >= 2) or die "Usage: $0 <input> <output>\n";
my ($input, $output) = @ARGV;
die "Could not open file gsd-power-constants.h: $!\n" unless open(IN_CONSTANTS, "<:utf8", $input);
# Output: gtk+/gdk/gdkkeysyms.h
die "Could not open file gsdpowerconstants.py: $!\n" unless open(OUT_CONSTANTS, ">:utf8", $output);
print OUT_CONSTANTS<<EOF;
# File auto-generated from script http://git.gnome.org/browse/gnome-settings-daemon/tree/plugins/power/gsd-power-constants-update.pl
# Modified by the GTK+ Team and others 1997-2012. 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/.
EOF
while (<IN_CONSTANTS>)
{
next if ( ! /^#define / );
@constantselements = split(/\s+/);
die "Internal error, no \@constantselements: $_\n" unless @constantselements;
my $constant = $constantselements[1];
my $value = $constantselements[2];
printf OUT_CONSTANTS "%s = %s;\n", $constant, $value;
}
close IN_CONSTANTS;
printf "We just finished converting $input to $output\nThank you\n";
|
