File Coverage

blib/lib/X11/AtomConstants.pm
Criterion Covered Total %
statement 217 217 100.0
branch n/a
condition n/a
subroutine 73 73 100.0
pod n/a
total 290 290 100.0


line stmt bran cond sub pod time code
1             # Copyright 2011, 2012, 2013 Kevin Ryde
2              
3             # This file is part of X11-Protocol-Other.
4             #
5             # X11-Protocol-Other is free software; you can redistribute it and/or modify
6             # it under the terms of the GNU General Public License as published by the
7             # Free Software Foundation; either version 3, or (at your option) any later
8             # version.
9             #
10             # X11-Protocol-Other is distributed in the hope that it will be useful, but
11             # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
12             # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
13             # for more details.
14             #
15             # You should have received a copy of the GNU General Public License along
16             # with X11-Protocol-Other. If not, see .
17              
18 6     6   27554 BEGIN { require 5 }
19             package X11::AtomConstants;
20 6     6   31 use strict;
  6         12  
  6         200  
21 6     6   35 use Exporter;
  6         9  
  6         245  
22 6     6   35 use vars '$VERSION', '@ISA', '@EXPORT_OK', '%EXPORT_TAGS';
  6         10  
  6         1101  
23              
24             $VERSION = 29;
25             @ISA = ('Exporter');
26             %EXPORT_TAGS = (all => \@EXPORT_OK);
27              
28             # List generated by
29             # (shell-command "perl -n -e '/define XA_([^ ]*).*?([0-9]+)/ and print \" $1\n\"'
30              
31             @EXPORT_OK =
32             (qw(
33             PRIMARY
34             SECONDARY
35             ARC
36             ATOM
37             BITMAP
38             CARDINAL
39             COLORMAP
40             CURSOR
41             CUT_BUFFER0
42             CUT_BUFFER1
43             CUT_BUFFER2
44             CUT_BUFFER3
45             CUT_BUFFER4
46             CUT_BUFFER5
47             CUT_BUFFER6
48             CUT_BUFFER7
49             DRAWABLE
50             FONT
51             INTEGER
52             PIXMAP
53             POINT
54             RECTANGLE
55             RESOURCE_MANAGER
56             RGB_COLOR_MAP
57             RGB_BEST_MAP
58             RGB_BLUE_MAP
59             RGB_DEFAULT_MAP
60             RGB_GRAY_MAP
61             RGB_GREEN_MAP
62             RGB_RED_MAP
63             STRING
64             VISUALID
65             WINDOW
66             WM_COMMAND
67             WM_HINTS
68             WM_CLIENT_MACHINE
69             WM_ICON_NAME
70             WM_ICON_SIZE
71             WM_NAME
72             WM_NORMAL_HINTS
73             WM_SIZE_HINTS
74             WM_ZOOM_HINTS
75             MIN_SPACE
76             NORM_SPACE
77             MAX_SPACE
78             END_SPACE
79             SUPERSCRIPT_X
80             SUPERSCRIPT_Y
81             SUBSCRIPT_X
82             SUBSCRIPT_Y
83             UNDERLINE_POSITION
84             UNDERLINE_THICKNESS
85             STRIKEOUT_ASCENT
86             STRIKEOUT_DESCENT
87             ITALIC_ANGLE
88             X_HEIGHT
89             QUAD_WIDTH
90             WEIGHT
91             POINT_SIZE
92             RESOLUTION
93             COPYRIGHT
94             NOTICE
95             FONT_NAME
96             FAMILY_NAME
97             FULL_NAME
98             CAP_HEIGHT
99             WM_CLASS
100             WM_TRANSIENT_FOR
101             LAST_PREDEFINED
102             ));
103              
104              
105             # List generated by
106             # (shell-command "perl -n -e '/define XA_([^ ]*).*?([0-9]+)/ and print \"use constant $1 => $2;\n\"'
107              
108 6     6   37 use constant PRIMARY => 1;
  6         10  
  6         483  
109 6     6   33 use constant SECONDARY => 2;
  6         11  
  6         270  
110 6     6   33 use constant ARC => 3;
  6         12  
  6         287  
111 6     6   39 use constant ATOM => 4;
  6         9  
  6         347  
112 6     6   29 use constant BITMAP => 5;
  6         10  
  6         319  
113 6     6   32 use constant CARDINAL => 6;
  6         19  
  6         290  
114 6     6   40 use constant COLORMAP => 7;
  6         25  
  6         292  
115 6     6   32 use constant CURSOR => 8;
  6         10  
  6         267  
116 6     6   51 use constant CUT_BUFFER0 => 9;
  6         10  
  6         281  
117 6     6   31 use constant CUT_BUFFER1 => 10;
  6         11  
  6         843  
118 6     6   31 use constant CUT_BUFFER2 => 11;
  6         10  
  6         262  
119 6     6   31 use constant CUT_BUFFER3 => 12;
  6         17  
  6         266  
120 6     6   31 use constant CUT_BUFFER4 => 13;
  6         11  
  6         254  
121 6     6   31 use constant CUT_BUFFER5 => 14;
  6         52  
  6         406  
122 6     6   38 use constant CUT_BUFFER6 => 15;
  6         9  
  6         243  
123 6     6   31 use constant CUT_BUFFER7 => 16;
  6         109  
  6         289  
124 6     6   46 use constant DRAWABLE => 17;
  6         12  
  6         227  
125 6     6   29 use constant FONT => 18;
  6         10  
  6         461  
126 6     6   29 use constant INTEGER => 19;
  6         19  
  6         283  
127 6     6   29 use constant PIXMAP => 20;
  6         10  
  6         250  
128 6     6   670 use constant POINT => 21;
  6         10  
  6         260  
129 6     6   29 use constant RECTANGLE => 22;
  6         10  
  6         286  
130 6     6   117 use constant RESOURCE_MANAGER => 23;
  6         13  
  6         251  
131 6     6   28 use constant RGB_COLOR_MAP => 24;
  6         10  
  6         282  
132 6     6   30 use constant RGB_BEST_MAP => 25;
  6         27  
  6         246  
133 6     6   29 use constant RGB_BLUE_MAP => 26;
  6         10  
  6         256  
134 6     6   28 use constant RGB_DEFAULT_MAP => 27;
  6         10  
  6         12796  
135 6     6   54 use constant RGB_GRAY_MAP => 28;
  6         11  
  6         418  
136 6     6   29 use constant RGB_GREEN_MAP => 29;
  6         11  
  6         232  
137 6     6   27 use constant RGB_RED_MAP => 30;
  6         16  
  6         259  
138 6     6   30 use constant STRING => 31;
  6         7  
  6         375  
139 6     6   51 use constant VISUALID => 32;
  6         11  
  6         806  
140 6     6   28 use constant WINDOW => 33;
  6         17  
  6         225  
141 6     6   30 use constant WM_COMMAND => 34;
  6         10  
  6         274  
142 6     6   30 use constant WM_HINTS => 35;
  6         8  
  6         252  
143 6     6   31 use constant WM_CLIENT_MACHINE => 36;
  6         9  
  6         240  
144 6     6   29 use constant WM_ICON_NAME => 37;
  6         14  
  6         220  
145 6     6   34 use constant WM_ICON_SIZE => 38;
  6         16  
  6         218  
146 6     6   25 use constant WM_NAME => 39;
  6         9  
  6         194  
147 6     6   24 use constant WM_NORMAL_HINTS => 40;
  6         9  
  6         273  
148 6     6   29 use constant WM_SIZE_HINTS => 41;
  6         9  
  6         254  
149 6     6   153 use constant WM_ZOOM_HINTS => 42;
  6         15  
  6         338  
150 6     6   30 use constant MIN_SPACE => 43;
  6         10  
  6         256  
151 6     6   36 use constant NORM_SPACE => 44;
  6         11  
  6         224  
152 6     6   30 use constant MAX_SPACE => 45;
  6         14  
  6         295  
153 6     6   99 use constant END_SPACE => 46;
  6         18  
  6         249  
154 6     6   30 use constant SUPERSCRIPT_X => 47;
  6         17  
  6         304  
155 6     6   29 use constant SUPERSCRIPT_Y => 48;
  6         8  
  6         341  
156 6     6   30 use constant SUBSCRIPT_X => 49;
  6         8  
  6         249  
157 6     6   27 use constant SUBSCRIPT_Y => 50;
  6         9  
  6         226  
158 6     6   28 use constant UNDERLINE_POSITION => 51;
  6         7  
  6         216  
159 6     6   26 use constant UNDERLINE_THICKNESS => 52;
  6         17  
  6         256  
160 6     6   36 use constant STRIKEOUT_ASCENT => 53;
  6         9  
  6         284  
161 6     6   31 use constant STRIKEOUT_DESCENT => 54;
  6         10  
  6         246  
162 6     6   36 use constant ITALIC_ANGLE => 55;
  6         14  
  6         258  
163 6     6   29 use constant X_HEIGHT => 56;
  6         10  
  6         263  
164 6     6   98 use constant QUAD_WIDTH => 57;
  6         11  
  6         233  
165 6     6   30 use constant WEIGHT => 58;
  6         8  
  6         228  
166 6     6   27 use constant POINT_SIZE => 59;
  6         8  
  6         294  
167 6     6   31 use constant RESOLUTION => 60;
  6         9  
  6         252  
168 6     6   33 use constant COPYRIGHT => 61;
  6         9  
  6         229  
169 6     6   28 use constant NOTICE => 62;
  6         11  
  6         240  
170 6     6   28 use constant FONT_NAME => 63;
  6         11  
  6         247  
171 6     6   29 use constant FAMILY_NAME => 64;
  6         10  
  6         240  
172 6     6   31 use constant FULL_NAME => 65;
  6         13  
  6         268  
173 6     6   31 use constant CAP_HEIGHT => 66;
  6         14  
  6         236  
174 6     6   29 use constant WM_CLASS => 67;
  6         9  
  6         231  
175 6     6   60 use constant WM_TRANSIENT_FOR => 68;
  6         9  
  6         422  
176 6     6   27 use constant LAST_PREDEFINED => 68;
  6         8  
  6         382  
177              
178             1;
179             __END__