add support for ' comments

Author: braindigitalis

os/programs/init.rrbasic

@@ -1,14 +1,13 @@
-GLOBAL LIB$ = "/programs/libraries"
+GLOBAL LIB$ = "/programs/libraries" ' Default library path
 
 PRINT "Mounting ";
 COLOR 14
 PRINT "filesystems";
 COLOR 7
 PRINT "..."
 
-MOUNT "/devices", "", "devfs"
+MOUNT "/devices", "", "devfs" ' Mount filesystems
 MOUNT "/boot", "hd0", "fat32"
-REM MOUNT "/harddisk", "hd0", "rfs"
 
 KEYMAP "qemu"
 

src/basic/main.c

@@ -54,6 +54,11 @@ char* clean_basic(const char* program, char* output_buffer)
 			bracket_depth++;
 		} else if (*p == ')' && !in_quotes) {
 			bracket_depth--;
+		} else if (*p == '\'' && bracket_depth == 0 && !in_quotes) {
+			/* If we see ' then skip it and anything after it to the end of the line or end of program */
+			while (*p && *p != '\r' && *p != '\n') {
+				p++;
+			}
 		}
 		if (!in_quotes && bracket_depth > 0) {
 			if (*p != ' ') {