tweaked lisp/awklisp to run properly under qseawk

This commit is contained in:
hyung-hwan 2019-08-27 16:25:28 +00:00
parent da20a99a10
commit 165ecc7643

View File

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