get-reserved-lists.c.h

Go to the documentation of this file.

/* Generated by           cobc 2.0.0 */
/* Generated from         get-reserved-lists.cbl */
/* Generated at           Apr 17 2016 03:19:00 */
/* GnuCOBOL build date    Apr 16 2016 12:25:23 */
/* GnuCOBOL package date  Oct 25 2015 21:40:28 UTC */
/* Compile command        cobc -x -g cobxref.cbl get-reserved-lists.cbl */


/* Module path */
static const char       *cob_module_path = NULL;

/* Attributes */

static const cob_field_attr a_1 =   {0x21,   0,   0, 0x0000, NULL};
static const cob_field_attr a_2 =   {0x10,   2,   0, 0x0000, NULL};
static const cob_field_attr a_3 =   {0x11,   2,   0, 0x0041, NULL};
static const cob_field_attr a_4 =   {0x11,   9,   0, 0x0041, NULL};
static const cob_field_attr a_5 =   {0x11,   5,   0, 0x0821, NULL};
static const cob_field_attr a_6 =   {0x10,   1,   0, 0x0000, NULL};

static const cob_field_attr cob_all_attr = {0x22, 0, 0, 0, NULL};


/* Constants */
static const cob_field c_1  = {32, (cob_u8_ptr)"cobc --list-intrinsics > int.tmp", &a_1};
static const cob_field c_2  = {30, (cob_u8_ptr)"cobc --list-reserved > res.tmp", &a_1};
static const cob_field c_3  = {7, (cob_u8_ptr)"res.tmp", &a_1};
static const cob_field c_4  = {7, (cob_u8_ptr)"int.tmp", &a_1};
static const cob_field c_5  = {1, (cob_u8_ptr)"\011", &a_1};
static const cob_field c_6  = {1, (cob_u8_ptr)"1", &a_6};
static const cob_field c_7  = {7, (cob_u8_ptr)"'LENGTH", &a_1};

static cob_field cob_all_space  = {1, (cob_u8_ptr)" ", &cob_all_attr};


/* Strings */
static const char st_1[]    = "get-reserved-lists.cbl";
static const char st_2[]    = "aa000-startup";
static const char st_3[]    = "aa010-Init";
static const char st_4[]    = "CALL";
static const char st_5[]    = "MOVE";
static const char st_6[]    = "PERFORM";
static const char st_7[]    = "IF";
static const char st_8[]    = "EXIT PROGRAM";
static const char st_9[]    = "ba000-Get-Intrinsics-Words";
static const char st_10[]   = "ba010-init";
static const char st_11[]   = "OPEN";
static const char st_12[]   = "DISPLAY";
static const char st_13[]   = "EXIT SECTION";
static const char st_14[]   = "ba020-get-thru-base-data";
static const char st_15[]   = "READ";
static const char st_16[]   = "CLOSE";
static const char st_17[]   = "GO TO";
static const char st_18[]   = "UNSTRING";
static const char st_19[]   = "ADD";
static const char st_20[]   = "ca000-Get-Reserved-Words";
static const char st_21[]   = "ca010-init";
static const char st_22[]   = "ca020-get-thru-base-data";
static const char st_23[]   = "ca030-Clean-Up";

static COB_INLINE COB_A_INLINE int
cob_cmp_s8 (const void *p, const cob_s64_t n)
{
    return (*(const signed char *)p < n) ? -1 : (*(const signed char *)p > n);
}

static COB_INLINE COB_A_INLINE int
cob_cmpswp_s32 (const void *p, const cob_s64_t n)
{
    int val;
    val = COB_BSWAP_32 (*(const int __unaligned *)p);
    return (val < n) ? -1 : (val > n);
}