EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
--]]

local lapp = require 'pl.lapp'
local args = lapp [[
Create a TTF font from a simple description, intended to easily 
handle fonts modeled after dot matrix or segmented displays. The
output is suitable for compiling to a font with TTX.

  -v,--verbose            Chatter about progress
  <basename>   (string)   base name of .dotfont and .ttx file
]]


local ttfont = require "ttfont"


function V(...) 
    if not args.verbose then return end 
    io.write(...) 
    io.write'\n' 
end


-- The command line should get more elaborate processing and usage 

V('basename: ', args.basename)

-- open the font description
local ok, dotfont = pcall(dofile, args.basename .. ".dotfont")
if not ok then 
    print(args.basename, ':', dotfont)
    os.exit(1)
end
V('loaded: ', args.basename, '.dotfont')

-- Run through the caracters in the rom and assemble a glyph for each
-- one and map in in the font.
local n = 0
for _,glyph in ipairs(dotfont.Glyphs) do
    ttfont.PlaceGlyph(glyph)
    ttfont.MapGlyph("unicode", glyph.unicode, glyph.name)
    if glyph.mac then
        ttfont.MapGlyph("mac", glyph.mac, glyph.name)
    end
    ttfont.MapGlyph("win", glyph.win, glyph.name)
    n = n + 1
end
V('placed: 4 system glyphs and ', n, ' defined glyphs, total ', n+4, '.')

--[[ Set the strings. 

Note that ffam, fsub, ufid, name, vers, and PSnm are required by Windows.
Of those, fsub defaults to 'Regular' and name gets a sensible defaults based
on ffam and fsub.

--]]
assert(dotfont.Names.ffam)
assert(dotfont.Names.ufid)
local names = ttfont.SetNames(dotfont.Names)
if args.verbose then
    for i=0, 32767 do 
        if names[i] then
            V(("%0.f: %q"):format(i, names[i]))
        end
    end
end


-- get the finished font and write it as TTX
local font = ttfont.GetFont()
--print(font)
font:save(args.basename .. ".ttx")
V('wrote: ', args.basename, '.ttx')

        
    platforms = platforms or {
        {plat=1,enc=0,lang="0x0",unicode='True'},
        {plat=3,enc=1,lang="0x409"}
    }
    
    local name = xml.new{[0]="name"}
    local t = {}
    for _,p in ipairs(platforms) do
        for nid=0,32767,1 do
            local value = ntab[nid] or ntab[nameEntries[nid]] or defaults[nid]
            if value then
                if nameEntries[nid] then t[nameEntries[nid]] = value end
                t[nid] = value
                name:append{
                    [0]='namerecord', 
                    nameID=nid, platformID=p.plat, platEncID=p.enc, langID=p.lang, unicode=p.unicode, 
                    [1]=value,
                }
            end
        end
    end
    return name, t
end

return M

occaecat cupidatat non proident, sunt in culpa qui officia 
deserunt mollit anim id est laborum.
]]
--]=]    
}

function M.SetNames(t)
    local names
    tables.name, names = ttfname.BuildNameTable(t)
    return names
end

function M.GetFont()
    
    ttfhhea.ascent = M.maxY
    ttfos_2.sTypoAscender = M.maxY
    ttfos_2.usWinAscent = M.maxY