{-# LANGUAGE DataKinds #-}
{-# LANGUAGE KindSignatures #-}
module Torch.Types.TH.Short where

import Foreign
import Foreign.C.Types
import GHC.TypeLits (Nat)
import GHC.Int
import Torch.Types.TH

type CTensor = CShortTensor
type CStorage = CShortStorage

type CReal = CShort
type CAccReal = CLong
type HsReal = Int16
type HsAccReal = Int64

real2acc :: HsReal -> HsAccReal
real2acc = fromIntegral

acc2real :: HsAccReal -> HsReal
acc2real = fromIntegral

hs2cReal :: HsReal -> CReal
hs2cReal = fromIntegral

hs2cAccReal :: HsAccReal -> CAccReal
hs2cAccReal = fromIntegral

c2hsReal :: CReal -> HsReal
c2hsReal = fromIntegral

c2hsAccReal :: CAccReal -> HsAccReal
c2hsAccReal = fromIntegral

type Storage = ShortStorage
cstorage        = snd . shortStorageState
storage         = shortStorage
storageState    = shortStorageState
storageStateRef = fst . shortStorageState

type Dynamic    = ShortDynamic
ctensor         = snd . shortDynamicState
dynamic         = shortDynamic
dynamicState    = shortDynamicState
dynamicStateRef = fst . shortDynamicState

type Tensor = ShortTensor
asDynamic = shortAsDynamic
asStatic = shortAsStatic

-- instance Fractional Int16