dph-prim: follow changes in module names
authorBen Lippmeier <benl@ouroborus.net>
Tue, 4 Oct 2011 03:22:50 +0000 (14:22 +1100)
committerBen Lippmeier <benl@ouroborus.net>
Tue, 4 Oct 2011 03:22:50 +0000 (14:22 +1100)
15 files changed:
dph-prim-par/Data/Array/Parallel/Unlifted.hs
dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Types/USSegd.hs
dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/Types/USegd.hs
dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/USSegd.hs
dph-prim-par/Data/Array/Parallel/Unlifted/Distributed/USegd.hs
dph-prim-par/Data/Array/Parallel/Unlifted/Parallel/Segmented.hs
dph-prim-par/Data/Array/Parallel/Unlifted/Parallel/UPSSegd.hs
dph-prim-par/Data/Array/Parallel/Unlifted/Parallel/UPSegd.hs
dph-prim-seq/Data/Array/Parallel/Unlifted.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Basics.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Combinators.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/Sums.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/USSegd.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/USegd.hs
dph-prim-seq/Data/Array/Parallel/Unlifted/Sequential/UVSegd.hs

index 21cedc1..edddfd2 100644 (file)
 import Data.Array.Parallel.Unlifted.Parallel
 import Data.Array.Parallel.Base.TracePrim
 import Data.Array.Parallel.Unlifted.Distributed ( DT )
+
 import qualified Data.Array.Parallel.Unlifted.Sequential.Vector         as Seq
-import qualified Data.Array.Parallel.Unlifted.Sequential.Segmented      as Seq
+import qualified Data.Array.Parallel.Unlifted.Sequential.Basics         as Seq
+import qualified Data.Array.Parallel.Unlifted.Sequential.Combinators    as Seq
+import qualified Data.Array.Parallel.Unlifted.Sequential.UVSegd         as Seq
+
 import Data.Array.Parallel.Unlifted.Sequential.Vector (Unbox,Vector)
 import Prelude (($!))
 
@@ -222,6 +226,7 @@ sum_r x arr
 
 
 -- Scattered Segmented Folds --------------------------------------------------
+-- TODO: add tracing
 fold_ss                 = foldSSUP
 fold1_ss                = fold1SSUP
 
index e1d0990..1f14230 100644 (file)
@@ -15,8 +15,8 @@ module Data.Array.Parallel.Unlifted.Distributed.Types.USSegd (
 import Data.Array.Parallel.Unlifted.Distributed.Types.USegd
 import Data.Array.Parallel.Unlifted.Distributed.Types.Vector
 import Data.Array.Parallel.Unlifted.Distributed.Types.Base
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USSegd
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USSegd
+import Data.Array.Parallel.Unlifted.Sequential.USegd
 import Data.Array.Parallel.Unlifted.Sequential.Vector
 import Data.Array.Parallel.Pretty
 import Control.Monad
index 662f741..607eb08 100644 (file)
@@ -12,7 +12,7 @@ module Data.Array.Parallel.Unlifted.Distributed.Types.USegd (
 ) where
 import Data.Array.Parallel.Unlifted.Distributed.Types.Vector
 import Data.Array.Parallel.Unlifted.Distributed.Types.Base
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USegd
 import Data.Array.Parallel.Unlifted.Sequential.Vector
 import Data.Array.Parallel.Pretty
 import Control.Monad
index c881a4e..524a993 100644 (file)
@@ -11,7 +11,8 @@ import Data.Array.Parallel.Unlifted.Distributed.Arrays
 import Data.Array.Parallel.Unlifted.Distributed.Combinators
 import Data.Array.Parallel.Unlifted.Distributed.Types
 import Data.Array.Parallel.Unlifted.Distributed.Gang
-import Data.Array.Parallel.Unlifted.Sequential.Segmented
+import Data.Array.Parallel.Unlifted.Sequential.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USSegd
 import Data.Array.Parallel.Unlifted.Sequential.Vector           (Vector, (!))
 import Data.Array.Parallel.Base
 import qualified Data.Array.Parallel.Unlifted.Sequential.Vector as Seq
index 7331b21..3a094b0 100644 (file)
@@ -15,7 +15,7 @@ import Data.Array.Parallel.Unlifted.Distributed.Arrays
 import Data.Array.Parallel.Unlifted.Distributed.Combinators
 import Data.Array.Parallel.Unlifted.Distributed.Types
 import Data.Array.Parallel.Unlifted.Distributed.Gang
-import Data.Array.Parallel.Unlifted.Sequential.Segmented
+import Data.Array.Parallel.Unlifted.Sequential.USegd
 import Data.Array.Parallel.Unlifted.Sequential.Vector           (Vector, Unbox, (!))
 import Data.Array.Parallel.Base
 import qualified Data.Array.Parallel.Unlifted.Sequential.Vector as Seq
index a5e8184..daced71 100644 (file)
@@ -11,20 +11,26 @@ module Data.Array.Parallel.Unlifted.Parallel.Segmented (
   sumSUP,
   sumRUP
 ) where
-import Data.Array.Parallel.Unlifted.Sequential.Vector as Seq
-import Data.Array.Parallel.Unlifted.Sequential.Segmented
+
 import Data.Array.Parallel.Unlifted.Distributed
+
+import Data.Array.Parallel.Unlifted.Parallel.Basics
+import Data.Array.Parallel.Unlifted.Parallel.Combinators
+import Data.Array.Parallel.Unlifted.Parallel.Sums
 import Data.Array.Parallel.Unlifted.Parallel.Basics
-import Data.Array.Parallel.Unlifted.Parallel.Combinators (mapUP, zipWithUP, packUP, combineUP)
-import Data.Array.Parallel.Unlifted.Parallel.Sums        (sumUP )
-import Data.Array.Parallel.Unlifted.Parallel.Basics      (replicateUP, repeatUP)
 import Data.Array.Parallel.Unlifted.Parallel.Enum
-import Data.Array.Parallel.Unlifted.Parallel.Permute     (bpermuteUP)
+import Data.Array.Parallel.Unlifted.Parallel.Permute
 import Data.Array.Parallel.Unlifted.Parallel.UPSegd
 import Data.Array.Parallel.Unlifted.Parallel.UPSSegd
-import qualified Data.Vector.Fusion.Stream              as S
+
+import Data.Array.Parallel.Unlifted.Sequential.Basics           as Seq
+import Data.Array.Parallel.Unlifted.Sequential.Combinators      as Seq
+import Data.Array.Parallel.Unlifted.Sequential.USegd            as Seq
+import Data.Array.Parallel.Unlifted.Sequential.Vector           as Seq
+
 import Data.Vector.Fusion.Stream.Monadic ( Stream(..), Step(..) )
 import Data.Vector.Fusion.Stream.Size    ( Size(..) )
+import qualified Data.Vector.Fusion.Stream              as S
 import qualified Data.Vector                            as V
 import Control.Monad.ST ( ST, runST )
 
index 8c00142..242d3fd 100644 (file)
@@ -21,8 +21,8 @@ module Data.Array.Parallel.Unlifted.Parallel.UPSSegd (
   
 ) where
 import Data.Array.Parallel.Unlifted.Sequential.Vector as Seq
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USSegd
+import Data.Array.Parallel.Unlifted.Sequential.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USSegd
 import Data.Array.Parallel.Unlifted.Parallel.UPSegd
 import Data.Array.Parallel.Unlifted.Distributed
 
index a16bff5..0095d54 100644 (file)
@@ -16,7 +16,7 @@ module Data.Array.Parallel.Unlifted.Parallel.UPSegd (
 ) where
 
 import Data.Array.Parallel.Unlifted.Sequential.Vector as Seq
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USegd
 import Data.Array.Parallel.Unlifted.Distributed
 
 -- | A Parallel segment descriptor holds the original descriptor,
index 29bc1d2..6a9f42a 100644 (file)
 
 import qualified Data.Array.Parallel.Unlifted.Sequential.Vector as V
 import Data.Array.Parallel.Unlifted.Sequential.USel
-import Data.Array.Parallel.Unlifted.Sequential.Segmented
+import Data.Array.Parallel.Unlifted.Sequential.Basics
+import Data.Array.Parallel.Unlifted.Sequential.Combinators
+import Data.Array.Parallel.Unlifted.Sequential.Sums
+import Data.Array.Parallel.Unlifted.Sequential.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USel
+import Data.Array.Parallel.Unlifted.Sequential.USSegd
+import Data.Array.Parallel.Unlifted.Sequential.UVSegd
 
 #include "DPH_Interface.h"
 
index bfb0e2b..7a6da35 100644 (file)
@@ -2,12 +2,12 @@
 #include "fusion-phases.h"
 
 -- | Basic segmented operations on unlifted arrays.
-module Data.Array.Parallel.Unlifted.Sequential.Segmented.Basics (
+module Data.Array.Parallel.Unlifted.Sequential.Basics (
   replicateSU, replicateRSU, appendSU, indicesSU, indicesSU'
 ) where
 import Data.Array.Parallel.Stream
 import Data.Array.Parallel.Unlifted.Sequential.Vector
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USegd
 import qualified Data.Vector.Fusion.Stream as S
 
 
index 68df889..bbbb563 100644 (file)
@@ -2,7 +2,7 @@
 #include "fusion-phases.h"
 
 -- | Standard combinators for segmented unlifted arrays.
-module Data.Array.Parallel.Unlifted.Sequential.Segmented.Combinators (
+module Data.Array.Parallel.Unlifted.Sequential.Combinators (
   foldlSU,      foldlSSU,
   foldSU,       foldSSU,
   foldl1SU,     foldl1SSU,
@@ -12,8 +12,8 @@ module Data.Array.Parallel.Unlifted.Sequential.Segmented.Combinators (
 ) where
 import Data.Array.Parallel.Stream
 import Data.Array.Parallel.Unlifted.Sequential.Vector           as U
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USSegd
+import Data.Array.Parallel.Unlifted.Sequential.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USSegd
 import qualified Data.Vector                                    as V
 import Debug.Trace
 
index 6cb3ac7..68e01a7 100644 (file)
@@ -1,13 +1,11 @@
 -- | Sum-like operations on segmented list-like combinators.
-module Data.Array.Parallel.Unlifted.Sequential.Segmented.Sums (
+module Data.Array.Parallel.Unlifted.Sequential.Sums (
   andSU, orSU, sumSU, productSU, maximumSU, minimumSU,
   sumRU
 ) where
 import Data.Array.Parallel.Unlifted.Sequential.Vector as V
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd (
-  USegd )
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.Combinators (
-  foldSU, fold1SU, foldlRU)
+import Data.Array.Parallel.Unlifted.Sequential.USegd 
+import Data.Array.Parallel.Unlifted.Sequential.Combinators
 
 
 -- | Compute the boolean AND of all segments in a segmented array.
index 652a0e0..3547b60 100644 (file)
@@ -1,6 +1,6 @@
 {-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
 -- | Scattered Segment Descriptors
-module Data.Array.Parallel.Unlifted.Sequential.Segmented.USSegd (
+module Data.Array.Parallel.Unlifted.Sequential.USSegd (
         -- * Types
         USSegd(..),
         
@@ -26,7 +26,7 @@ module Data.Array.Parallel.Unlifted.Sequential.Segmented.USSegd (
         -- * Streams
         streamSegsFromUSSegd
 ) where
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USegd
 import Data.Array.Parallel.Unlifted.Sequential.Vector           as U
 import qualified Data.Vector                                    as V
 import qualified Data.Vector.Fusion.Stream                      as S
index f943fc5..259350c 100644 (file)
@@ -1,6 +1,6 @@
 {-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
 -- | Segment Descriptors
-module Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd (
+module Data.Array.Parallel.Unlifted.Sequential.USegd (
   -- * Types
   USegd,
 
index 19fed8f..6bd3c04 100644 (file)
@@ -1,6 +1,6 @@
 {-# OPTIONS -Wall -fno-warn-orphans -fno-warn-missing-signatures #-}
 -- | Segment descriptors for virtual arrays.
-module Data.Array.Parallel.Unlifted.Sequential.Segmented.UVSegd (
+module Data.Array.Parallel.Unlifted.Sequential.UVSegd (
         -- * Types
         UVSegd(..),
 
@@ -29,8 +29,8 @@ module Data.Array.Parallel.Unlifted.Sequential.Segmented.UVSegd (
         unsafeMaterializeUVSegd
 ) where
 import Data.Array.Parallel.Unlifted.Sequential.USel
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USSegd
-import Data.Array.Parallel.Unlifted.Sequential.Segmented.USegd
+import Data.Array.Parallel.Unlifted.Sequential.USSegd
+import Data.Array.Parallel.Unlifted.Sequential.USegd
 import Data.Array.Parallel.Unlifted.Sequential.Vector as V
 import Data.Array.Parallel.Pretty