d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Merge pull request #265 from davidgiven/dtrg-fixes

Browse source 
Make compatible with lua 5.1.
This commit is contained in:
David Given 2022-08-01 22:46:02 +02:00 committed by GitHub
parent 50d3354ccb 5dd6e8c856
commit afd6f30812
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
h/em_table_lib.lua
View file

@ -33,9 +33,9 @@ function load_table()
break break
end end
local _, _, name, num, flags = line:find("^(%w+)%s+(%d+)%s+(%g+)$") local _, _, name, num, flags = line:find("^(%w+)%s+(%d+)%s+([^ \t]+)$")
if not name then if not name then
error("malformed pseudo line in em_table") error("malformed pseudo line in em_table: ")
end end
pseudos[#pseudos+1] = { pseudos[#pseudos+1] = {
@ -54,7 +54,7 @@ function load_table()
break break
end end
local _, _, name, flags1, flags2 = line:find("^(%w+)%s+(%g+)%s+(%g+)$") local _, _, name, flags1, flags2 = line:find("^(%w+)%s+([^ \t]+)%s+([^ \t]+)$")
if not name then if not name then
error("malformed mnemonic line in em_table") error("malformed mnemonic line in em_table")
end end

2
util/ncgg/make_enterkeyw_c.lua
View file

@ -13,7 +13,7 @@ void enterkeyw(void) {
for line in io.stdin:lines() do for line in io.stdin:lines() do
if not line:find("^#") then if not line:find("^#") then
local _, _, w1, w2 = line:find("^(%g+)%s+(%g+)$") local _, _, w1, w2 = line:find("^([^ \t]+)%s+([^ \t]+)$")
print(string.format([[ print(string.format([[
lookup("%s", symkeyw, newsymbol)->sy_value.syv_keywno = %s; lookup("%s", symkeyw, newsymbol)->sy_value.syv_keywno = %s;
]], w1, w2)) ]], w1, w2))