Gammon Forum

count = 100

function process_names (t)
  repeat
    s = f:read ("*l") -- read one line
    if not s or s:sub (1, 1) == "[" then
      return
    end -- of section
    if s:sub (1, 2) ~= "/*" then
      table.insert (t, s)  
    end -- not comment
  until not s
end -- process_names

function process_file (name)

  first, middle, last = {}, {}, {}
  
  -- read names file for random names
  
  f = assert (io.open (GetInfo (56) .. "names/" .. name, "r"))
  
  repeat
    s = f:read ("*l") -- read one line
    if s then  -- if not end of file (EOF)
      if s == "[start]" or s == "[startstav]" then
        process_names (first)
        process_names (middle)
        process_names (last)
      end -- found start
    end  -- not eof
  until not s  -- until end of file
  
  f:close ()
end -- process_file


function make_name ()
  return first [math.random (#first)] ..
         middle [math.random (#middle)] ..
         last [math.random (#last)]
end -- make_name

require "pairsbykeys"

t = assert (utils.readdir (GetInfo (56) .. "names/*.nam"))

-- for each file (in lower-case alphabetic order)

for name in pairsByKeys (t, function (a, b) return a:lower () < b:lower () end) do

  process_file (name)  -- do this file (k is the name)

  if #first > 0 and #middle > 0 and #last > 0 then
     
    list = {}
    done = 0
    attempts = 0
   
    -- dragons sent us into a loop, so stop after 1000 attempts

    while done < count and attempts < 1000 do
      local newname = make_name ()
      attempts = attempts + 1
      if not list [newname] then
        list [newname] = true
        done = done + 1
      end 
    end -- for
    
    print ("\n\n" .. name:lower () .. "\n\n")
  
    for k, v in pairsByKeys (list) do
      Tell (k, " ")
    end -- for
    
    print "\n\n"
  
  end -- if we had some names
  
end -- each file