hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tweaked lisp/awklisp to run properly under qseawk

Browse Source
This commit is contained in:
hyung-hwan
2019-08-27 16:25:28 +00:00
parent da20a99a10
commit 165ecc7643
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
qse/regress/awk/lisp/awklisp
View File

@ -467,8 +467,10 @@ function advance()
} }
} }
if (match(line, "^[()'.]") || if (match(line, "^[()'.]") ||
match(line, "^[_A-Za-z0-9=!@$%&*<>?+\\-*/:]+") || ##match(line, "^[_A-Za-z0-9=!@$%&*<>?+\\-*/:]+") ||
match(line, "^[ \\t]+")) { match(line, "^[-_A-Za-z0-9=!@$%&*<>?+\\*/:]+") ||
##match(line, "^[ \\t]+")) {
match(line, "^[ \t]+")) {
token = substr(line, RSTART, RLENGTH) token = substr(line, RSTART, RLENGTH)
line = substr(line, RLENGTH+1) line = substr(line, RLENGTH+1)
} else if (line == "" || substr(line, 1, 1) == ";") } else if (line == "" || substr(line, 1, 1) == ";")