From 3ddb539624fe49b180cd0ea13ee22998678b867d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sat, 2 Nov 1996 22:39:26 -0800
Subject: [PATCH] sscanf(foo,bar,int gazonk) implemented
Rev: src/language.yacc:1.5
---
src/language.yacc | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/language.yacc b/src/language.yacc
index 03a0eff00b..5a1e2d157f 100644
--- a/src/language.yacc
+++ b/src/language.yacc
@@ -301,6 +301,7 @@ void fix_comp_stack(int sp)
%type <n> gauge
%type <n> lambda
%type <n> local_name_list
+%type <n> lvalue
%type <n> lvalue_list
%type <n> m_expr_list
%type <n> m_expr_list2
@@ -1140,8 +1141,15 @@ sscanf: F_SSCANF '(' expr0 ',' expr0 lvalue_list ')'
}
;
+lvalue: expr4
+ | type F_IDENTIFIER
+ {
+ add_local_name($2,pop_type());
+ $$=mklocalnode(islocal($2));
+ }
+
lvalue_list: /* empty */ { $$ = 0; }
- | ',' expr4 lvalue_list { $$ = mknode(F_LVALUE_LIST,$2,$3); }
+ | ',' lvalue lvalue_list { $$ = mknode(F_LVALUE_LIST,$2,$3); }
;
low_string: F_STRING
--
GitLab