{-# LANGUAGE TemplateHaskell #-}
module Futhark.CodeGen.RTS.C
( atomicsH,
chaselevH,
cudaH,
freeListH,
halfH,
lockH,
openclH,
scalarF16H,
scalarH,
schedulerH,
serverH,
timingH,
tuningH,
utilH,
valuesH,
)
where
import Data.FileEmbed
import qualified Data.Text as T
atomicsH :: T.Text
atomicsH :: Text
atomicsH = $(embedStringFile "rts/c/atomics.h")
{-# NOINLINE atomicsH #-}
chaselevH :: T.Text
chaselevH :: Text
chaselevH = $(embedStringFile "rts/c/chaselev.h")
{-# NOINLINE chaselevH #-}
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 #-}