meta.c

#include "support.h"
static void meta_exp1(void);static void meta_exp3(void);static char *grammar_name={0};static char *error_handler={0};static void meta_var_descr(void){enter_parse_rule("meta_var_descr");do{start_user_token();{long entry_pos=pos;do{{long entry_pos=pos;read_literal("*");(void)entry_pos;if(test_flag){user_token_stack[utoken_stack_top-1]=pos-strlen(token);read_id();error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_id();(void)entry_pos;if(test_flag){user_token_stack[utoken_stack_top-1]=pos-strlen(token);}}}while(0);(void)entry_pos;if(test_flag){do{{long entry_pos=pos;{long entry_pos=pos;read_literal("[");pos=entry_pos;};test_flag=!test_flag;(void)entry_pos;if(test_flag){end_user_token();}}if(test_flag)break;{long entry_pos=pos;read_literal("[");(void)entry_pos;if(test_flag){do{{long entry_pos=pos;read_literal("++");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal("--");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;}}while(0);error_if_false();do{{long entry_pos=pos;read_number();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_id();(void)entry_pos;}}while(0);error_if_false();do{{long entry_pos=pos;read_literal("++");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal("--");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;}}while(0);error_if_false();read_literal("]");error_if_false();end_user_token();}}}while(0);error_if_false();}}}while(0);exit_parse_rule();}
static void meta_hex(void){enter_parse_rule("meta_hex");do{{long entry_pos=pos;read_any_between('0','9');(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_any_between('a','f');(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_any_between('A','F');(void)entry_pos;}}while(0);exit_parse_rule();}
static void meta_xchar(void){enter_parse_rule("meta_xchar");do{{long entry_pos=pos;read_literal("\\x");(void)entry_pos;if(test_flag){start_user_token();meta_hex();error_if_false();meta_hex();error_if_false();end_user_token();}}}while(0);exit_parse_rule();}
static void meta_xcharp(void){enter_parse_rule("meta_xcharp");do{{long entry_pos=pos;read_literal("\\x");(void)entry_pos;if(test_flag){emit("'");emit_token(false);meta_hex();error_if_false();emit_char(source[pos-1]);error_if_false();meta_hex();error_if_false();emit_char(source[pos-1]);error_if_false();emit("'");}}}while(0);exit_parse_rule();}
static void meta_arg(void){enter_parse_rule("meta_arg");do{{long entry_pos=pos;read_literal("$");(void)entry_pos;if(test_flag){emit("emit_token(true);");}}if(test_flag)break;{long entry_pos=pos;read_literal("%");(void)entry_pos;if(test_flag){emit("emit_token(false);");}}if(test_flag)break;{long entry_pos=pos;do{{long entry_pos=pos;read_literal("lf");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal("nl");(void)entry_pos;}}while(0);(void)entry_pos;if(test_flag){emit("emit_char('\\n');");}}if(test_flag)break;{long entry_pos=pos;read_literal("cr");(void)entry_pos;if(test_flag){emit("emit_char('\\r');");}}if(test_flag)break;{long entry_pos=pos;meta_var_descr();(void)entry_pos;if(test_flag){emit("emit(");emit_token(true);emit(");");}}if(test_flag)break;{long entry_pos=pos;meta_xchar();(void)entry_pos;if(test_flag){emit("emit_char('\\x");emit_token(true);emit("');");}}}while(0);exit_parse_rule();}
static void meta_output(void){enter_parse_rule("meta_output");do{{long entry_pos=pos;read_literal("{");(void)entry_pos;if(test_flag){do{do{{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit("emit(");emit_token(true);emit(");");}}if(test_flag)break;{long entry_pos=pos;meta_arg();(void)entry_pos;}}while(0);}while(test_flag);test_flag=true;error_if_false();read_literal("}");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal("<");(void)entry_pos;if(test_flag){do{do{{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit_token(false);}}}while(0);}while(test_flag);test_flag=true;error_if_false();read_literal(">");error_if_false();}}}while(0);exit_parse_rule();}
static void meta_space_control(void){enter_parse_rule("meta_space_control");do{{long entry_pos=pos;read_literal("\\");(void)entry_pos;if(test_flag){emit("ignore_whitespace=true;");}}if(test_flag)break;{long entry_pos=pos;read_literal("/");(void)entry_pos;if(test_flag){emit("ignore_whitespace=false;");}}}while(0);exit_parse_rule();}
static void meta_user_token_delim(void){enter_parse_rule("meta_user_token_delim");do{{long entry_pos=pos;read_literal(".token");(void)entry_pos;if(test_flag){emit("start_user_token();");}}if(test_flag)break;{long entry_pos=pos;read_literal(".adjtoken");(void)entry_pos;if(test_flag){emit("user_token_stack[utoken_stack_top-1]=pos-strlen(token);");}}if(test_flag)break;{long entry_pos=pos;read_literal(".deftoken");(void)entry_pos;if(test_flag){emit("end_user_token();");}}if(test_flag)break;{long entry_pos=pos;read_literal(".mute");(void)entry_pos;if(test_flag){emit("mute=true;");}}if(test_flag)break;{long entry_pos=pos;read_literal(".unmute");(void)entry_pos;if(test_flag){emit("mute=false;");}}if(test_flag)break;{long entry_pos=pos;read_literal(".capture");(void)entry_pos;if(test_flag){emit("if(capture)free(capture);capture=calloc(1,1);");}}if(test_flag)break;{long entry_pos=pos;read_literal(".defcapture");(void)entry_pos;if(test_flag){emit("capture_to_token();");}}}while(0);exit_parse_rule();}
static void meta_user_token_arg(void){enter_parse_rule("meta_user_token_arg");do{{long entry_pos=pos;read_number();(void)entry_pos;if(test_flag){emit_token(true);}}if(test_flag)break;{long entry_pos=pos;meta_xcharp();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_char_eq(39);(void)entry_pos;if(test_flag){emit_char(source[pos-1]);error_if_false();do{{long entry_pos=pos;read_char_eq(92);(void)entry_pos;if(test_flag){emit("\\\\");}}if(test_flag)break;{long entry_pos=pos;read_char_eq(39);(void)entry_pos;if(test_flag){emit("\\'");}}if(test_flag)break;{long entry_pos=pos;read_any_between(32,126);(void)entry_pos;if(test_flag){emit_char(source[pos-1]);error_if_false();}}}while(0);error_if_false();read_char_eq(39);error_if_false();emit_char(source[pos-1]);error_if_false();}}}while(0);exit_parse_rule();}
static void meta_user_tokens(void){enter_parse_rule("meta_user_tokens");do{{long entry_pos=pos;read_literal(".any(");(void)entry_pos;if(test_flag){emit("read_any_between(");meta_user_token_arg();error_if_false();read_literal(",");error_if_false();emit(",");meta_user_token_arg();error_if_false();read_literal(")");error_if_false();emit(");");}}if(test_flag)break;{long entry_pos=pos;read_literal(".but(");(void)entry_pos;if(test_flag){emit("read_any_but(");meta_user_token_arg();error_if_false();read_literal(",");error_if_false();emit(",");meta_user_token_arg();error_if_false();read_literal(")");error_if_false();emit(");");}}if(test_flag)break;{long entry_pos=pos;read_literal(".eq(");(void)entry_pos;if(test_flag){emit("read_char_eq(");meta_user_token_arg();error_if_false();read_literal(")");error_if_false();emit(");");}}if(test_flag)break;{long entry_pos=pos;read_literal(".neq(");(void)entry_pos;if(test_flag){emit("read_char_neq(");meta_user_token_arg();error_if_false();read_literal(")");error_if_false();emit(");");}}if(test_flag)break;{long entry_pos=pos;read_literal(".putc");(void)entry_pos;if(test_flag){emit("emit_char(source[pos-1]);");}}}while(0);exit_parse_rule();}
static void meta_errors(void){enter_parse_rule("meta_errors");do{{long entry_pos=pos;read_literal(".error(");(void)entry_pos;if(test_flag){read_string();error_if_false();emit("error(");emit_token(true);emit(");");read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".warn(");(void)entry_pos;if(test_flag){read_string();error_if_false();emit("warning(");emit_token(true);emit(");");read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".expect(");(void)entry_pos;if(test_flag){emit("expecting=");do{{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit_token(true);emit(";");}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;if(test_flag){emit("NULL;");}}}while(0);error_if_false();read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".unexpect(");(void)entry_pos;if(test_flag){emit("unexpected=");do{{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit_token(true);emit(";");}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;if(test_flag){emit("NULL;");}}}while(0);error_if_false();read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".reason(");(void)entry_pos;if(test_flag){emit("reason=");do{{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit_token(true);emit(";");}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;if(test_flag){emit("NULL;");}}}while(0);error_if_false();read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".failure");(void)entry_pos;if(test_flag){emit("test_flag=false;exit_parse_rule();return;");}}if(test_flag)break;{long entry_pos=pos;read_literal(".success");(void)entry_pos;if(test_flag){emit("test_flag=true;exit_parse_rule();return;");}}}while(0);exit_parse_rule();}
static void meta_user_vars(void){enter_parse_rule("meta_user_vars");do{{long entry_pos=pos;read_literal(".bind(");(void)entry_pos;if(test_flag){read_id();error_if_false();emit("char *");emit_token(true);emit("=token;token=NULL;");read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".var(");(void)entry_pos;if(test_flag){meta_var_descr();error_if_false();emit("char ");emit_token(true);emit("={0};");read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".long(");(void)entry_pos;if(test_flag){meta_var_descr();error_if_false();emit("long ");emit_token(true);emit("=");do{{long entry_pos=pos;read_literal(",");(void)entry_pos;if(test_flag){do{{long entry_pos=pos;read_literal("-");(void)entry_pos;if(test_flag){emit_token(true);ignore_whitespace=true;}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;}}while(0);error_if_false();read_number();error_if_false();ignore_whitespace=false;emit_token(true);emit(";");}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;if(test_flag){emit("{0};");}}}while(0);error_if_false();read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".bool(");(void)entry_pos;if(test_flag){meta_var_descr();error_if_false();emit("bool ");emit_token(true);emit("=");do{{long entry_pos=pos;read_literal(",");(void)entry_pos;if(test_flag){do{{long entry_pos=pos;read_literal("true");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal("false");(void)entry_pos;}}while(0);error_if_false();emit_token(true);emit(";");}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;if(test_flag){emit("false;");}}}while(0);error_if_false();read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".ltoa(");(void)entry_pos;if(test_flag){meta_var_descr();error_if_false();emit("sprintf(");emit_token(true);read_literal(",");error_if_false();meta_var_descr();error_if_false();emit(",\"%ld\",");emit_token(true);emit(");");read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".set(");(void)entry_pos;if(test_flag){meta_var_descr();error_if_false();emit_token(true);emit("=token;token=NULL;");read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".concat(");(void)entry_pos;if(test_flag){meta_var_descr();error_if_false();emit("concatstr(");emit_token(true);emit(",token);");read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".clear(");(void)entry_pos;if(test_flag){meta_var_descr();error_if_false();emit("free(");emit_token(true);emit(");");read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".ifte(");(void)entry_pos;if(test_flag){meta_var_descr();error_if_false();emit("if(");emit_token(true);emit(")emit(");emit_token(true);emit(");else emit(");read_literal(",");error_if_false();read_string();error_if_false();emit_token(true);emit(");");read_literal(")");error_if_false();}}}while(0);exit_parse_rule();}
static void meta_builtin_tokens(void){enter_parse_rule("meta_builtin_tokens");do{{long entry_pos=pos;read_literal(".id");(void)entry_pos;if(test_flag){emit("read_id();");}}if(test_flag)break;{long entry_pos=pos;read_literal(".number");(void)entry_pos;if(test_flag){emit("read_number();");}}if(test_flag)break;{long entry_pos=pos;read_literal(".string");(void)entry_pos;if(test_flag){emit("read_string();");}}if(test_flag)break;{long entry_pos=pos;read_literal(".space");(void)entry_pos;if(test_flag){emit("skip_whitespace();");}}}while(0);exit_parse_rule();}
static void meta_option_capture(void){enter_parse_rule("meta_option_capture");do{{long entry_pos=pos;read_literal("^");(void)entry_pos;if(test_flag){if(capture)free(capture);capture=calloc(1,1);meta_exp3();error_if_false();capture_to_token();}}}while(0);exit_parse_rule();}
static void meta_multiple_optionals(void){enter_parse_rule("meta_multiple_optionals");do{char *opts_stack[STACK_DEPTH]={0};long last_opt=2;char idx[10]={0};{long entry_pos=pos;meta_option_capture();(void)entry_pos;if(test_flag){opts_stack[0]=token;token=NULL;meta_option_capture();error_if_false();opts_stack[1]=token;token=NULL;do{do{if(last_opt==STACK_DEPTH-1){error("excess of optionals");}{long entry_pos=pos;meta_option_capture();(void)entry_pos;if(test_flag){opts_stack[last_opt++]=token;token=NULL;}}}while(0);}while(test_flag);test_flag=true;error_if_false();sprintf(idx,"%ld",last_opt);emit("do{bool expr_results[");emit(idx);emit("];bool at_least_one=false;");for(long a=0;a<last_opt;a++){sprintf(idx,"%ld",a);emit("do{");emit(opts_stack[a]);emit("}while(0);");emit("at_least_one|=expr_results[");emit(idx);emit("]=test_flag;");}for(long a=0;a<last_opt;a++){sprintf(idx,"%ld",a);emit("if(!expr_results[");emit(idx);emit("])do{");emit(opts_stack[a]);free(opts_stack[a]);emit("at_least_one|=test_flag;}while(0);");}emit("test_flag=at_least_one;}while(0);");}}}while(0);exit_parse_rule();}
static void meta_comment(void){enter_parse_rule("meta_comment");do{{long entry_pos=pos;read_literal("%");(void)entry_pos;if(test_flag){do{read_char_neq(10);}while(test_flag);test_flag=true;error_if_false();}}}while(0);exit_parse_rule();}
static void meta_exp3(void){enter_parse_rule("meta_exp3");do{{long entry_pos=pos;read_id();(void)entry_pos;if(test_flag){emit(grammar_name);emit("_");emit_token(true);emit("();");}}if(test_flag)break;{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit("read_literal(");emit_token(true);emit(");");}}if(test_flag)break;{long entry_pos=pos;meta_builtin_tokens();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_user_tokens();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal("(");(void)entry_pos;if(test_flag){meta_exp1();error_if_false();expecting="a close parenthesis";read_literal(")");error_if_false();}}if(test_flag)break;{long entry_pos=pos;read_literal(".e");(void)entry_pos;if(test_flag){emit("test_flag=true;");}}if(test_flag)break;{long entry_pos=pos;read_literal("*");(void)entry_pos;if(test_flag){emit("do{");expecting="an expression";meta_exp3();error_if_false();emit("}while(test_flag);test_flag=true;");}}if(test_flag)break;{long entry_pos=pos;read_literal("!");(void)entry_pos;if(test_flag){emit("{long entry_pos=pos;");expecting="an expression";meta_exp3();error_if_false();emit("pos=entry_pos;};test_flag=!test_flag;");}}if(test_flag)break;{long entry_pos=pos;meta_multiple_optionals();(void)entry_pos;}}while(0);exit_parse_rule();}
static void meta_dont_use_flag(void){enter_parse_rule("meta_dont_use_flag");do{{long entry_pos=pos;meta_user_token_delim();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_output();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_space_control();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_errors();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_user_vars();(void)entry_pos;}}while(0);exit_parse_rule();}
static void meta_lookup_body(void){enter_parse_rule("meta_lookup_body");do{{long entry_pos=pos;meta_dont_use_flag();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_exp3();(void)entry_pos;if(test_flag){emit("if(!test_flag)pos=entry_pos;");}}}while(0);exit_parse_rule();}
static void meta_lookup_extension(void){enter_parse_rule("meta_lookup_extension");do{{long entry_pos=pos;read_literal("&");(void)entry_pos;if(test_flag){emit("if(test_flag){");expecting="an expression";meta_lookup_body();error_if_false();emit("}");}}}while(0);exit_parse_rule();}
static void meta_tested_exp3(void){enter_parse_rule("meta_tested_exp3");do{{long entry_pos=pos;meta_exp3();(void)entry_pos;if(test_flag){emit("error_if_false();");}}}while(0);exit_parse_rule();}
static void meta_followed_body(void){enter_parse_rule("meta_followed_body");do{{long entry_pos=pos;meta_dont_use_flag();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_tested_exp3();(void)entry_pos;}}while(0);exit_parse_rule();}
static void meta_if_lookup_ok(void){enter_parse_rule("meta_if_lookup_ok");do{{long entry_pos=pos;{long entry_pos=pos;do{{long entry_pos=pos;read_literal(";");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal("|");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal(")");(void)entry_pos;}}while(0);pos=entry_pos;};test_flag=!test_flag;(void)entry_pos;if(test_flag){emit("if(test_flag){");do{meta_followed_body();}while(test_flag);test_flag=true;error_if_false();emit("}");}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;}}while(0);exit_parse_rule();}
static void meta_no_lookup(void){enter_parse_rule("meta_no_lookup");do{{long entry_pos=pos;read_literal(".force");(void)entry_pos;if(test_flag){do{meta_dont_use_flag();}while(test_flag);test_flag=true;error_if_false();expecting="a recognizer expression";meta_tested_exp3();error_if_false();do{do{expecting="an expression";{long entry_pos=pos;meta_followed_body();(void)entry_pos;}}while(0);}while(test_flag);test_flag=true;error_if_false();}}}while(0);exit_parse_rule();}
static void meta_exp3_seq(void){enter_parse_rule("meta_exp3_seq");do{{long entry_pos=pos;{long entry_pos=pos;do{{long entry_pos=pos;read_literal(";");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal("|");(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;read_literal(")");(void)entry_pos;}}while(0);pos=entry_pos;};test_flag=!test_flag;(void)entry_pos;if(test_flag){emit("{long entry_pos=pos;");meta_exp3();error_if_false();do{{long entry_pos=pos;meta_lookup_extension();(void)entry_pos;if(test_flag){do{meta_lookup_extension();}while(test_flag);test_flag=true;error_if_false();}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;if(test_flag){emit("(void)entry_pos;");}}}while(0);error_if_false();meta_if_lookup_ok();error_if_false();emit("}");}}}while(0);exit_parse_rule();}
static void meta_exp2(void){enter_parse_rule("meta_exp2");do{{long entry_pos=pos;meta_dont_use_flag();(void)entry_pos;if(test_flag){do{meta_dont_use_flag();}while(test_flag);test_flag=true;error_if_false();do{{long entry_pos=pos;meta_no_lookup();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_exp3_seq();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;}}while(0);error_if_false();}}if(test_flag)break;{long entry_pos=pos;meta_no_lookup();(void)entry_pos;}if(test_flag)break;{long entry_pos=pos;meta_exp3_seq();(void)entry_pos;}}while(0);exit_parse_rule();}
static void meta_exp1(void){enter_parse_rule("meta_exp1");do{{long entry_pos=pos;read_literal("continue");(void)entry_pos;if(test_flag){test_flag=true;exit_parse_rule();return;}}if(test_flag)break;emit("do{");expecting="a sequence of expressions";{long entry_pos=pos;meta_exp2();(void)entry_pos;if(test_flag){do{meta_comment();}while(test_flag);test_flag=true;error_if_false();do{do{{long entry_pos=pos;read_literal("|");(void)entry_pos;if(test_flag){emit("if(test_flag)break;");expecting="a sequence of expressions";meta_exp2();error_if_false();do{meta_comment();}while(test_flag);test_flag=true;error_if_false();}}}while(0);}while(test_flag);test_flag=true;error_if_false();emit("}while(0);");}}}while(0);exit_parse_rule();}
static void meta_stat(void){enter_parse_rule("meta_stat");do{{long entry_pos=pos;meta_comment();(void)entry_pos;}if(test_flag)break;expecting="a grammar rule identifier";{long entry_pos=pos;read_id();(void)entry_pos;if(test_flag){emit("static void ");emit(grammar_name);emit("_");emit_token(true);emit("(void)");emit("{enter_parse_rule(\"");emit(grammar_name);emit("_");emit_token(true);emit("\");");expecting="an equal sign";read_literal("=");error_if_false();expecting="a sequence of expressions";meta_exp1();error_if_false();expecting="a ; terminator";read_literal(";");error_if_false();emit("exit_parse_rule();}\n");}}}while(0);exit_parse_rule();}
static void meta_on_error(void){enter_parse_rule("meta_on_error");do{{long entry_pos=pos;read_literal(".on_error");(void)entry_pos;if(test_flag){expecting="a grammar rule identifier";read_id();error_if_false();error_handler=token;token=NULL;expecting="a ; terminator";read_literal(";");error_if_false();}}}while(0);exit_parse_rule();}
static void meta_init_expr(void){enter_parse_rule("meta_init_expr");do{{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit_token(false);}}if(test_flag)break;{long entry_pos=pos;read_id();(void)entry_pos;if(test_flag){emit("static void ");emit(grammar_name);emit("_");emit_token(true);emit("(void);");}}if(test_flag)break;{long entry_pos=pos;{long entry_pos=pos;read_literal(";");pos=entry_pos;};test_flag=!test_flag;(void)entry_pos;if(test_flag){emit("static ");meta_user_vars();error_if_false();}}}while(0);exit_parse_rule();}
static void meta_initialize(void){enter_parse_rule("meta_initialize");do{{long entry_pos=pos;read_literal(".initialize");(void)entry_pos;if(test_flag){expecting="a sequence of code instructions (strings, grammar rule mentions or vars)";meta_init_expr();error_if_false();do{meta_init_expr();}while(test_flag);test_flag=true;error_if_false();expecting="a ; terminator";read_literal(";");error_if_false();}}}while(0);exit_parse_rule();}
static void meta_final_expr(void){enter_parse_rule("meta_final_expr");do{{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit_token(false);}}if(test_flag)break;{long entry_pos=pos;read_id();(void)entry_pos;if(test_flag){emit(grammar_name);emit("_");emit_token(true);emit("();");}}if(test_flag)break;{long entry_pos=pos;{long entry_pos=pos;read_literal(";");pos=entry_pos;};test_flag=!test_flag;(void)entry_pos;if(test_flag){emit("static ");meta_user_vars();error_if_false();}}}while(0);exit_parse_rule();}
static void meta_finalize(void){enter_parse_rule("meta_finalize");do{expecting="a compiler mode directive (.end,.multiple,.test,.finalize)";emit("int main(int argc,char *argv[]){");if(error_handler!=NULL){emit("on_error=");emit(grammar_name);emit("_");emit(error_handler);emit(";");}{long entry_pos=pos;do{{long entry_pos=pos;read_literal(".end");(void)entry_pos;if(test_flag){expecting="a grammar rule identifier";read_id();error_if_false();emit("(void)argc,(void)argv;");emit("return first_into_second(argc,argv,");emit(grammar_name);emit("_");emit_token(true);emit(");");}}if(test_flag)break;{long entry_pos=pos;read_literal(".multiple");(void)entry_pos;if(test_flag){expecting="a file extension (string)";read_string();error_if_false();char *extension=token;token=NULL;expecting="a grammar rule identifier";read_id();error_if_false();emit("(void)argc,(void)argv;");emit("multiple_files(argc,argv,");emit(extension);emit(",");emit(grammar_name);emit("_");emit_token(true);emit(");return 0;");}}if(test_flag)break;{long entry_pos=pos;read_literal(".test");(void)entry_pos;if(test_flag){expecting="a grammar rule identifier (optionally a maximum input size)";read_id();error_if_false();char *func_name=token;token=NULL;char *max_input_size={0};do{{long entry_pos=pos;read_number();(void)entry_pos;if(test_flag){max_input_size=token;token=NULL;}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;}}while(0);error_if_false();emit("(void)argc,(void)argv;");emit("return test(");if(max_input_size)emit(max_input_size);else emit("4194304");emit(",");emit(grammar_name);emit("_");emit(func_name);emit(");");}}if(test_flag)break;{long entry_pos=pos;read_literal(".finalize");(void)entry_pos;if(test_flag){expecting="a sequence of code instructions (strings, grammar rule mentions or vars)";meta_final_expr();error_if_false();do{meta_final_expr();}while(test_flag);test_flag=true;error_if_false();}}}while(0);(void)entry_pos;if(test_flag){emit("}\n");expecting="a ; terminator";read_literal(";");error_if_false();}}}while(0);exit_parse_rule();}
static void meta_program(void){enter_parse_rule("meta_program");do{expecting="a .syntax directive";read_literal(".syntax");error_if_false();expecting="a grammar name";skip_whitespace();error_if_false();read_id();error_if_false();grammar_name=token;token=NULL;expecting="a ; terminator (optionally, the path to a support.h file)";do{{long entry_pos=pos;read_string();(void)entry_pos;if(test_flag){emit("#include \"");emit_token(false);emit("/support.h\"\n");}}if(test_flag)break;{long entry_pos=pos;test_flag=true;(void)entry_pos;if(test_flag){emit("#include \"support.h\"\n");}}}while(0);error_if_false();read_literal(";");error_if_false();do{bool expr_results[4];bool at_least_one=false;do{meta_initialize();}while(0);at_least_one|=expr_results[0]=test_flag;do{meta_on_error();}while(0);at_least_one|=expr_results[1]=test_flag;do{meta_comment();}while(0);at_least_one|=expr_results[2]=test_flag;do{test_flag=true;}while(0);at_least_one|=expr_results[3]=test_flag;if(!expr_results[0])do{meta_initialize();at_least_one|=test_flag;}while(0);if(!expr_results[1])do{meta_on_error();at_least_one|=test_flag;}while(0);if(!expr_results[2])do{meta_comment();at_least_one|=test_flag;}while(0);if(!expr_results[3])do{test_flag=true;at_least_one|=test_flag;}while(0);test_flag=at_least_one;}while(0);error_if_false();do{meta_stat();}while(test_flag);test_flag=true;error_if_false();meta_finalize();error_if_false();}while(0);exit_parse_rule();}
int main(int argc,char *argv[]){(void)argc,(void)argv;return first_into_second(argc,argv,meta_program);}