#include "DPH_Header.h"
import qualified Prelude as P
import Prelude ( Eq(..), Num(..), Bool(..), ($), (.) )
#include "DPH_Interface.h"
notImplemented :: P.String -> a
notImplemented fnName
= P.error $ P.unlines
[ "dph-prim-interface:Data.Array.Parallel.Unlifted." P.++ fnName
, "This module is an abstract interface and does not contain real code."
, "Use dph-prim-seq or dph-prim-par instead." ]
class Elt a
instance Elt a => Elt [a]
type Array a = [a]
empty = notImplemented "empty"
(+:+) = notImplemented "(+:+)"
append_s = notImplemented "append_s"
replicate = notImplemented "replicate"
replicate_s = notImplemented "replicate_s"
replicate_rs = notImplemented "replicate_rs"
repeat = notImplemented "repeat"
indexed = notImplemented "indexed"
indices_s = notImplemented "indices_s"
enumFromTo = notImplemented "enumFromTo"
enumFromThenTo = notImplemented "enumFromThenTo"
enumFromStepLen = notImplemented "enumFromStepLen"
enumFromStepLenEach = notImplemented "enumFromStepLenEach"
nest = notImplemented "nest"
toList = notImplemented "toList"
fromList = notImplemented "fromList"
toList_s = notImplemented "toList_s"
fromList_s = notImplemented "fromList_s"
length = notImplemented "length"
index = notImplemented "index"
indexs = notImplemented "indexs"
indexs_avs = notImplemented "indexs_avs"
extract = notImplemented "extract"
extracts_nss = notImplemented "extract_nss"
extracts_ass = notImplemented "extract_ass"
extracts_avs = notImplemented "extract_avs"
drop = notImplemented "drop"
update = notImplemented "update"
permute = notImplemented "permute"
bpermute = notImplemented "bpermute"
mbpermute = notImplemented "mbpermute"
bpermuteDft = notImplemented "bpermuteDft"
zip = notImplemented "zip"
zip3 = notImplemented "zip3"
unzip = notImplemented "unzip"
unzip3 = notImplemented "unzip3"
fsts = notImplemented "fsts"
snds = notImplemented "snds"
map = notImplemented "map"
zipWith = notImplemented "zipWith"
scan = notImplemented "scan"
fold = notImplemented "fold"
fold_s = notImplemented "fold_s"
fold_ss = notImplemented "fold_ss"
fold_r = notImplemented "fold_r"
fold1 = notImplemented "fold1"
fold1_s = notImplemented "fold1_s"
fold1_ss = notImplemented "fold1_ss"
sum = notImplemented "sum"
sum_r = notImplemented "sum_r"
and = notImplemented "and"
pack = notImplemented "pack"
filter = notImplemented "filter"
combine = notImplemented "combine"
combine2 = notImplemented "combine2"
interleave = notImplemented "interleave"
data Sel2
= Sel2
{ sel2_tags :: [Tag]
, sel2_indices :: [Int]
, sel2_elements0 :: Int
, sel2_elements1 :: Int }
type SelRep2 = ()
mkSel2 = notImplemented "mkSel2"
tagsSel2 = notImplemented "tagsSel2"
indicesSel2 = notImplemented "indicesSel2"
elementsSel2_0 = notImplemented "elementsSel2_0"
elementsSel2_1 = notImplemented "elementsSel2_1"
repSel2 = notImplemented "repSel2"
mkSelRep2 = notImplemented "mkSelRep2"
indicesSelRep2 = notImplemented "indicesSelRep2"
elementsSelRep2_0 = notImplemented "elementsSelRep2_0"
elementsSelRep2_1 = notImplemented "elementsSelRep2_1"
data Segd
= Segd
{ segd_lengths :: [Int]
, segd_indices :: [Int]
, segd_elements :: Int }
mkSegd = notImplemented "mkSegd"
emptySegd = notImplemented "emptySegd"
singletonSegd = notImplemented "singletonSegd"
validSegd = notImplemented "validSegd"
lengthSegd = notImplemented "lengthSegd"
lengthsSegd = notImplemented "lengthsSegd"
indicesSegd = notImplemented "indicesSegd"
elementsSegd = notImplemented "elementsSegd"
data SSegd
= SSegd
{ ssegd_starts :: [Int]
, ssegd_sources :: [Int]
, ssegd_segd :: Segd }
mkSSegd = notImplemented "mkSSegd"
validSSegd = notImplemented "validSSegd"
emptySSegd = notImplemented "emptySSegd"
singletonSSegd = notImplemented "singletonSSegd"
promoteSegdToSSegd = notImplemented "promoteSegdToSSegd"
isContiguousSSegd = notImplemented "isContiguousSSegd"
lengthOfSSegd = notImplemented "lengthOfSSegd"
lengthsOfSSegd = notImplemented "lenghtsOfSSegd"
indicesOfSSegd = notImplemented "indicesOfSSegd"
startsOfSSegd = notImplemented "startsOfSSegd"
sourcesOfSSegd = notImplemented "sourcesOfSSegd"
getSegOfSSegd = notImplemented "getSegOfSSegd"
appendSSegd = notImplemented "appendSSegd"
data VSegd
= VSegd
{ vsegd_vsegids :: [Int]
, vsegd_ssegd :: SSegd }
mkVSegd = notImplemented "mkVSegd"
validVSegd = notImplemented "validSSegd"
emptyVSegd = notImplemented "emptyVSegd"
singletonVSegd = notImplemented "singletonVSegd"
replicatedVSegd = notImplemented "replicatedVSegd"
promoteSegdToVSegd = notImplemented "promoteSegdToVSegd"
promoteSSegdToVSegd = notImplemented "promoteSSegdToVSegd"
isContiguousVSegd = notImplemented "isContiguousVSegd"
isManifestVSegd = notImplemented "isManifestVSegd"
lengthOfVSegd = notImplemented "lengthOfVSegd"
takeVSegidsOfVSegd = notImplemented "takeVSegidsOfVSegd"
takeVSegidsRedundantOfVSegd = notImplemented "takeVSegidsRedundantOfVSegd"
takeSSegdOfVSegd = notImplemented "takeSSegdOfVSegd"
takeSSegdRedundantOfVSegd = notImplemented "takeSSegdRedundantOfVSegd"
takeLengthsOfVSegd = notImplemented "takeLengthsOfVSegd"
getSegOfVSegd = notImplemented "getSegOfVSegd"
unsafeDemoteToSSegdOfVSegd = notImplemented "unsafeDemoteToSSegdOfVSegd"
unsafeDemoteToSegdOfVSegd = notImplemented "unsafeDemoteToSegdOfVSegd"
updateVSegsOfVSegd = notImplemented "updateVSegsOfVSegd"
updateVSegsReachableOfVSegd = notImplemented "updateVSegsReachableOfVSegd"
appendVSegd = notImplemented "appendVSegd"
combine2VSegd = notImplemented "combine2VSegd"
class Elts a
type Arrays a
= [[a]]
emptys = notImplemented "emptys"
lengths = notImplemented "lengths"
singletons = notImplemented "singletons"
unsafeIndexs = notImplemented "unsafeIndexs"
unsafeIndex2s = notImplemented "unsafeIndex2s"
appends = notImplemented "appends"
fromVectors = notImplemented "fromVectors"
toVectors = notImplemented "toVectors"
randoms n = notImplemented "randoms"
randomRs n r = notImplemented "randomRs"
class Elt a => IOElt a
hPut = notImplemented "hPut"
hGet = notImplemented "hGet"