From 4900804b615ce659b2b1c82644fc5f2240345668 Mon Sep 17 00:00:00 2001 From: Sven Wischnowsky Date: Tue, 6 Jun 2000 08:35:54 +0000 Subject: make (e) flag be silent unless (X) is given, too (11768) --- Src/lex.c | 23 ++++++++++++++++------- 1 file changed, 16 insertions(+), 7 deletions(-) (limited to 'Src/lex.c') diff --git a/Src/lex.c b/Src/lex.c index f5c8d7bdd..644f8cf2b 100644 --- a/Src/lex.c +++ b/Src/lex.c @@ -1418,6 +1418,22 @@ dquote_parse(char endchar, int sub) /**/ mod_export int parsestr(char *s) +{ + int err; + + if ((err = parsestrnoerr(s))) { + untokenize(s); + if (err > 32 && err < 127) + zerr("parse error near `%c'", NULL, err); + else + zerr("parse error", NULL, 0); + } + return err; +} + +/**/ +mod_export int +parsestrnoerr(char *s) { int l = strlen(s), err; @@ -1434,13 +1450,6 @@ parsestr(char *s) inpop(); DPUTS(cmdsp, "BUG: parsestr: cmdstack not empty."); lexrestore(); - if (err) { - untokenize(s); - if (err > 32 && err < 127) - zerr("parse error near `%c'", NULL, err); - else - zerr("parse error", NULL, 0); - } return err; } -- cgit 1.4.1