-
-\begin{code}
-#ifdef DPH
-instance (Outputable bndr, Outputable bdee)
- => Outputable (CoreParQuals bndr bdee) where
- ppr sty qual = pprParQuals sty ppr ppr ppr qual
-
-pprParQuals sty pbdr1 pbdr2 pbdee (CoAndQuals x y)
- = ppAboves [(ppBesides [pprParQuals sty pbdr1 pbdr2 pbdee x , ppComma]) , pprParQuals sty pbdr1 pbdr2 pbdee y]
-
-pprParQuals sty pbdr1 pbdr2 pbdee (CoDrawnGen pats pat expr)
- = ppCat [ppStr "(|",
- ppInterleave ppComma (map (ppr sty) pats),
- ppSemi, ppr sty pat,ppStr "|)",
- ppStr "<<-", pprCoreExpr sty pbdr1 pbdr2 pbdee expr]
-
-pprParQuals sty pbdr1 pbdr2 pbdee (CoIndexGen exprs pat expr)
- = ppCat [ppStr "(|",
- ppInterleave ppComma (map (pprCoreExpr sty pbdr1 pbdr2 pbdee) exprs),
- ppSemi, ppr sty pat,ppStr "|)",
- ppStr "<<=", pprCoreExpr sty pbdr1 pbdr2 pbdee expr]
-
-pprParQuals sty pbdr1 pbdr2 pbdee (CoParFilter expr)
- = pprParendCoreExpr sty pbdr1 pbdr2 pbdee expr
-#endif {- Data Parallel Haskell -}
-\end{code}
-
-\begin{code}
-#ifdef DPH
-instance (Outputable bndr, Outputable bdee)
- => Outputable (CoreParCommunicate bndr bdee) where
- ppr sty c = pprCoreParCommunicate sty ppr ppr ppr c
-
-pprCoreParCommunicate sty pbdr1 pbdr2 pbdee (CoParSend fns)
- = ppHang
- (ppStr "SEND")
- 4
- (ppAboves (zipWith ppSendFns fns ([1..]::[Int])))
- where
- ppSendFns expr dim
- = ppCat [ppStr "Dim" , ppr sty dim , ppStr "=" ,
- pprParendCoreExpr sty pbdr1 pbdr2 pbdee expr ]
-
-pprCoreParCommunicate sty pbdr1 pbdr2 pbdee (CoParFetch fns)
- = ppHang
- (ppStr "FETCH")
- 4
- (ppAboves (zipWith ppSendFns fns ([1..]::[Int])))
- where
- ppSendFns expr dim
- = ppCat [ppStr "Dim" , ppr sty dim , ppStr "=" ,
- pprParendCoreExpr sty pbdr1 pbdr2 pbdee expr ]
-
-pprCoreParCommunicate sty pbdr1 pbdr2 pbdee (CoToPodized)
- = ppStr "ConvertToPodized"
-
-pprCoreParCommunicate sty pbdr1 pbdr2 pbdee (CoFromPodized)
- = ppStr "ConvertFromPodized"
-#endif {- Data Parallel Haskell -}
-\end{code}