mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 01:52:11 +03:00
32 lines
1.1 KiB
Haskell
32 lines
1.1 KiB
Haskell
module VampIR.Compilation.Base where
|
|
|
|
import Base
|
|
import Core.VampIR.Base (coreVampIRAssertion')
|
|
import Juvix.Compiler.Core
|
|
import Juvix.Compiler.Core.Data.TransformationId
|
|
import VampIR.Core.Base (VampirBackend (..), vampirAssertion')
|
|
|
|
vampirCompileAssertion :: Path Abs File -> Path Abs File -> (String -> IO ()) -> Assertion
|
|
vampirCompileAssertion mainFile dataFile step = do
|
|
step "Translate to JuvixCore"
|
|
entryPoint <- defaultEntryPointCwdIO mainFile
|
|
tab <- (^. coreResultTable) . snd <$> runIO' entryPoint upToCore
|
|
coreVampIRAssertion' tab toVampIRTransformations mainFile dataFile step
|
|
vampirAssertion' VampirHalo2 tab dataFile step
|
|
|
|
vampirCompileErrorAssertion ::
|
|
Path Abs File ->
|
|
(String -> IO ()) ->
|
|
Assertion
|
|
vampirCompileErrorAssertion mainFile step = do
|
|
step "Translate to JuvixCore"
|
|
entryPoint <- defaultEntryPointCwdIO mainFile
|
|
r <- runIOEither entryPoint upToCore
|
|
case r of
|
|
Left _ -> return ()
|
|
Right res ->
|
|
let tab = snd res ^. coreResultTable
|
|
in case run $ runReader defaultCoreOptions $ runError @JuvixError $ toVampIR' tab of
|
|
Left _ -> return ()
|
|
Right _ -> assertFailure "no error"
|