From 6fa3afd4ef1db7709ba4fe07555ce14638e35e44 Mon Sep 17 00:00:00 2001 From: Matthew Wild Date: Thu, 25 Mar 2010 19:34:05 +0000 Subject: tools/erlparse: Report the line number when showing a syntax error in the input file --- tools/erlparse.lua | 8 ++++++-- 1 file 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) -- cgit v1.2.3