File Coverage

const-c-constant.inc
Criterion Covered Total %
statement 167 272 61.4
branch 47 114 41.2
condition n/a
subroutine n/a
pod n/a
total 214 386 55.4


line stmt bran cond sub pod time code
1             #define PERL_constant_NOTFOUND 1
2             #define PERL_constant_NOTDEF 2
3             #define PERL_constant_ISIV 3
4             #define PERL_constant_ISNO 4
5             #define PERL_constant_ISNV 5
6             #define PERL_constant_ISPV 6
7             #define PERL_constant_ISPVN 7
8             #define PERL_constant_ISSV 8
9             #define PERL_constant_ISUNDEF 9
10             #define PERL_constant_ISUV 10
11             #define PERL_constant_ISYES 11
12              
13             #ifndef NVTYPE
14             typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */
15             #endif
16             #ifndef aTHX_
17             #define aTHX_ /* 5.6 or later define this for threading support. */
18             #endif
19             #ifndef pTHX_
20             #define pTHX_ /* 5.6 or later define this for threading support. */
21             #endif
22              
23             static int
24 10           _c_constant_7 (pTHX_ const char *name, IV *iv_return) {
25             /* When generated this function returned values for the list of names given
26             here. However, subsequent manual editing may have added or removed some.
27             ZMQ_PUB ZMQ_REP ZMQ_REQ ZMQ_SUB */
28             /* Offset 4 gives the best switch position. */
29 10           switch (name[4]) {
30             case 'P':
31 1 50         if (memEQ(name, "ZMQ_PUB", 7)) {
32             /* ^ */
33             #ifdef ZMQ_PUB
34 1           *iv_return = ZMQ_PUB;
35 1           return PERL_constant_ISIV;
36             #else
37             return PERL_constant_NOTDEF;
38             #endif
39             }
40 0           break;
41             case 'R':
42 8 100         if (memEQ(name, "ZMQ_REP", 7)) {
43             /* ^ */
44             #ifdef ZMQ_REP
45 4           *iv_return = ZMQ_REP;
46 4           return PERL_constant_ISIV;
47             #else
48             return PERL_constant_NOTDEF;
49             #endif
50             }
51 4 50         if (memEQ(name, "ZMQ_REQ", 7)) {
52             /* ^ */
53             #ifdef ZMQ_REQ
54 4           *iv_return = ZMQ_REQ;
55 4           return PERL_constant_ISIV;
56             #else
57             return PERL_constant_NOTDEF;
58             #endif
59             }
60 0           break;
61             case 'S':
62 1 50         if (memEQ(name, "ZMQ_SUB", 7)) {
63             /* ^ */
64             #ifdef ZMQ_SUB
65 1           *iv_return = ZMQ_SUB;
66 1           return PERL_constant_ISIV;
67             #else
68             return PERL_constant_NOTDEF;
69             #endif
70             }
71 0           break;
72             }
73 0           return PERL_constant_NOTFOUND;
74             }
75              
76             static int
77 9           _c_constant_8 (pTHX_ const char *name, IV *iv_return) {
78             /* When generated this function returned values for the list of names given
79             here. However, subsequent manual editing may have added or removed some.
80             ZMQ_DISH ZMQ_PAIR ZMQ_PULL ZMQ_PUSH ZMQ_XPUB ZMQ_XSUB */
81             /* Offset 5 gives the best switch position. */
82 9           switch (name[5]) {
83             case 'A':
84 4 50         if (memEQ(name, "ZMQ_PAIR", 8)) {
85             /* ^ */
86             #ifdef ZMQ_PAIR
87 4           *iv_return = ZMQ_PAIR;
88 4           return PERL_constant_ISIV;
89             #else
90             return PERL_constant_NOTDEF;
91             #endif
92             }
93 0           break;
94             case 'I':
95 1 50         if (memEQ(name, "ZMQ_DISH", 8)) {
96             /* ^ */
97             #ifdef ZMQ_DISH
98 1           *iv_return = ZMQ_DISH;
99 1           return PERL_constant_ISIV;
100             #else
101             return PERL_constant_NOTDEF;
102             #endif
103             }
104 0           break;
105             case 'P':
106 1 50         if (memEQ(name, "ZMQ_XPUB", 8)) {
107             /* ^ */
108             #ifdef ZMQ_XPUB
109 1           *iv_return = ZMQ_XPUB;
110 1           return PERL_constant_ISIV;
111             #else
112             return PERL_constant_NOTDEF;
113             #endif
114             }
115 0           break;
116             case 'S':
117 1 50         if (memEQ(name, "ZMQ_XSUB", 8)) {
118             /* ^ */
119             #ifdef ZMQ_XSUB
120 1           *iv_return = ZMQ_XSUB;
121 1           return PERL_constant_ISIV;
122             #else
123             return PERL_constant_NOTDEF;
124             #endif
125             }
126 0           break;
127             case 'U':
128 2 100         if (memEQ(name, "ZMQ_PULL", 8)) {
129             /* ^ */
130             #ifdef ZMQ_PULL
131 1           *iv_return = ZMQ_PULL;
132 1           return PERL_constant_ISIV;
133             #else
134             return PERL_constant_NOTDEF;
135             #endif
136             }
137 1 50         if (memEQ(name, "ZMQ_PUSH", 8)) {
138             /* ^ */
139             #ifdef ZMQ_PUSH
140 1           *iv_return = ZMQ_PUSH;
141 1           return PERL_constant_ISIV;
142             #else
143             return PERL_constant_NOTDEF;
144             #endif
145             }
146 0           break;
147             }
148 0           return PERL_constant_NOTFOUND;
149             }
150              
151             static int
152 11           _c_constant_10 (pTHX_ const char *name, IV *iv_return) {
153             /* When generated this function returned values for the list of names given
154             here. However, subsequent manual editing may have added or removed some.
155             ZMQ_CLIENT ZMQ_DEALER ZMQ_GATHER ZMQ_POLLIN ZMQ_ROUTER ZMQ_SERVER
156             ZMQ_STREAM */
157             /* Offset 4 gives the best switch position. */
158 11           switch (name[4]) {
159             case 'C':
160 0 0         if (memEQ(name, "ZMQ_CLIENT", 10)) {
161             /* ^ */
162             #ifdef ZMQ_CLIENT
163 0           *iv_return = ZMQ_CLIENT;
164 0           return PERL_constant_ISIV;
165             #else
166             return PERL_constant_NOTDEF;
167             #endif
168             }
169 0           break;
170             case 'D':
171 3 50         if (memEQ(name, "ZMQ_DEALER", 10)) {
172             /* ^ */
173             #ifdef ZMQ_DEALER
174 3           *iv_return = ZMQ_DEALER;
175 3           return PERL_constant_ISIV;
176             #else
177             return PERL_constant_NOTDEF;
178             #endif
179             }
180 0           break;
181             case 'G':
182 0 0         if (memEQ(name, "ZMQ_GATHER", 10)) {
183             /* ^ */
184             #ifdef ZMQ_GATHER
185 0           *iv_return = ZMQ_GATHER;
186 0           return PERL_constant_ISIV;
187             #else
188             return PERL_constant_NOTDEF;
189             #endif
190             }
191 0           break;
192             case 'P':
193 5 50         if (memEQ(name, "ZMQ_POLLIN", 10)) {
194             /* ^ */
195             #ifdef ZMQ_POLLIN
196 5           *iv_return = ZMQ_POLLIN;
197 5           return PERL_constant_ISIV;
198             #else
199             return PERL_constant_NOTDEF;
200             #endif
201             }
202 0           break;
203             case 'R':
204 2 50         if (memEQ(name, "ZMQ_ROUTER", 10)) {
205             /* ^ */
206             #ifdef ZMQ_ROUTER
207 2           *iv_return = ZMQ_ROUTER;
208 2           return PERL_constant_ISIV;
209             #else
210             return PERL_constant_NOTDEF;
211             #endif
212             }
213 0           break;
214             case 'S':
215 1 50         if (memEQ(name, "ZMQ_SERVER", 10)) {
216             /* ^ */
217             #ifdef ZMQ_SERVER
218 0           *iv_return = ZMQ_SERVER;
219 0           return PERL_constant_ISIV;
220             #else
221             return PERL_constant_NOTDEF;
222             #endif
223             }
224 1 50         if (memEQ(name, "ZMQ_STREAM", 10)) {
225             /* ^ */
226             #ifdef ZMQ_STREAM
227 1           *iv_return = ZMQ_STREAM;
228 1           return PERL_constant_ISIV;
229             #else
230             return PERL_constant_NOTDEF;
231             #endif
232             }
233 0           break;
234             }
235 0           return PERL_constant_NOTFOUND;
236             }
237              
238             static int
239 7           _c_constant_11 (pTHX_ const char *name, IV *iv_return) {
240             /* When generated this function returned values for the list of names given
241             here. However, subsequent manual editing may have added or removed some.
242             FEATURE_IPC FEATURE_PGM ZMQ_POLLERR ZMQ_POLLOUT ZMQ_POLLPRI ZMQ_SCATTER
243             ZMQ_SNDMORE */
244             /* Offset 10 gives the best switch position. */
245 7           switch (name[10]) {
246             case 'C':
247 1 50         if (memEQ(name, "FEATURE_IP", 10)) {
248             /* C */
249             #ifdef FEATURE_IPC
250 1           *iv_return = FEATURE_IPC;
251 1           return PERL_constant_ISIV;
252             #else
253             return PERL_constant_NOTDEF;
254             #endif
255             }
256 0           break;
257             case 'E':
258 2 50         if (memEQ(name, "ZMQ_SNDMOR", 10)) {
259             /* E */
260             #ifdef ZMQ_SNDMORE
261 2           *iv_return = ZMQ_SNDMORE;
262 2           return PERL_constant_ISIV;
263             #else
264             return PERL_constant_NOTDEF;
265             #endif
266             }
267 0           break;
268             case 'I':
269 1 50         if (memEQ(name, "ZMQ_POLLPR", 10)) {
270             /* I */
271             #ifdef ZMQ_POLLPRI
272 1           *iv_return = ZMQ_POLLPRI;
273 1           return PERL_constant_ISIV;
274             #else
275             return PERL_constant_NOTDEF;
276             #endif
277             }
278 0           break;
279             case 'M':
280 1 50         if (memEQ(name, "FEATURE_PG", 10)) {
281             /* M */
282             #ifdef FEATURE_PGM
283 1           *iv_return = FEATURE_PGM;
284 1           return PERL_constant_ISIV;
285             #else
286             return PERL_constant_NOTDEF;
287             #endif
288             }
289 0           break;
290             case 'R':
291 1 50         if (memEQ(name, "ZMQ_POLLER", 10)) {
292             /* R */
293             #ifdef ZMQ_POLLERR
294 1           *iv_return = ZMQ_POLLERR;
295 1           return PERL_constant_ISIV;
296             #else
297             return PERL_constant_NOTDEF;
298             #endif
299             }
300 0 0         if (memEQ(name, "ZMQ_SCATTE", 10)) {
301             /* R */
302             #ifdef ZMQ_SCATTER
303 0           *iv_return = ZMQ_SCATTER;
304 0           return PERL_constant_ISIV;
305             #else
306             return PERL_constant_NOTDEF;
307             #endif
308             }
309 0           break;
310             case 'T':
311 1 50         if (memEQ(name, "ZMQ_POLLOU", 10)) {
312             /* T */
313             #ifdef ZMQ_POLLOUT
314 1           *iv_return = ZMQ_POLLOUT;
315 1           return PERL_constant_ISIV;
316             #else
317             return PERL_constant_NOTDEF;
318             #endif
319             }
320 0           break;
321             }
322 0           return PERL_constant_NOTFOUND;
323             }
324              
325             static int
326 7           _c_constant_12 (pTHX_ const char *name, IV *iv_return) {
327             /* When generated this function returned values for the list of names given
328             here. However, subsequent manual editing may have added or removed some.
329             FEATURE_NORM FEATURE_TIPC ZMQ_DONTWAIT */
330             /* Offset 8 gives the best switch position. */
331 7           switch (name[8]) {
332             case 'N':
333 1 50         if (memEQ(name, "FEATURE_NORM", 12)) {
334             /* ^ */
335             #ifdef FEATURE_NORM
336 1           *iv_return = FEATURE_NORM;
337 1           return PERL_constant_ISIV;
338             #else
339             return PERL_constant_NOTDEF;
340             #endif
341             }
342 0           break;
343             case 'T':
344 1 50         if (memEQ(name, "FEATURE_TIPC", 12)) {
345             /* ^ */
346             #ifdef FEATURE_TIPC
347 1           *iv_return = FEATURE_TIPC;
348 1           return PERL_constant_ISIV;
349             #else
350             return PERL_constant_NOTDEF;
351             #endif
352             }
353 0           break;
354             case 'W':
355 5 50         if (memEQ(name, "ZMQ_DONTWAIT", 12)) {
356             /* ^ */
357             #ifdef ZMQ_DONTWAIT
358 5           *iv_return = ZMQ_DONTWAIT;
359 5           return PERL_constant_ISIV;
360             #else
361             return PERL_constant_NOTDEF;
362             #endif
363             }
364 0           break;
365             }
366 0           return PERL_constant_NOTFOUND;
367             }
368              
369             static int
370 5           _c_constant_13 (pTHX_ const char *name, IV *iv_return) {
371             /* When generated this function returned values for the list of names given
372             here. However, subsequent manual editing may have added or removed some.
373             FEATURE_CURVE FEATURE_DRAFT ZMQ_EVENT_ALL ZMQ_MAX_MSGSZ */
374             /* Offset 9 gives the best switch position. */
375 5           switch (name[9]) {
376             case 'R':
377 1 50         if (memEQ(name, "FEATURE_DRAFT", 13)) {
378             /* ^ */
379             #ifdef FEATURE_DRAFT
380 1           *iv_return = FEATURE_DRAFT;
381 1           return PERL_constant_ISIV;
382             #else
383             return PERL_constant_NOTDEF;
384             #endif
385             }
386 0           break;
387             case 'S':
388 1 50         if (memEQ(name, "ZMQ_MAX_MSGSZ", 13)) {
389             /* ^ */
390             #ifdef ZMQ_MAX_MSGSZ
391 1           *iv_return = ZMQ_MAX_MSGSZ;
392 1           return PERL_constant_ISIV;
393             #else
394             return PERL_constant_NOTDEF;
395             #endif
396             }
397 0           break;
398             case 'U':
399 1 50         if (memEQ(name, "FEATURE_CURVE", 13)) {
400             /* ^ */
401             #ifdef FEATURE_CURVE
402 1           *iv_return = FEATURE_CURVE;
403 1           return PERL_constant_ISIV;
404             #else
405             return PERL_constant_NOTDEF;
406             #endif
407             }
408 0           break;
409             case '_':
410 2 50         if (memEQ(name, "ZMQ_EVENT_ALL", 13)) {
411             /* ^ */
412             #ifdef ZMQ_EVENT_ALL
413 2           *iv_return = ZMQ_EVENT_ALL;
414 2           return PERL_constant_ISIV;
415             #else
416             return PERL_constant_NOTDEF;
417             #endif
418             }
419 0           break;
420             }
421 0           return PERL_constant_NOTFOUND;
422             }
423              
424             static int
425 2           _c_constant_14 (pTHX_ const char *name, IV *iv_return) {
426             /* When generated this function returned values for the list of names given
427             here. However, subsequent manual editing may have added or removed some.
428             FEATURE_GSSAPI ZMQ_IO_THREADS ZMQ_MSG_T_SIZE */
429             /* Offset 5 gives the best switch position. */
430 2           switch (name[5]) {
431             case 'O':
432 1 50         if (memEQ(name, "ZMQ_IO_THREADS", 14)) {
433             /* ^ */
434             #ifdef ZMQ_IO_THREADS
435 1           *iv_return = ZMQ_IO_THREADS;
436 1           return PERL_constant_ISIV;
437             #else
438             return PERL_constant_NOTDEF;
439             #endif
440             }
441 0           break;
442             case 'R':
443 1 50         if (memEQ(name, "FEATURE_GSSAPI", 14)) {
444             /* ^ */
445             #ifdef FEATURE_GSSAPI
446 1           *iv_return = FEATURE_GSSAPI;
447 1           return PERL_constant_ISIV;
448             #else
449             return PERL_constant_NOTDEF;
450             #endif
451             }
452 0           break;
453             case 'S':
454 0 0         if (memEQ(name, "ZMQ_MSG_T_SIZE", 14)) {
455             /* ^ */
456             #ifdef ZMQ_MSG_T_SIZE
457 0           *iv_return = ZMQ_MSG_T_SIZE;
458 0           return PERL_constant_ISIV;
459             #else
460             return PERL_constant_NOTDEF;
461             #endif
462             }
463 0           break;
464             }
465 0           return PERL_constant_NOTFOUND;
466             }
467              
468             static int
469 3           _c_constant_19 (pTHX_ const char *name, IV *iv_return) {
470             /* When generated this function returned values for the list of names given
471             here. However, subsequent manual editing may have added or removed some.
472             ZMQ_EVENT_CONNECTED ZMQ_EVENT_LISTENING ZMQ_THREAD_AFFINITY
473             ZMQ_THREAD_PRIORITY */
474             /* Offset 12 gives the best switch position. */
475 3           switch (name[12]) {
476             case 'F':
477 0 0         if (memEQ(name, "ZMQ_THREAD_AFFINITY", 19)) {
478             /* ^ */
479             #ifdef ZMQ_THREAD_AFFINITY
480             *iv_return = ZMQ_THREAD_AFFINITY;
481             return PERL_constant_ISIV;
482             #else
483 0           return PERL_constant_NOTDEF;
484             #endif
485             }
486 0           break;
487             case 'N':
488 1 50         if (memEQ(name, "ZMQ_EVENT_CONNECTED", 19)) {
489             /* ^ */
490             #ifdef ZMQ_EVENT_CONNECTED
491 1           *iv_return = ZMQ_EVENT_CONNECTED;
492 1           return PERL_constant_ISIV;
493             #else
494             return PERL_constant_NOTDEF;
495             #endif
496             }
497 0           break;
498             case 'R':
499 1 50         if (memEQ(name, "ZMQ_THREAD_PRIORITY", 19)) {
500             /* ^ */
501             #ifdef ZMQ_THREAD_PRIORITY
502 1           *iv_return = ZMQ_THREAD_PRIORITY;
503 1           return PERL_constant_ISIV;
504             #else
505             return PERL_constant_NOTDEF;
506             #endif
507             }
508 0           break;
509             case 'S':
510 1 50         if (memEQ(name, "ZMQ_EVENT_LISTENING", 19)) {
511             /* ^ */
512             #ifdef ZMQ_EVENT_LISTENING
513 1           *iv_return = ZMQ_EVENT_LISTENING;
514 1           return PERL_constant_ISIV;
515             #else
516             return PERL_constant_NOTDEF;
517             #endif
518             }
519 0           break;
520             }
521 0           return PERL_constant_NOTFOUND;
522             }
523              
524             static int
525 2           _c_constant_22 (pTHX_ const char *name, IV *iv_return) {
526             /* When generated this function returned values for the list of names given
527             here. However, subsequent manual editing may have added or removed some.
528             ZMQ_EVENT_CLOSE_FAILED ZMQ_EVENT_DISCONNECTED ZMQ_THREAD_NAME_PREFIX */
529             /* Offset 11 gives the best switch position. */
530 2           switch (name[11]) {
531             case 'I':
532 1 50         if (memEQ(name, "ZMQ_EVENT_DISCONNECTED", 22)) {
533             /* ^ */
534             #ifdef ZMQ_EVENT_DISCONNECTED
535 1           *iv_return = ZMQ_EVENT_DISCONNECTED;
536 1           return PERL_constant_ISIV;
537             #else
538             return PERL_constant_NOTDEF;
539             #endif
540             }
541 0           break;
542             case 'L':
543 1 50         if (memEQ(name, "ZMQ_EVENT_CLOSE_FAILED", 22)) {
544             /* ^ */
545             #ifdef ZMQ_EVENT_CLOSE_FAILED
546 1           *iv_return = ZMQ_EVENT_CLOSE_FAILED;
547 1           return PERL_constant_ISIV;
548             #else
549             return PERL_constant_NOTDEF;
550             #endif
551             }
552 0           break;
553             case 'N':
554 0 0         if (memEQ(name, "ZMQ_THREAD_NAME_PREFIX", 22)) {
555             /* ^ */
556             #ifdef ZMQ_THREAD_NAME_PREFIX
557 0           *iv_return = ZMQ_THREAD_NAME_PREFIX;
558 0           return PERL_constant_ISIV;
559             #else
560             return PERL_constant_NOTDEF;
561             #endif
562             }
563 0           break;
564             }
565 0           return PERL_constant_NOTFOUND;
566             }
567              
568             static int
569 3           _c_constant_25 (pTHX_ const char *name, IV *iv_return) {
570             /* When generated this function returned values for the list of names given
571             here. However, subsequent manual editing may have added or removed some.
572             ZMQ_EVENT_CONNECT_DELAYED ZMQ_EVENT_CONNECT_RETRIED
573             ZMQ_EVENT_MONITOR_STOPPED */
574             /* Offset 20 gives the best switch position. */
575 3           switch (name[20]) {
576             case 'L':
577 1 50         if (memEQ(name, "ZMQ_EVENT_CONNECT_DELAYED", 25)) {
578             /* ^ */
579             #ifdef ZMQ_EVENT_CONNECT_DELAYED
580 1           *iv_return = ZMQ_EVENT_CONNECT_DELAYED;
581 1           return PERL_constant_ISIV;
582             #else
583             return PERL_constant_NOTDEF;
584             #endif
585             }
586 0           break;
587             case 'O':
588 1 50         if (memEQ(name, "ZMQ_EVENT_MONITOR_STOPPED", 25)) {
589             /* ^ */
590             #ifdef ZMQ_EVENT_MONITOR_STOPPED
591 1           *iv_return = ZMQ_EVENT_MONITOR_STOPPED;
592 1           return PERL_constant_ISIV;
593             #else
594             return PERL_constant_NOTDEF;
595             #endif
596             }
597 0           break;
598             case 'T':
599 1 50         if (memEQ(name, "ZMQ_EVENT_CONNECT_RETRIED", 25)) {
600             /* ^ */
601             #ifdef ZMQ_EVENT_CONNECT_RETRIED
602 1           *iv_return = ZMQ_EVENT_CONNECT_RETRIED;
603 1           return PERL_constant_ISIV;
604             #else
605             return PERL_constant_NOTDEF;
606             #endif
607             }
608 0           break;
609             }
610 0           return PERL_constant_NOTFOUND;
611             }
612              
613             static int
614 66           _c_constant (pTHX_ const char *name, STRLEN len, IV *iv_return) {
615             /* Initially switch on the length of the name. */
616             /* When generated this function returned values for the list of names given
617             in this section of perl code. Rather than manually editing these functions
618             to add or remove constants, which would result in this comment and section
619             of code becoming inaccurate, we recommend that you edit this section of
620             code, and use it to regenerate a new set of constant functions which you
621             then use to replace the originals.
622              
623             Regenerate these constant functions by feeding this entire source file to
624             perl -x
625              
626             #!/usr/local/bin/perl -w
627             use ExtUtils::Constant qw (constant_types C_constant XS_constant);
628              
629             my $types = {map {($_, 1)} qw(IV)};
630             my @names = (qw(FEATURE_CURVE FEATURE_DRAFT FEATURE_GSSAPI FEATURE_IPC
631             FEATURE_NORM FEATURE_PGM FEATURE_TIPC ZMQ_CLIENT ZMQ_DEALER
632             ZMQ_DGRAM ZMQ_DISH ZMQ_DONTWAIT ZMQ_EVENT_ACCEPTED
633             ZMQ_EVENT_ACCEPT_FAILED ZMQ_EVENT_ALL ZMQ_EVENT_BIND_FAILED
634             ZMQ_EVENT_CLOSED ZMQ_EVENT_CLOSE_FAILED ZMQ_EVENT_CONNECTED
635             ZMQ_EVENT_CONNECT_DELAYED ZMQ_EVENT_CONNECT_RETRIED
636             ZMQ_EVENT_DISCONNECTED ZMQ_EVENT_HANDSHAKE_FAILED_AUTH
637             ZMQ_EVENT_HANDSHAKE_FAILED_NO_DETAIL
638             ZMQ_EVENT_HANDSHAKE_FAILED_PROTOCOL
639             ZMQ_EVENT_HANDSHAKE_SUCCEEDED ZMQ_EVENT_LISTENING
640             ZMQ_EVENT_MONITOR_STOPPED ZMQ_GATHER ZMQ_IO_THREADS
641             ZMQ_MAX_MSGSZ ZMQ_MAX_SOCKETS ZMQ_MSG_T_SIZE ZMQ_PAIR
642             ZMQ_POLLERR ZMQ_POLLIN ZMQ_POLLOUT ZMQ_POLLPRI ZMQ_PUB ZMQ_PULL
643             ZMQ_PUSH ZMQ_RADIO ZMQ_REP ZMQ_REQ ZMQ_ROUTER ZMQ_SCATTER
644             ZMQ_SERVER ZMQ_SNDMORE ZMQ_SOCKET_LIMIT ZMQ_STREAM ZMQ_SUB
645             ZMQ_THREAD_AFFINITY ZMQ_THREAD_NAME_PREFIX ZMQ_THREAD_PRIORITY
646             ZMQ_THREAD_SCHED_POLICY ZMQ_XPUB ZMQ_XSUB));
647              
648             print constant_types(), "\n"; # macro defs
649             foreach (C_constant ("ZMQ::Raw", '_c_constant', 'IV', $types, undef, 3, @names) ) {
650             print $_, "\n"; # C constant subs
651             }
652             print "\n#### XS Section:\n";
653             print XS_constant ("ZMQ::Raw", $types);
654             __END__