Gammon Forum

pairsbykeys = require "pairsbykeys"

for _, t in ipairs {"math", 
  "io", 
  "debug", 
  "coroutine", 
  "os", 
  "string", 
  "table", 
  "package",
  "world",
  "utils",
  "bit",
  "bc",
  } do

  for k, v in pairsbykeys (_G [t]) do
    if string.sub (k, 1, 1) ~= "_" then
      print (t .. "." .. k)
    end -- not starts with underscore
  end -- each function
  print ""
end -- each major package

-- now global variables

for k, v in pairsbykeys (_G) do
  if type (v) == "function" or type (v) == "string" then
    print (k)
  end -- function or string
end -- each function

require "pairsbykeys"

for a, b in pairsByKeys (_G) do

  if type (b) == "table" and a ~= "_G" then
    for k, v in pairsByKeys (_G [a]) do
      if string.sub (k, 1, 1) ~= "_" and type (v) == "function"  then
        print (a .. "." .. k)
      end -- not starts with underscore
    end -- each function
  end -- each table
  print ""
end -- each major package

-- now global variables

for k, v in pairsByKeys (_G) do
  if type (v) == "function" or type (v) == "string" then
    print (k)
  end -- function or string
end -- each function

dlg = progress.new ("Self-destruct sequence started ...")
  
number_of_things = 100000

dlg:range (0, number_of_things )
dlg:setstep (1)

for i = 1, number_of_things do

  dlg:step ()  
  dlg:status ("Doing item " .. i)

  if dlg:checkcancel () then
    print "Self-destruct sequence cancelled..."
    break
  end -- if

end -- loop

dlg:close ()