From 1fbe35a7d8579d53df0f4f70b31ba8b272099b7c Mon Sep 17 00:00:00 2001 From: Denys Vlasenko Date: Tue, 25 Dec 2018 19:38:13 +0100 Subject: bc: make zbc_program_read() and zdc_program_execStr() use G.prs function old new delta zbc_program_print 656 683 +27 zbc_program_exec 3976 4003 +27 zdc_program_execStr 512 524 +12 bc_num_printNewline 45 54 +9 bc_num_printHex 61 67 +6 bc_num_printDigits 131 137 +6 dc_num_printChar 21 24 +3 bc_vm_init 675 678 +3 zbc_program_assign 424 426 +2 bc_read_line 410 407 -3 bc_verror_msg 99 93 -6 zbc_lex_next 2167 2158 -9 zbc_vm_execute_FILE 67 55 -12 ------------------------------------------------------------------------------ (add/remove: 0/0 grow/shrink: 9/4 up/down: 95/-30) Total: 65 bytes Signed-off-by: Denys Vlasenko --- miscutils/bc.c | 87 +++++++++++++++++++++++++++------------------------------- 1 file changed, 41 insertions(+), 46 deletions(-) (limited to 'miscutils') diff --git a/miscutils/bc.c b/miscutils/bc.c index 79f981e..0fdb296 100644 --- a/miscutils/bc.c +++ b/miscutils/bc.c @@ -737,6 +737,9 @@ typedef struct BcParse { IF_BC(BcVec conds;) IF_BC(BcVec ops;) + const char *filename; + FILE *input_fp; + BcFunc *func; size_t fidx; @@ -766,8 +769,6 @@ typedef struct BcProgram { IF_DC(BcVec strs;) IF_DC(BcVec consts;) - const char *file; - BcNum zero; IF_BC(BcNum one;) IF_BC(BcNum last;) @@ -841,7 +842,6 @@ struct globals { BcVec files; BcVec input_buffer; - FILE *input_fp; char *env_args; @@ -936,12 +936,12 @@ static void quit(void) static void bc_verror_msg(const char *fmt, va_list p) { const char *sv = sv; // for compiler - if (G.prog.file) { + if (G.prs.filename) { sv = applet_name; - applet_name = xasprintf("%s: %s:%u", applet_name, G.prog.file, G.err_line); + applet_name = xasprintf("%s: %s:%u", applet_name, G.prs.filename, G.err_line); } bb_verror_msg(fmt, p, NULL); - if (G.prog.file) { + if (G.prs.filename) { free((char*)applet_name); applet_name = sv; } @@ -2581,12 +2581,12 @@ static void bc_read_line(BcVec *vec, FILE *fp) if (bad_chars) { // Bad chars on this line - if (!G.prog.file) { // stdin + if (!G.prs.filename) { // stdin // ignore entire line, get another one vec->len = len; goto again; } - bb_perror_msg_and_die("file '%s' is not text", G.prog.file); + bb_perror_msg_and_die("file '%s' is not text", G.prs.filename); } bc_vec_pushZeroByte(vec); } @@ -2905,7 +2905,7 @@ static bool bc_lex_more_input(BcLex *l) size_t prevlen = G.input_buffer.len; char *string; - bc_read_line(&G.input_buffer, G.input_fp); + bc_read_line(&G.input_buffer, G.prs.input_fp); // No more input means EOF if (G.input_buffer.len <= prevlen + 1) // (we expect +1 for NUL byte) break; @@ -2983,10 +2983,10 @@ static BC_STATUS zbc_lex_next(BcLex *l) do { if (l->i == l->len) { l->lex = XC_LEX_EOF; - if (!G.input_fp) + if (!G.prs.input_fp) RETURN_STATUS(BC_STATUS_SUCCESS); if (!bc_lex_more_input(l)) { - G.input_fp = NULL; + G.prs.input_fp = NULL; RETURN_STATUS(BC_STATUS_SUCCESS); } // here it's guaranteed that l->i is below l->len @@ -5256,35 +5256,32 @@ static BC_STATUS zbc_program_op(char inst) static BC_STATUS zbc_program_read(void) { - const char *sv_file; BcStatus s; - BcParse parse; + BcParse sv_parse; BcVec buf; BcInstPtr ip; BcFunc *f; - f = bc_program_func(BC_PROG_READ); - bc_vec_pop_all(&f->code); - - sv_file = G.prog.file; - G.prog.file = NULL; - bc_char_vec_init(&buf); bc_read_line(&buf, stdin); - bc_parse_create(&parse, BC_PROG_READ); - bc_lex_file(&parse.l); + f = bc_program_func(BC_PROG_READ); + bc_vec_pop_all(&f->code); - s = zbc_parse_text_init(&parse, buf.v); + sv_parse = G.prs; // struct copy + bc_parse_create(&G.prs, BC_PROG_READ); + //bc_lex_file(&G.prs.l); - not needed, error line info is not printed for read() + + s = zbc_parse_text_init(&G.prs, buf.v); if (s) goto exec_err; if (IS_BC) { - IF_BC(s = zbc_parse_expr(&parse, 0)); + IF_BC(s = zbc_parse_expr(&G.prs, 0)); } else { - IF_DC(s = zdc_parse_exprs_until_eof(&parse)); + IF_DC(s = zdc_parse_exprs_until_eof(&G.prs)); } if (s) goto exec_err; - if (parse.l.lex != XC_LEX_NLINE && parse.l.lex != XC_LEX_EOF) { + if (G.prs.l.lex != XC_LEX_NLINE && G.prs.l.lex != XC_LEX_EOF) { s = bc_error("bad read() expression"); goto exec_err; } @@ -5293,11 +5290,12 @@ static BC_STATUS zbc_program_read(void) ip.inst_idx = 0; IF_BC(ip.results_len_before_call = G.prog.results.len;) - bc_parse_push(&parse, XC_INST_RET); + bc_parse_push(&G.prs, XC_INST_RET); bc_vec_push(&G.prog.exestack, &ip); + exec_err: - bc_parse_free(&parse); - G.prog.file = sv_file; + bc_parse_free(&G.prs); + G.prs = sv_parse; // struct copy bc_vec_free(&buf); RETURN_STATUS(s); } @@ -6402,30 +6400,27 @@ static BC_STATUS zdc_program_execStr(char *code, size_t *bgn, bool cond) f = bc_program_func(fidx); if (f->code.len == 0) { - FILE *sv_input_fp; - BcParse prs; + BcParse sv_parse; char *str; - bc_parse_create(&prs, fidx); + sv_parse = G.prs; // struct copy + bc_parse_create(&G.prs, fidx); str = *bc_program_str(sidx); - s = zbc_parse_text_init(&prs, str); + s = zbc_parse_text_init(&G.prs, str); if (s) goto err; - sv_input_fp = G.input_fp; - G.input_fp = NULL; // "do not read from input file when reached" - s = zdc_parse_exprs_until_eof(&prs); - G.input_fp = sv_input_fp; - + s = zdc_parse_exprs_until_eof(&G.prs); if (s) goto err; - if (prs.l.lex != XC_LEX_EOF) { + bc_parse_push(&G.prs, DC_INST_POP_EXEC); + if (G.prs.l.lex != XC_LEX_EOF) s = bc_error_bad_expression(); + bc_parse_free(&G.prs); + G.prs = sv_parse; // struct copy + if (s) { err: - bc_parse_free(&prs); bc_vec_pop_all(&f->code); goto exit; } - bc_parse_push(&prs, DC_INST_POP_EXEC); - bc_parse_free(&prs); } ip.inst_idx = 0; @@ -6871,12 +6866,12 @@ static BC_STATUS zbc_vm_process(const char *text) static BC_STATUS zbc_vm_execute_FILE(FILE *fp, const char *filename) { // So far bc/dc have no way to include a file from another file, - // therefore we know G.prog.file == NULL on entry + // therefore we know G.prs.filename == NULL on entry //const char *sv_file; BcStatus s; - G.prog.file = filename; - G.input_fp = fp; + G.prs.filename = filename; + G.prs.input_fp = fp; bc_lex_file(&G.prs.l); do { @@ -6885,8 +6880,8 @@ static BC_STATUS zbc_vm_execute_FILE(FILE *fp, const char *filename) // Example: start interactive bc and enter "return". // It should say "'return' not in a function" // but should not exit. - } while (G.input_fp == stdin); - G.prog.file = NULL; + } while (G.prs.input_fp == stdin); + G.prs.filename = NULL; RETURN_STATUS(s); } #define zbc_vm_execute_FILE(...) (zbc_vm_execute_FILE(__VA_ARGS__) COMMA_SUCCESS) -- cgit v1.1