diff options
Diffstat (limited to 'tools/erlparse.lua')
| -rw-r--r-- | tools/erlparse.lua | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tools/erlparse.lua b/tools/erlparse.lua index fdef7e8c..a5cef464 100644 --- a/tools/erlparse.lua +++ b/tools/erlparse.lua @@ -12,12 +12,16 @@ local type, tonumber, tostring = type, tonumber, tostring; local file = nil; local last = nil; +local line = 1; local function read(expected) local ch; if last then ch = last; last = nil; - else ch = file:read(1); end - if expected and ch ~= expected then error("expected: "..expected.."; got: "..(ch or "nil")); end + else + ch = file:read(1); + if ch == "\n" then line = line + 1; end + end + if expected and ch ~= expected then error("expected: "..expected.."; got: "..(ch or "nil").." on line "..line); end return ch; end local function pushback(ch) |