|
OpenCOBOL 1.1pre-rel
|
|
OpenCOBOL 1.1pre-rel
|
#include <stdio.h>#include "config.h"#include <stdlib.h>#include <string.h>#include <ctype.h>#include "cobc.h"#include "tree.h"#include "parser.h"
Go to the source code of this file.
Data Structures | |
| struct | yy_buffer_state |
| struct | cb_level_78 |
Defines | |
| #define | FLEX_SCANNER |
| #define | YY_FLEX_MAJOR_VERSION 2 |
| #define | YY_FLEX_MINOR_VERSION 5 |
| #define | yyconst |
| #define | YY_PROTO(proto) () |
| #define | YY_NULL 0 |
| #define | YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c) |
| #define | BEGIN yy_start = 1 + 2 * |
| #define | YY_START ((yy_start - 1) / 2) |
| #define | YYSTATE YY_START |
| #define | YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1) |
| #define | YY_NEW_FILE yyrestart( yyin ) |
| #define | YY_END_OF_BUFFER_CHAR 0 |
| #define | YY_BUF_SIZE 16384 |
| #define | EOB_ACT_CONTINUE_SCAN 0 |
| #define | EOB_ACT_END_OF_FILE 1 |
| #define | EOB_ACT_LAST_MATCH 2 |
| #define | yyless(n) |
| #define | unput(c) yyunput( c, yytext_ptr ) |
| #define | YY_BUFFER_NEW 0 |
| #define | YY_BUFFER_NORMAL 1 |
| #define | YY_BUFFER_EOF_PENDING 2 |
| #define | YY_CURRENT_BUFFER yy_current_buffer |
| #define | YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer ) |
| #define | yy_new_buffer yy_create_buffer |
| #define | yy_set_interactive(is_interactive) |
| #define | yy_set_bol(at_bol) |
| #define | YY_AT_BOL() (yy_current_buffer->yy_at_bol) |
| #define | yywrap() 1 |
| #define | YY_SKIP_YYWRAP |
| #define | yytext_ptr yytext |
| #define | YY_DO_BEFORE_ACTION |
| #define | YY_NUM_RULES 99 |
| #define | YY_END_OF_BUFFER 100 |
| #define | REJECT reject_used_but_not_detected |
| #define | yymore() yymore_used_but_not_detected |
| #define | YY_MORE_ADJ 0 |
| #define | YY_RESTORE_YY_MORE_OFFSET |
| #define | INITIAL 0 |
| #define | YY_NEVER_INTERACTIVE 1 |
| #define | SET_LOCATION(x) |
| #define | DECIMAL_IS_PERIOD 1 |
| #define | DECIMAL_IS_COMMA 2 |
| #define | PICTURE_STATE 3 |
| #define | FUNCTION_STATE 4 |
| #define | YY_NO_PUSH_STATE 1 |
| #define | YY_NO_POP_STATE 1 |
| #define | YY_NO_TOP_STATE 1 |
| #define | YY_READ_BUF_SIZE 8192 |
| #define | ECHO (void) fwrite( yytext, yyleng, 1, yyout ) |
| #define | YY_INPUT(buf, result, max_size) |
| #define | yyterminate() return YY_NULL |
| #define | YY_START_STACK_INCR 25 |
| #define | YY_FATAL_ERROR(msg) yy_fatal_error( msg ) |
| #define | YY_DECL int yylex YY_PROTO(( void )) |
| #define | YY_USER_ACTION |
| #define | YY_BREAK break; |
| #define | YY_RULE_SETUP |
| #define | YY_EXIT_FAILURE 2 |
| #define | yyless(n) |
Typedefs | |
| typedef struct yy_buffer_state * | YY_BUFFER_STATE |
| typedef unsigned int | yy_size_t |
| typedef unsigned char | YY_CHAR |
| typedef int | yy_state_type |
Functions | |
| void yyrestart | YY_PROTO ((FILE *input_file)) |
| void yy_switch_to_buffer | YY_PROTO ((YY_BUFFER_STATE new_buffer)) |
| void yy_load_buffer_state | YY_PROTO ((void)) |
| YY_BUFFER_STATE yy_create_buffer | YY_PROTO ((FILE *file, int size)) |
| void yy_delete_buffer | YY_PROTO ((YY_BUFFER_STATE b)) |
| void yy_init_buffer | YY_PROTO ((YY_BUFFER_STATE b, FILE *file)) |
| YY_BUFFER_STATE yy_scan_buffer | YY_PROTO ((char *base, yy_size_t size)) |
| YY_BUFFER_STATE yy_scan_string | YY_PROTO ((yyconst char *yy_str)) |
| YY_BUFFER_STATE yy_scan_bytes | YY_PROTO ((yyconst char *bytes, int len)) |
| static void *yy_flex_alloc | YY_PROTO ((yy_size_t)) |
| static void *yy_flex_realloc | YY_PROTO ((void *, yy_size_t)) |
| static void yy_flex_free | YY_PROTO ((void *)) |
| static yy_state_type yy_try_NUL_trans | YY_PROTO ((yy_state_type current_state)) |
| static void yy_fatal_error | YY_PROTO ((yyconst char msg[])) |
| static int | read_literal (int mark) |
| static int | scan_x (char *text) |
| static int | scan_h (char *text) |
| static int | scan_numeric (char *text) |
| static int | scan_picture (char *text) |
| static void | count_lines (char *text) |
| static void yyunput | YY_PROTO ((int c, char *buf_ptr)) |
Variables | |
| int | yyleng |
| FILE * | yyin = (FILE *) 0 |
| FILE * | yyout = (FILE *) 0 |
| static YY_BUFFER_STATE | yy_current_buffer = 0 |
| static char | yy_hold_char |
| static int | yy_n_chars |
| static char * | yy_c_buf_p = (char *) 0 |
| static int | yy_init = 1 |
| static int | yy_start = 0 |
| static int | yy_did_buffer_switch_on_eof |
| char * | yytext |
| static yyconst short int | yy_accept [607] |
| static yyconst int | yy_ec [256] |
| static yyconst int | yy_meta [54] |
| static yyconst short int | yy_base [622] |
| static yyconst short int | yy_def [622] |
| static yyconst short int | yy_nxt [1339] |
| static yyconst short int | yy_chk [1339] |
| static yy_state_type | yy_last_accepting_state |
| static char * | yy_last_accepting_cpos |
| static struct cb_level_78 * | lev78ptr = NULL |
| static unsigned char * | plexbuff = NULL |
| static size_t | plexsize |
| static size_t | in_procedure |
| static size_t | cb_force_pid_literal = 0 |
| static int | last_token_is_dot = 0 |
| static int | integer_is_label = 0 |
| static int | inside_bracket = 0 |
| static int | inside_repository = 0 |
| register char * | yy_bp |
| int | size |
| FILE * | file |
| int | len |
| #define SET_LOCATION | ( | x | ) |
(x)->source_file = (unsigned char *)cb_source_file; \ (x)->source_line = cb_source_line
| #define YY_AT_BOL | ( | ) | (yy_current_buffer->yy_at_bol) |
| #define YY_CURRENT_BUFFER yy_current_buffer |
| #define YY_DO_BEFORE_ACTION |
yytext_ptr = yy_bp; \ yyleng = (int) (yy_cp - yy_bp); \ yy_hold_char = *yy_cp; \ *yy_cp = '\0'; \ yy_c_buf_p = yy_cp;
| #define YY_EXIT_FAILURE 2 |
| #define YY_FLUSH_BUFFER yy_flush_buffer( yy_current_buffer ) |
| #define YY_INPUT | ( | buf, | |
| result, | |||
| max_size | |||
| ) |
if ( yy_current_buffer->yy_is_interactive ) \ { \ int c = '*', n; \ for ( n = 0; n < max_size && \ (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ buf[n] = (char) c; \ if ( c == '\n' ) \ buf[n++] = (char) c; \ if ( c == EOF && ferror( yyin ) ) \ YY_FATAL_ERROR( "input in flex scanner failed" ); \ result = n; \ } \ else if ( ((result = fread( buf, 1, max_size, yyin )) == 0) \ && ferror( yyin ) ) \ YY_FATAL_ERROR( "input in flex scanner failed" );
| #define YY_RULE_SETUP |
if ( yyleng > 0 ) \ yy_current_buffer->yy_at_bol = \ (yytext[yyleng - 1] == '\n'); \ YY_USER_ACTION
| #define YY_SC_TO_UI | ( | c | ) | ((unsigned int) (unsigned char) c) |
| #define yy_set_bol | ( | at_bol | ) |
{ \
if ( ! yy_current_buffer ) \
yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
yy_current_buffer->yy_at_bol = at_bol; \
}
| #define yy_set_interactive | ( | is_interactive | ) |
{ \
if ( ! yy_current_buffer ) \
yy_current_buffer = yy_create_buffer( yyin, YY_BUF_SIZE ); \
yy_current_buffer->yy_is_interactive = is_interactive; \
}
| #define YY_STATE_EOF | ( | state | ) | (YY_END_OF_BUFFER + state + 1) |
| #define yyless | ( | n | ) |
do \ { \ /* Undo effects of setting up yytext. */ \ yytext[yyleng] = yy_hold_char; \ yy_c_buf_p = yytext + n; \ yy_hold_char = *yy_c_buf_p; \ *yy_c_buf_p = '\0'; \ yyleng = n; \ } \ while ( 0 )
| #define yyless | ( | n | ) |
do \ { \ /* Undo effects of setting up yytext. */ \ *yy_cp = yy_hold_char; \ YY_RESTORE_YY_MORE_OFFSET \ yy_c_buf_p = yy_cp = yy_bp + n - YY_MORE_ADJ; \ YY_DO_BEFORE_ACTION; /* set up yytext again */ \ } \ while ( 0 )
| typedef struct yy_buffer_state* YY_BUFFER_STATE |
| typedef int yy_state_type |
| static void count_lines | ( | char * | text | ) | [static] |
| static int read_literal | ( | int | mark | ) | [static] |
| static int scan_h | ( | char * | text | ) | [static] |
| static int scan_numeric | ( | char * | text | ) | [static] |
| static int scan_picture | ( | char * | text | ) | [static] |
| static int scan_x | ( | char * | text | ) | [static] |
| YY_BUFFER_STATE yy_scan_string YY_PROTO | ( | (yyconst char *yy_str) | ) |
| YY_BUFFER_STATE yy_scan_buffer YY_PROTO | ( | (char *base, yy_size_t size) | ) |
| static void yy_fatal_error YY_PROTO | ( | (yyconst char msg[]) | ) | [static] |
| static yy_state_type yy_try_NUL_trans YY_PROTO | ( | (yy_state_type current_state) | ) | [static] |
| static void yy_flex_free YY_PROTO | ( | (void *) | ) | [static] |
| static void* yy_flex_realloc YY_PROTO | ( | (void *, yy_size_t) | ) | [static] |
| void yy_delete_buffer YY_PROTO | ( | (YY_BUFFER_STATE b) | ) |
| static void* yy_flex_alloc YY_PROTO | ( | (yy_size_t) | ) | [static] |
| void yy_switch_to_buffer YY_PROTO | ( | (YY_BUFFER_STATE new_buffer) | ) |
| void yy_load_buffer_state YY_PROTO | ( | (void) | ) |
| void yy_init_buffer YY_PROTO | ( | (YY_BUFFER_STATE b, FILE *file) | ) |
| static void yyunput YY_PROTO | ( | (int c, char *buf_ptr) | ) | [static] |
| YY_BUFFER_STATE yy_scan_bytes YY_PROTO | ( | (yyconst char *bytes, int len) | ) |
| void yyrestart YY_PROTO | ( | (FILE *input_file) | ) |
| YY_BUFFER_STATE yy_create_buffer YY_PROTO | ( | (FILE *file, int size) | ) |
size_t cb_force_pid_literal = 0 [static] |
size_t in_procedure [static] |
int inside_bracket = 0 [static] |
int inside_repository = 0 [static] |
int integer_is_label = 0 [static] |
int last_token_is_dot = 0 [static] |
struct cb_level_78* lev78ptr = NULL [static] |
char* yy_c_buf_p = (char *) 0 [static] |
YY_BUFFER_STATE yy_current_buffer = 0 [static] |
int yy_did_buffer_switch_on_eof [static] |
char yy_hold_char [static] |
char* yy_last_accepting_cpos [static] |
yy_state_type yy_last_accepting_state [static] |
yyconst int yy_meta[54] [static] |
int yy_n_chars [static] |
1.7.4