diff options
author | Demi Obenour <demiobenour@gmail.com> | 2017-02-11 15:19:32 -0500 |
---|---|---|
committer | David Allsopp <david.allsopp@metastack.com> | 2017-05-17 09:48:41 +0100 |
commit | ebe9f33f832934c9faa54ffe0256bf32296b89be (patch) | |
tree | 16a92e88d8e4c9d3388744baf265593ae9957ac7 /yacc | |
parent | 13fe590602dd4d1121f2f6b7e3565c0af375990a (diff) | |
download | ocaml-ebe9f33f832934c9faa54ffe0256bf32296b89be.tar.gz |
Delete code that isn't useful for ocamlyacc
It was left from the conversion of Berkely Yacc to ocamlyacc
Diffstat (limited to 'yacc')
-rw-r--r-- | yacc/defs.h | 5 | ||||
-rw-r--r-- | yacc/error.c | 18 | ||||
-rw-r--r-- | yacc/main.c | 26 |
3 files changed, 1 insertions, 48 deletions
diff --git a/yacc/defs.h b/yacc/defs.h index 55bed1c285..bb7305a220 100644 --- a/yacc/defs.h +++ b/yacc/defs.h @@ -229,7 +229,6 @@ extern char *defines_file_name; extern char *input_file_name; extern char *output_file_name; extern char *text_file_name; -extern char *union_file_name; extern char *verbose_file_name; extern char *interface_file_name; @@ -240,7 +239,6 @@ extern FILE *defines_file; extern FILE *input_file; extern FILE *output_file; extern FILE *text_file; -extern FILE *union_file; extern FILE *verbose_file; extern FILE *interface_file; @@ -252,7 +250,6 @@ extern int ntokens; extern int nvars; extern int ntags; -extern char unionized; extern char line_format[]; extern int start_symbol; @@ -335,7 +332,6 @@ extern void no_grammar (void) Noreturn; extern void no_space (void) Noreturn; extern void open_error (char *filename) Noreturn; extern void output (void); -extern void over_unionized (char *u_cptr) Noreturn; extern void prec_redeclared (void); extern void polymorphic_entry_point(char *s) Noreturn; extern void forbidden_conflicts (void); @@ -357,7 +353,6 @@ extern void unterminated_action (int a_lineno, char *a_line, char *a_cptr) Noret extern void unterminated_comment (int c_lineno, char *c_line, char *c_cptr) Noreturn; extern void unterminated_string (int s_lineno, char *s_line, char *s_cptr) Noreturn; extern void unterminated_text (int t_lineno, char *t_line, char *t_cptr) Noreturn; -extern void unterminated_union (int u_lineno, char *u_line, char *u_cptr) Noreturn; extern void used_reserved (char *s) Noreturn; extern void verbose (void); extern void write_section (char **section); diff --git a/yacc/error.c b/yacc/error.c index 236908c08e..f116f2c874 100644 --- a/yacc/error.c +++ b/yacc/error.c @@ -109,24 +109,6 @@ void unterminated_text(int t_lineno, char *t_line, char *t_cptr) } -void unterminated_union(int u_lineno, char *u_line, char *u_cptr) -{ - fprintf(stderr, "File \"%s\", line %d: unterminated %%union declaration\n", - virtual_input_file_name, u_lineno); - print_pos(u_line, u_cptr); - done(1); -} - - -void over_unionized(char *u_cptr) -{ - fprintf(stderr, "File \"%s\", line %d: too many %%union declarations\n", - virtual_input_file_name, lineno); - print_pos(line, u_cptr); - done(1); -} - - void illegal_tag(int t_lineno, char *t_line, char *t_cptr) { fprintf(stderr, "File \"%s\", line %d: illegal tag\n", diff --git a/yacc/main.c b/yacc/main.c index 444b23472d..ee5cb53b6f 100644 --- a/yacc/main.c +++ b/yacc/main.c @@ -56,11 +56,10 @@ char *defines_file_name; char *input_file_name = ""; char *output_file_name; char *text_file_name; -char *union_file_name; char *verbose_file_name; #ifdef HAS_MKSTEMP -int action_fd = -1, entry_fd = -1, text_fd = -1, union_fd = -1; +int action_fd = -1, entry_fd = -1, text_fd = -1; #endif FILE *action_file; /* a temp file, used to save actions associated */ @@ -72,9 +71,6 @@ FILE *input_file; /* the input file */ FILE *output_file; /* y.tab.c */ FILE *text_file; /* a temp file, used to save text until all */ /* symbols have been defined */ -FILE *union_file; /* a temp file, used to save the union */ - /* definition until all symbol have been */ - /* defined */ FILE *verbose_file; /* y.output */ FILE *interface_file; @@ -118,13 +114,10 @@ void done(int k) unlink(entry_file_name); if (text_fd != -1) unlink(text_file_name); - if (union_fd != -1) - unlink(union_file_name); #else if (action_file) { fclose(action_file); unlink(action_file_name); } if (entry_file) { fclose(entry_file); unlink(entry_file_name); } if (text_file) { fclose(text_file); unlink(text_file_name); } - if (union_file) { fclose(union_file); unlink(union_file_name); } #endif if (output_file && k > 0) { fclose(output_file); unlink(output_file_name); @@ -302,32 +295,26 @@ void create_file_names(void) if (entry_file_name == 0) no_space(); text_file_name = MALLOC(i); if (text_file_name == 0) no_space(); - union_file_name = MALLOC(i); - if (union_file_name == 0) no_space(); strcpy(action_file_name, tmpdir); strcpy(entry_file_name, tmpdir); strcpy(text_file_name, tmpdir); - strcpy(union_file_name, tmpdir); if (len && tmpdir[len - 1] != dirsep) { action_file_name[len] = dirsep; entry_file_name[len] = dirsep; text_file_name[len] = dirsep; - union_file_name[len] = dirsep; ++len; } strcpy(action_file_name + len, temp_form); strcpy(entry_file_name + len, temp_form); strcpy(text_file_name + len, temp_form); - strcpy(union_file_name + len, temp_form); action_file_name[len + 5] = 'a'; entry_file_name[len + 5] = 'e'; text_file_name[len + 5] = 't'; - union_file_name[len + 5] = 'u'; #ifdef HAS_MKSTEMP action_fd = mkstemp(action_file_name); @@ -339,14 +326,10 @@ void create_file_names(void) text_fd = mkstemp(text_file_name); if (text_fd == -1) open_error(text_file_name); - union_fd = mkstemp(union_file_name); - if (union_fd == -1) - open_error(union_file_name); #else mktemp(action_file_name); mktemp(entry_file_name); mktemp(text_file_name); - mktemp(union_file_name); #endif len = strlen(file_prefix); @@ -424,13 +407,6 @@ void open_files(void) defines_file = fopen(defines_file_name, "w"); if (defines_file == 0) open_error(defines_file_name); -#ifdef HAS_MKSTEMP - union_file = fdopen(union_fd, "w"); -#else - union_file = fopen(union_file_name, "w"); -#endif - if (union_file == 0) - open_error(union_file_name); } output_file = fopen(output_file_name, "w"); |