Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2025-07-22 12:43:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

MVP

Browse Source
This commit is contained in:
Stefan Dresselhaus
2022-03-07 19:10:39 +01:00
parent f066d03017
commit 8eeb38279f
9 changed files with 206 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
generator/DearImGui/Generator.hs
View File

@ -74,9 +74,15 @@ headers = $( do
basicHeaders <- TH.runIO do
headersPath <- canonicalizePath ( takeDirectory currentPath <> "/../../imgui/imgui.h" )
headersSource <- Text.readFile headersPath
tokens <- case tokenise headersSource of
tokensImGui <- case tokenise headersSource of
Left err -> error ( "Couldn't tokenise Dear ImGui headers:\n\n" <> show err )
Right toks -> pure toks
headersPath <- canonicalizePath ( takeDirectory currentPath <> "/../../implot/implot.h" )
headersSource <- Text.readFile headersPath
tokensImPlot <- case tokenise headersSource of
Left err -> error ( "Couldn't tokenise Dear ImPlot headers:\n\n" <> show err )
Right toks -> pure toks
let tokens = tokensImGui<>tokensImPlot
case Megaparsec.parse Parser.headers "" tokens of
Left err -> do
let