-- errors.lua: -- This file: -- http://angg.twu.net/dednat6/dednat6/errors.lua.html -- http://angg.twu.net/dednat6/dednat6/errors.lua -- (find-angg "dednat6/dednat6/errors.lua") -- Author: Eduardo Ochs -- Version: 2011feb27 / 2021jan24 -- License: GPL3 -- require "eoo" -- (find-dn6 "eoo.lua") -- I wrote the functions below in 2011 and I think that I've never -- used them in public code (TODO: check this!)... in 2021 they were -- superseded by: -- (find-dn6 "parse.lua" "getword-with-errmsgs") error_ = function (str) print((fname or "")..":"..(nline or "")..":"..(str or "?")) printf(" (find-fline %q %d)", (fname or ""), (nline or 0)) error() end Error = function (str) -- generic error error_(" "..(str or "?")) end FError = function (str) -- error in a Forth word error_((word or "")..": "..(str or "?")) end FGetword = function (str) return getword() or FError(str or "missing argument") end FGetword = function () return getword() or FError("missing argument") end FGetword1 = function () return getword() or FError("missing 1st argument") end FGetword2 = function () return getword() or FError("missing 2nd argument") end -- Local Variables: -- coding: utf-8-unix -- End: