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