basic: skip () pairs and "" strings in variable declarations

The current code gets confused when ',' appears inside () parens or
inside "" strings. Fix that by skipping these.

Fixes geany/geany#2461

Author: techee

Units/parser-basic.r/simple.bas.d/expected.tags

@@ -7,6 +7,9 @@ f	input.bas	/^Function f()$/;"	f
 g	input.bas	/^dim shared as string g$/;"	v
 h	input.bas	/^dim as string ptr h$/;"	v
 i	input.bas	/^dim as string * 4096 i$/;"	v
+j	input.bas	/^dim j as string="Export_GIR_FULL_"+mid(date,7)+","+mid(date,1,2)+""+mid(date,4,2)+".csv"$/;"	v
+k	input.bas	/^dim as string k="Export_GIR_FULL_"+mid(date(),"(")+","+mid(date,1,2)+""+mid(date,4,2)+".csv", l$/;"	v
+l	input.bas	/^dim as string k="Export_GIR_FULL_"+mid(date(),"(")+","+mid(date,1,2)+""+mid(date,4,2)+".csv", l$/;"	v
 one	input.bas	/^Const one = 1$/;"	c
 start	input.bas	/^start:$/;"	l
 str	input.bas	/^DIM AS STRING str$/;"	v

Units/parser-basic.r/simple.bas.d/input.bas

@@ -9,6 +9,8 @@ dim as string c(20), d="a", e
 dim shared as string g
 dim as string ptr h
 dim as string * 4096 i
+dim j as string="Export_GIR_FULL_"+mid(date,7)+","+mid(date,1,2)+""+mid(date,4,2)+".csv"
+dim as string k="Export_GIR_FULL_"+mid(date(),"(")+","+mid(date,1,2)+""+mid(date,4,2)+".csv", l
 
 Type test
     a As Integer

parsers/basic.c

@@ -81,6 +81,41 @@ static KeyWord basic_keywords[] = {
  *   FUNCTION DEFINITIONS
  */
 
+static const char *skipToMatching (char begin, char end, const char *pos)
+{
+	int counter = 1;
+	pos++;
+	while (*pos && counter > 0)
+	{
+		if (*pos == end)
+			counter--;
+		else if (*pos == begin)
+			counter++;
+		else if (*pos == '"')
+			pos = skipToMatching ('"', '"', pos) - 1;
+		pos++;
+	}
+	return pos;
+}
+
+static const char *nextPos (const char *pos)
+{
+	if (*pos == '\0')
+		return pos;
+
+	pos++;
+	switch (*pos)
+	{
+		case '(':
+			pos = skipToMatching ('(', ')', pos);
+			break;
+		case '"':
+			pos = skipToMatching ('"', '"', pos);
+			break;
+	}
+	return pos;
+}
+
 static bool isIdentChar (char c)
 {
 	return c && !isspace (c) && c != '(' && c != ',' && c != '=';
@@ -134,7 +169,7 @@ static void extract_dim (char const *pos, BasicKind kind)
 	{
 		/* skip all we don't need(e.g. "..., new_array(5), " we skip "(5)") */
 		while (*pos != ',' && *pos != '\'' && *pos)
-			pos++;
+			pos = nextPos (pos);
 
 		if (*pos == '\'')
 			break; /* break if we are in a comment */