#!/usr/bin/perl -w
# Copyright 2010, 2011 Kevin Ryde
# This file is part of X11-Protocol-Other.
#
# X11-Protocol-Other is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as published
# by the Free Software Foundation; either version 3, or (at your option) any
# later version.
#
# X11-Protocol-Other 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 General
# Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with X11-Protocol-Other. If not, see <http://www.gnu.org/licenses/>.
BEGIN { require 5 }
use strict;
# uncomment this to run the ### lines
use Smart::Comments;
{
package X11::AtomPredefined;
use vars '%atom', '%atom_name', '@atom_name';
%atom =
(
# (shell-command "perl -n -e '/define XA_([^ ]*).*?([0-9]+)/ and printf q{ %-19s => %d,\n}, $1, $2' </usr/include/X11/Xatom.h" 'insert)
PRIMARY => 1,
SECONDARY => 2,
ARC => 3,
ATOM => 4,
BITMAP => 5,
CARDINAL => 6,
COLORMAP => 7,
CURSOR => 8,
CUT_BUFFER0 => 9,
CUT_BUFFER1 => 10,
CUT_BUFFER2 => 11,
CUT_BUFFER3 => 12,
CUT_BUFFER4 => 13,
CUT_BUFFER5 => 14,
CUT_BUFFER6 => 15,
CUT_BUFFER7 => 16,
DRAWABLE => 17,
FONT => 18,
INTEGER => 19,
PIXMAP => 20,
POINT => 21,
RECTANGLE => 22,
RESOURCE_MANAGER => 23,
RGB_COLOR_MAP => 24,
RGB_BEST_MAP => 25,
RGB_BLUE_MAP => 26,
RGB_DEFAULT_MAP => 27,
RGB_GRAY_MAP => 28,
RGB_GREEN_MAP => 29,
RGB_RED_MAP => 30,
STRING => 31,
VISUALID => 32,
WINDOW => 33,
WM_COMMAND => 34,
WM_HINTS => 35,
WM_CLIENT_MACHINE => 36,
WM_ICON_NAME => 37,
WM_ICON_SIZE => 38,
WM_NAME => 39,
WM_NORMAL_HINTS => 40,
WM_SIZE_HINTS => 41,
WM_ZOOM_HINTS => 42,
MIN_SPACE => 43,
NORM_SPACE => 44,
MAX_SPACE => 45,
END_SPACE => 46,
SUPERSCRIPT_X => 47,
SUPERSCRIPT_Y => 48,
SUBSCRIPT_X => 49,
SUBSCRIPT_Y => 50,
UNDERLINE_POSITION => 51,
UNDERLINE_THICKNESS => 52,
STRIKEOUT_ASCENT => 53,
STRIKEOUT_DESCENT => 54,
ITALIC_ANGLE => 55,
X_HEIGHT => 56,
QUAD_WIDTH => 57,
WEIGHT => 58,
POINT_SIZE => 59,
RESOLUTION => 60,
COPYRIGHT => 61,
NOTICE => 62,
FONT_NAME => 63,
FAMILY_NAME => 64,
FULL_NAME => 65,
CAP_HEIGHT => 66,
WM_CLASS => 67,
WM_TRANSIENT_FOR => 68,
LAST_PREDEFINED => 68,
);
%atom_name = reverse %atom;
while (my ($name, $number) = each %atom) {
### $name
### $number
if ($name ne 'LAST_PREDEFINED') {
$atom_name[$number] = $name;
}
}
}
print $X11::AtomPredefined::atom{'PIXMAP'},"\n";
print $X11::AtomPredefined::atom_name{20},"\n";
print $X11::AtomPredefined::atom_name[20],"\n";
print $X11::AtomPredefined::atom_name[68],"\n";