Apple-2-SW/jsbasic
1
0
Fork 0
mirror of https://github.com/inexorabletash/jsbasic.git synced 2025-01-02 18:29:49 +00:00
Code Issues Projects Releases Wiki Activity

Fix parsing of unterminated strings in DATA statements

Browse Source 
Fixes #35
This commit is contained in:
Joshua Bell 2020-06-24 21:42:10 -07:00
parent 697ccd63e9
commit 2495381bcb
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basic.js
View File

@ -333,7 +333,7 @@ this.basic = (function() {
var parseDataInput = (function() { var parseDataInput = (function() {
var regexWhitespace = /^[ \t]+/, var regexWhitespace = /^[ \t]+/,
regexQuotedString = /^"([^"]*?)"/, regexQuotedString = /^"([^"]*?)(?:"|(?=\n|\r|$))/,
regexUnquotedString = /^[^:,\r\n]*/, regexUnquotedString = /^[^:,\r\n]*/,
regexComma = /^,/; regexComma = /^,/;

4
samples/sample.unittests.txt
View File

@ -384,6 +384,8 @@
6001 DATA 1,2,3 6001 DATA 1,2,3
6002 DATA "A","B","C" 6002 DATA "A","B","C"
6003 DATA A,B,C
6004 DATA "UNTERM,INATED
6010 T$ = "READ" 6010 T$ = "READ"
: RESTORE : RESTORE
@ -391,6 +393,8 @@
: READ T,U : S = (T=2 AND U=3) : GOSUB 1 : READ T,U : S = (T=2 AND U=3) : GOSUB 1
: READ A$ : S = (A$="A") : GOSUB 1 : READ A$ : S = (A$="A") : GOSUB 1
: READ A$,B$ : S = (A$="B" AND B$="C") : GOSUB 1 : READ A$,B$ : S = (A$="B" AND B$="C") : GOSUB 1
: READ A$,B$,C$ : S = (A$="A" AND B$="B" AND C$="C") : GOSUB 1
: READ A$ : S = (A$="UNTERM,INATED") : GOSUB 1
6020 T$ = "RESTORE" : RESTORE 6020 T$ = "RESTORE" : RESTORE
: READ T : S = (T=1) : GOSUB 1 : READ T : S = (T=1) : GOSUB 1