-- Copyright (c) 2006-2010
-- The President and Fellows of Harvard College.
--
-- Redistribution and use in source and binary forms, with or without
-- modification, are permitted provided that the following conditions
-- are met:
-- 1. Redistributions of source code must retain the above copyright
-- notice, this list of conditions and the following disclaimer.
-- 2. Redistributions in binary form must reproduce the above copyright
-- notice, this list of conditions and the following disclaimer in the
-- documentation and/or other materials provided with the distribution.
-- 3. Neither the name of the University nor the names of its contributors
-- may be used to endorse or promote products derived from this software
-- without specific prior written permission.
-- THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY AND CONTRIBUTORS ``AS IS'' AND
-- ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-- ARE DISCLAIMED. IN NO EVENT SHALL THE UNIVERSITY OR CONTRIBUTORS BE LIABLE
-- FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-- DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
-- OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
-- HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
-- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
-- OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
-- SUCH DAMAGE.
--------------------------------------------------------------------------------
-- |
-- Module : Language.C.Quote.CUDA
-- Copyright : (c) Harvard University 2006-2010
-- License : BSD-style
-- Maintainer : mainland@eecs.harvard.edu
--
--------------------------------------------------------------------------------
module Language.C.Quote.CUDA (
module Data.Loc,
module Data.Ratio,
module Data.Symbol,
ToExp(..),
cexp,
cedecl,
cdecl,
csdecl,
cenum,
cty,
cparam,
cinit,
cstm,
cunit,
cfun
) where
import Data.Loc
import Data.Ratio ((%))
import Data.Symbol
import qualified Language.C.Parser as P
import qualified Language.C.Syntax as C
import Language.C.Quote.Base
exts :: [C.Extensions]
exts = [C.CUDA]
typenames :: [String]
typenames =
[ "char1", "uchar1", "char2", "uchar2", "char3", "uchar3", "char4", "uchar4"
, "short1", "ushort1", "short2", "ushort2", "short3", "ushort3"
, "short4", "ushort4"
, "int1", "uint1", "int2", "uint2", "int3", "uint3", "int4", "uint4"
, "long1", "ulong1", "long2", "ulong2", "long3", "ulong3", "long4", "ulong4"
, "longlong1", "longlong2"
, "float1", "float2", "float3"," float4", "double1", "double2"
, "dim3"
]
cdecl = quasiquote exts typenames P.parseDecl
cedecl = quasiquote exts typenames P.parseEdecl
cenum = quasiquote exts typenames P.parseEnum
cexp = quasiquote exts typenames P.parseExp
cfun = quasiquote exts typenames P.parseFunc
cinit = quasiquote exts typenames P.parseInit
cparam = quasiquote exts typenames P.parseParam
csdecl = quasiquote exts typenames P.parseStructDecl
cstm = quasiquote exts typenames P.parseStm
cty = quasiquote exts typenames P.parseType
cunit = quasiquote exts typenames P.parseUnit