OSS/fountainhead
1
0
Fork 0
Code Issues 2 Pull Requests Releases Activity

Dump hmtx

Browse Source
This commit is contained in:
Eugen Wissner
2023-11-18 04:40:17 +01:00
parent 344467b850
commit 9a11ff5dd4
3 changed files with 63 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/Main.hs
View File

@ -15,7 +15,7 @@ import qualified Data.Text.Lazy as Text.Lazy
import qualified Data.Text.Lazy.IO as Text.Lazy
import qualified Data.Text.Encoding as Text
import GHC.Records (HasField(..))
import Graphics.Fountainhead.Dumper (dumpTrueType)
import Graphics.Fountainhead.Dumper (DumpError(..), dumpTrueType)
-- TODO: kern table since format 1.
-- For details on subtable format see examples in TrueType reference.
import Graphics.Fountainhead.Parser
@ -40,8 +40,12 @@ fontMain fontFile = do
ttfContents <- ByteString.readFile fontFile
case dumpTrueType ttfContents fontFile of
(Right fontDump) -> Text.Lazy.putStrLn $ Text.Builder.toLazyText fontDump
Left e -> putStr (Megaparsec.errorBundlePretty e)
Right fontDump -> Text.Lazy.putStrLn $ Text.Builder.toLazyText fontDump
Left e
| DumpParseError bundle <- e -> putStr
$ Megaparsec.errorBundlePretty bundle
| DumpRequiredTableMissingError tableName <- e -> putStr
$ "Required table " <> tableName <> " is missing."
main :: IO ()
main = do