File Coverage

inc/const-c.inc

Criterion	Covered	Total	%
statement	515	667	77.2
branch	168	292	57.5
condition			n/a
subroutine			n/a
pod			n/a
total	683	959	71.2

line	stmt	bran	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	132		constant_10 (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			PS_FAILURE PS_PENDING PS_SUCCESS */
28			/* Offset 8 gives the best switch position. */
29	132		switch (name[8]) {
30			case 'N':
31	44	50	if (memEQ(name, "PS_PENDING", 10)) {
32			/* ^ */
33			#ifdef PS_PENDING
34	44		*iv_return = PS_PENDING;
35	44		return PERL_constant_ISIV;
36			#else
37			return PERL_constant_NOTDEF;
38			#endif
39			}
40	0		break;
41			case 'R':
42	44	50	if (memEQ(name, "PS_FAILURE", 10)) {
43			/* ^ */
44			#ifdef PS_FAILURE
45	44		*iv_return = PS_FAILURE;
46	44		return PERL_constant_ISIV;
47			#else
48			return PERL_constant_NOTDEF;
49			#endif
50			}
51	0		break;
52			case 'S':
53	44	50	if (memEQ(name, "PS_SUCCESS", 10)) {
54			/* ^ */
55			#ifdef PS_SUCCESS
56	44		*iv_return = PS_SUCCESS;
57	44		return PERL_constant_ISIV;
58			#else
59			return PERL_constant_NOTDEF;
60			#endif
61			}
62	0		break;
63			}
64	0		return PERL_constant_NOTFOUND;
65			}
66
67			static int
68	154		constant_11 (pTHX_ const char name, IV iv_return) {
69			/* When generated this function returned values for the list of names given
70			here. However, subsequent manual editing may have added or removed some.
71			PS_ARG_FAIL PS_MEM_FAIL SNI_ENABLED TLS_MAJ_VER TLS_MIN_VER */
72			/* Offset 5 gives the best switch position. */
73	154		switch (name[5]) {
74			case 'A':
75	22	50	if (memEQ(name, "TLS_MAJ_VER", 11)) {
76			/* ^ */
77			#ifdef TLS_MAJ_VER
78	22		*iv_return = TLS_MAJ_VER;
79	22		return PERL_constant_ISIV;
80			#else
81			return PERL_constant_NOTDEF;
82			#endif
83			}
84	0		break;
85			case 'G':
86	44	50	if (memEQ(name, "PS_ARG_FAIL", 11)) {
87			/* ^ */
88			#ifdef PS_ARG_FAIL
89	44		*iv_return = PS_ARG_FAIL;
90	44		return PERL_constant_ISIV;
91			#else
92			return PERL_constant_NOTDEF;
93			#endif
94			}
95	0		break;
96			case 'I':
97	22	50	if (memEQ(name, "TLS_MIN_VER", 11)) {
98			/* ^ */
99			#ifdef TLS_MIN_VER
100	22		*iv_return = TLS_MIN_VER;
101	22		return PERL_constant_ISIV;
102			#else
103			return PERL_constant_NOTDEF;
104			#endif
105			}
106	0		break;
107			case 'M':
108	44	50	if (memEQ(name, "PS_MEM_FAIL", 11)) {
109			/* ^ */
110			#ifdef PS_MEM_FAIL
111	44		*iv_return = PS_MEM_FAIL;
112	44		return PERL_constant_ISIV;
113			#else
114			return PERL_constant_NOTDEF;
115			#endif
116			}
117	0		break;
118			case 'N':
119	22	50	if (memEQ(name, "SNI_ENABLED", 11)) {
120			/* ^ */
121			#ifdef SNI_ENABLED
122	22		*iv_return = SNI_ENABLED;
123	22		return PERL_constant_ISIV;
124			#else
125			return PERL_constant_NOTDEF;
126			#endif
127			}
128	0		break;
129			}
130	0		return PERL_constant_NOTFOUND;
131			}
132
133			static int
134	132		constant_12 (pTHX_ const char name, IV iv_return) {
135			/* When generated this function returned values for the list of names given
136			here. However, subsequent manual editing may have added or removed some.
137			ALPN_ENABLED PS_AUTH_FAIL SSL2_MAJ_VER SSL3_MAJ_VER SSL3_MIN_VER */
138			/* Offset 6 gives the best switch position. */
139	132		switch (name[6]) {
140			case 'A':
141	44	100	if (memEQ(name, "SSL2_MAJ_VER", 12)) {
142			/* ^ */
143			#ifdef SSL2_MAJ_VER
144	22		*iv_return = SSL2_MAJ_VER;
145	22		return PERL_constant_ISIV;
146			#else
147			return PERL_constant_NOTDEF;
148			#endif
149			}
150	22	50	if (memEQ(name, "SSL3_MAJ_VER", 12)) {
151			/* ^ */
152			#ifdef SSL3_MAJ_VER
153	22		*iv_return = SSL3_MAJ_VER;
154	22		return PERL_constant_ISIV;
155			#else
156			return PERL_constant_NOTDEF;
157			#endif
158			}
159	0		break;
160			case 'H':
161	44	50	if (memEQ(name, "PS_AUTH_FAIL", 12)) {
162			/* ^ */
163			#ifdef PS_AUTH_FAIL
164	44		*iv_return = PS_AUTH_FAIL;
165	44		return PERL_constant_ISIV;
166			#else
167			return PERL_constant_NOTDEF;
168			#endif
169			}
170	0		break;
171			case 'I':
172	22	50	if (memEQ(name, "SSL3_MIN_VER", 12)) {
173			/* ^ */
174			#ifdef SSL3_MIN_VER
175	22		*iv_return = SSL3_MIN_VER;
176	22		return PERL_constant_ISIV;
177			#else
178			return PERL_constant_NOTDEF;
179			#endif
180			}
181	0		break;
182			case 'N':
183	22	50	if (memEQ(name, "ALPN_ENABLED", 12)) {
184			/* ^ */
185			#ifdef ALPN_ENABLED
186	22		*iv_return = ALPN_ENABLED;
187	22		return PERL_constant_ISIV;
188			#else
189			return PERL_constant_NOTDEF;
190			#endif
191			}
192	0		break;
193			}
194	0		return PERL_constant_NOTFOUND;
195			}
196
197			static int
198	132		constant_15 (pTHX_ const char name, IV iv_return) {
199			/* When generated this function returned values for the list of names given
200			here. However, subsequent manual editing may have added or removed some.
201			MATRIXSSL_ERROR PS_TIMEOUT_FAIL TLS_1_1_MIN_VER TLS_1_2_MIN_VER */
202			/* Offset 6 gives the best switch position. */
203	132		switch (name[6]) {
204			case '1':
205	22	50	if (memEQ(name, "TLS_1_1_MIN_VER", 15)) {
206			/* ^ */
207			#ifdef TLS_1_1_MIN_VER
208	22		*iv_return = TLS_1_1_MIN_VER;
209	22		return PERL_constant_ISIV;
210			#else
211			return PERL_constant_NOTDEF;
212			#endif
213			}
214	0		break;
215			case '2':
216	22	50	if (memEQ(name, "TLS_1_2_MIN_VER", 15)) {
217			/* ^ */
218			#ifdef TLS_1_2_MIN_VER
219	22		*iv_return = TLS_1_2_MIN_VER;
220	22		return PERL_constant_ISIV;
221			#else
222			return PERL_constant_NOTDEF;
223			#endif
224			}
225	0		break;
226			case 'E':
227	44	50	if (memEQ(name, "PS_TIMEOUT_FAIL", 15)) {
228			/* ^ */
229			#ifdef PS_TIMEOUT_FAIL
230	44		*iv_return = PS_TIMEOUT_FAIL;
231	44		return PERL_constant_ISIV;
232			#else
233			return PERL_constant_NOTDEF;
234			#endif
235			}
236	0		break;
237			case 'S':
238	44	50	if (memEQ(name, "MATRIXSSL_ERROR", 15)) {
239			/* ^ */
240			#ifdef MATRIXSSL_ERROR
241	44		*iv_return = MATRIXSSL_ERROR;
242	44		return PERL_constant_ISIV;
243			#else
244			return PERL_constant_NOTDEF;
245			#endif
246			}
247	0		break;
248			}
249	0		return PERL_constant_NOTFOUND;
250			}
251
252			static int
253	110		constant_16 (pTHX_ const char name, IV iv_return) {
254			/* When generated this function returned values for the list of names given
255			here. However, subsequent manual editing may have added or removed some.
256			PS_PLATFORM_FAIL PS_PROTOCOL_FAIL SSL_MAX_BUF_SIZE */
257			/* Offset 4 gives the best switch position. */
258	110		switch (name[4]) {
259			case 'L':
260	44	50	if (memEQ(name, "PS_PLATFORM_FAIL", 16)) {
261			/* ^ */
262			#ifdef PS_PLATFORM_FAIL
263	44		*iv_return = PS_PLATFORM_FAIL;
264	44		return PERL_constant_ISIV;
265			#else
266			return PERL_constant_NOTDEF;
267			#endif
268			}
269	0		break;
270			case 'M':
271	22	50	if (memEQ(name, "SSL_MAX_BUF_SIZE", 16)) {
272			/* ^ */
273			#ifdef SSL_MAX_BUF_SIZE
274	22		*iv_return = SSL_MAX_BUF_SIZE;
275	22		return PERL_constant_ISIV;
276			#else
277			return PERL_constant_NOTDEF;
278			#endif
279			}
280	0		break;
281			case 'R':
282	44	50	if (memEQ(name, "PS_PROTOCOL_FAIL", 16)) {
283			/* ^ */
284			#ifdef PS_PROTOCOL_FAIL
285	44		*iv_return = PS_PROTOCOL_FAIL;
286	44		return PERL_constant_ISIV;
287			#else
288			return PERL_constant_NOTDEF;
289			#endif
290			}
291	0		break;
292			}
293	0		return PERL_constant_NOTFOUND;
294			}
295
296			static int
297	176		constant_17 (pTHX_ const char name, IV iv_return) {
298			/* When generated this function returned values for the list of names given
299			here. However, subsequent manual editing may have added or removed some.
300			DH_PARAMS_ENABLED MATRIXSSL_SUCCESS PS_CERT_AUTH_FAIL PS_INTERRUPT_FAIL
301			TLS_HIGHEST_MINOR */
302			/* Offset 4 gives the best switch position. */
303	176		switch (name[4]) {
304			case 'A':
305	22	50	if (memEQ(name, "DH_PARAMS_ENABLED", 17)) {
306			/* ^ */
307			#ifdef DH_PARAMS_ENABLED
308	22		*iv_return = DH_PARAMS_ENABLED;
309	22		return PERL_constant_ISIV;
310			#else
311			return PERL_constant_NOTDEF;
312			#endif
313			}
314	0		break;
315			case 'E':
316	44	50	if (memEQ(name, "PS_CERT_AUTH_FAIL", 17)) {
317			/* ^ */
318			#ifdef PS_CERT_AUTH_FAIL
319	44		*iv_return = PS_CERT_AUTH_FAIL;
320	44		return PERL_constant_ISIV;
321			#else
322			return PERL_constant_NOTDEF;
323			#endif
324			}
325	0		break;
326			case 'H':
327	22	50	if (memEQ(name, "TLS_HIGHEST_MINOR", 17)) {
328			/* ^ */
329			#ifdef TLS_HIGHEST_MINOR
330	22		*iv_return = TLS_HIGHEST_MINOR;
331	22		return PERL_constant_ISIV;
332			#else
333			return PERL_constant_NOTDEF;
334			#endif
335			}
336	0		break;
337			case 'I':
338	44	50	if (memEQ(name, "MATRIXSSL_SUCCESS", 17)) {
339			/* ^ */
340			#ifdef MATRIXSSL_SUCCESS
341	44		*iv_return = MATRIXSSL_SUCCESS;
342	44		return PERL_constant_ISIV;
343			#else
344			return PERL_constant_NOTDEF;
345			#endif
346			}
347	0		break;
348			case 'N':
349	44	50	if (memEQ(name, "PS_INTERRUPT_FAIL", 17)) {
350			/* ^ */
351			#ifdef PS_INTERRUPT_FAIL
352	44		*iv_return = PS_INTERRUPT_FAIL;
353	44		return PERL_constant_ISIV;
354			#else
355			return PERL_constant_NOTDEF;
356			#endif
357			}
358	0		break;
359			}
360	0		return PERL_constant_NOTFOUND;
361			}
362
363			static int
364	154		constant_20 (pTHX_ const char name, IV iv_return) {
365			/* When generated this function returned values for the list of names given
366			here. However, subsequent manual editing may have added or removed some.
367			OCSP_STAPLES_ENABLED PS_CERT_AUTH_FAIL_BC PS_CERT_AUTH_FAIL_DN
368			SSL_ALERT_UNKNOWN_CA */
369			/* Offset 18 gives the best switch position. */
370	154		switch (name[18]) {
371			case 'B':
372	44	50	if (memEQ(name, "PS_CERT_AUTH_FAIL_BC", 20)) {
373			/* ^ */
374			#ifdef PS_CERT_AUTH_FAIL_BC
375	44		*iv_return = PS_CERT_AUTH_FAIL_BC;
376	44		return PERL_constant_ISIV;
377			#else
378			return PERL_constant_NOTDEF;
379			#endif
380			}
381	0		break;
382			case 'C':
383	44	50	if (memEQ(name, "SSL_ALERT_UNKNOWN_CA", 20)) {
384			/* ^ */
385			#ifdef SSL_ALERT_UNKNOWN_CA
386	44		*iv_return = SSL_ALERT_UNKNOWN_CA;
387	44		return PERL_constant_ISIV;
388			#else
389			return PERL_constant_NOTDEF;
390			#endif
391			}
392	0		break;
393			case 'D':
394	44	50	if (memEQ(name, "PS_CERT_AUTH_FAIL_DN", 20)) {
395			/* ^ */
396			#ifdef PS_CERT_AUTH_FAIL_DN
397	44		*iv_return = PS_CERT_AUTH_FAIL_DN;
398	44		return PERL_constant_ISIV;
399			#else
400			return PERL_constant_NOTDEF;
401			#endif
402			}
403	0		break;
404			case 'E':
405	22	50	if (memEQ(name, "OCSP_STAPLES_ENABLED", 20)) {
406			/* ^ */
407			#ifdef OCSP_STAPLES_ENABLED
408	22		*iv_return = OCSP_STAPLES_ENABLED;
409	22		return PERL_constant_ISIV;
410			#else
411			return PERL_constant_NOTDEF;
412			#endif
413			}
414	0		break;
415			}
416	0		return PERL_constant_NOTFOUND;
417			}
418
419			static int
420	198		constant_21 (pTHX_ const char name, IV iv_return) {
421			/* When generated this function returned values for the list of names given
422			here. However, subsequent manual editing may have added or removed some.
423			PS_CERT_AUTH_FAIL_SIG PS_SIGNATURE_MISMATCH SSL_ALERT_LEVEL_FATAL
424			SSL_MAX_PLAINTEXT_LEN SSL_RSA_WITH_NULL_MD5 SSL_RSA_WITH_NULL_SHA */
425			/* Offset 19 gives the best switch position. */
426	198		switch (name[19]) {
427			case 'A':
428	44	50	if (memEQ(name, "SSL_ALERT_LEVEL_FATAL", 21)) {
429			/* ^ */
430			#ifdef SSL_ALERT_LEVEL_FATAL
431	44		*iv_return = SSL_ALERT_LEVEL_FATAL;
432	44		return PERL_constant_ISIV;
433			#else
434			return PERL_constant_NOTDEF;
435			#endif
436			}
437	0		break;
438			case 'C':
439	44	50	if (memEQ(name, "PS_SIGNATURE_MISMATCH", 21)) {
440			/* ^ */
441			#ifdef PS_SIGNATURE_MISMATCH
442	44		*iv_return = PS_SIGNATURE_MISMATCH;
443	44		return PERL_constant_ISIV;
444			#else
445			return PERL_constant_NOTDEF;
446			#endif
447			}
448	0		break;
449			case 'D':
450	22	50	if (memEQ(name, "SSL_RSA_WITH_NULL_MD5", 21)) {
451			/* ^ */
452			#ifdef SSL_RSA_WITH_NULL_MD5
453	22		*iv_return = SSL_RSA_WITH_NULL_MD5;
454	22		return PERL_constant_ISIV;
455			#else
456			return PERL_constant_NOTDEF;
457			#endif
458			}
459	0		break;
460			case 'E':
461	22	50	if (memEQ(name, "SSL_MAX_PLAINTEXT_LEN", 21)) {
462			/* ^ */
463			#ifdef SSL_MAX_PLAINTEXT_LEN
464	22		*iv_return = SSL_MAX_PLAINTEXT_LEN;
465	22		return PERL_constant_ISIV;
466			#else
467			return PERL_constant_NOTDEF;
468			#endif
469			}
470	0		break;
471			case 'H':
472	22	50	if (memEQ(name, "SSL_RSA_WITH_NULL_SHA", 21)) {
473			/* ^ */
474			#ifdef SSL_RSA_WITH_NULL_SHA
475	22		*iv_return = SSL_RSA_WITH_NULL_SHA;
476	22		return PERL_constant_ISIV;
477			#else
478			return PERL_constant_NOTDEF;
479			#endif
480			}
481	0		break;
482			case 'I':
483	44	50	if (memEQ(name, "PS_CERT_AUTH_FAIL_SIG", 21)) {
484			/* ^ */
485			#ifdef PS_CERT_AUTH_FAIL_SIG
486	44		*iv_return = PS_CERT_AUTH_FAIL_SIG;
487	44		return PERL_constant_ISIV;
488			#else
489			return PERL_constant_NOTDEF;
490			#endif
491			}
492	0		break;
493			}
494	0		return PERL_constant_NOTFOUND;
495			}
496
497			static int
498	176		constant_22 (pTHX_ const char name, IV iv_return) {
499			/* When generated this function returned values for the list of names given
500			here. However, subsequent manual editing may have added or removed some.
501			MATRIXSSL_REQUEST_RECV MATRIXSSL_REQUEST_SEND SSL_ALERT_CLOSE_NOTIFY
502			SSL_ALERT_DECODE_ERROR */
503			/* Offset 20 gives the best switch position. */
504	176		switch (name[20]) {
505			case 'C':
506	44	50	if (memEQ(name, "MATRIXSSL_REQUEST_RECV", 22)) {
507			/* ^ */
508			#ifdef MATRIXSSL_REQUEST_RECV
509	44		*iv_return = MATRIXSSL_REQUEST_RECV;
510	44		return PERL_constant_ISIV;
511			#else
512			return PERL_constant_NOTDEF;
513			#endif
514			}
515	0		break;
516			case 'F':
517	44	50	if (memEQ(name, "SSL_ALERT_CLOSE_NOTIFY", 22)) {
518			/* ^ */
519			#ifdef SSL_ALERT_CLOSE_NOTIFY
520	44		*iv_return = SSL_ALERT_CLOSE_NOTIFY;
521	44		return PERL_constant_ISIV;
522			#else
523			return PERL_constant_NOTDEF;
524			#endif
525			}
526	0		break;
527			case 'N':
528	44	50	if (memEQ(name, "MATRIXSSL_REQUEST_SEND", 22)) {
529			/* ^ */
530			#ifdef MATRIXSSL_REQUEST_SEND
531	44		*iv_return = MATRIXSSL_REQUEST_SEND;
532	44		return PERL_constant_ISIV;
533			#else
534			return PERL_constant_NOTDEF;
535			#endif
536			}
537	0		break;
538			case 'O':
539	44	50	if (memEQ(name, "SSL_ALERT_DECODE_ERROR", 22)) {
540			/* ^ */
541			#ifdef SSL_ALERT_DECODE_ERROR
542	44		*iv_return = SSL_ALERT_DECODE_ERROR;
543	44		return PERL_constant_ISIV;
544			#else
545			return PERL_constant_NOTDEF;
546			#endif
547			}
548	0		break;
549			}
550	0		return PERL_constant_NOTFOUND;
551			}
552
553			static int
554	264		constant_23 (pTHX_ const char name, IV iv_return) {
555			/* When generated this function returned values for the list of names given
556			here. However, subsequent manual editing may have added or removed some.
557			MATRIXSSL_REQUEST_CLOSE MATRIXSSL_VERSION_MAJOR MATRIXSSL_VERSION_MINOR
558			MATRIXSSL_VERSION_PATCH SSL_ALERT_ACCESS_DENIED SSL_ALERT_DECRYPT_ERROR
559			SSL_ALERT_LEVEL_WARNING SSL_NULL_WITH_NULL_NULL */
560			/* Offset 20 gives the best switch position. */
561	264		switch (name[20]) {
562			case 'I':
563	88	100	if (memEQ(name, "SSL_ALERT_ACCESS_DENIED", 23)) {
564			/* ^ */
565			#ifdef SSL_ALERT_ACCESS_DENIED
566	44		*iv_return = SSL_ALERT_ACCESS_DENIED;
567	44		return PERL_constant_ISIV;
568			#else
569			return PERL_constant_NOTDEF;
570			#endif
571			}
572	44	50	if (memEQ(name, "SSL_ALERT_LEVEL_WARNING", 23)) {
573			/* ^ */
574			#ifdef SSL_ALERT_LEVEL_WARNING
575	44		*iv_return = SSL_ALERT_LEVEL_WARNING;
576	44		return PERL_constant_ISIV;
577			#else
578			return PERL_constant_NOTDEF;
579			#endif
580			}
581	0		break;
582			case 'J':
583	22	50	if (memEQ(name, "MATRIXSSL_VERSION_MAJOR", 23)) {
584			/* ^ */
585			#ifdef MATRIXSSL_VERSION_MAJOR
586	22		*iv_return = MATRIXSSL_VERSION_MAJOR;
587	22		return PERL_constant_ISIV;
588			#else
589			return PERL_constant_NOTDEF;
590			#endif
591			}
592	0		break;
593			case 'N':
594	22	50	if (memEQ(name, "MATRIXSSL_VERSION_MINOR", 23)) {
595			/* ^ */
596			#ifdef MATRIXSSL_VERSION_MINOR
597	22		*iv_return = MATRIXSSL_VERSION_MINOR;
598	22		return PERL_constant_ISIV;
599			#else
600			return PERL_constant_NOTDEF;
601			#endif
602			}
603	0		break;
604			case 'O':
605	44	50	if (memEQ(name, "MATRIXSSL_REQUEST_CLOSE", 23)) {
606			/* ^ */
607			#ifdef MATRIXSSL_REQUEST_CLOSE
608	44		*iv_return = MATRIXSSL_REQUEST_CLOSE;
609	44		return PERL_constant_ISIV;
610			#else
611			return PERL_constant_NOTDEF;
612			#endif
613			}
614	0		break;
615			case 'R':
616	44	50	if (memEQ(name, "SSL_ALERT_DECRYPT_ERROR", 23)) {
617			/* ^ */
618			#ifdef SSL_ALERT_DECRYPT_ERROR
619	44		*iv_return = SSL_ALERT_DECRYPT_ERROR;
620	44		return PERL_constant_ISIV;
621			#else
622			return PERL_constant_NOTDEF;
623			#endif
624			}
625	0		break;
626			case 'T':
627	22	50	if (memEQ(name, "MATRIXSSL_VERSION_PATCH", 23)) {
628			/* ^ */
629			#ifdef MATRIXSSL_VERSION_PATCH
630	22		*iv_return = MATRIXSSL_VERSION_PATCH;
631	22		return PERL_constant_ISIV;
632			#else
633			return PERL_constant_NOTDEF;
634			#endif
635			}
636	0		break;
637			case 'U':
638	22	50	if (memEQ(name, "SSL_NULL_WITH_NULL_NULL", 23)) {
639			/* ^ */
640			#ifdef SSL_NULL_WITH_NULL_NULL
641	22		*iv_return = SSL_NULL_WITH_NULL_NULL;
642	22		return PERL_constant_ISIV;
643			#else
644			return PERL_constant_NOTDEF;
645			#endif
646			}
647	0		break;
648			}
649	0		return PERL_constant_NOTFOUND;
650			}
651
652			static int
653	286		constant_24 (pTHX_ const char name, IV iv_return) {
654			/* When generated this function returned values for the list of names given
655			here. However, subsequent manual editing may have added or removed some.
656			MATRIXSSL_RECEIVED_ALERT PS_DISABLED_FEATURE_FAIL SSL_ALERT_BAD_RECORD_MAC
657			SSL_ALERT_INTERNAL_ERROR SSL_ALERT_NO_CERTIFICATE SSL_MAX_DISABLED_CIPHERS
658			SSL_RSA_WITH_RC4_128_MD5 SSL_RSA_WITH_RC4_128_SHA */
659			/* Offset 23 gives the best switch position. */
660	286		switch (name[23]) {
661			case '5':
662	22	50	if (memEQ(name, "SSL_RSA_WITH_RC4_128_MD", 23)) {
663			/* 5 */
664			#ifdef SSL_RSA_WITH_RC4_128_MD5
665	22		*iv_return = SSL_RSA_WITH_RC4_128_MD5;
666	22		return PERL_constant_ISIV;
667			#else
668			return PERL_constant_NOTDEF;
669			#endif
670			}
671	0		break;
672			case 'A':
673	22	50	if (memEQ(name, "SSL_RSA_WITH_RC4_128_SH", 23)) {
674			/* A */
675			#ifdef SSL_RSA_WITH_RC4_128_SHA
676	22		*iv_return = SSL_RSA_WITH_RC4_128_SHA;
677	22		return PERL_constant_ISIV;
678			#else
679			return PERL_constant_NOTDEF;
680			#endif
681			}
682	0		break;
683			case 'C':
684	44	50	if (memEQ(name, "SSL_ALERT_BAD_RECORD_MA", 23)) {
685			/* C */
686			#ifdef SSL_ALERT_BAD_RECORD_MAC
687	44		*iv_return = SSL_ALERT_BAD_RECORD_MAC;
688	44		return PERL_constant_ISIV;
689			#else
690			return PERL_constant_NOTDEF;
691			#endif
692			}
693	0		break;
694			case 'E':
695	44	50	if (memEQ(name, "SSL_ALERT_NO_CERTIFICAT", 23)) {
696			/* E */
697			#ifdef SSL_ALERT_NO_CERTIFICATE
698	44		*iv_return = SSL_ALERT_NO_CERTIFICATE;
699	44		return PERL_constant_ISIV;
700			#else
701			return PERL_constant_NOTDEF;
702			#endif
703			}
704	0		break;
705			case 'L':
706	44	50	if (memEQ(name, "PS_DISABLED_FEATURE_FAI", 23)) {
707			/* L */
708			#ifdef PS_DISABLED_FEATURE_FAIL
709	44		*iv_return = PS_DISABLED_FEATURE_FAIL;
710	44		return PERL_constant_ISIV;
711			#else
712			return PERL_constant_NOTDEF;
713			#endif
714			}
715	0		break;
716			case 'R':
717	44	50	if (memEQ(name, "SSL_ALERT_INTERNAL_ERRO", 23)) {
718			/* R */
719			#ifdef SSL_ALERT_INTERNAL_ERROR
720	44		*iv_return = SSL_ALERT_INTERNAL_ERROR;
721	44		return PERL_constant_ISIV;
722			#else
723			return PERL_constant_NOTDEF;
724			#endif
725			}
726	0		break;
727			case 'S':
728	22	50	if (memEQ(name, "SSL_MAX_DISABLED_CIPHER", 23)) {
729			/* S */
730			#ifdef SSL_MAX_DISABLED_CIPHERS
731	22		*iv_return = SSL_MAX_DISABLED_CIPHERS;
732	22		return PERL_constant_ISIV;
733			#else
734			return PERL_constant_NOTDEF;
735			#endif
736			}
737	0		break;
738			case 'T':
739	44	50	if (memEQ(name, "MATRIXSSL_RECEIVED_ALER", 23)) {
740			/* T */
741			#ifdef MATRIXSSL_RECEIVED_ALERT
742	44		*iv_return = MATRIXSSL_RECEIVED_ALERT;
743	44		return PERL_constant_ISIV;
744			#else
745			return PERL_constant_NOTDEF;
746			#endif
747			}
748	0		break;
749			}
750	0		return PERL_constant_NOTFOUND;
751			}
752
753			static int
754	330		constant_25 (pTHX_ const char name, IV iv_return) {
755			/* When generated this function returned values for the list of names given
756			here. However, subsequent manual editing may have added or removed some.
757			PS_CERT_AUTH_FAIL_AUTHKEY PS_CERT_AUTH_FAIL_REVOKED
758			SSL_ALERT_BAD_CERTIFICATE SSL_ALERT_NO_APP_PROTOCOL
759			SSL_ALERT_RECORD_OVERFLOW SSL_ALLOW_ANON_CONNECTION
760			SSL_OPTION_FULL_HANDSHAKE STATELESS_TICKETS_ENABLED
761			TLS_RSA_WITH_IDEA_CBC_SHA TLS_RSA_WITH_SEED_CBC_SHA */
762			/* Offset 13 gives the best switch position. */
763	330		switch (name[13]) {
764			case 'A':
765	44	50	if (memEQ(name, "SSL_ALERT_NO_APP_PROTOCOL", 25)) {
766			/* ^ */
767			#ifdef SSL_ALERT_NO_APP_PROTOCOL
768	44		*iv_return = SSL_ALERT_NO_APP_PROTOCOL;
769	44		return PERL_constant_ISIV;
770			#else
771			return PERL_constant_NOTDEF;
772			#endif
773			}
774	0		break;
775			case 'F':
776	88	100	if (memEQ(name, "PS_CERT_AUTH_FAIL_AUTHKEY", 25)) {
777			/* ^ */
778			#ifdef PS_CERT_AUTH_FAIL_AUTHKEY
779	44		*iv_return = PS_CERT_AUTH_FAIL_AUTHKEY;
780	44		return PERL_constant_ISIV;
781			#else
782			return PERL_constant_NOTDEF;
783			#endif
784			}
785	44	50	if (memEQ(name, "PS_CERT_AUTH_FAIL_REVOKED", 25)) {
786			/* ^ */
787			#ifdef PS_CERT_AUTH_FAIL_REVOKED
788	44		*iv_return = PS_CERT_AUTH_FAIL_REVOKED;
789	44		return PERL_constant_ISIV;
790			#else
791			return PERL_constant_NOTDEF;
792			#endif
793			}
794	0		break;
795			case 'I':
796	22	50	if (memEQ(name, "TLS_RSA_WITH_IDEA_CBC_SHA", 25)) {
797			/* ^ */
798			#ifdef TLS_RSA_WITH_IDEA_CBC_SHA
799	22		*iv_return = TLS_RSA_WITH_IDEA_CBC_SHA;
800	22		return PERL_constant_ISIV;
801			#else
802			return PERL_constant_NOTDEF;
803			#endif
804			}
805	0		break;
806			case 'K':
807	22	50	if (memEQ(name, "STATELESS_TICKETS_ENABLED", 25)) {
808			/* ^ */
809			#ifdef STATELESS_TICKETS_ENABLED
810	22		*iv_return = STATELESS_TICKETS_ENABLED;
811	22		return PERL_constant_ISIV;
812			#else
813			return PERL_constant_NOTDEF;
814			#endif
815			}
816	0		break;
817			case 'L':
818	22	50	if (memEQ(name, "SSL_OPTION_FULL_HANDSHAKE", 25)) {
819			/* ^ */
820			#ifdef SSL_OPTION_FULL_HANDSHAKE
821	22		*iv_return = SSL_OPTION_FULL_HANDSHAKE;
822	22		return PERL_constant_ISIV;
823			#else
824			return PERL_constant_NOTDEF;
825			#endif
826			}
827	0		break;
828			case 'N':
829	22	50	if (memEQ(name, "SSL_ALLOW_ANON_CONNECTION", 25)) {
830			/* ^ */
831			#ifdef SSL_ALLOW_ANON_CONNECTION
832	22		*iv_return = SSL_ALLOW_ANON_CONNECTION;
833	22		return PERL_constant_ISIV;
834			#else
835			return PERL_constant_NOTDEF;
836			#endif
837			}
838	0		break;
839			case 'O':
840	44	50	if (memEQ(name, "SSL_ALERT_RECORD_OVERFLOW", 25)) {
841			/* ^ */
842			#ifdef SSL_ALERT_RECORD_OVERFLOW
843	44		*iv_return = SSL_ALERT_RECORD_OVERFLOW;
844	44		return PERL_constant_ISIV;
845			#else
846			return PERL_constant_NOTDEF;
847			#endif
848			}
849	0		break;
850			case 'S':
851	22	50	if (memEQ(name, "TLS_RSA_WITH_SEED_CBC_SHA", 25)) {
852			/* ^ */
853			#ifdef TLS_RSA_WITH_SEED_CBC_SHA
854	22		*iv_return = TLS_RSA_WITH_SEED_CBC_SHA;
855	22		return PERL_constant_ISIV;
856			#else
857			return PERL_constant_NOTDEF;
858			#endif
859			}
860	0		break;
861			case '_':
862	44	50	if (memEQ(name, "SSL_ALERT_BAD_CERTIFICATE", 25)) {
863			/* ^ */
864			#ifdef SSL_ALERT_BAD_CERTIFICATE
865	44		*iv_return = SSL_ALERT_BAD_CERTIFICATE;
866	44		return PERL_constant_ISIV;
867			#else
868			return PERL_constant_NOTDEF;
869			#endif
870			}
871	0		break;
872			}
873	0		return PERL_constant_NOTFOUND;
874			}
875
876			static int
877	132		constant_26 (pTHX_ const char name, IV iv_return) {
878			/* When generated this function returned values for the list of names given
879			here. However, subsequent manual editing may have added or removed some.
880			PS_CERT_AUTH_FAIL_PATH_LEN SSL_ALERT_NO_RENEGOTIATION
881			SSL_ALERT_PROTOCOL_VERSION */
882			/* Offset 10 gives the best switch position. */
883	132		switch (name[10]) {
884			case 'N':
885	44	50	if (memEQ(name, "SSL_ALERT_NO_RENEGOTIATION", 26)) {
886			/* ^ */
887			#ifdef SSL_ALERT_NO_RENEGOTIATION
888	44		*iv_return = SSL_ALERT_NO_RENEGOTIATION;
889	44		return PERL_constant_ISIV;
890			#else
891			return PERL_constant_NOTDEF;
892			#endif
893			}
894	0		break;
895			case 'P':
896	44	50	if (memEQ(name, "SSL_ALERT_PROTOCOL_VERSION", 26)) {
897			/* ^ */
898			#ifdef SSL_ALERT_PROTOCOL_VERSION
899	44		*iv_return = SSL_ALERT_PROTOCOL_VERSION;
900	44		return PERL_constant_ISIV;
901			#else
902			return PERL_constant_NOTDEF;
903			#endif
904			}
905	0		break;
906			case 'T':
907	44	50	if (memEQ(name, "PS_CERT_AUTH_FAIL_PATH_LEN", 26)) {
908			/* ^ */
909			#ifdef PS_CERT_AUTH_FAIL_PATH_LEN
910	44		*iv_return = PS_CERT_AUTH_FAIL_PATH_LEN;
911	44		return PERL_constant_ISIV;
912			#else
913			return PERL_constant_NOTDEF;
914			#endif
915			}
916	0		break;
917			}
918	0		return PERL_constant_NOTFOUND;
919			}
920
921			static int
922	220		constant_27 (pTHX_ const char name, IV iv_return) {
923			/* When generated this function returned values for the list of names given
924			here. However, subsequent manual editing may have added or removed some.
925			PS_CERT_AUTH_FAIL_EXTENSION SSL_ALERT_DECRYPTION_FAILED
926			SSL_ALERT_HANDSHAKE_FAILURE SSL_ALERT_ILLEGAL_PARAMETER
927			SSL_ALERT_UNRECOGNIZED_NAME */
928			/* Offset 11 gives the best switch position. */
929	220		switch (name[11]) {
930			case 'A':
931	44	50	if (memEQ(name, "SSL_ALERT_HANDSHAKE_FAILURE", 27)) {
932			/* ^ */
933			#ifdef SSL_ALERT_HANDSHAKE_FAILURE
934	44		*iv_return = SSL_ALERT_HANDSHAKE_FAILURE;
935	44		return PERL_constant_ISIV;
936			#else
937			return PERL_constant_NOTDEF;
938			#endif
939			}
940	0		break;
941			case 'E':
942	44	50	if (memEQ(name, "SSL_ALERT_DECRYPTION_FAILED", 27)) {
943			/* ^ */
944			#ifdef SSL_ALERT_DECRYPTION_FAILED
945	44		*iv_return = SSL_ALERT_DECRYPTION_FAILED;
946	44		return PERL_constant_ISIV;
947			#else
948			return PERL_constant_NOTDEF;
949			#endif
950			}
951	0		break;
952			case 'H':
953	44	50	if (memEQ(name, "PS_CERT_AUTH_FAIL_EXTENSION", 27)) {
954			/* ^ */
955			#ifdef PS_CERT_AUTH_FAIL_EXTENSION
956	44		*iv_return = PS_CERT_AUTH_FAIL_EXTENSION;
957	44		return PERL_constant_ISIV;
958			#else
959			return PERL_constant_NOTDEF;
960			#endif
961			}
962	0		break;
963			case 'L':
964	44	50	if (memEQ(name, "SSL_ALERT_ILLEGAL_PARAMETER", 27)) {
965			/* ^ */
966			#ifdef SSL_ALERT_ILLEGAL_PARAMETER
967	44		*iv_return = SSL_ALERT_ILLEGAL_PARAMETER;
968	44		return PERL_constant_ISIV;
969			#else
970			return PERL_constant_NOTDEF;
971			#endif
972			}
973	0		break;
974			case 'N':
975	44	50	if (memEQ(name, "SSL_ALERT_UNRECOGNIZED_NAME", 27)) {
976			/* ^ */
977			#ifdef SSL_ALERT_UNRECOGNIZED_NAME
978	44		*iv_return = SSL_ALERT_UNRECOGNIZED_NAME;
979	44		return PERL_constant_ISIV;
980			#else
981			return PERL_constant_NOTDEF;
982			#endif
983			}
984	0		break;
985			}
986	0		return PERL_constant_NOTFOUND;
987			}
988
989			static int
990	220		constant_28 (pTHX_ const char name, IV iv_return) {
991			/* When generated this function returned values for the list of names given
992			here. However, subsequent manual editing may have added or removed some.
993			MATRIXSSL_HANDSHAKE_COMPLETE SHARED_SESSION_CACHE_ENABLED
994			SSL_ALERT_UNEXPECTED_MESSAGE SSL_DH_anon_WITH_RC4_128_MD5
995			TLS_PSK_WITH_AES_128_CBC_SHA TLS_PSK_WITH_AES_256_CBC_SHA
996			TLS_RSA_WITH_AES_128_CBC_SHA TLS_RSA_WITH_AES_256_CBC_SHA */
997			/* Offset 4 gives the best switch position. */
998	220		switch (name[4]) {
999			case 'A':
1000	44	50	if (memEQ(name, "SSL_ALERT_UNEXPECTED_MESSAGE", 28)) {
1001			/* ^ */
1002			#ifdef SSL_ALERT_UNEXPECTED_MESSAGE
1003	44		*iv_return = SSL_ALERT_UNEXPECTED_MESSAGE;
1004	44		return PERL_constant_ISIV;
1005			#else
1006			return PERL_constant_NOTDEF;
1007			#endif
1008			}
1009	0		break;
1010			case 'D':
1011	22	50	if (memEQ(name, "SSL_DH_anon_WITH_RC4_128_MD5", 28)) {
1012			/* ^ */
1013			#ifdef SSL_DH_anon_WITH_RC4_128_MD5
1014	22		*iv_return = SSL_DH_anon_WITH_RC4_128_MD5;
1015	22		return PERL_constant_ISIV;
1016			#else
1017			return PERL_constant_NOTDEF;
1018			#endif
1019			}
1020	0		break;
1021			case 'E':
1022	22	50	if (memEQ(name, "SHARED_SESSION_CACHE_ENABLED", 28)) {
1023			/* ^ */
1024			#ifdef SHARED_SESSION_CACHE_ENABLED
1025	22		*iv_return = SHARED_SESSION_CACHE_ENABLED;
1026	22		return PERL_constant_ISIV;
1027			#else
1028			return PERL_constant_NOTDEF;
1029			#endif
1030			}
1031	0		break;
1032			case 'I':
1033	44	50	if (memEQ(name, "MATRIXSSL_HANDSHAKE_COMPLETE", 28)) {
1034			/* ^ */
1035			#ifdef MATRIXSSL_HANDSHAKE_COMPLETE
1036	44		*iv_return = MATRIXSSL_HANDSHAKE_COMPLETE;
1037	44		return PERL_constant_ISIV;
1038			#else
1039			return PERL_constant_NOTDEF;
1040			#endif
1041			}
1042	0		break;
1043			case 'P':
1044	44	100	if (memEQ(name, "TLS_PSK_WITH_AES_128_CBC_SHA", 28)) {
1045			/* ^ */
1046			#ifdef TLS_PSK_WITH_AES_128_CBC_SHA
1047	22		*iv_return = TLS_PSK_WITH_AES_128_CBC_SHA;
1048	22		return PERL_constant_ISIV;
1049			#else
1050			return PERL_constant_NOTDEF;
1051			#endif
1052			}
1053	22	50	if (memEQ(name, "TLS_PSK_WITH_AES_256_CBC_SHA", 28)) {
1054			/* ^ */
1055			#ifdef TLS_PSK_WITH_AES_256_CBC_SHA
1056	22		*iv_return = TLS_PSK_WITH_AES_256_CBC_SHA;
1057	22		return PERL_constant_ISIV;
1058			#else
1059			return PERL_constant_NOTDEF;
1060			#endif
1061			}
1062	0		break;
1063			case 'R':
1064	44	100	if (memEQ(name, "TLS_RSA_WITH_AES_128_CBC_SHA", 28)) {
1065			/* ^ */
1066			#ifdef TLS_RSA_WITH_AES_128_CBC_SHA
1067	22		*iv_return = TLS_RSA_WITH_AES_128_CBC_SHA;
1068	22		return PERL_constant_ISIV;
1069			#else
1070			return PERL_constant_NOTDEF;
1071			#endif
1072			}
1073	22	50	if (memEQ(name, "TLS_RSA_WITH_AES_256_CBC_SHA", 28)) {
1074			/* ^ */
1075			#ifdef TLS_RSA_WITH_AES_256_CBC_SHA
1076	22		*iv_return = TLS_RSA_WITH_AES_256_CBC_SHA;
1077	22		return PERL_constant_ISIV;
1078			#else
1079			return PERL_constant_NOTDEF;
1080			#endif
1081			}
1082	0		break;
1083			}
1084	0		return PERL_constant_NOTFOUND;
1085			}
1086
1087			static int
1088	198		constant_29 (pTHX_ const char name, IV iv_return) {
1089			/* When generated this function returned values for the list of names given
1090			here. However, subsequent manual editing may have added or removed some.
1091			MATRIXSSL_APP_DATA_COMPRESSED SSL_ALERT_CERTIFICATE_EXPIRED
1092			SSL_ALERT_CERTIFICATE_REVOKED SSL_ALERT_CERTIFICATE_UNKNOWN
1093			SSL_RSA_WITH_3DES_EDE_CBC_SHA */
1094			/* Offset 22 gives the best switch position. */
1095	198		switch (name[22]) {
1096			case 'C':
1097	22	50	if (memEQ(name, "SSL_RSA_WITH_3DES_EDE_CBC_SHA", 29)) {
1098			/* ^ */
1099			#ifdef SSL_RSA_WITH_3DES_EDE_CBC_SHA
1100	22		*iv_return = SSL_RSA_WITH_3DES_EDE_CBC_SHA;
1101	22		return PERL_constant_ISIV;
1102			#else
1103			return PERL_constant_NOTDEF;
1104			#endif
1105			}
1106	0		break;
1107			case 'E':
1108	44	50	if (memEQ(name, "SSL_ALERT_CERTIFICATE_EXPIRED", 29)) {
1109			/* ^ */
1110			#ifdef SSL_ALERT_CERTIFICATE_EXPIRED
1111	44		*iv_return = SSL_ALERT_CERTIFICATE_EXPIRED;
1112	44		return PERL_constant_ISIV;
1113			#else
1114			return PERL_constant_NOTDEF;
1115			#endif
1116			}
1117	0		break;
1118			case 'P':
1119	44	50	if (memEQ(name, "MATRIXSSL_APP_DATA_COMPRESSED", 29)) {
1120			/* ^ */
1121			#ifdef MATRIXSSL_APP_DATA_COMPRESSED
1122	44		*iv_return = MATRIXSSL_APP_DATA_COMPRESSED;
1123	44		return PERL_constant_ISIV;
1124			#else
1125			return PERL_constant_NOTDEF;
1126			#endif
1127			}
1128	0		break;
1129			case 'R':
1130	44	50	if (memEQ(name, "SSL_ALERT_CERTIFICATE_REVOKED", 29)) {
1131			/* ^ */
1132			#ifdef SSL_ALERT_CERTIFICATE_REVOKED
1133	44		*iv_return = SSL_ALERT_CERTIFICATE_REVOKED;
1134	44		return PERL_constant_ISIV;
1135			#else
1136			return PERL_constant_NOTDEF;
1137			#endif
1138			}
1139	0		break;
1140			case 'U':
1141	44	50	if (memEQ(name, "SSL_ALERT_CERTIFICATE_UNKNOWN", 29)) {
1142			/* ^ */
1143			#ifdef SSL_ALERT_CERTIFICATE_UNKNOWN
1144	44		*iv_return = SSL_ALERT_CERTIFICATE_UNKNOWN;
1145	44		return PERL_constant_ISIV;
1146			#else
1147			return PERL_constant_NOTDEF;
1148			#endif
1149			}
1150	0		break;
1151			}
1152	0		return PERL_constant_NOTFOUND;
1153			}
1154
1155			static int
1156	264		constant_31 (pTHX_ const char name, IV iv_return) {
1157			/* When generated this function returned values for the list of names given
1158			here. However, subsequent manual editing may have added or removed some.
1159			SSL_ALERT_DECOMPRESSION_FAILURE SSL_ALERT_INSUFFICIENT_SECURITY
1160			SSL_ALERT_UNSUPPORTED_EXTENSION TLS_PSK_WITH_AES_128_CBC_SHA256
1161			TLS_PSK_WITH_AES_256_CBC_SHA384 TLS_RSA_WITH_AES_128_CBC_SHA256
1162			TLS_RSA_WITH_AES_128_GCM_SHA256 TLS_RSA_WITH_AES_256_CBC_SHA256
1163			TLS_RSA_WITH_AES_256_GCM_SHA384 */
1164			/* Offset 17 gives the best switch position. */
1165	264		switch (name[17]) {
1166			case '1':
1167	66	100	if (memEQ(name, "TLS_PSK_WITH_AES_128_CBC_SHA256", 31)) {
1168			/* ^ */
1169			#ifdef TLS_PSK_WITH_AES_128_CBC_SHA256
1170	22		*iv_return = TLS_PSK_WITH_AES_128_CBC_SHA256;
1171	22		return PERL_constant_ISIV;
1172			#else
1173			return PERL_constant_NOTDEF;
1174			#endif
1175			}
1176	44	100	if (memEQ(name, "TLS_RSA_WITH_AES_128_CBC_SHA256", 31)) {
1177			/* ^ */
1178			#ifdef TLS_RSA_WITH_AES_128_CBC_SHA256
1179	22		*iv_return = TLS_RSA_WITH_AES_128_CBC_SHA256;
1180	22		return PERL_constant_ISIV;
1181			#else
1182			return PERL_constant_NOTDEF;
1183			#endif
1184			}
1185	22	50	if (memEQ(name, "TLS_RSA_WITH_AES_128_GCM_SHA256", 31)) {
1186			/* ^ */
1187			#ifdef TLS_RSA_WITH_AES_128_GCM_SHA256
1188	22		*iv_return = TLS_RSA_WITH_AES_128_GCM_SHA256;
1189	22		return PERL_constant_ISIV;
1190			#else
1191			return PERL_constant_NOTDEF;
1192			#endif
1193			}
1194	0		break;
1195			case '2':
1196	66	100	if (memEQ(name, "TLS_PSK_WITH_AES_256_CBC_SHA384", 31)) {
1197			/* ^ */
1198			#ifdef TLS_PSK_WITH_AES_256_CBC_SHA384
1199	22		*iv_return = TLS_PSK_WITH_AES_256_CBC_SHA384;
1200	22		return PERL_constant_ISIV;
1201			#else
1202			return PERL_constant_NOTDEF;
1203			#endif
1204			}
1205	44	100	if (memEQ(name, "TLS_RSA_WITH_AES_256_CBC_SHA256", 31)) {
1206			/* ^ */
1207			#ifdef TLS_RSA_WITH_AES_256_CBC_SHA256
1208	22		*iv_return = TLS_RSA_WITH_AES_256_CBC_SHA256;
1209	22		return PERL_constant_ISIV;
1210			#else
1211			return PERL_constant_NOTDEF;
1212			#endif
1213			}
1214	22	50	if (memEQ(name, "TLS_RSA_WITH_AES_256_GCM_SHA384", 31)) {
1215			/* ^ */
1216			#ifdef TLS_RSA_WITH_AES_256_GCM_SHA384
1217	22		*iv_return = TLS_RSA_WITH_AES_256_GCM_SHA384;
1218	22		return PERL_constant_ISIV;
1219			#else
1220			return PERL_constant_NOTDEF;
1221			#endif
1222			}
1223	0		break;
1224			case 'C':
1225	44	50	if (memEQ(name, "SSL_ALERT_INSUFFICIENT_SECURITY", 31)) {
1226			/* ^ */
1227			#ifdef SSL_ALERT_INSUFFICIENT_SECURITY
1228	44		*iv_return = SSL_ALERT_INSUFFICIENT_SECURITY;
1229	44		return PERL_constant_ISIV;
1230			#else
1231			return PERL_constant_NOTDEF;
1232			#endif
1233			}
1234	0		break;
1235			case 'E':
1236	44	50	if (memEQ(name, "SSL_ALERT_DECOMPRESSION_FAILURE", 31)) {
1237			/* ^ */
1238			#ifdef SSL_ALERT_DECOMPRESSION_FAILURE
1239	44		*iv_return = SSL_ALERT_DECOMPRESSION_FAILURE;
1240	44		return PERL_constant_ISIV;
1241			#else
1242			return PERL_constant_NOTDEF;
1243			#endif
1244			}
1245	0		break;
1246			case 'R':
1247	44	50	if (memEQ(name, "SSL_ALERT_UNSUPPORTED_EXTENSION", 31)) {
1248			/* ^ */
1249			#ifdef SSL_ALERT_UNSUPPORTED_EXTENSION
1250	44		*iv_return = SSL_ALERT_UNSUPPORTED_EXTENSION;
1251	44		return PERL_constant_ISIV;
1252			#else
1253			return PERL_constant_NOTDEF;
1254			#endif
1255			}
1256	0		break;
1257			}
1258	0		return PERL_constant_NOTFOUND;
1259			}
1260
1261			static int
1262	198		constant_32 (pTHX_ const char name, IV iv_return) {
1263			/* When generated this function returned values for the list of names given
1264			here. However, subsequent manual editing may have added or removed some.
1265			CERTIFICATE_TRANSPARENCY_ENABLED SSL_ALERT_INAPPROPRIATE_FALLBACK
1266			TLS_DHE_PSK_WITH_AES_128_CBC_SHA TLS_DHE_PSK_WITH_AES_256_CBC_SHA
1267			TLS_DHE_RSA_WITH_AES_128_CBC_SHA TLS_DHE_RSA_WITH_AES_256_CBC_SHA
1268			TLS_DH_anon_WITH_AES_128_CBC_SHA TLS_DH_anon_WITH_AES_256_CBC_SHA */
1269			/* Offset 8 gives the best switch position. */
1270	198		switch (name[8]) {
1271			case 'A':
1272	22	50	if (memEQ(name, "CERTIFICATE_TRANSPARENCY_ENABLED", 32)) {
1273			/* ^ */
1274			#ifdef CERTIFICATE_TRANSPARENCY_ENABLED
1275	22		*iv_return = CERTIFICATE_TRANSPARENCY_ENABLED;
1276	22		return PERL_constant_ISIV;
1277			#else
1278			return PERL_constant_NOTDEF;
1279			#endif
1280			}
1281	0		break;
1282			case 'P':
1283	44	100	if (memEQ(name, "TLS_DHE_PSK_WITH_AES_128_CBC_SHA", 32)) {
1284			/* ^ */
1285			#ifdef TLS_DHE_PSK_WITH_AES_128_CBC_SHA
1286	22		*iv_return = TLS_DHE_PSK_WITH_AES_128_CBC_SHA;
1287	22		return PERL_constant_ISIV;
1288			#else
1289			return PERL_constant_NOTDEF;
1290			#endif
1291			}
1292	22	50	if (memEQ(name, "TLS_DHE_PSK_WITH_AES_256_CBC_SHA", 32)) {
1293			/* ^ */
1294			#ifdef TLS_DHE_PSK_WITH_AES_256_CBC_SHA
1295	22		*iv_return = TLS_DHE_PSK_WITH_AES_256_CBC_SHA;
1296	22		return PERL_constant_ISIV;
1297			#else
1298			return PERL_constant_NOTDEF;
1299			#endif
1300			}
1301	0		break;
1302			case 'R':
1303	44	100	if (memEQ(name, "TLS_DHE_RSA_WITH_AES_128_CBC_SHA", 32)) {
1304			/* ^ */
1305			#ifdef TLS_DHE_RSA_WITH_AES_128_CBC_SHA
1306	22		*iv_return = TLS_DHE_RSA_WITH_AES_128_CBC_SHA;
1307	22		return PERL_constant_ISIV;
1308			#else
1309			return PERL_constant_NOTDEF;
1310			#endif
1311			}
1312	22	50	if (memEQ(name, "TLS_DHE_RSA_WITH_AES_256_CBC_SHA", 32)) {
1313			/* ^ */
1314			#ifdef TLS_DHE_RSA_WITH_AES_256_CBC_SHA
1315	22		*iv_return = TLS_DHE_RSA_WITH_AES_256_CBC_SHA;
1316	22		return PERL_constant_ISIV;
1317			#else
1318			return PERL_constant_NOTDEF;
1319			#endif
1320			}
1321	0		break;
1322			case 'T':
1323	44	50	if (memEQ(name, "SSL_ALERT_INAPPROPRIATE_FALLBACK", 32)) {
1324			/* ^ */
1325			#ifdef SSL_ALERT_INAPPROPRIATE_FALLBACK
1326	44		*iv_return = SSL_ALERT_INAPPROPRIATE_FALLBACK;
1327	44		return PERL_constant_ISIV;
1328			#else
1329			return PERL_constant_NOTDEF;
1330			#endif
1331			}
1332	0		break;
1333			case 'n':
1334	44	100	if (memEQ(name, "TLS_DH_anon_WITH_AES_128_CBC_SHA", 32)) {
1335			/* ^ */
1336			#ifdef TLS_DH_anon_WITH_AES_128_CBC_SHA
1337	22		*iv_return = TLS_DH_anon_WITH_AES_128_CBC_SHA;
1338	22		return PERL_constant_ISIV;
1339			#else
1340			return PERL_constant_NOTDEF;
1341			#endif
1342			}
1343	22	50	if (memEQ(name, "TLS_DH_anon_WITH_AES_256_CBC_SHA", 32)) {
1344			/* ^ */
1345			#ifdef TLS_DH_anon_WITH_AES_256_CBC_SHA
1346	22		*iv_return = TLS_DH_anon_WITH_AES_256_CBC_SHA;
1347	22		return PERL_constant_ISIV;
1348			#else
1349			return PERL_constant_NOTDEF;
1350			#endif
1351			}
1352	0		break;
1353			}
1354	0		return PERL_constant_NOTFOUND;
1355			}
1356
1357			static int
1358	132		constant_33 (pTHX_ const char name, IV iv_return) {
1359			/* When generated this function returned values for the list of names given
1360			here. However, subsequent manual editing may have added or removed some.
1361			SSL_ALERT_UNSUPPORTED_CERTIFICATE SSL_DHE_RSA_WITH_3DES_EDE_CBC_SHA
1362			SSL_DH_anon_WITH_3DES_EDE_CBC_SHA TLS_ECDH_RSA_WITH_AES_128_CBC_SHA
1363			TLS_ECDH_RSA_WITH_AES_256_CBC_SHA */
1364			/* Offset 23 gives the best switch position. */
1365	132		switch (name[23]) {
1366			case '2':
1367	22	50	if (memEQ(name, "TLS_ECDH_RSA_WITH_AES_128_CBC_SHA", 33)) {
1368			/* ^ */
1369			#ifdef TLS_ECDH_RSA_WITH_AES_128_CBC_SHA
1370	22		*iv_return = TLS_ECDH_RSA_WITH_AES_128_CBC_SHA;
1371	22		return PERL_constant_ISIV;
1372			#else
1373			return PERL_constant_NOTDEF;
1374			#endif
1375			}
1376	0		break;
1377			case '5':
1378	22	50	if (memEQ(name, "TLS_ECDH_RSA_WITH_AES_256_CBC_SHA", 33)) {
1379			/* ^ */
1380			#ifdef TLS_ECDH_RSA_WITH_AES_256_CBC_SHA
1381	22		*iv_return = TLS_ECDH_RSA_WITH_AES_256_CBC_SHA;
1382	22		return PERL_constant_ISIV;
1383			#else
1384			return PERL_constant_NOTDEF;
1385			#endif
1386			}
1387	0		break;
1388			case 'D':
1389	44	100	if (memEQ(name, "SSL_DHE_RSA_WITH_3DES_EDE_CBC_SHA", 33)) {
1390			/* ^ */
1391			#ifdef SSL_DHE_RSA_WITH_3DES_EDE_CBC_SHA
1392	22		*iv_return = SSL_DHE_RSA_WITH_3DES_EDE_CBC_SHA;
1393	22		return PERL_constant_ISIV;
1394			#else
1395			return PERL_constant_NOTDEF;
1396			#endif
1397			}
1398	22	50	if (memEQ(name, "SSL_DH_anon_WITH_3DES_EDE_CBC_SHA", 33)) {
1399			/* ^ */
1400			#ifdef SSL_DH_anon_WITH_3DES_EDE_CBC_SHA
1401	22		*iv_return = SSL_DH_anon_WITH_3DES_EDE_CBC_SHA;
1402	22		return PERL_constant_ISIV;
1403			#else
1404			return PERL_constant_NOTDEF;
1405			#endif
1406			}
1407	0		break;
1408			case 'E':
1409	44	50	if (memEQ(name, "SSL_ALERT_UNSUPPORTED_CERTIFICATE", 33)) {
1410			/* ^ */
1411			#ifdef SSL_ALERT_UNSUPPORTED_CERTIFICATE
1412	44		*iv_return = SSL_ALERT_UNSUPPORTED_CERTIFICATE;
1413	44		return PERL_constant_ISIV;
1414			#else
1415			return PERL_constant_NOTDEF;
1416			#endif
1417			}
1418	0		break;
1419			}
1420	0		return PERL_constant_NOTFOUND;
1421			}
1422
1423			static int
1424	110		constant_35 (pTHX_ const char name, IV iv_return) {
1425			/* When generated this function returned values for the list of names given
1426			here. However, subsequent manual editing may have added or removed some.
1427			TLS_DHE_RSA_WITH_AES_128_CBC_SHA256 TLS_DHE_RSA_WITH_AES_256_CBC_SHA256
1428			TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA
1429			TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA */
1430			/* Offset 26 gives the best switch position. */
1431	110		switch (name[26]) {
1432			case '6':
1433	22	50	if (memEQ(name, "TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA", 35)) {
1434			/* ^ */
1435			#ifdef TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA
1436	22		*iv_return = TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA;
1437	22		return PERL_constant_ISIV;
1438			#else
1439			return PERL_constant_NOTDEF;
1440			#endif
1441			}
1442	0		break;
1443			case '8':
1444	22	50	if (memEQ(name, "TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA", 35)) {
1445			/* ^ */
1446			#ifdef TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA
1447	22		*iv_return = TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA;
1448	22		return PERL_constant_ISIV;
1449			#else
1450			return PERL_constant_NOTDEF;
1451			#endif
1452			}
1453	0		break;
1454			case 'B':
1455	44	100	if (memEQ(name, "TLS_DHE_RSA_WITH_AES_128_CBC_SHA256", 35)) {
1456			/* ^ */
1457			#ifdef TLS_DHE_RSA_WITH_AES_128_CBC_SHA256
1458	22		*iv_return = TLS_DHE_RSA_WITH_AES_128_CBC_SHA256;
1459	22		return PERL_constant_ISIV;
1460			#else
1461			return PERL_constant_NOTDEF;
1462			#endif
1463			}
1464	22	50	if (memEQ(name, "TLS_DHE_RSA_WITH_AES_256_CBC_SHA256", 35)) {
1465			/* ^ */
1466			#ifdef TLS_DHE_RSA_WITH_AES_256_CBC_SHA256
1467	22		*iv_return = TLS_DHE_RSA_WITH_AES_256_CBC_SHA256;
1468	22		return PERL_constant_ISIV;
1469			#else
1470			return PERL_constant_NOTDEF;
1471			#endif
1472			}
1473	0		break;
1474			case 'E':
1475	22	50	if (memEQ(name, "TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA", 35)) {
1476			/* ^ */
1477			#ifdef TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA
1478	22		*iv_return = TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA;
1479	22		return PERL_constant_ISIV;
1480			#else
1481			return PERL_constant_NOTDEF;
1482			#endif
1483			}
1484	0		break;
1485			}
1486	0		return PERL_constant_NOTFOUND;
1487			}
1488
1489			static int
1490	132		constant_36 (pTHX_ const char name, IV iv_return) {
1491			/* When generated this function returned values for the list of names given
1492			here. However, subsequent manual editing may have added or removed some.
1493			TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA
1494			TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256 TLS_ECDH_RSA_WITH_AES_128_GCM_SHA256
1495			TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384 TLS_ECDH_RSA_WITH_AES_256_GCM_SHA384
1496			*/
1497			/* Offset 27 gives the best switch position. */
1498	132		switch (name[27]) {
1499			case '6':
1500	22	50	if (memEQ(name, "TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA", 36)) {
1501			/* ^ */
1502			#ifdef TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA
1503	22		*iv_return = TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA;
1504	22		return PERL_constant_ISIV;
1505			#else
1506			return PERL_constant_NOTDEF;
1507			#endif
1508			}
1509	0		break;
1510			case '8':
1511	22	50	if (memEQ(name, "TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA", 36)) {
1512			/* ^ */
1513			#ifdef TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA
1514	22		*iv_return = TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA;
1515	22		return PERL_constant_ISIV;
1516			#else
1517			return PERL_constant_NOTDEF;
1518			#endif
1519			}
1520	0		break;
1521			case 'B':
1522	44	100	if (memEQ(name, "TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256", 36)) {
1523			/* ^ */
1524			#ifdef TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256
1525	22		*iv_return = TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256;
1526	22		return PERL_constant_ISIV;
1527			#else
1528			return PERL_constant_NOTDEF;
1529			#endif
1530			}
1531	22	50	if (memEQ(name, "TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384", 36)) {
1532			/* ^ */
1533			#ifdef TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384
1534	22		*iv_return = TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384;
1535	22		return PERL_constant_ISIV;
1536			#else
1537			return PERL_constant_NOTDEF;
1538			#endif
1539			}
1540	0		break;
1541			case 'C':
1542	44	100	if (memEQ(name, "TLS_ECDH_RSA_WITH_AES_128_GCM_SHA256", 36)) {
1543			/* ^ */
1544			#ifdef TLS_ECDH_RSA_WITH_AES_128_GCM_SHA256
1545	22		*iv_return = TLS_ECDH_RSA_WITH_AES_128_GCM_SHA256;
1546	22		return PERL_constant_ISIV;
1547			#else
1548			return PERL_constant_NOTDEF;
1549			#endif
1550			}
1551	22	50	if (memEQ(name, "TLS_ECDH_RSA_WITH_AES_256_GCM_SHA384", 36)) {
1552			/* ^ */
1553			#ifdef TLS_ECDH_RSA_WITH_AES_256_GCM_SHA384
1554	22		*iv_return = TLS_ECDH_RSA_WITH_AES_256_GCM_SHA384;
1555	22		return PERL_constant_ISIV;
1556			#else
1557			return PERL_constant_NOTDEF;
1558			#endif
1559			}
1560	0		break;
1561			}
1562	0		return PERL_constant_NOTFOUND;
1563			}
1564
1565			static int
1566	88		constant_37 (pTHX_ const char name, IV iv_return) {
1567			/* When generated this function returned values for the list of names given
1568			here. However, subsequent manual editing may have added or removed some.
1569			TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256
1570			TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256
1571			TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384
1572			TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384 */
1573			/* Offset 23 gives the best switch position. */
1574	88		switch (name[23]) {
1575			case '1':
1576	44	100	if (memEQ(name, "TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256", 37)) {
1577			/* ^ */
1578			#ifdef TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256
1579	22		*iv_return = TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256;
1580	22		return PERL_constant_ISIV;
1581			#else
1582			return PERL_constant_NOTDEF;
1583			#endif
1584			}
1585	22	50	if (memEQ(name, "TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256", 37)) {
1586			/* ^ */
1587			#ifdef TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256
1588	22		*iv_return = TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256;
1589	22		return PERL_constant_ISIV;
1590			#else
1591			return PERL_constant_NOTDEF;
1592			#endif
1593			}
1594	0		break;
1595			case '2':
1596	44	100	if (memEQ(name, "TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384", 37)) {
1597			/* ^ */
1598			#ifdef TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384
1599	22		*iv_return = TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384;
1600	22		return PERL_constant_ISIV;
1601			#else
1602			return PERL_constant_NOTDEF;
1603			#endif
1604			}
1605	22	50	if (memEQ(name, "TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384", 37)) {
1606			/* ^ */
1607			#ifdef TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384
1608	22		*iv_return = TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384;
1609	22		return PERL_constant_ISIV;
1610			#else
1611			return PERL_constant_NOTDEF;
1612			#endif
1613			}
1614	0		break;
1615			}
1616	0		return PERL_constant_NOTFOUND;
1617			}
1618
1619			static int
1620	88		constant_38 (pTHX_ const char name, IV iv_return) {
1621			/* When generated this function returned values for the list of names given
1622			here. However, subsequent manual editing may have added or removed some.
1623			TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256
1624			TLS_ECDH_ECDSA_WITH_AES_128_GCM_SHA256
1625			TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384
1626			TLS_ECDH_ECDSA_WITH_AES_256_GCM_SHA384 */
1627			/* Offset 24 gives the best switch position. */
1628	88		switch (name[24]) {
1629			case '1':
1630	44	100	if (memEQ(name, "TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256", 38)) {
1631			/* ^ */
1632			#ifdef TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256
1633	22		*iv_return = TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256;
1634	22		return PERL_constant_ISIV;
1635			#else
1636			return PERL_constant_NOTDEF;
1637			#endif
1638			}
1639	22	50	if (memEQ(name, "TLS_ECDH_ECDSA_WITH_AES_128_GCM_SHA256", 38)) {
1640			/* ^ */
1641			#ifdef TLS_ECDH_ECDSA_WITH_AES_128_GCM_SHA256
1642	22		*iv_return = TLS_ECDH_ECDSA_WITH_AES_128_GCM_SHA256;
1643	22		return PERL_constant_ISIV;
1644			#else
1645			return PERL_constant_NOTDEF;
1646			#endif
1647			}
1648	0		break;
1649			case '2':
1650	44	100	if (memEQ(name, "TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384", 38)) {
1651			/* ^ */
1652			#ifdef TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384
1653	22		*iv_return = TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384;
1654	22		return PERL_constant_ISIV;
1655			#else
1656			return PERL_constant_NOTDEF;
1657			#endif
1658			}
1659	22	50	if (memEQ(name, "TLS_ECDH_ECDSA_WITH_AES_256_GCM_SHA384", 38)) {
1660			/* ^ */
1661			#ifdef TLS_ECDH_ECDSA_WITH_AES_256_GCM_SHA384
1662	22		*iv_return = TLS_ECDH_ECDSA_WITH_AES_256_GCM_SHA384;
1663	22		return PERL_constant_ISIV;
1664			#else
1665			return PERL_constant_NOTDEF;
1666			#endif
1667			}
1668	0		break;
1669			}
1670	0		return PERL_constant_NOTFOUND;
1671			}
1672
1673			static int
1674	88		constant_39 (pTHX_ const char name, IV iv_return) {
1675			/* When generated this function returned values for the list of names given
1676			here. However, subsequent manual editing may have added or removed some.
1677			TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256
1678			TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256
1679			TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384
1680			TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384 */
1681			/* Offset 25 gives the best switch position. */
1682	88		switch (name[25]) {
1683			case '1':
1684	44	100	if (memEQ(name, "TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256", 39)) {
1685			/* ^ */
1686			#ifdef TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256
1687	22		*iv_return = TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256;
1688	22		return PERL_constant_ISIV;
1689			#else
1690			return PERL_constant_NOTDEF;
1691			#endif
1692			}
1693	22	50	if (memEQ(name, "TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256", 39)) {
1694			/* ^ */
1695			#ifdef TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256
1696	22		*iv_return = TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256;
1697	22		return PERL_constant_ISIV;
1698			#else
1699			return PERL_constant_NOTDEF;
1700			#endif
1701			}
1702	0		break;
1703			case '2':
1704	44	100	if (memEQ(name, "TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384", 39)) {
1705			/* ^ */
1706			#ifdef TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384
1707	22		*iv_return = TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384;
1708	22		return PERL_constant_ISIV;
1709			#else
1710			return PERL_constant_NOTDEF;
1711			#endif
1712			}
1713	22	50	if (memEQ(name, "TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384", 39)) {
1714			/* ^ */
1715			#ifdef TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384
1716	22		*iv_return = TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384;
1717	22		return PERL_constant_ISIV;
1718			#else
1719			return PERL_constant_NOTDEF;
1720			#endif
1721			}
1722	0		break;
1723			}
1724	0		return PERL_constant_NOTFOUND;
1725			}
1726
1727			static int
1728	4620		constant (pTHX_ const char name, STRLEN len, IV iv_return) {
1729			/* Initially switch on the length of the name. */
1730			/* When generated this function returned values for the list of names given
1731			in this section of perl code. Rather than manually editing these functions
1732			to add or remove constants, which would result in this comment and section
1733			of code becoming inaccurate, we recommend that you edit this section of
1734			code, and use it to regenerate a new set of constant functions which you
1735			then use to replace the originals.
1736
1737			Regenerate these constant functions by feeding this entire source file to
1738			perl -x
1739
1740			#!/usr/local/bin/perl -w
1741			use ExtUtils::Constant qw (constant_types C_constant XS_constant);
1742
1743			my $types = {map {($_, 1)} qw(IV)};
1744			my @names = (qw(ALPN_ENABLED CERTIFICATE_TRANSPARENCY_ENABLED DH_PARAMS_ENABLED
1745			MATRIXSSL_APP_DATA MATRIXSSL_APP_DATA_COMPRESSED MATRIXSSL_ERROR
1746			MATRIXSSL_HANDSHAKE_COMPLETE MATRIXSSL_RECEIVED_ALERT
1747			MATRIXSSL_REQUEST_CLOSE MATRIXSSL_REQUEST_RECV
1748			MATRIXSSL_REQUEST_SEND MATRIXSSL_SUCCESS MATRIXSSL_VERSION_MAJOR
1749			MATRIXSSL_VERSION_MINOR MATRIXSSL_VERSION_PATCH
1750			OCSP_STAPLES_ENABLED PS_ARG_FAIL PS_AUTH_FAIL PS_CERT_AUTH_FAIL
1751			PS_CERT_AUTH_FAIL_AUTHKEY PS_CERT_AUTH_FAIL_BC
1752			PS_CERT_AUTH_FAIL_DN PS_CERT_AUTH_FAIL_EXTENSION
1753			PS_CERT_AUTH_FAIL_PATH_LEN PS_CERT_AUTH_FAIL_REVOKED
1754			PS_CERT_AUTH_FAIL_SIG PS_DISABLED_FEATURE_FAIL PS_EAGAIN
1755			PS_FAILURE PS_FALSE PS_INTERRUPT_FAIL PS_LIMIT_FAIL PS_MEM_FAIL
1756			PS_PARSE_FAIL PS_PENDING PS_PLATFORM_FAIL PS_PROTOCOL_FAIL
1757			PS_SIGNATURE_MISMATCH PS_SUCCESS PS_TIMEOUT_FAIL PS_TRUE
1758			PS_UNSUPPORTED_FAIL SHARED_SESSION_CACHE_ENABLED SNI_ENABLED
1759			SSL2_MAJ_VER SSL3_MAJ_VER SSL3_MIN_VER SSL_ALERT_ACCESS_DENIED
1760			SSL_ALERT_BAD_CERTIFICATE
1761			SSL_ALERT_BAD_CERTIFICATE_STATUS_RESPONSE
1762			SSL_ALERT_BAD_RECORD_MAC SSL_ALERT_CERTIFICATE_EXPIRED
1763			SSL_ALERT_CERTIFICATE_REVOKED SSL_ALERT_CERTIFICATE_UNKNOWN
1764			SSL_ALERT_CLOSE_NOTIFY SSL_ALERT_DECODE_ERROR
1765			SSL_ALERT_DECOMPRESSION_FAILURE SSL_ALERT_DECRYPTION_FAILED
1766			SSL_ALERT_DECRYPT_ERROR SSL_ALERT_HANDSHAKE_FAILURE
1767			SSL_ALERT_ILLEGAL_PARAMETER SSL_ALERT_INAPPROPRIATE_FALLBACK
1768			SSL_ALERT_INSUFFICIENT_SECURITY SSL_ALERT_INTERNAL_ERROR
1769			SSL_ALERT_LEVEL_FATAL SSL_ALERT_LEVEL_WARNING SSL_ALERT_NONE
1770			SSL_ALERT_NO_APP_PROTOCOL SSL_ALERT_NO_CERTIFICATE
1771			SSL_ALERT_NO_RENEGOTIATION SSL_ALERT_PROTOCOL_VERSION
1772			SSL_ALERT_RECORD_OVERFLOW SSL_ALERT_UNEXPECTED_MESSAGE
1773			SSL_ALERT_UNKNOWN_CA SSL_ALERT_UNKNOWN_PSK_IDENTITY
1774			SSL_ALERT_UNRECOGNIZED_NAME SSL_ALERT_UNSUPPORTED_CERTIFICATE
1775			SSL_ALERT_UNSUPPORTED_EXTENSION SSL_ALLOW_ANON_CONNECTION
1776			SSL_DHE_RSA_WITH_3DES_EDE_CBC_SHA
1777			SSL_DH_anon_WITH_3DES_EDE_CBC_SHA SSL_DH_anon_WITH_RC4_128_MD5
1778			SSL_MAX_BUF_SIZE SSL_MAX_DISABLED_CIPHERS SSL_MAX_PLAINTEXT_LEN
1779			SSL_MAX_RECORD_LEN SSL_NULL_WITH_NULL_NULL
1780			SSL_OPTION_FULL_HANDSHAKE SSL_RSA_WITH_3DES_EDE_CBC_SHA
1781			SSL_RSA_WITH_NULL_MD5 SSL_RSA_WITH_NULL_SHA
1782			SSL_RSA_WITH_RC4_128_MD5 SSL_RSA_WITH_RC4_128_SHA
1783			STATELESS_TICKETS_ENABLED TLS_1_1_MIN_VER TLS_1_2_MIN_VER
1784			TLS_DHE_PSK_WITH_AES_128_CBC_SHA
1785			TLS_DHE_PSK_WITH_AES_256_CBC_SHA
1786			TLS_DHE_RSA_WITH_AES_128_CBC_SHA
1787			TLS_DHE_RSA_WITH_AES_128_CBC_SHA256
1788			TLS_DHE_RSA_WITH_AES_256_CBC_SHA
1789			TLS_DHE_RSA_WITH_AES_256_CBC_SHA256
1790			TLS_DH_anon_WITH_AES_128_CBC_SHA
1791			TLS_DH_anon_WITH_AES_256_CBC_SHA
1792			TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA
1793			TLS_ECDHE_ECDSA_WITH_AES_128_CBC_SHA256
1794			TLS_ECDHE_ECDSA_WITH_AES_128_GCM_SHA256
1795			TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA
1796			TLS_ECDHE_ECDSA_WITH_AES_256_CBC_SHA384
1797			TLS_ECDHE_ECDSA_WITH_AES_256_GCM_SHA384
1798			TLS_ECDHE_ECDSA_WITH_CHACHA20_POLY1305_SHA256
1799			TLS_ECDHE_RSA_WITH_3DES_EDE_CBC_SHA
1800			TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA
1801			TLS_ECDHE_RSA_WITH_AES_128_CBC_SHA256
1802			TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256
1803			TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA
1804			TLS_ECDHE_RSA_WITH_AES_256_CBC_SHA384
1805			TLS_ECDHE_RSA_WITH_AES_256_GCM_SHA384
1806			TLS_ECDHE_RSA_WITH_CHACHA20_POLY1305_SHA256
1807			TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA
1808			TLS_ECDH_ECDSA_WITH_AES_128_CBC_SHA256
1809			TLS_ECDH_ECDSA_WITH_AES_128_GCM_SHA256
1810			TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA
1811			TLS_ECDH_ECDSA_WITH_AES_256_CBC_SHA384
1812			TLS_ECDH_ECDSA_WITH_AES_256_GCM_SHA384
1813			TLS_ECDH_RSA_WITH_AES_128_CBC_SHA
1814			TLS_ECDH_RSA_WITH_AES_128_CBC_SHA256
1815			TLS_ECDH_RSA_WITH_AES_128_GCM_SHA256
1816			TLS_ECDH_RSA_WITH_AES_256_CBC_SHA
1817			TLS_ECDH_RSA_WITH_AES_256_CBC_SHA384
1818			TLS_ECDH_RSA_WITH_AES_256_GCM_SHA384 TLS_HIGHEST_MINOR
1819			TLS_MAJ_VER TLS_MIN_VER TLS_PSK_WITH_AES_128_CBC_SHA
1820			TLS_PSK_WITH_AES_128_CBC_SHA256 TLS_PSK_WITH_AES_256_CBC_SHA
1821			TLS_PSK_WITH_AES_256_CBC_SHA384 TLS_RSA_WITH_AES_128_CBC_SHA
1822			TLS_RSA_WITH_AES_128_CBC_SHA256 TLS_RSA_WITH_AES_128_GCM_SHA256
1823			TLS_RSA_WITH_AES_256_CBC_SHA TLS_RSA_WITH_AES_256_CBC_SHA256
1824			TLS_RSA_WITH_AES_256_GCM_SHA384 TLS_RSA_WITH_IDEA_CBC_SHA
1825			TLS_RSA_WITH_SEED_CBC_SHA));
1826
1827			print constant_types(), "\n"; # macro defs
1828			foreach (C_constant ("Crypt::MatrixSSL3", 'constant', 'IV', $types, undef, 3, @names) ) {
1829			print $_, "\n"; # C constant subs
1830			}
1831			print "\n#### XS Section:\n";
1832			print XS_constant ("Crypt::MatrixSSL3", $types);
1833			__END__