{-# LANGUAGE TemplateHaskell #-}
module Futhark.CodeGen.RTS.C
( atomicsH,
contextH,
contextPrototypesH,
cudaH,
freeListH,
halfH,
lockH,
openclH,
scalarF16H,
scalarH,
schedulerH,
serverH,
timingH,
tuningH,
utilH,
valuesH,
errorsH,
cacheH,
uniformH,
ispcUtilH,
)
where
import Data.FileEmbed
import Data.Text qualified as T
atomicsH :: T.Text
atomicsH :: Text
atomicsH = $(embedStringFile "rts/c/atomics.h")
{-# NOINLINE atomicsH #-}
uniformH :: T.Text
uniformH :: Text
uniformH = $(embedStringFile "rts/c/uniform.h")
{-# NOINLINE uniformH #-}
cudaH :: T.Text
cudaH :: Text
cudaH = $(embedStringFile "rts/c/cuda.h")
{-# NOINLINE cudaH #-}
freeListH :: T.Text
freeListH :: Text
freeListH = $(embedStringFile "rts/c/free_list.h")
{-# NOINLINE freeListH #-}
halfH :: T.Text
halfH :: Text
halfH = $(embedStringFile "rts/c/half.h")
{-# NOINLINE halfH #-}
lockH :: T.Text
lockH :: Text
lockH = $(embedStringFile "rts/c/lock.h")
{-# NOINLINE lockH #-}
openclH :: T.Text
openclH :: Text
openclH = $(embedStringFile "rts/c/opencl.h")
{-# NOINLINE openclH #-}
scalarF16H :: T.Text
scalarF16H :: Text
scalarF16H = $(embedStringFile "rts/c/scalar_f16.h")
{-# NOINLINE scalarF16H #-}
scalarH :: T.Text
scalarH :: Text
scalarH = $(embedStringFile "rts/c/scalar.h")
{-# NOINLINE scalarH #-}
schedulerH :: T.Text
schedulerH :: Text
schedulerH = $(embedStringFile "rts/c/scheduler.h")
{-# NOINLINE schedulerH #-}
serverH :: T.Text
serverH :: Text
serverH = $(embedStringFile "rts/c/server.h")
{-# NOINLINE serverH #-}
timingH :: T.Text
timingH :: Text
timingH = $(embedStringFile "rts/c/timing.h")
{-# NOINLINE timingH #-}
tuningH :: T.Text
tuningH :: Text
tuningH = $(embedStringFile "rts/c/tuning.h")
{-# NOINLINE tuningH #-}
utilH :: T.Text
utilH :: Text
utilH = $(embedStringFile "rts/c/util.h")
{-# NOINLINE utilH #-}
valuesH :: T.Text
valuesH :: Text
valuesH = $(embedStringFile "rts/c/values.h")
{-# NOINLINE valuesH #-}
errorsH :: T.Text
errorsH :: Text
errorsH = $(embedStringFile "rts/c/errors.h")
{-# NOINLINE errorsH #-}
ispcUtilH :: T.Text
ispcUtilH :: Text
ispcUtilH = $(embedStringFile "rts/c/ispc_util.h")
{-# NOINLINE ispcUtilH #-}
cacheH :: T.Text
cacheH :: Text
cacheH = $(embedStringFile "rts/c/cache.h")
{-# NOINLINE cacheH #-}
contextH :: T.Text
contextH :: Text
contextH = $(embedStringFile "rts/c/context.h")
{-# NOINLINE contextH #-}
contextPrototypesH :: T.Text
contextPrototypesH :: Text
contextPrototypesH = $(embedStringFile "rts/c/context_prototypes.h")
{-# NOINLINE contextPrototypesH #-}