GnuCOBOL  2.0
A free COBOL compiler
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Macros
ppparse.y File Reference
#include "config.h"
#include <stdio.h>
#include <stdarg.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "cobc.h"
#include "ppparse.def"
Include dependency graph for ppparse.y:

Macros

#define COB_IN_PPPARSE   1
 
#define _STDLIB_H   1
 
#define pperror   cb_error
 
#define COND_EQ   0
 
#define COND_LT   1U
 
#define COND_GT   2U
 
#define COND_LE   3U
 
#define COND_GE   4U
 
#define COND_NE   5U
 
#define CB_PARSE_DEF(x, z)   if (!strcasecmp (name, x)) return (z);
 

Functions

 plex_action_directive (current_cmd, found^$3)
 
 if (ppp_set_value(p, $1))
 
 if (p!=NULL &&p->deftype!=PLEX_DEF_NONE)
 
 if (cb_fold_copy==COB_FOLD_LOWER)
 
 if ($3)
 
 ppcopy ($2, $3, $5)
 

Variables

expect defines error verbose
verbose name 
prefix
 
token TOKEN_EOF end of file
token ALSO token BY token COPY
token 
EQEQ
 
turn_directive __pad0__
 
ec_list __pad1__
 
on_or_off __pad2__
 
with_loc __pad3__
 
if_directive __pad4__
 
 found = (ppp_search_lists ($1) != NULL)
 
VARIABLE _is _not SET
 
VARIABLE _is _not condition_clause object_id
 
 p = ppp_search_lists ($1)
 
p next = NULL
 
 else
 
 variable_or_literal
 
variable_or_literal __pad5__
 
object_id __pad6__
 
 VARIABLE
 
condition_clause __pad7__
 
GREATER _than
 
LESS _than OR EQUAL _to
 
 GE
 
 GT
 
 LE
 
 LT
 
 EQ
 
 NE
 
copy_statement __pad8__
 
copy_statement ppout
 
copy_in __pad9__
 
in_or_of TOKEN
 
in_or_of __pad10__
 
copy_suppress __pad11__
 
copy_replacing __pad12__
 
REPLACING replacing_list
 
replace_statement __pad13__
 
replace_statement REPLACE _last OFF
 
replacing_list __pad14__
 
replacing_list lead_trail
text_partial_src BY 
text_partial_dst
 
replacing_list text_src BY text_dst
 
text_src __pad15__
 
 identifier
 
text_dst __pad16__
 
text_partial_src __pad17__
 
token_list __pad18__
 
identifier __pad19__
 

Macro Definition Documentation

#define _STDLIB_H   1
#define CB_PARSE_DEF (   x,
 
)    if (!strcasecmp (name, x)) return (z);
#define COB_IN_PPPARSE   1
#define COND_EQ   0
#define COND_GE   4U
#define COND_GT   2U
#define COND_LE   3U
#define COND_LT   1U
#define COND_NE   5U
#define pperror   cb_error

Function Documentation

if ( ppp_set_value(p, $1)  )

References _, and cb_error().

863  {
864  cb_error (_("Invalid constant"));
865  } else {
if ( p!  = NULL && p->deftype != PLEX_DEF_NONE)

References p.

900  {
901  $$ = p;
902  } else {
else if ( cb_fold_copy  = COB_FOLD_LOWER)

References fold_lower().

960  {
961  $2 = fold_lower ($2);
962  } else if (cb_fold_copy == COB_FOLD_UPPER) {
if (   $3)

References COB_FOLD_LOWER, COB_FOLD_UPPER, fix_filename(), fold_lower(), and fold_upper().

965  {
966  $3 = fix_filename ($3);
967  if (cb_fold_copy == COB_FOLD_LOWER) {
968  $3 = fold_lower ($3);
969  } else if (cb_fold_copy == COB_FOLD_UPPER) {
970  $3 = fold_upper ($3);
971  }
972  }
plex_action_directive ( current_cmd  ,
found $3 
)
ppcopy (   $2,
  $3,
  $5 
)

Variable Documentation

turn_directive __pad0__
in_or_of __pad10__
copy_suppress __pad11__
copy_replacing __pad12__
replace_statement __pad13__
replacing_list __pad14__
text_src __pad15__
text_dst __pad16__
text_partial_src __pad17__
token_list __pad18__
identifier __pad19__
ec_list __pad1__
on_or_off __pad2__
with_loc __pad3__
if_directive __pad4__
object_id __pad6__
condition_clause __pad7__
copy_statement __pad8__
copy_in __pad9__
LESS _than
Initial value:
{
$$ = COND_GT
EQUAL _to
Initial value:
{
$$ = COND_LE
else
Initial value:
{
found = ppp_compare_vals (p, $5, $4)

Referenced by output_integer(), and output_long_integer().

EQ
Initial value:
{
$$ = COND_EQ
EQEQ TOKEN EQEQ
GE
Initial value:
{
$$ = COND_GE
GT
Initial value:
{
$$ = COND_GT
identifier
Initial value:
{
$$ = $1
LE
Initial value:
{
$$ = COND_LE
LT
Initial value:
{
$$ = COND_LT
NE
Initial value:
{
$$ = COND_NE
LITERAL _is _not condition_clause object_id
Initial value:
{
replace_statement REPLACE _last OFF
Initial value:
p = ppp_search_lists ($1)

Referenced by ambiguous_error(), attr_list_reverse(), build_file(), build_literal(), build_report(), can_replace(), cb_build_alphabet_name(), cb_build_alter(), cb_build_assign(), cb_build_assignment_name(), cb_build_binary_op(), cb_build_call(), cb_build_cancel(), cb_build_cast(), cb_build_cast_int(), cb_build_cast_llint(), cb_build_class_name(), cb_build_comment(), cb_build_cond(), cb_build_continue(), cb_build_debug(), cb_build_debug_call(), cb_build_decimal(), cb_build_field(), cb_build_field_tree(), cb_build_funcall(), cb_build_goto(), cb_build_identifier(), cb_build_if(), cb_build_initialize(), cb_build_label(), cb_build_list(), cb_build_locale_name(), cb_build_move_literal(), cb_build_numeric_literal(), cb_build_numsize_literal(), cb_build_perform(), cb_build_perform_varying(), cb_build_picture(), cb_build_program(), cb_build_program_id(), cb_build_reference(), cb_build_search(), cb_build_set_attribute(), cb_build_statement(), cb_build_string(), cb_build_system_name(), cb_concat_literals(), cb_define_list_add(), cb_emit_call(), cb_emit_display(), cb_emit_set_to(), cb_emit_sort_giving(), cb_encode_program_id(), cb_field_add(), cb_field_subordinate(), cb_field_variable_address(), cb_field_variable_size(), cb_fits_int(), cb_fits_long_long(), cb_get_level(), cb_int(), cb_list_reserved(), cb_name_1(), cb_ref(), cb_text_list_add(), cb_text_list_chk(), cb_to_cname(), cb_tree_category(), cb_validate_program_data(), chk_field_variable_address(), chk_field_variable_size(), cob_accept(), cob_accept_environment(), cob_call_field(), cob_cancel(), cob_check_numdisp(), cob_check_numeric(), cob_check_numval(), cob_check_numval_f(), cob_chk_call_path(), cob_chk_dirp(), cob_chk_file_env(), cob_chk_file_mapping(), cob_cmp_numdisp(), cob_cmp_packed(), cob_correct_numeric(), cob_decimal_get_display(), cob_decimal_get_packed(), cob_decimal_set_display(), cob_decimal_set_double(), cob_decimal_set_mpf(), cob_decimal_set_packed(), cob_display_env_value(), cob_exit_call(), cob_exit_common(), cob_exit_fileio(), cob_file_sort_init(), cob_file_unlock(), cob_fileio_getenv(), cob_get_environment(), cob_getenv(), cob_getopt_long_long(), cob_init_call(), cob_init_move(), cob_inspect_after(), cob_inspect_before(), cob_intr_concatenate(), cob_intr_currency_symbol(), cob_intr_lcl_time_from_secs(), cob_intr_locale_compare(), cob_intr_locale_date(), cob_intr_locale_time(), cob_intr_mon_decimal_point(), cob_intr_mon_thousands_sep(), cob_intr_num_decimal_point(), cob_intr_num_thousands_sep(), cob_intr_numval_f(), cob_intr_stored_char_length(), cob_move_all(), cob_move_alphanum_to_display(), cob_move_alphanum_to_edited(), cob_move_display_to_edited(), cob_move_display_to_packed(), cob_move_edited_to_display(), cob_packed_get_sign(), cob_real_get_sign(), cob_real_put_sign(), cob_resolve(), cob_resolve_cobol(), cob_resolve_error(), cob_resolve_func(), cob_resolve_internal(), cob_runtime_error(), cob_set_cancel(), cob_set_library_path(), cob_set_locale(), cob_set_packed_int(), cob_sync(), cob_sys_error_proc(), cob_sys_exit_proc(), cob_sys_x91(), cob_unstring_into(), cobc_check_valid_name(), cobc_cmd_print(), cobc_deciph_funcs(), cobc_getenv(), cobc_init_reserved(), cobc_init_scanner(), cobc_init_typeck(), cobc_main_strdup(), cobc_parse_strdup(), cobc_plex_strdup(), cobc_stradd_dup(), cobc_strdup(), cobc_var_print(), count_lines(), count_pic_alphanumeric_edited(), decimal_expand(), display_common(), expr_expand(), file_basename(), file_extension(), finalize_file(), fold_lower(), fold_upper(), global_check(), if(), indexed_close(), indexed_open(), indexed_read(), indexed_read_next(), indexed_rewrite(), indexed_write(), insert(), lineseq_write(), list_cache_sort(), literal_list_reverse(), lookup(), lookup_call(), lookup_func_call(), lookup_reserved_word(), main(), make_constant(), make_constant_label(), output_base(), output_cond(), output_cond_debug(), output_funcall(), output_funcall_debug(), output_goto_1(), output_indent(), output_initial_values(), output_integer(), output_internal_function(), output_long_integer(), output_perform_call(), output_search_all(), output_search_whens(), output_size(), output_stmt(), pp_text_list_add(), ppopen(), ppp_define_add(), ppp_list_add(), ppp_replace_list_add(), ppp_search_lists(), pretty_display_numeric(), process(), process_assemble(), process_command_line(), process_module_direct(), process_translate(), program_list_reverse(), read_string(), scan_define_options(), scan_h(), scan_picture(), search_set_keys(), store_common_region(), string_list_reverse(), validate_field_1(), validate_move(), var_print(), and while().

copy_statement ppout
expect defines error verbose verbose name prefix
REPLACING replacing_list
Initial value:
{
$$ = $2

Referenced by ppopen().

VARIABLE _is _not SET
Initial value:
{
unsigned int found
replacing_list text_src BY text_dst
Initial value:
{
$$ = ppp_replace_list_add ($1, $2, $4, 0)
text_partial_src text_partial_dst
Initial value:
{
$$ = ppp_replace_list_add (NULL, $2, $4, $1)
identifier OF TOKEN
Initial value:
{
$$ = $2
VARIABLE
Initial value:
{
variable_or_literal
Initial value:
{
cb_error (_("Invalid IF/ELIF directive"))