From e5accc0d8d3c6d9cace9d4aff482ab285bf7e01b Mon Sep 17 00:00:00 2001 From: hallgren Date: Thu, 20 Oct 2011 14:25:31 +0000 Subject: Some experiments with PSeq (left commented out) --- src/compiler/GF/Grammar/Macros.hs | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'src/compiler/GF/Grammar/Macros.hs') diff --git a/src/compiler/GF/Grammar/Macros.hs b/src/compiler/GF/Grammar/Macros.hs index 3d8893b99..30795cecb 100644 --- a/src/compiler/GF/Grammar/Macros.hs +++ b/src/compiler/GF/Grammar/Macros.hs @@ -574,3 +574,14 @@ topoSortJments (m,mi) = do (\cyc -> Bad (render (text "circular definitions:" <+> fsep (map ppIdent (head cyc))))) (topoTest (allDependencies (==m) (jments mi))) return (reverse [(i,info) | i <- is, Ok info <- [lookupTree showIdent i (jments mi)]]) +{- +-- | Smart constructor for PSeq +pSeq p1 p2 = + case (p1,p2) of + (PString s1,PString s2) -> PString (s1++s2) + (PSeq p11 (PString s1),PString s2) -> PSeq p11 (PString (s1++s2)) + (PString s1,PSeq (PString s2) p22) -> PSeq (PString (s1++s2)) p22 + (PSeq p11 (PString s1),PSeq (PString s2) p22) -> + PSeq p11 (PSeq (PString (s1++s2)) p22) + _ -> PSeq p1 p2 +-} \ No newline at end of file -- cgit v1.2.3