GnuCOBOL  2.0
A free COBOL compiler
Functions | Variables
get-reserved-lists.c.h File Reference
This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions

static COB_INLINE COB_A_INLINE int cob_cmp_s8 (const void *p, const cob_s64_t n)
 
static COB_INLINE COB_A_INLINE int cob_cmpswp_s32 (const void *p, const cob_s64_t n)
 

Variables

static const char * cob_module_path = NULL
 
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}
 
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}
 
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"
 

Function Documentation

static COB_INLINE COB_A_INLINE int cob_cmp_s8 ( const void *  p,
const cob_s64_t  n 
)
static

Definition at line 62 of file get-reserved-lists.c.h.

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

Definition at line 68 of file get-reserved-lists.c.h.

References __unaligned, and COB_BSWAP_32.

Referenced by get__reserved__lists_().

69 {
70  int val;
71  val = COB_BSWAP_32 (*(const int __unaligned *)p);
72  return (val < n) ? -1 : (val > n);
73 }
__unaligned
#define __unaligned
Definition: common.h:487
COB_BSWAP_32
#define COB_BSWAP_32(val)
Definition: common.h:257

Here is the caller graph for this function:

Variable Documentation

const cob_field_attr a_1 = {0x21, 0, 0, 0x0000, NULL}
static

Definition at line 14 of file get-reserved-lists.c.h.

const cob_field_attr a_2 = {0x10, 2, 0, 0x0000, NULL}
static

Definition at line 15 of file get-reserved-lists.c.h.

const cob_field_attr a_3 = {0x11, 2, 0, 0x0041, NULL}
static

Definition at line 16 of file get-reserved-lists.c.h.

const cob_field_attr a_4 = {0x11, 9, 0, 0x0041, NULL}
static

Definition at line 17 of file get-reserved-lists.c.h.

const cob_field_attr a_5 = {0x11, 5, 0, 0x0821, NULL}
static

Definition at line 18 of file get-reserved-lists.c.h.

const cob_field_attr a_6 = {0x10, 1, 0, 0x0000, NULL}
static

Definition at line 19 of file get-reserved-lists.c.h.

const cob_field c_1 = {32, (cob_u8_ptr)"cobc --list-intrinsics > int.tmp", &a_1}
static

Definition at line 25 of file get-reserved-lists.c.h.

const cob_field c_2 = {30, (cob_u8_ptr)"cobc --list-reserved > res.tmp", &a_1}
static

Definition at line 26 of file get-reserved-lists.c.h.

const cob_field c_3 = {7, (cob_u8_ptr)"res.tmp", &a_1}
static

Definition at line 27 of file get-reserved-lists.c.h.

const cob_field c_4 = {7, (cob_u8_ptr)"int.tmp", &a_1}
static

Definition at line 28 of file get-reserved-lists.c.h.

const cob_field c_5 = {1, (cob_u8_ptr)"\011", &a_1}
static

Definition at line 29 of file get-reserved-lists.c.h.

const cob_field c_6 = {1, (cob_u8_ptr)"1", &a_6}
static

Definition at line 30 of file get-reserved-lists.c.h.

const cob_field c_7 = {7, (cob_u8_ptr)"'LENGTH", &a_1}
static

Definition at line 31 of file get-reserved-lists.c.h.

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

Definition at line 21 of file get-reserved-lists.c.h.

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

Definition at line 33 of file get-reserved-lists.c.h.

const char* cob_module_path = NULL
static

Definition at line 10 of file get-reserved-lists.c.h.

const char st_1[] = "get-reserved-lists.cbl"
static

Definition at line 37 of file get-reserved-lists.c.h.

const char st_10[] = "ba010-init"
static

Definition at line 46 of file get-reserved-lists.c.h.

const char st_11[] = "OPEN"
static

Definition at line 47 of file get-reserved-lists.c.h.

const char st_12[] = "DISPLAY"
static

Definition at line 48 of file get-reserved-lists.c.h.

const char st_13[] = "EXIT SECTION"
static

Definition at line 49 of file get-reserved-lists.c.h.

const char st_14[] = "ba020-get-thru-base-data"
static

Definition at line 50 of file get-reserved-lists.c.h.

const char st_15[] = "READ"
static

Definition at line 51 of file get-reserved-lists.c.h.

const char st_16[] = "CLOSE"
static

Definition at line 52 of file get-reserved-lists.c.h.

const char st_17[] = "GO TO"
static

Definition at line 53 of file get-reserved-lists.c.h.

const char st_18[] = "UNSTRING"
static

Definition at line 54 of file get-reserved-lists.c.h.

const char st_19[] = "ADD"
static

Definition at line 55 of file get-reserved-lists.c.h.

const char st_2[] = "aa000-startup"
static

Definition at line 38 of file get-reserved-lists.c.h.

const char st_20[] = "ca000-Get-Reserved-Words"
static

Definition at line 56 of file get-reserved-lists.c.h.

const char st_21[] = "ca010-init"
static

Definition at line 57 of file get-reserved-lists.c.h.

const char st_22[] = "ca020-get-thru-base-data"
static

Definition at line 58 of file get-reserved-lists.c.h.

const char st_23[] = "ca030-Clean-Up"
static

Definition at line 59 of file get-reserved-lists.c.h.

const char st_3[] = "aa010-Init"
static

Definition at line 39 of file get-reserved-lists.c.h.

const char st_4[] = "CALL"
static

Definition at line 40 of file get-reserved-lists.c.h.

const char st_5[] = "MOVE"
static

Definition at line 41 of file get-reserved-lists.c.h.

const char st_6[] = "PERFORM"
static

Definition at line 42 of file get-reserved-lists.c.h.

const char st_7[] = "IF"
static

Definition at line 43 of file get-reserved-lists.c.h.

const char st_8[] = "EXIT PROGRAM"
static

Definition at line 44 of file get-reserved-lists.c.h.

const char st_9[] = "ba000-Get-Intrinsics-Words"
static

Definition at line 45 of file get-reserved-lists.c.h.