//============================================================================
//	File:	HLI.xs
//	Author:	Fame, h2xs and Dave Oberholtzer (daveo@obernet.com)
//			Copyright (c)2005, Sungard and David Oberholtzer.
//			The FAME #define variables were used with permission.
//	Date:	2001/04/18
//	Use:	Import the FAME #define vars into the FameHLI::API::HLI package.
//	Usage:	use FameHLI::API::HLI;
//============================================================================
//	This file was generated by running h2xs on the Fame hli.h header
//	file which comes with FAME.  Some additional masaging was necessary
//	to make it work properly, most notably MISSING VALUES.
//============================================================================
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "hli.h"

static int
not_here(char *s)
{
    croak("%s not implemented on this architecture", s);
    return -1;
}

static double
constant_HNAM(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'E':
	if (strEQ(name + 4, "EL")) {	/* HNAM removed */
#ifdef HNAMEL
	    return HNAMEL;
#else
	    goto not_there;
#endif
	}
    case 'L':
	if (strEQ(name + 4, "LEN")) {	/* HNAM removed */
#ifdef HNAMLEN
	    return HNAMLEN;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 4, "SIZ")) {	/* HNAM removed */
#ifdef HNAMSIZ
	    return HNAMSIZ;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNA(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'M':
	return constant_HNAM(name, len, arg);
    case 'V':
	if (strEQ(name + 3, "VAL")) {	/* HNA removed */
#ifdef HNAVAL
	    return HNAVAL;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNC(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'O':
	if (strEQ(name + 3, "ONN")) {	/* HNC removed */
#ifdef HNCONN
	    return HNCONN;
#else
	    goto not_there;
#endif
	}
    case 'V':
	if (strEQ(name + 3, "VAL")) {	/* HNC removed */
#ifdef HNCVAL
	    return HNCVAL;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNE(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'M':
	if (strEQ(name + 3, "MPT")) {	/* HNE removed */
#ifdef HNEMPT
	    return HNEMPT;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 3, "TCN")) {	/* HNE removed */
#ifdef HNETCN
	    return HNETCN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNF(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	if (strEQ(name + 3, "AME")) {	/* HNF removed */
#ifdef HNFAME
	    return HNFAME;
#else
	    goto not_there;
#endif
	}
    case 'I':
	if (strEQ(name + 3, "ILE")) {	/* HNF removed */
#ifdef HNFILE
	    return HNFILE;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 3, "MDB")) {	/* HNF removed */
#ifdef HNFMDB
	    return HNFMDB;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNL(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	if (strEQ(name + 3, "ALL")) {	/* HNL removed */
#ifdef HNLALL
	    return HNLALL;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "OCL")) {	/* HNL removed */
#ifdef HNLOCL
	    return HNLOCL;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNM(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'C':
	if (strEQ(name + 3, "CA")) {	/* HNM removed */
#ifdef HNMCA
	    return HNMCA;
#else
	    goto not_there;
#endif
	}
    case 'V':
	if (strEQ(name + 3, "VAL")) {	/* HNM removed */
#ifdef HNMVAL
	    return HNMVAL;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNO(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case '\0':
	if (strEQ(name + 3, "")) {	/* HNO removed */
#ifdef HNO
	    return HNO;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 3, "MEM")) {	/* HNO removed */
#ifdef HNOMEM
	    return HNOMEM;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "OBJ")) {	/* HNO removed */
#ifdef HNOOBJ
	    return HNOOBJ;
#else
	    goto not_there;
#endif
	}
    case 'V':
	if (strEQ(name + 3, "V")) {	/* HNO removed */
#ifdef HNOV
	    return HNOV;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNT(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'M':
	if (strEQ(name + 3, "MIS")) {	/* HNT removed */
#ifdef HNTMIS
	    return HNTMIS;
#else
	    goto not_there;
#endif
	}
    case 'W':
	if (strEQ(name + 3, "WIC")) {	/* HNT removed */
#ifdef HNTWIC
	    return HNTWIC;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNU(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'F':
	if (strEQ(name + 3, "FRD")) {	/* HNU removed */
#ifdef HNUFRD
	    return HNUFRD;
#else
	    goto not_there;
#endif
	}
    case 'L':
	if (strEQ(name + 3, "LLP")) {	/* HNU removed */
#ifdef HNULLP
	    return HNULLP;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 3, "MRC")) {	/* HNU removed */
#ifdef HNUMRC
	    return HNUMRC;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HNW(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'F':
	if (strEQ(name + 3, "FEA")) {	/* HNW removed */
#ifdef HNWFEA
	    return HNWFEA;
#else
	    goto not_there;
#endif
	}
    case 'I':
	if (strEQ(name + 3, "ILD")) {	/* HNW removed */
#ifdef HNWILD
	    return HNWILD;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HN(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	return constant_HNA(name, len, arg);
    case 'B':
	if (strEQ(name + 2, "BACK")) {	/* HN removed */
#ifdef HNBACK
	    return HNBACK;
#else
	    goto not_there;
#endif
	}
    case 'C':
	return constant_HNC(name, len, arg);
    case 'D':
	if (strEQ(name + 2, "DVAL")) {	/* HN removed */
#ifdef HNDVAL
	    return HNDVAL;
#else
	    goto not_there;
#endif
	}
    case 'E':
	return constant_HNE(name, len, arg);
    case 'F':
	return constant_HNF(name, len, arg);
    case 'I':
	if (strEQ(name + 2, "INIT")) {	/* HN removed */
#ifdef HNINIT
	    return HNINIT;
#else
	    goto not_there;
#endif
	}
    case 'L':
	return constant_HNL(name, len, arg);
    case 'M':
	return constant_HNM(name, len, arg);
    case 'O':
	return constant_HNO(name, len, arg);
    case 'P':
	if (strEQ(name + 2, "POST")) {	/* HN removed */
#ifdef HNPOST
	    return HNPOST;
#else
	    goto not_there;
#endif
	}
    case 'R':
	if (strEQ(name + 2, "RESW")) {	/* HN removed */
#ifdef HNRESW
	    return HNRESW;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 2, "SUPP")) {	/* HN removed */
#ifdef HNSUPP
	    return HNSUPP;
#else
	    goto not_there;
#endif
	}
    case 'T':
	return constant_HNT(name, len, arg);
    case 'U':
	return constant_HNU(name, len, arg);
    case 'W':
	return constant_HNW(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HOBA(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'N':
	if (strEQ(name + 4, "NN")) {	/* HOBA removed */
#ifdef HOBANN
	    return HOBANN;
#else
	    goto not_there;
#endif
	}
    case 'V':
	if (strEQ(name + 4, "VG")) {	/* HOBA removed */
#ifdef HOBAVG
	    return HOBAVG;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HOB(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	return constant_HOBA(name, len, arg);
    case 'B':
	if (strEQ(name + 3, "BEG")) {	/* HOB removed */
#ifdef HOBBEG
	    return HOBBEG;
#else
	    goto not_there;
#endif
	}
    case 'E':
	if (strEQ(name + 3, "END")) {	/* HOB removed */
#ifdef HOBEND
	    return HOBEND;
#else
	    goto not_there;
#endif
	}
    case 'F':
	if (strEQ(name + 3, "FRM")) {	/* HOB removed */
#ifdef HOBFRM
	    return HOBFRM;
#else
	    goto not_there;
#endif
	}
    case 'H':
	if (strEQ(name + 3, "HI")) {	/* HOB removed */
#ifdef HOBHI
	    return HOBHI;
#else
	    goto not_there;
#endif
	}
    case 'L':
	if (strEQ(name + 3, "LO")) {	/* HOB removed */
#ifdef HOBLO
	    return HOBLO;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 3, "SUM")) {	/* HOB removed */
#ifdef HOBSUM
	    return HOBSUM;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 3, "UND")) {	/* HOB removed */
#ifdef HOBUND
	    return HOBUND;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HOP(char *name, int len, int arg)
{
    if (3 + 2 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[3 + 2]) {
    case 'D':
	if (strEQ(name + 3, "END")) {	/* HOP removed */
#ifdef HOPEND
	    return HOPEND;
#else
	    goto not_there;
#endif
	}
    case 'W':
	if (strEQ(name + 3, "ENW")) {	/* HOP removed */
#ifdef HOPENW
	    return HOPENW;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HO(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'B':
	return constant_HOB(name, len, arg);
    case 'C':
	if (strEQ(name + 2, "CT")) {	/* HO removed */
#ifdef HOCT
	    return HOCT;
#else
	    goto not_there;
#endif
	}
    case 'E':
	if (strEQ(name + 2, "EXI")) {	/* HO removed */
#ifdef HOEXI
	    return HOEXI;
#else
	    goto not_there;
#endif
	}
    case 'L':
	if (strEQ(name + 2, "LDDB")) {	/* HO removed */
#ifdef HOLDDB
	    return HOLDDB;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 2, "MODE")) {	/* HO removed */
#ifdef HOMODE
	    return HOMODE;
#else
	    goto not_there;
#endif
	}
    case 'P':
	return constant_HOP(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HPR(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'E':
	if (strEQ(name + 3, "ECN")) {	/* HPR removed */
#ifdef HPRECN
	    return HPRECN;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "OTOTYPES_SUPPORTED")) {	/* HPR removed */
#ifdef HPROTOTYPES_SUPPORTED
	    return HPROTOTYPES_SUPPORTED;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HP(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case '1':
	if (strEQ(name + 2, "1REQ")) {	/* HP removed */
#ifdef HP1REQ
	    return HP1REQ;
#else
	    goto not_there;
#endif
	}
    case '2':
	if (strEQ(name + 2, "2REQ")) {	/* HP removed */
#ifdef HP2REQ
	    return HP2REQ;
#else
	    goto not_there;
#endif
	}
    case 'A':
	if (strEQ(name + 2, "ACK")) {	/* HP removed */
#ifdef HPACK
	    return HPACK;
#else
	    goto not_there;
#endif
	}
    case 'R':
	return constant_HPR(name, len, arg);
    case 'W':
	if (strEQ(name + 2, "WWOU")) {	/* HP removed */
#ifdef HPWWOU
	    return HPWWOU;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HQT(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'D':
	if (strEQ(name + 3, "DEC")) {	/* HQT removed */
#ifdef HQTDEC
	    return HQTDEC;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 3, "NOV")) {	/* HQT removed */
#ifdef HQTNOV
	    return HQTNOV;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "OCT")) {	/* HQT removed */
#ifdef HQTOCT
	    return HQTOCT;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HQ(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'T':
	return constant_HQT(name, len, arg);
    case 'U':
	if (strEQ(name + 2, "UOTA")) {	/* HQ removed */
#ifdef HQUOTA
	    return HQUOTA;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HAF(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'R':
	if (strEQ(name + 3, "RI")) {	/* HAF removed */
#ifdef HAFRI
	    return HAFRI;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 3, "TER")) {	/* HAF removed */
#ifdef HAFTER
	    return HAFTER;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HANA(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'P':
	if (strEQ(name + 4, "PR")) {	/* HANA removed */
#ifdef HANAPR
	    return HANAPR;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 4, "UG")) {	/* HANA removed */
#ifdef HANAUG
	    return HANAUG;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HANJU(char *name, int len, int arg)
{
    switch (name[5 + 0]) {
    case 'L':
	if (strEQ(name + 5, "L")) {	/* HANJU removed */
#ifdef HANJUL
	    return HANJUL;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 5, "N")) {	/* HANJU removed */
#ifdef HANJUN
	    return HANJUN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HANJ(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'A':
	if (strEQ(name + 4, "AN")) {	/* HANJ removed */
#ifdef HANJAN
	    return HANJAN;
#else
	    goto not_there;
#endif
	}
    case 'U':
	return constant_HANJU(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HANM(char *name, int len, int arg)
{
    if (4 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[4 + 1]) {
    case 'R':
	if (strEQ(name + 4, "AR")) {	/* HANM removed */
#ifdef HANMAR
	    return HANMAR;
#else
	    goto not_there;
#endif
	}
    case 'Y':
	if (strEQ(name + 4, "AY")) {	/* HANM removed */
#ifdef HANMAY
	    return HANMAY;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HAN(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	return constant_HANA(name, len, arg);
    case 'D':
	if (strEQ(name + 3, "DEC")) {	/* HAN removed */
#ifdef HANDEC
	    return HANDEC;
#else
	    goto not_there;
#endif
	}
    case 'F':
	if (strEQ(name + 3, "FEB")) {	/* HAN removed */
#ifdef HANFEB
	    return HANFEB;
#else
	    goto not_there;
#endif
	}
    case 'J':
	return constant_HANJ(name, len, arg);
    case 'M':
	return constant_HANM(name, len, arg);
    case 'N':
	if (strEQ(name + 3, "NOV")) {	/* HAN removed */
#ifdef HANNOV
	    return HANNOV;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "OCT")) {	/* HAN removed */
#ifdef HANOCT
	    return HANOCT;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 3, "SEP")) {	/* HAN removed */
#ifdef HANSEP
	    return HANSEP;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HAP(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'O':
	if (strEQ(name + 3, "OST")) {	/* HAP removed */
#ifdef HAPOST
	    return HAPOST;
#else
	    goto not_there;
#endif
	}
    case 'P':
	if (strEQ(name + 3, "PY")) {	/* HAP removed */
#ifdef HAPPY
	    return HAPPY;
#else
	    goto not_there;
#endif
	}
    case 'R':
	if (strEQ(name + 3, "R")) {	/* HAP removed */
#ifdef HAPR
	    return HAPR;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HAS(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	if (strEQ(name + 3, "AT")) {	/* HAS removed */
#ifdef HASAT
	    return HASAT;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 3, "UN")) {	/* HAS removed */
#ifdef HASUN
	    return HASUN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HAT(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'H':
	if (strEQ(name + 3, "HU")) {	/* HAT removed */
#ifdef HATHU
	    return HATHU;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 3, "UE")) {	/* HAT removed */
#ifdef HATUE
	    return HATUE;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HA(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'B':
	if (strEQ(name + 2, "BORT")) {	/* HA removed */
#ifdef HABORT
	    return HABORT;
#else
	    goto not_there;
#endif
	}
    case 'F':
	return constant_HAF(name, len, arg);
    case 'L':
	if (strEQ(name + 2, "LL")) {	/* HA removed */
#ifdef HALL
	    return HALL;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 2, "MON")) {	/* HA removed */
#ifdef HAMON
	    return HAMON;
#else
	    goto not_there;
#endif
	}
    case 'N':
	return constant_HAN(name, len, arg);
    case 'P':
	return constant_HAP(name, len, arg);
    case 'S':
	return constant_HAS(name, len, arg);
    case 'T':
	return constant_HAT(name, len, arg);
    case 'U':
	if (strEQ(name + 2, "UG")) {	/* HA removed */
#ifdef HAUG
	    return HAUG;
#else
	    goto not_there;
#endif
	}
    case 'W':
	if (strEQ(name + 2, "WED")) {	/* HA removed */
#ifdef HAWED
	    return HAWED;
#else
	    goto not_there;
#endif
	}
    case 'Y':
	if (strEQ(name + 2, "YPP")) {	/* HA removed */
#ifdef HAYPP
	    return HAYPP;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HREA(char *name, int len, int arg)
{
    if (4 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[4 + 1]) {
    case '\0':
	if (strEQ(name + 4, "D")) {	/* HREA removed */
#ifdef HREAD
	    return HREAD;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 4, "DO")) {	/* HREA removed */
#ifdef HREADO
	    return HREADO;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HRE(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	return constant_HREA(name, len, arg);
    case 'C':
	if (strEQ(name + 3, "CRD")) {	/* HRE removed */
#ifdef HRECRD
	    return HRECRD;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 3, "SFD")) {	/* HRE removed */
#ifdef HRESFD
	    return HRESFD;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HRM(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'K':
	if (strEQ(name + 3, "KEY")) {	/* HRM removed */
#ifdef HRMKEY
	    return HRMKEY;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "ODE")) {	/* HRM removed */
#ifdef HRMODE
	    return HRMODE;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 3, "TDB")) {	/* HRM removed */
#ifdef HRMTDB
	    return HRMTDB;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HR(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'E':
	return constant_HRE(name, len, arg);
    case 'M':
	return constant_HRM(name, len, arg);
    case 'N':
	if (strEQ(name + 2, "NEXI")) {	/* HR removed */
#ifdef HRNEXI
	    return HRNEXI;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBAT(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'T':
	if (strEQ(name + 4, "TR")) {	/* HBAT removed */
#ifdef HBATTR
	    return HBATTR;
#else
	    goto not_there;
#endif
	}
    case 'Y':
	if (strEQ(name + 4, "YP")) {	/* HBAT removed */
#ifdef HBATYP
	    return HBATYP;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBA(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'S':
	if (strEQ(name + 3, "SRT")) {	/* HBA removed */
#ifdef HBASRT
	    return HBASRT;
#else
	    goto not_there;
#endif
	}
    case 'T':
	return constant_HBAT(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBC(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'L':
	if (strEQ(name + 3, "LAS")) {	/* HBC removed */
#ifdef HBCLAS
	    return HBCLAS;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 3, "NTX")) {	/* HBC removed */
#ifdef HBCNTX
	    return HBCNTX;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "ONN")) {	/* HBC removed */
#ifdef HBCONN
	    return HBCONN;
#else
	    goto not_there;
#endif
	}
    case 'P':
	if (strEQ(name + 3, "PU")) {	/* HBC removed */
#ifdef HBCPU
	    return HBCPU;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBD(char *name, int len, int arg)
{
    if (3 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[3 + 1]) {
    case 'T':
	if (strEQ(name + 3, "ATE")) {	/* HBD removed */
#ifdef HBDATE
	    return HBDATE;
#else
	    goto not_there;
#endif
	}
    case 'Y':
	if (strEQ(name + 3, "AY")) {	/* HBD removed */
#ifdef HBDAY
	    return HBDAY;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBE(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'F':
	if (strEQ(name + 3, "FOR")) {	/* HBE removed */
#ifdef HBEFOR
	    return HBEFOR;
#else
	    goto not_there;
#endif
	}
    case 'G':
	if (strEQ(name + 3, "GIN")) {	/* HBE removed */
#ifdef HBEGIN
	    return HBEGIN;
#else
	    goto not_there;
#endif
	}
    case 'R':
	if (strEQ(name + 3, "RNG")) {	/* HBE removed */
#ifdef HBERNG
	    return HBERNG;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBFR(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'E':
	if (strEQ(name + 4, "EQ")) {	/* HBFR removed */
#ifdef HBFREQ
	    return HBFREQ;
#else
	    goto not_there;
#endif
	}
    case 'I':
	if (strEQ(name + 4, "I")) {	/* HBFR removed */
#ifdef HBFRI
	    return HBFRI;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBFL(char *name, int len, int arg)
{
    if (4 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[4 + 1]) {
    case 'B':
	if (strEQ(name + 4, "AB")) {	/* HBFL removed */
#ifdef HBFLAB
	    return HBFLAB;
#else
	    goto not_there;
#endif
	}
    case 'G':
	if (strEQ(name + 4, "AG")) {	/* HBFL removed */
#ifdef HBFLAG
	    return HBFLAG;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBF(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'I':
	if (strEQ(name + 3, "ILE")) {	/* HBF removed */
#ifdef HBFILE
	    return HBFILE;
#else
	    goto not_there;
#endif
	}
    case 'L':
	return constant_HBFL(name, len, arg);
    case 'M':
	if (strEQ(name + 3, "MON")) {	/* HBF removed */
#ifdef HBFMON
	    return HBFMON;
#else
	    goto not_there;
#endif
	}
    case 'R':
	return constant_HBFR(name, len, arg);
    case 'U':
	if (strEQ(name + 3, "UNC")) {	/* HBF removed */
#ifdef HBFUNC
	    return HBFUNC;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBGR(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'O':
	if (strEQ(name + 4, "OW")) {	/* HBGR removed */
#ifdef HBGROW
	    return HBGROW;
#else
	    goto not_there;
#endif
	}
    case 'P':
	if (strEQ(name + 4, "P")) {	/* HBGR removed */
#ifdef HBGRP
	    return HBGRP;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBG(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'L':
	if (strEQ(name + 3, "LNM")) {	/* HBG removed */
#ifdef HBGLNM
	    return HBGLNM;
#else
	    goto not_there;
#endif
	}
    case 'R':
	return constant_HBGR(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBI(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'M':
	if (strEQ(name + 3, "MON")) {	/* HBI removed */
#ifdef HBIMON
	    return HBIMON;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 3, "NDX")) {	/* HBI removed */
#ifdef HBINDX
	    return HBINDX;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBMON(char *name, int len, int arg)
{
    switch (name[5 + 0]) {
    case '\0':
	if (strEQ(name + 5, "")) {	/* HBMON removed */
#ifdef HBMON
	    return HBMON;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 5, "T")) {	/* HBMON removed */
#ifdef HBMONT
	    return HBMONT;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBMO(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'D':
	if (strEQ(name + 4, "DE")) {	/* HBMO removed */
#ifdef HBMODE
	    return HBMODE;
#else
	    goto not_there;
#endif
	}
    case 'N':
	return constant_HBMON(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBM(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'I':
	if (strEQ(name + 3, "ISS")) {	/* HBM removed */
#ifdef HBMISS
	    return HBMISS;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 3, "NOV")) {	/* HBM removed */
#ifdef HBMNOV
	    return HBMNOV;
#else
	    goto not_there;
#endif
	}
    case 'O':
	return constant_HBMO(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBN(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'C':
	if (strEQ(name + 3, "CHR")) {	/* HBN removed */
#ifdef HBNCHR
	    return HBNCHR;
#else
	    goto not_there;
#endif
	}
    case 'R':
	if (strEQ(name + 3, "RNG")) {	/* HBN removed */
#ifdef HBNRNG
	    return HBNRNG;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBOP(char *name, int len, int arg)
{
    if (4 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[4 + 1]) {
    case '\0':
	if (strEQ(name + 4, "T")) {	/* HBOP removed */
#ifdef HBOPT
	    return HBOPT;
#else
	    goto not_there;
#endif
	}
    case 'V':
	if (strEQ(name + 4, "TV")) {	/* HBOP removed */
#ifdef HBOPTV
	    return HBOPTV;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBOB(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'J':
	if (strEQ(name + 4, "JT")) {	/* HBOB removed */
#ifdef HBOBJT
	    return HBOBJT;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 4, "SV")) {	/* HBOB removed */
#ifdef HBOBSV
	    return HBOBSV;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBO(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'B':
	return constant_HBOB(name, len, arg);
    case 'O':
	if (strEQ(name + 3, "OLN")) {	/* HBO removed */
#ifdef HBOOLN
	    return HBOOLN;
#else
	    goto not_there;
#endif
	}
    case 'P':
	return constant_HBOP(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBPR(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'O':
	if (strEQ(name + 4, "OD")) {	/* HBPR removed */
#ifdef HBPROD
	    return HBPROD;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 4, "SP")) {	/* HBPR removed */
#ifdef HBPRSP
	    return HBPRSP;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBP(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'E':
	if (strEQ(name + 3, "ER")) {	/* HBP removed */
#ifdef HBPER
	    return HBPER;
#else
	    goto not_there;
#endif
	}
    case 'H':
	if (strEQ(name + 3, "HAS")) {	/* HBP removed */
#ifdef HBPHAS
	    return HBPHAS;
#else
	    goto not_there;
#endif
	}
    case 'R':
	return constant_HBPR(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBR(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'E':
	if (strEQ(name + 3, "EL")) {	/* HBR removed */
#ifdef HBREL
	    return HBREL;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 3, "NG")) {	/* HBR removed */
#ifdef HBRNG
	    return HBRNG;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBSR(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'N':
	if (strEQ(name + 4, "NG")) {	/* HBSR removed */
#ifdef HBSRNG
	    return HBSRNG;
#else
	    goto not_there;
#endif
	}
    case 'V':
	if (strEQ(name + 4, "VR")) {	/* HBSR removed */
#ifdef HBSRVR
	    return HBSRVR;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBSU(char *name, int len, int arg)
{
    if (4 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[4 + 1]) {
    case '\0':
	if (strEQ(name + 4, "N")) {	/* HBSU removed */
#ifdef HBSUN
	    return HBSUN;
#else
	    goto not_there;
#endif
	}
    case 'D':
	if (strEQ(name + 4, "ND")) {	/* HBSU removed */
#ifdef HBSUND
	    return HBSUND;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBS(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	if (strEQ(name + 3, "AT")) {	/* HBS removed */
#ifdef HBSAT
	    return HBSAT;
#else
	    goto not_there;
#endif
	}
    case 'B':
	if (strEQ(name + 3, "BUS")) {	/* HBS removed */
#ifdef HBSBUS
	    return HBSBUS;
#else
	    goto not_there;
#endif
	}
    case 'D':
	if (strEQ(name + 3, "DAY")) {	/* HBS removed */
#ifdef HBSDAY
	    return HBSDAY;
#else
	    goto not_there;
#endif
	}
    case 'E':
	if (strEQ(name + 3, "EL")) {	/* HBS removed */
#ifdef HBSEL
	    return HBSEL;
#else
	    goto not_there;
#endif
	}
    case 'R':
	return constant_HBSR(name, len, arg);
    case 'U':
	return constant_HBSU(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBT(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'H':
	if (strEQ(name + 3, "HU")) {	/* HBT removed */
#ifdef HBTHU
	    return HBTHU;
#else
	    goto not_there;
#endif
	}
    case 'I':
	if (strEQ(name + 3, "IME")) {	/* HBT removed */
#ifdef HBTIME
	    return HBTIME;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 3, "UE")) {	/* HBT removed */
#ifdef HBTUE
	    return HBTUE;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBUS(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'E':
	if (strEQ(name + 4, "ER")) {	/* HBUS removed */
#ifdef HBUSER
	    return HBUSER;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 4, "NS")) {	/* HBUS removed */
#ifdef HBUSNS
	    return HBUSNS;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HBU(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'N':
	if (strEQ(name + 3, "NIT")) {	/* HBU removed */
#ifdef HBUNIT
	    return HBUNIT;
#else
	    goto not_there;
#endif
	}
    case 'S':
	return constant_HBUS(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HB(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	return constant_HBA(name, len, arg);
    case 'B':
	if (strEQ(name + 2, "BASI")) {	/* HB removed */
#ifdef HBBASI
	    return HBBASI;
#else
	    goto not_there;
#endif
	}
    case 'C':
	return constant_HBC(name, len, arg);
    case 'D':
	return constant_HBD(name, len, arg);
    case 'E':
	return constant_HBE(name, len, arg);
    case 'F':
	return constant_HBF(name, len, arg);
    case 'G':
	return constant_HBG(name, len, arg);
    case 'I':
	return constant_HBI(name, len, arg);
    case 'K':
	if (strEQ(name + 2, "KEY")) {	/* HB removed */
#ifdef HBKEY
	    return HBKEY;
#else
	    goto not_there;
#endif
	}
    case 'L':
	if (strEQ(name + 2, "LEN")) {	/* HB removed */
#ifdef HBLEN
	    return HBLEN;
#else
	    goto not_there;
#endif
	}
    case 'M':
	return constant_HBM(name, len, arg);
    case 'N':
	return constant_HBN(name, len, arg);
    case 'O':
	return constant_HBO(name, len, arg);
    case 'P':
	return constant_HBP(name, len, arg);
    case 'R':
	return constant_HBR(name, len, arg);
    case 'S':
	return constant_HBS(name, len, arg);
    case 'T':
	return constant_HBT(name, len, arg);
    case 'U':
	return constant_HBU(name, len, arg);
    case 'V':
	if (strEQ(name + 2, "VER")) {	/* HB removed */
#ifdef HBVER
	    return HBVER;
#else
	    goto not_there;
#endif
	}
    case 'W':
	if (strEQ(name + 2, "WED")) {	/* HB removed */
#ifdef HBWED
	    return HBWED;
#else
	    goto not_there;
#endif
	}
    case 'Y':
	if (strEQ(name + 2, "YEAR")) {	/* HB removed */
#ifdef HBYEAR
	    return HBYEAR;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HSC(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	if (strEQ(name + 3, "ALA")) {	/* HSC removed */
#ifdef HSCALA
	    return HSCALA;
#else
	    goto not_there;
#endif
	}
    case 'L':
	if (strEQ(name + 3, "LLM")) {	/* HSC removed */
#ifdef HSCLLM
	    return HSCLLM;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HSER(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'I':
	if (strEQ(name + 4, "IE")) {	/* HSER removed */
#ifdef HSERIE
	    return HSERIE;
#else
	    goto not_there;
#endif
	}
    case 'V':
	if (strEQ(name + 4, "VR")) {	/* HSER removed */
#ifdef HSERVR
	    return HSERVR;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HSE(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'C':
	if (strEQ(name + 3, "C")) {	/* HSE removed */
#ifdef HSEC
	    return HSEC;
#else
	    goto not_there;
#endif
	}
    case 'P':
	if (strEQ(name + 3, "P")) {	/* HSE removed */
#ifdef HSEP
	    return HSEP;
#else
	    goto not_there;
#endif
	}
    case 'R':
	return constant_HSER(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HSMO(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'C':
	if (strEQ(name + 4, "CT")) {	/* HSMO removed */
#ifdef HSMOCT
	    return HSMOCT;
#else
	    goto not_there;
#endif
	}
    case 'D':
	if (strEQ(name + 4, "DE")) {	/* HSMO removed */
#ifdef HSMODE
	    return HSMODE;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HSM(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	if (strEQ(name + 3, "AUG")) {	/* HSM removed */
#ifdef HSMAUG
	    return HSMAUG;
#else
	    goto not_there;
#endif
	}
    case 'D':
	if (strEQ(name + 3, "DEC")) {	/* HSM removed */
#ifdef HSMDEC
	    return HSMDEC;
#else
	    goto not_there;
#endif
	}
    case 'F':
	if (strEQ(name + 3, "FIL")) {	/* HSM removed */
#ifdef HSMFIL
	    return HSMFIL;
#else
	    goto not_there;
#endif
	}
    case 'J':
	if (strEQ(name + 3, "JUL")) {	/* HSM removed */
#ifdef HSMJUL
	    return HSMJUL;
#else
	    goto not_there;
#endif
	}
    case 'L':
	if (strEQ(name + 3, "LEN")) {	/* HSM removed */
#ifdef HSMLEN
	    return HSMLEN;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 3, "NOV")) {	/* HSM removed */
#ifdef HSMNOV
	    return HSMNOV;
#else
	    goto not_there;
#endif
	}
    case 'O':
	return constant_HSMO(name, len, arg);
    case 'S':
	if (strEQ(name + 3, "SEP")) {	/* HSM removed */
#ifdef HSMSEP
	    return HSMSEP;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HSU(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'C':
	if (strEQ(name + 3, "CC")) {	/* HSU removed */
#ifdef HSUCC
	    return HSUCC;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 3, "N")) {	/* HSU removed */
#ifdef HSUN
	    return HSUN;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 3, "SPN")) {	/* HSU removed */
#ifdef HSUSPN
	    return HSUSPN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HS(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	if (strEQ(name + 2, "AT")) {	/* HS removed */
#ifdef HSAT
	    return HSAT;
#else
	    goto not_there;
#endif
	}
    case 'C':
	return constant_HSC(name, len, arg);
    case 'E':
	return constant_HSE(name, len, arg);
    case 'M':
	return constant_HSM(name, len, arg);
    case 'N':
	if (strEQ(name + 2, "NFIL")) {	/* HS removed */
#ifdef HSNFIL
	    return HSNFIL;
#else
	    goto not_there;
#endif
	}
    case 'P':
	if (strEQ(name + 2, "PCDB")) {	/* HS removed */
#ifdef HSPCDB
	    return HSPCDB;
#else
	    goto not_there;
#endif
	}
    case 'R':
	if (strEQ(name + 2, "RVST")) {	/* HS removed */
#ifdef HSRVST
	    return HSRVST;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 2, "TRNG")) {	/* HS removed */
#ifdef HSTRNG
	    return HSTRNG;
#else
	    goto not_there;
#endif
	}
    case 'U':
	return constant_HSU(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HCH(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	if (strEQ(name + 3, "ANL")) {	/* HCH removed */
#ifdef HCHANL
	    return HCHANL;
#else
	    goto not_there;
#endif
	}
    case 'G':
	if (strEQ(name + 3, "GAC")) {	/* HCH removed */
#ifdef HCHGAC
	    return HCHGAC;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HCLN(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'L':
	if (strEQ(name + 4, "LM")) {	/* HCLN removed */
#ifdef HCLNLM
	    return HCLNLM;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 4, "T")) {	/* HCLN removed */
#ifdef HCLNT
	    return HCLNT;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HCL(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'C':
	if (strEQ(name + 3, "CHN")) {	/* HCL removed */
#ifdef HCLCHN
	    return HCLCHN;
#else
	    goto not_there;
#endif
	}
    case 'N':
	return constant_HCLN(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HC(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	if (strEQ(name + 2, "ASEX")) {	/* HC removed */
#ifdef HCASEX
	    return HCASEX;
#else
	    goto not_there;
#endif
	}
    case 'E':
	if (strEQ(name + 2, "EXI")) {	/* HC removed */
#ifdef HCEXI
	    return HCEXI;
#else
	    goto not_there;
#endif
	}
    case 'H':
	return constant_HCH(name, len, arg);
    case 'L':
	return constant_HCL(name, len, arg);
    case 'M':
	if (strEQ(name + 2, "MODE")) {	/* HC removed */
#ifdef HCMODE
	    return HCMODE;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 2, "ONT")) {	/* HC removed */
#ifdef HCONT
	    return HCONT;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HTM(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'I':
	if (strEQ(name + 3, "IS")) {	/* HTM removed */
#ifdef HTMIS
	    return HTMIS;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "OUT")) {	/* HTM removed */
#ifdef HTMOUT
	    return HTMOUT;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HT(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'E':
	if (strEQ(name + 2, "ENDA")) {	/* HT removed */
#ifdef HTENDA
	    return HTENDA;
#else
	    goto not_there;
#endif
	}
    case 'H':
	if (strEQ(name + 2, "HU")) {	/* HT removed */
#ifdef HTHU
	    return HTHU;
#else
	    goto not_there;
#endif
	}
    case 'M':
	return constant_HTM(name, len, arg);
    case 'R':
	if (strEQ(name + 2, "RUNC")) {	/* HT removed */
#ifdef HTRUNC
	    return HTRUNC;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 2, "UE")) {	/* HT removed */
#ifdef HTUE
	    return HTUE;
#else
	    goto not_there;
#endif
	}
    case 'W':
	if (strEQ(name + 2, "WICM")) {	/* HT removed */
#ifdef HTWICM
	    return HTWICM;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HDA(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'I':
	if (strEQ(name + 3, "ILY")) {	/* HDA removed */
#ifdef HDAILY
	    return HDAILY;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 3, "TE")) {	/* HDA removed */
#ifdef HDATE
	    return HDATE;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HDU(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'P':
	if (strEQ(name + 3, "P")) {	/* HDU removed */
#ifdef HDUP
	    return HDUP;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 3, "TAR")) {	/* HDU removed */
#ifdef HDUTAR
	    return HDUTAR;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HD(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	return constant_HDA(name, len, arg);
    case 'B':
	if (strEQ(name + 2, "BCLM")) {	/* HD removed */
#ifdef HDBCLM
	    return HDBCLM;
#else
	    goto not_there;
#endif
	}
    case 'E':
	if (strEQ(name + 2, "EC")) {	/* HD removed */
#ifdef HDEC
	    return HDEC;
#else
	    goto not_there;
#endif
	}
    case 'H':
	if (strEQ(name + 2, "HOST")) {	/* HD removed */
#ifdef HDHOST
	    return HDHOST;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 2, "MODE")) {	/* HD removed */
#ifdef HDMODE
	    return HDMODE;
#else
	    goto not_there;
#endif
	}
    case 'P':
	if (strEQ(name + 2, "PRMC")) {	/* HD removed */
#ifdef HDPRMC
	    return HDPRMC;
#else
	    goto not_there;
#endif
	}
    case 'U':
	return constant_HDU(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HUND(char *name, int len, int arg)
{
    if (4 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[4 + 1]) {
    case 'T':
	if (strEQ(name + 4, "FT")) {	/* HUND removed */
#ifdef HUNDFT
	    return HUNDFT;
#else
	    goto not_there;
#endif
	}
    case 'X':
	if (strEQ(name + 4, "FX")) {	/* HUND removed */
#ifdef HUNDFX
	    return HUNDFX;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HUN(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'C':
	if (strEQ(name + 3, "CHG")) {	/* HUN removed */
#ifdef HUNCHG
	    return HUNCHG;
#else
	    goto not_there;
#endif
	}
    case 'D':
	return constant_HUND(name, len, arg);
    case 'E':
	if (strEQ(name + 3, "EXP")) {	/* HUN removed */
#ifdef HUNEXP
	    return HUNEXP;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HU(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'M':
	if (strEQ(name + 2, "MODE")) {	/* HU removed */
#ifdef HUMODE
	    return HUMODE;
#else
	    goto not_there;
#endif
	}
    case 'N':
	return constant_HUN(name, len, arg);
    case 'P':
	if (strEQ(name + 2, "PDRD")) {	/* HU removed */
#ifdef HUPDRD
	    return HUPDRD;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HE(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'N':
	if (strEQ(name + 2, "ND")) {	/* HE removed */
#ifdef HEND
	    return HEND;
#else
	    goto not_there;
#endif
	}
    case 'X':
	if (strEQ(name + 2, "XPIR")) {	/* HE removed */
#ifdef HEXPIR
	    return HEXPIR;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HFR(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'I':
	if (strEQ(name + 3, "I")) {	/* HFR removed */
#ifdef HFRI
	    return HFRI;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 3, "MLA")) {	/* HFR removed */
#ifdef HFRMLA
	    return HFRMLA;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HFYAU(char *name, int len, int arg)
{
    switch (name[5 + 0]) {
    case 'G':
	if (strEQ(name + 5, "G")) {	/* HFYAU removed */
#ifdef HFYAUG
	    return HFYAUG;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 5, "T")) {	/* HFYAU removed */
#ifdef HFYAUT
	    return HFYAUT;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HFYA(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'P':
	if (strEQ(name + 4, "PR")) {	/* HFYA removed */
#ifdef HFYAPR
	    return HFYAPR;
#else
	    goto not_there;
#endif
	}
    case 'U':
	return constant_HFYAU(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HFYF(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'E':
	if (strEQ(name + 4, "EB")) {	/* HFYF removed */
#ifdef HFYFEB
	    return HFYFEB;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 4, "ST")) {	/* HFYF removed */
#ifdef HFYFST
	    return HFYFST;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HFYJU(char *name, int len, int arg)
{
    switch (name[5 + 0]) {
    case 'L':
	if (strEQ(name + 5, "L")) {	/* HFYJU removed */
#ifdef HFYJUL
	    return HFYJUL;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 5, "N")) {	/* HFYJU removed */
#ifdef HFYJUN
	    return HFYJUN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HFYJ(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'A':
	if (strEQ(name + 4, "AN")) {	/* HFYJ removed */
#ifdef HFYJAN
	    return HFYJAN;
#else
	    goto not_there;
#endif
	}
    case 'U':
	return constant_HFYJU(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HFYM(char *name, int len, int arg)
{
    if (4 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[4 + 1]) {
    case 'R':
	if (strEQ(name + 4, "AR")) {	/* HFYM removed */
#ifdef HFYMAR
	    return HFYMAR;
#else
	    goto not_there;
#endif
	}
    case 'Y':
	if (strEQ(name + 4, "AY")) {	/* HFYM removed */
#ifdef HFYMAY
	    return HFYMAY;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HFY(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'A':
	return constant_HFYA(name, len, arg);
    case 'D':
	if (strEQ(name + 3, "DEC")) {	/* HFY removed */
#ifdef HFYDEC
	    return HFYDEC;
#else
	    goto not_there;
#endif
	}
    case 'F':
	return constant_HFYF(name, len, arg);
    case 'J':
	return constant_HFYJ(name, len, arg);
    case 'L':
	if (strEQ(name + 3, "LST")) {	/* HFY removed */
#ifdef HFYLST
	    return HFYLST;
#else
	    goto not_there;
#endif
	}
    case 'M':
	return constant_HFYM(name, len, arg);
    case 'N':
	if (strEQ(name + 3, "NOV")) {	/* HFY removed */
#ifdef HFYNOV
	    return HFYNOV;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "OCT")) {	/* HFY removed */
#ifdef HFYOCT
	    return HFYOCT;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 3, "SEP")) {	/* HFY removed */
#ifdef HFYSEP
	    return HFYSEP;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HF(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	if (strEQ(name + 2, "AMER")) {	/* HF removed */
#ifdef HFAMER
	    return HFAMER;
#else
	    goto not_there;
#endif
	}
    case 'E':
	if (strEQ(name + 2, "EB")) {	/* HF removed */
#ifdef HFEB
	    return HFEB;
#else
	    goto not_there;
#endif
	}
    case 'I':
	if (strEQ(name + 2, "IN")) {	/* HF removed */
#ifdef HFIN
	    return HFIN;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 2, "MENV")) {	/* HF removed */
#ifdef HFMENV
	    return HFMENV;
#else
	    goto not_there;
#endif
	}
    case 'R':
	return constant_HFR(name, len, arg);
    case 'U':
	if (strEQ(name + 2, "USE")) {	/* HF removed */
#ifdef HFUSE
	    return HFUSE;
#else
	    goto not_there;
#endif
	}
    case 'Y':
	return constant_HFY(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWAS(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'A':
	if (strEQ(name + 4, "AT")) {	/* HWAS removed */
#ifdef HWASAT
	    return HWASAT;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 4, "UN")) {	/* HWAS removed */
#ifdef HWASUN
	    return HWASUN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWAT(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'H':
	if (strEQ(name + 4, "HU")) {	/* HWAT removed */
#ifdef HWATHU
	    return HWATHU;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 4, "UE")) {	/* HWAT removed */
#ifdef HWATUE
	    return HWATUE;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWA(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'F':
	if (strEQ(name + 3, "FRI")) {	/* HWA removed */
#ifdef HWAFRI
	    return HWAFRI;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 3, "MON")) {	/* HWA removed */
#ifdef HWAMON
	    return HWAMON;
#else
	    goto not_there;
#endif
	}
    case 'S':
	return constant_HWAS(name, len, arg);
    case 'T':
	return constant_HWAT(name, len, arg);
    case 'W':
	if (strEQ(name + 3, "WED")) {	/* HWA removed */
#ifdef HWAWED
	    return HWAWED;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWBS(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'A':
	if (strEQ(name + 4, "AT")) {	/* HWBS removed */
#ifdef HWBSAT
	    return HWBSAT;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 4, "UN")) {	/* HWBS removed */
#ifdef HWBSUN
	    return HWBSUN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWBT(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'H':
	if (strEQ(name + 4, "HU")) {	/* HWBT removed */
#ifdef HWBTHU
	    return HWBTHU;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 4, "UE")) {	/* HWBT removed */
#ifdef HWBTUE
	    return HWBTUE;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWB(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'F':
	if (strEQ(name + 3, "FRI")) {	/* HWB removed */
#ifdef HWBFRI
	    return HWBFRI;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 3, "MON")) {	/* HWB removed */
#ifdef HWBMON
	    return HWBMON;
#else
	    goto not_there;
#endif
	}
    case 'S':
	return constant_HWBS(name, len, arg);
    case 'T':
	return constant_HWBT(name, len, arg);
    case 'W':
	if (strEQ(name + 3, "WED")) {	/* HWB removed */
#ifdef HWBWED
	    return HWBWED;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWKS(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'A':
	if (strEQ(name + 4, "AT")) {	/* HWKS removed */
#ifdef HWKSAT
	    return HWKSAT;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 4, "UN")) {	/* HWKS removed */
#ifdef HWKSUN
	    return HWKSUN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWKT(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'H':
	if (strEQ(name + 4, "HU")) {	/* HWKT removed */
#ifdef HWKTHU
	    return HWKTHU;
#else
	    goto not_there;
#endif
	}
    case 'U':
	if (strEQ(name + 4, "UE")) {	/* HWKT removed */
#ifdef HWKTUE
	    return HWKTUE;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HWK(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'F':
	if (strEQ(name + 3, "FRI")) {	/* HWK removed */
#ifdef HWKFRI
	    return HWKFRI;
#else
	    goto not_there;
#endif
	}
    case 'M':
	if (strEQ(name + 3, "MON")) {	/* HWK removed */
#ifdef HWKMON
	    return HWKMON;
#else
	    goto not_there;
#endif
	}
    case 'O':
	if (strEQ(name + 3, "OPN")) {	/* HWK removed */
#ifdef HWKOPN
	    return HWKOPN;
#else
	    goto not_there;
#endif
	}
    case 'S':
	return constant_HWKS(name, len, arg);
    case 'T':
	return constant_HWKT(name, len, arg);
    case 'W':
	if (strEQ(name + 3, "WED")) {	/* HWK removed */
#ifdef HWKWED
	    return HWKWED;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HW(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	return constant_HWA(name, len, arg);
    case 'B':
	return constant_HWB(name, len, arg);
    case 'E':
	if (strEQ(name + 2, "ED")) {	/* HW removed */
#ifdef HWED
	    return HWED;
#else
	    goto not_there;
#endif
	}
    case 'K':
	return constant_HWK(name, len, arg);
    case 'M':
	if (strEQ(name + 2, "MODE")) {	/* HW removed */
#ifdef HWMODE
	    return HWMODE;
#else
	    goto not_there;
#endif
	}
    case 'R':
	if (strEQ(name + 2, "RITE")) {	/* HW removed */
#ifdef HWRITE
	    return HWRITE;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HG(char *name, int len, int arg)
{
    if (2 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[2 + 1]) {
    case 'F':
	if (strEQ(name + 2, "LFOR")) {	/* HG removed */
#ifdef HGLFOR
	    return HGLFOR;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 2, "LNAM")) {	/* HG removed */
#ifdef HGLNAM
	    return HGLNAM;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HIN(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'I':
	if (strEQ(name + 3, "ITD")) {	/* HIN removed */
#ifdef HINITD
	    return HINITD;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 3, "TVL")) {	/* HIN removed */
#ifdef HINTVL
	    return HINTVL;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HI(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'F':
	if (strEQ(name + 2, "FAIL")) {	/* HI removed */
#ifdef HIFAIL
	    return HIFAIL;
#else
	    goto not_there;
#endif
	}
    case 'N':
	return constant_HIN(name, len, arg);
    case 'T':
	if (strEQ(name + 2, "TEM")) {	/* HI removed */
#ifdef HITEM
	    return HITEM;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HJU(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'L':
	if (strEQ(name + 3, "L")) {	/* HJU removed */
#ifdef HJUL
	    return HJUL;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 3, "N")) {	/* HJU removed */
#ifdef HJUN
	    return HJUN;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HJ(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	if (strEQ(name + 2, "AN")) {	/* HJ removed */
#ifdef HJAN
	    return HJAN;
#else
	    goto not_there;
#endif
	}
    case 'U':
	return constant_HJU(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HLIC(char *name, int len, int arg)
{
    switch (name[4 + 0]) {
    case 'F':
	if (strEQ(name + 4, "FL")) {	/* HLIC removed */
#ifdef HLICFL
	    return HLICFL;
#else
	    goto not_there;
#endif
	}
    case 'N':
	if (strEQ(name + 4, "NS")) {	/* HLIC removed */
#ifdef HLICNS
	    return HLICNS;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HLI(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'C':
	return constant_HLIC(name, len, arg);
    case '_':
	if (strEQ(name + 3, "_INCLUDED")) {	/* HLI removed */
#ifdef HLI_INCLUDED
	    return HLI_INCLUDED;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HL(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'I':
	return constant_HLI(name, len, arg);
    case 'O':
	if (strEQ(name + 2, "OCKD")) {	/* HL removed */
#ifdef HLOCKD
	    return HLOCKD;
#else
	    goto not_there;
#endif
	}
    case 'R':
	if (strEQ(name + 2, "RESV")) {	/* HL removed */
#ifdef HLRESV
	    return HLRESV;
#else
	    goto not_there;
#endif
	}
    case 'S':
	if (strEQ(name + 2, "SERV")) {	/* HL removed */
#ifdef HLSERV
	    return HLSERV;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HMA(char *name, int len, int arg)
{
    switch (name[3 + 0]) {
    case 'R':
	if (strEQ(name + 3, "R")) {	/* HMA removed */
#ifdef HMAR
	    return HMAR;
#else
	    goto not_there;
#endif
	}
    case 'X':
	if (strEQ(name + 3, "XSCMD")) {	/* HMA removed */
#ifdef HMAXSCMD
	    return HMAXSCMD;
#else
	    goto not_there;
#endif
	}
    case 'Y':
	if (strEQ(name + 3, "Y")) {	/* HMA removed */
#ifdef HMAY
	    return HMAY;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HMO(char *name, int len, int arg)
{
    if (3 + 1 >= len ) {
	errno = EINVAL;
	return 0;
    }
    switch (name[3 + 1]) {
    case '\0':
	if (strEQ(name + 3, "N")) {	/* HMO removed */
#ifdef HMON
	    return HMON;
#else
	    goto not_there;
#endif
	}
    case 'T':
	if (strEQ(name + 3, "NTH")) {	/* HMO removed */
#ifdef HMONTH
	    return HMONTH;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_HM(char *name, int len, int arg)
{
    switch (name[2 + 0]) {
    case 'A':
	return constant_HMA(name, len, arg);
    case 'F':
	if (strEQ(name + 2, "FILE")) {	/* HM removed */
#ifdef HMFILE
	    return HMFILE;
#else
	    goto not_there;
#endif
	}
    case 'G':
	if (strEQ(name + 2, "GVAL")) {	/* HM removed */
#ifdef HMGVAL
	    return HMGVAL;
#else
	    goto not_there;
#endif
	}
    case 'I':
	if (strEQ(name + 2, "IN")) {	/* HM removed */
#ifdef HMIN
	    return HMIN;
#else
	    goto not_there;
#endif
	}
    case 'O':
	return constant_HMO(name, len, arg);
    case 'P':
	if (strEQ(name + 2, "POST")) {	/* HM removed */
#ifdef HMPOST
	    return HMPOST;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant_H(char *name, int len, int arg)
{
    switch (name[1 + 0]) {
    case 'A':
	return constant_HA(name, len, arg);
    case 'B':
	return constant_HB(name, len, arg);
    case 'C':
	return constant_HC(name, len, arg);
    case 'D':
	return constant_HD(name, len, arg);
    case 'E':
	return constant_HE(name, len, arg);
    case 'F':
	return constant_HF(name, len, arg);
    case 'G':
	return constant_HG(name, len, arg);
    case 'H':
	if (strEQ(name + 1, "HOUR")) {	/* H removed */
#ifdef HHOUR
	    return HHOUR;
#else
	    goto not_there;
#endif
	}
    case 'I':
	return constant_HI(name, len, arg);
    case 'J':
	return constant_HJ(name, len, arg);
    case 'L':
	return constant_HL(name, len, arg);
    case 'M':
	return constant_HM(name, len, arg);
    case 'N':
	return constant_HN(name, len, arg);
    case 'O':
	return constant_HO(name, len, arg);
    case 'P':
	return constant_HP(name, len, arg);
    case 'Q':
	return constant_HQ(name, len, arg);
    case 'R':
	return constant_HR(name, len, arg);
    case 'S':
	return constant_HS(name, len, arg);
    case 'T':
	return constant_HT(name, len, arg);
    case 'U':
	return constant_HU(name, len, arg);
    case 'W':
	return constant_HW(name, len, arg);
    case 'Y':
	if (strEQ(name + 1, "YES")) {	/* H removed */
#ifdef HYES
	    return HYES;
#else
	    goto not_there;
#endif
	}
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}

static double
constant(char *name, int len, int arg)
{
    errno = 0;
    switch (name[0 + 0]) {
    case 'F':
	if (strEQ(name + 0, "FNUMND")) {	/*  removed */
	    return FNUMND;
	} else if (strEQ(name + 0, "FPRCND")) {	/*  removed */
	    return FPRCND;
	}
    case 'G':
	if (strEQ(name + 0, "GLOBAL")) {	/*  removed */
#ifdef GLOBAL
	    return GLOBAL;
#else
	    goto not_there;
#endif
	}
    case 'H':
	return constant_H(name, len, arg);
    }
    errno = EINVAL;
    return 0;

not_there:
    errno = ENOENT;
    return 0;
}


MODULE = FameHLI::API::HLI		PACKAGE = FameHLI::API::HLI		


double
constant(sv,arg)
    PREINIT:
	STRLEN		len;
    INPUT:
	SV *		sv
	char *		s = SvPV(sv, len);
	int		arg
    CODE:
	RETVAL = constant(s,len,arg);
    OUTPUT:
	RETVAL