From 5a4d934725d6bac1ec872532db5e2cfe6dd8d147 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Mon, 3 Apr 2017 19:51:41 +0200
Subject: [PATCH] string.c, gettok_instance(), insane workaround

reason:
  failure to swallow
     q ..... modelname m={(expr)}
  in
     get_number_terminals(char *c)
---
 src/misc/string.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/misc/string.c b/src/misc/string.c
index 91aea0786..651d590cf 100644
--- a/src/misc/string.c
+++ b/src/misc/string.c
@@ -414,6 +414,11 @@ gettok_noparens(char **s)
 }
 
 
+/*
+ * consider m={(nf*multi)}
+ *  shall be parsed as one token
+ */
+
 char *
 gettok_instance(char **s)
 {
@@ -431,6 +436,13 @@ gettok_instance(char **s)
            (**s != '(') &&
            (**s != ')')
         ) {
+        if (**s == '{') {
+            char *close = strchr(*s, '}');
+            if (close) {
+                *s = close;
+                continue;
+            }
+        }
         (*s)++;
     }
     token_e = *s;