aboutsummaryrefslogtreecommitdiff
path: root/gcc/cobol/genapi.h
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/cobol/genapi.h')
-rw-r--r--gcc/cobol/genapi.h17
1 files changed, 16 insertions, 1 deletions
diff --git a/gcc/cobol/genapi.h b/gcc/cobol/genapi.h
index 1aafc65..6582d2e 100644
--- a/gcc/cobol/genapi.h
+++ b/gcc/cobol/genapi.h
@@ -81,7 +81,7 @@ void parser_accept_date_dow( cbl_field_t *tgt );
void parser_accept_date_hhmmssff( cbl_field_t *tgt );
void
-parser_alphabet( cbl_alphabet_t& alphabet );
+parser_alphabet( const cbl_alphabet_t& alphabet );
void
parser_alphabet_use( cbl_alphabet_t& alphabet );
@@ -90,6 +90,18 @@ parser_allocate( cbl_refer_t size_or_based, cbl_refer_t returning, bool initiali
void
parser_free( size_t n, cbl_refer_t refers[] );
+void parser_xml_parse( cbl_label_t *stmt,
+ cbl_refer_t input,
+ cbl_field_t *encoding,
+ cbl_field_t *validating,
+ bool returns_national,
+ cbl_label_t *from_proc,
+ cbl_label_t *to_proc );
+
+void parser_xml_on_exception( cbl_label_t *name );
+void parser_xml_not_exception( cbl_label_t *name );
+void parser_xml_end( cbl_label_t *name );
+
void
parser_add( size_t nC, cbl_num_result_t *C,
size_t nA, cbl_refer_t *A,
@@ -322,6 +334,9 @@ parser_label_label( struct cbl_label_t *label );
void
parser_label_goto( struct cbl_label_t *label );
+callback_t *
+parser_label_addr( struct cbl_label_t *label );
+
void
parser_goto( cbl_refer_t value, size_t narg, cbl_label_t * const labels[] );