bc: Obey POSIX about handling newlines - sbase - suckless unix tools
(HTM) git clone git://git.suckless.org/sbase
(DIR) Log
(DIR) Files
(DIR) Refs
(DIR) README
(DIR) LICENSE
---
(DIR) commit e43f97dba453bde1833e5c25a9af2d2b0eaf2e0c
(DIR) parent 4d7926403e6860a915d2f3de5f6fe2b297ebb2e4
(HTM) Author: Roberto E. Vargas Caballero <k0ga@shike2.net>
Date: Wed, 26 Nov 2025 08:47:56 +0100
bc: Obey POSIX about handling newlines
POIX has strict rules about when operations should be performed
and even when we were already matching this due to the line
buffering of stdin it makes more sense to make it more explicit.
In an interactive invocation of bc, each time a <newline>
is read that satisfies the grammatical production:
input_item : semicolon_list NEWLINE
the sequential list of statements making up the semicolon_list
shall be executed immediately and any output produced by
that execution shall be written without any delay due to
buffering.
Diffstat:
M bc.y | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
---
(DIR) diff --git a/bc.y b/bc.y
@@ -91,7 +91,8 @@ int cflag, dflag, lflag, sflag;
%token AUTO
%token PRINT
-%type <str> assign nexpr expr exprstat rel stat ary statlst cond
+%type <str> statlst scolonlst
+%type <str> assign nexpr expr exprstat rel stat ary cond
%type <str> autolst arglst parlst
%type <str> params param locals local
%type <macro> def if for while
@@ -109,13 +110,13 @@ program :
| item program {used = 0;}
;
-item : scolonlst '\n'
+item : scolonlst '\n' {writeout($1);}
| def parlst '{' '\n' autolst statlst '}' {funcode($1, $2, $5, $6);}
;
-scolonlst:
- | stat {writeout($1);}
- | scolonlst ';' stat {writeout($3);}
+scolonlst: {$$ = code("");}
+ | stat
+ | scolonlst ';' stat {$$ = code("%s%s", $1, $3);}
| scolonlst ';'
;