Merge pull request #2886 from dkearns/improve-basic-support

Improve BASIC support
universal-ctags · Apr 5, 2021 · 8933d0f · 8933d0f
2 parents 068a16f + 5ada465
commit 8933d0f
Show file tree

Hide file tree

Showing 7 changed files with 18 additions and 1 deletion.
diff --git a/Units/parser-basic.r/basic-labels.d/expected.tags b/Units/parser-basic.r/basic-labels.d/expected.tags
@@ -0,0 +1 @@
+repeat	input.bas	/^repeat:$/;"	l
diff --git a/Units/parser-basic.r/basic-labels.d/input.bas b/Units/parser-basic.r/basic-labels.d/input.bas
@@ -0,0 +1,7 @@
+' This is not a label:
+REM This is not a label:
+
+repeat:
+PRINT "Going 'round again"
+GOTO repeat
+END
diff --git a/...eview-needed.r/simple.bas.t/expected.tags → ...parser-basic.r/simple.bas.d/expected.tags b/...eview-needed.r/simple.bas.t/expected.tags → ...parser-basic.r/simple.bas.d/expected.tags
diff --git a/Units/review-needed.r/simple.bas.t/input.bas → Units/parser-basic.r/simple.bas.d/input.bas b/Units/review-needed.r/simple.bas.t/input.bas → Units/parser-basic.r/simple.bas.d/input.bas
diff --git a/...review-needed.r/simple.bb.t/expected.tags → .../parser-basic.r/simple.bb.d/expected.tags b/...review-needed.r/simple.bb.t/expected.tags → .../parser-basic.r/simple.bb.d/expected.tags
diff --git a/Units/review-needed.r/simple.bb.t/input.bb → Units/parser-basic.r/simple.bb.d/input.bb b/Units/review-needed.r/simple.bb.t/input.bb → Units/parser-basic.r/simple.bb.d/input.bb
diff --git a/parsers/basic.c b/parsers/basic.c
@@ -173,6 +173,15 @@ static void findBasicTags (void)
 		if (!*p)
 			continue;
 
+		/* REM comment? */
+		if (strncasecmp (p, "REM", 3) == 0  &&
+			(isspace (*(p + 3)) || *(p + 3) == '\0'))
+			continue;
+
+		/* Single-quote comment? */
+		if (*p == '\'')
+			continue;
+
 		/* In Basic, keywords always are at the start of the line. */
 		for (kw = keywords; kw->token; kw++)
 			if (match_keyword (p, kw)) break;
@@ -187,7 +196,7 @@ static void findBasicTags (void)
 
 parserDefinition *BasicParser (void)
 {
-	static char const *extensions[] = { "bas", "bi", "bb", "pb", NULL };
+	static char const *extensions[] = { "bas", "bi", "bm", "bb", "pb", NULL };
 	parserDefinition *def = parserNew ("Basic");
 	def->kindTable = BasicKinds;
 	def->kindCount = ARRAY_SIZE (BasicKinds);