never executed always true always false
1 {-# language ConstraintKinds #-}
2 {-# language MultiParamTypeClasses #-}
3 {-# language TemplateHaskell #-}
4
5 {-# OPTIONS_GHC -fno-warn-orphans #-}
6
7 module OpenCV.Core.Types.Vec
8 ( Vec
9 , VecDim
10 , IsVec(..)
11
12 , Vec2i, Vec2f, Vec2d
13 , Vec3i, Vec3f, Vec3d
14 , Vec4i, Vec4f, Vec4d
15 ) where
16
17 import "base" Data.Int ( Int32 )
18 import "base" Foreign.C.Types
19 import qualified "inline-c" Language.C.Inline as C
20 import qualified "inline-c-cpp" Language.C.Inline.Cpp as C ( using )
21 import "this" OpenCV.Internal.C.Inline ( openCvCtx )
22 import "this" OpenCV.Internal.C.Types
23 import "this" OpenCV.Internal.Core.Types.Vec
24 import "this" OpenCV.Internal.Core.Types.Vec.TH
25
26 --------------------------------------------------------------------------------
27
28 C.context openCvCtx
29 C.include "opencv2/core.hpp"
30 C.using "namespace cv"
31
32 mkVecType "Vec2i" 2 ''Int32 "int32_t"
33 mkVecType "Vec2f" 2 ''CFloat "float"
34 mkVecType "Vec2d" 2 ''CDouble "double"
35
36 mkVecType "Vec3i" 3 ''Int32 "int32_t"
37 mkVecType "Vec3f" 3 ''CFloat "float"
38 mkVecType "Vec3d" 3 ''CDouble "double"
39
40 mkVecType "Vec4i" 4 ''Int32 "int32_t"
41 mkVecType "Vec4f" 4 ''CFloat "float"
42 mkVecType "Vec4d" 4 ''CDouble "double"