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 <vda.linux@googlemail.com>

1 files changed, 41 insertions, 46 deletions

diff --git a/miscutils/bc.c b/miscutils/bc.c
index 79f981eaf..0fdb2963c 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 <EOL> 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)