Finding orphan code in smaug

-- pattern to detect a function declaration
pat = "[%a_]+%s+%*?%s*([%a%d_]+)%s*%b().-(%b{})"

olddir = "C:\\cygwin\\home\\Owner\\smaugfuss\\src\\"

funcs = {}

function process_function (name, body)
-- Note (" +++ function: " .. name)
  funcs [name] = 0
end -- process_function

function build_functions (name)
  local f, s

  print ("Looking for functions in: " .. name)
  f = assert (io.open (olddir .. name, "rb"))  -- open input
  s = f:read ("*a")  -- read all of it
  f:close ()  -- close it

  -- fix up imc strange function defs

  s = string.gsub (s, "PFUN%( ([%a%d_]+) %)",
                   "void %1( IMC_PACKET *q, char *packet )")
  s = string.gsub (s, "IMC_CMD%( ([%a%d_]+) %)",
                   "void %1( CHAR_DATA *ch, char *argument )")

  s = string.gsub (s, "'}'", "")  -- confuses function finding

  s = string.gsub (s, "/%*.-%*/", " ") -- remove comments

  s = string.gsub (s, "//.-\r?\n", "\n") -- remove comments

  string.gsub (s, pat, process_function)
 
end -- build_functions 

local t = assert (utils.readdir (olddir .. "*.c"))

for k in pairs (t) do
  build_functions (k)
end -- for

function count_it (name)
  if funcs [name] then
    funcs [name] = funcs [name] + 1
  end -- if
end -- count_it 

function check_xrefs (name)
  local f, s

  print ("Cross reference check in: " .. name)
  f = assert (io.open (olddir .. name, "rb"))  -- open input
  s = f:read ("*a")  -- read all of it
  f:close ()  -- close it

  string.gsub (s, "[%a%d_]+", count_it) 
end -- build_functions

for k in pairs (t) do
  check_xrefs (k)
end -- for

require "pairsbykeys"

for k, v in pairsByKeys (funcs) do
  if v <= 1 then
    if not string.match (k, "^do_") and
       not string.match (k, "^spell_") then
      print (k)
    end -- not likely to be spell or command
  end -- not referenced
end -- for