msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Changed CFGM format and printer to allow constants in profiles.

Browse Source
This commit is contained in:
bringert
2005-05-17 13:04:35 +00:00
parent e07b5ff6c1
commit dd872c2df3
7 changed files with 148 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/GF/CFGM/AbsCFG.hs
View File

@@ -17,7 +17,7 @@ data Flag =
deriving (Eq,Ord,Show) deriving (Eq,Ord,Show)
data Rule = data Rule =
Rule Fun Profile Category [Symbol] Rule Fun Profiles Category [Symbol]
deriving (Eq,Ord,Show) deriving (Eq,Ord,Show)
data Fun = data Fun =
@@ -25,12 +25,13 @@ data Fun =
| Coerce | Coerce
deriving (Eq,Ord,Show) deriving (Eq,Ord,Show)
data Profile = data Profiles =
Profile [Ints] Profiles [Profile]
deriving (Eq,Ord,Show) deriving (Eq,Ord,Show)
data Ints = data Profile =
Ints [Integer] UnifyProfile [Integer]
| ConstProfile Ident
deriving (Eq,Ord,Show) deriving (Eq,Ord,Show)
data Symbol = data Symbol =

11
src/GF/CFGM/CFG.cf
View File

@@ -8,16 +8,19 @@ separator Grammar "";
StartCat. Flag ::= "startcat" Category; StartCat. Flag ::= "startcat" Category;
terminator Flag ";"; terminator Flag ";";
Rule. Rule ::= Fun ":" Profile "." Category "->" [Symbol]; Rule. Rule ::= Fun ":" Profiles "." Category "->" [Symbol];
terminator Rule ";"; terminator Rule ";";
Cons. Fun ::= Ident ; Cons. Fun ::= Ident ;
Coerce. Fun ::= "_" ; Coerce. Fun ::= "_" ;
Profile. Profile ::= "[" [Ints] "]"; Profiles. Profiles ::= "[" [Profile] "]";
separator Profile ",";
UnifyProfile. Profile ::= "[" [Integer] "]";
ConstProfile. Profile ::= Ident ;
Ints. Ints ::= "[" [Integer] "]";
separator Ints ",";
separator Integer ","; separator Integer ",";
CatS. Symbol ::= Category; CatS. Symbol ::= Category;

4
src/GF/CFGM/LexCFG.hs
View File

@@ -10,8 +10,8 @@ import Data.Array
import Data.Char (ord) import Data.Char (ord)
import Data.Array.Base (unsafeAt) import Data.Array.Base (unsafeAt)
#else #else
import Data.Array import Array
import Data.Char (ord) import Char (ord)
#endif #endif
#if __GLASGOW_HASKELL__ >= 503 #if __GLASGOW_HASKELL__ >= 503
import GHC.Exts import GHC.Exts

186
src/GF/CFGM/ParCFG.hs
View File

@@ -3,7 +3,7 @@ module GF.CFGM.ParCFG where
import GF.CFGM.AbsCFG import GF.CFGM.AbsCFG
import GF.CFGM.LexCFG import GF.CFGM.LexCFG
import GF.Data.ErrM import GF.Data.ErrM
import Data.Array import Array
#if __GLASGOW_HASKELL__ >= 503 #if __GLASGOW_HASKELL__ >= 503
import GHC.Exts import GHC.Exts
#else #else
@@ -12,144 +12,144 @@ import GlaExts
-- parser produced by Happy Version 1.15 -- parser produced by Happy Version 1.15
newtype HappyAbsSyn t4 t5 t6 t7 = HappyAbsSyn (() -> ()) newtype HappyAbsSyn = HappyAbsSyn (() -> ())
happyIn4 :: t4 -> (HappyAbsSyn t4 t5 t6 t7) happyIn4 :: (Ident) -> (HappyAbsSyn )
happyIn4 x = unsafeCoerce# x happyIn4 x = unsafeCoerce# x
{-# INLINE happyIn4 #-} {-# INLINE happyIn4 #-}
happyOut4 :: (HappyAbsSyn t4 t5 t6 t7) -> t4 happyOut4 :: (HappyAbsSyn ) -> (Ident)
happyOut4 x = unsafeCoerce# x happyOut4 x = unsafeCoerce# x
{-# INLINE happyOut4 #-} {-# INLINE happyOut4 #-}
happyIn5 :: t5 -> (HappyAbsSyn t4 t5 t6 t7) happyIn5 :: (Integer) -> (HappyAbsSyn )
happyIn5 x = unsafeCoerce# x happyIn5 x = unsafeCoerce# x
{-# INLINE happyIn5 #-} {-# INLINE happyIn5 #-}
happyOut5 :: (HappyAbsSyn t4 t5 t6 t7) -> t5 happyOut5 :: (HappyAbsSyn ) -> (Integer)
happyOut5 x = unsafeCoerce# x happyOut5 x = unsafeCoerce# x
{-# INLINE happyOut5 #-} {-# INLINE happyOut5 #-}
happyIn6 :: t6 -> (HappyAbsSyn t4 t5 t6 t7) happyIn6 :: (String) -> (HappyAbsSyn )
happyIn6 x = unsafeCoerce# x happyIn6 x = unsafeCoerce# x
{-# INLINE happyIn6 #-} {-# INLINE happyIn6 #-}
happyOut6 :: (HappyAbsSyn t4 t5 t6 t7) -> t6 happyOut6 :: (HappyAbsSyn ) -> (String)
happyOut6 x = unsafeCoerce# x happyOut6 x = unsafeCoerce# x
{-# INLINE happyOut6 #-} {-# INLINE happyOut6 #-}
happyIn7 :: t7 -> (HappyAbsSyn t4 t5 t6 t7) happyIn7 :: (SingleQuoteString) -> (HappyAbsSyn )
happyIn7 x = unsafeCoerce# x happyIn7 x = unsafeCoerce# x
{-# INLINE happyIn7 #-} {-# INLINE happyIn7 #-}
happyOut7 :: (HappyAbsSyn t4 t5 t6 t7) -> t7 happyOut7 :: (HappyAbsSyn ) -> (SingleQuoteString)
happyOut7 x = unsafeCoerce# x happyOut7 x = unsafeCoerce# x
{-# INLINE happyOut7 #-} {-# INLINE happyOut7 #-}
happyIn8 :: (Grammars) -> (HappyAbsSyn t4 t5 t6 t7) happyIn8 :: (Grammars) -> (HappyAbsSyn )
happyIn8 x = unsafeCoerce# x happyIn8 x = unsafeCoerce# x
{-# INLINE happyIn8 #-} {-# INLINE happyIn8 #-}
happyOut8 :: (HappyAbsSyn t4 t5 t6 t7) -> (Grammars) happyOut8 :: (HappyAbsSyn ) -> (Grammars)
happyOut8 x = unsafeCoerce# x happyOut8 x = unsafeCoerce# x
{-# INLINE happyOut8 #-} {-# INLINE happyOut8 #-}
happyIn9 :: (Grammar) -> (HappyAbsSyn t4 t5 t6 t7) happyIn9 :: (Grammar) -> (HappyAbsSyn )
happyIn9 x = unsafeCoerce# x happyIn9 x = unsafeCoerce# x
{-# INLINE happyIn9 #-} {-# INLINE happyIn9 #-}
happyOut9 :: (HappyAbsSyn t4 t5 t6 t7) -> (Grammar) happyOut9 :: (HappyAbsSyn ) -> (Grammar)
happyOut9 x = unsafeCoerce# x happyOut9 x = unsafeCoerce# x
{-# INLINE happyOut9 #-} {-# INLINE happyOut9 #-}
happyIn10 :: ([Grammar]) -> (HappyAbsSyn t4 t5 t6 t7) happyIn10 :: ([Grammar]) -> (HappyAbsSyn )
happyIn10 x = unsafeCoerce# x happyIn10 x = unsafeCoerce# x
{-# INLINE happyIn10 #-} {-# INLINE happyIn10 #-}
happyOut10 :: (HappyAbsSyn t4 t5 t6 t7) -> ([Grammar]) happyOut10 :: (HappyAbsSyn ) -> ([Grammar])
happyOut10 x = unsafeCoerce# x happyOut10 x = unsafeCoerce# x
{-# INLINE happyOut10 #-} {-# INLINE happyOut10 #-}
happyIn11 :: (Flag) -> (HappyAbsSyn t4 t5 t6 t7) happyIn11 :: (Flag) -> (HappyAbsSyn )
happyIn11 x = unsafeCoerce# x happyIn11 x = unsafeCoerce# x
{-# INLINE happyIn11 #-} {-# INLINE happyIn11 #-}
happyOut11 :: (HappyAbsSyn t4 t5 t6 t7) -> (Flag) happyOut11 :: (HappyAbsSyn ) -> (Flag)
happyOut11 x = unsafeCoerce# x happyOut11 x = unsafeCoerce# x
{-# INLINE happyOut11 #-} {-# INLINE happyOut11 #-}
happyIn12 :: ([Flag]) -> (HappyAbsSyn t4 t5 t6 t7) happyIn12 :: ([Flag]) -> (HappyAbsSyn )
happyIn12 x = unsafeCoerce# x happyIn12 x = unsafeCoerce# x
{-# INLINE happyIn12 #-} {-# INLINE happyIn12 #-}
happyOut12 :: (HappyAbsSyn t4 t5 t6 t7) -> ([Flag]) happyOut12 :: (HappyAbsSyn ) -> ([Flag])
happyOut12 x = unsafeCoerce# x happyOut12 x = unsafeCoerce# x
{-# INLINE happyOut12 #-} {-# INLINE happyOut12 #-}
happyIn13 :: (Rule) -> (HappyAbsSyn t4 t5 t6 t7) happyIn13 :: (Rule) -> (HappyAbsSyn )
happyIn13 x = unsafeCoerce# x happyIn13 x = unsafeCoerce# x
{-# INLINE happyIn13 #-} {-# INLINE happyIn13 #-}
happyOut13 :: (HappyAbsSyn t4 t5 t6 t7) -> (Rule) happyOut13 :: (HappyAbsSyn ) -> (Rule)
happyOut13 x = unsafeCoerce# x happyOut13 x = unsafeCoerce# x
{-# INLINE happyOut13 #-} {-# INLINE happyOut13 #-}
happyIn14 :: ([Rule]) -> (HappyAbsSyn t4 t5 t6 t7) happyIn14 :: ([Rule]) -> (HappyAbsSyn )
happyIn14 x = unsafeCoerce# x happyIn14 x = unsafeCoerce# x
{-# INLINE happyIn14 #-} {-# INLINE happyIn14 #-}
happyOut14 :: (HappyAbsSyn t4 t5 t6 t7) -> ([Rule]) happyOut14 :: (HappyAbsSyn ) -> ([Rule])
happyOut14 x = unsafeCoerce# x happyOut14 x = unsafeCoerce# x
{-# INLINE happyOut14 #-} {-# INLINE happyOut14 #-}
happyIn15 :: (Fun) -> (HappyAbsSyn t4 t5 t6 t7) happyIn15 :: (Fun) -> (HappyAbsSyn )
happyIn15 x = unsafeCoerce# x happyIn15 x = unsafeCoerce# x
{-# INLINE happyIn15 #-} {-# INLINE happyIn15 #-}
happyOut15 :: (HappyAbsSyn t4 t5 t6 t7) -> (Fun) happyOut15 :: (HappyAbsSyn ) -> (Fun)
happyOut15 x = unsafeCoerce# x happyOut15 x = unsafeCoerce# x
{-# INLINE happyOut15 #-} {-# INLINE happyOut15 #-}
happyIn16 :: (Profile) -> (HappyAbsSyn t4 t5 t6 t7) happyIn16 :: (Profiles) -> (HappyAbsSyn )
happyIn16 x = unsafeCoerce# x happyIn16 x = unsafeCoerce# x
{-# INLINE happyIn16 #-} {-# INLINE happyIn16 #-}
happyOut16 :: (HappyAbsSyn t4 t5 t6 t7) -> (Profile) happyOut16 :: (HappyAbsSyn ) -> (Profiles)
happyOut16 x = unsafeCoerce# x happyOut16 x = unsafeCoerce# x
{-# INLINE happyOut16 #-} {-# INLINE happyOut16 #-}
happyIn17 :: (Ints) -> (HappyAbsSyn t4 t5 t6 t7) happyIn17 :: ([Profile]) -> (HappyAbsSyn )
happyIn17 x = unsafeCoerce# x happyIn17 x = unsafeCoerce# x
{-# INLINE happyIn17 #-} {-# INLINE happyIn17 #-}
happyOut17 :: (HappyAbsSyn t4 t5 t6 t7) -> (Ints) happyOut17 :: (HappyAbsSyn ) -> ([Profile])
happyOut17 x = unsafeCoerce# x happyOut17 x = unsafeCoerce# x
{-# INLINE happyOut17 #-} {-# INLINE happyOut17 #-}
happyIn18 :: ([Ints]) -> (HappyAbsSyn t4 t5 t6 t7) happyIn18 :: (Profile) -> (HappyAbsSyn )
happyIn18 x = unsafeCoerce# x happyIn18 x = unsafeCoerce# x
{-# INLINE happyIn18 #-} {-# INLINE happyIn18 #-}
happyOut18 :: (HappyAbsSyn t4 t5 t6 t7) -> ([Ints]) happyOut18 :: (HappyAbsSyn ) -> (Profile)
happyOut18 x = unsafeCoerce# x happyOut18 x = unsafeCoerce# x
{-# INLINE happyOut18 #-} {-# INLINE happyOut18 #-}
happyIn19 :: ([Integer]) -> (HappyAbsSyn t4 t5 t6 t7) happyIn19 :: ([Integer]) -> (HappyAbsSyn )
happyIn19 x = unsafeCoerce# x happyIn19 x = unsafeCoerce# x
{-# INLINE happyIn19 #-} {-# INLINE happyIn19 #-}
happyOut19 :: (HappyAbsSyn t4 t5 t6 t7) -> ([Integer]) happyOut19 :: (HappyAbsSyn ) -> ([Integer])
happyOut19 x = unsafeCoerce# x happyOut19 x = unsafeCoerce# x
{-# INLINE happyOut19 #-} {-# INLINE happyOut19 #-}
happyIn20 :: (Symbol) -> (HappyAbsSyn t4 t5 t6 t7) happyIn20 :: (Symbol) -> (HappyAbsSyn )
happyIn20 x = unsafeCoerce# x happyIn20 x = unsafeCoerce# x
{-# INLINE happyIn20 #-} {-# INLINE happyIn20 #-}
happyOut20 :: (HappyAbsSyn t4 t5 t6 t7) -> (Symbol) happyOut20 :: (HappyAbsSyn ) -> (Symbol)
happyOut20 x = unsafeCoerce# x happyOut20 x = unsafeCoerce# x
{-# INLINE happyOut20 #-} {-# INLINE happyOut20 #-}
happyIn21 :: ([Symbol]) -> (HappyAbsSyn t4 t5 t6 t7) happyIn21 :: ([Symbol]) -> (HappyAbsSyn )
happyIn21 x = unsafeCoerce# x happyIn21 x = unsafeCoerce# x
{-# INLINE happyIn21 #-} {-# INLINE happyIn21 #-}
happyOut21 :: (HappyAbsSyn t4 t5 t6 t7) -> ([Symbol]) happyOut21 :: (HappyAbsSyn ) -> ([Symbol])
happyOut21 x = unsafeCoerce# x happyOut21 x = unsafeCoerce# x
{-# INLINE happyOut21 #-} {-# INLINE happyOut21 #-}
happyIn22 :: (Category) -> (HappyAbsSyn t4 t5 t6 t7) happyIn22 :: (Category) -> (HappyAbsSyn )
happyIn22 x = unsafeCoerce# x happyIn22 x = unsafeCoerce# x
{-# INLINE happyIn22 #-} {-# INLINE happyIn22 #-}
happyOut22 :: (HappyAbsSyn t4 t5 t6 t7) -> (Category) happyOut22 :: (HappyAbsSyn ) -> (Category)
happyOut22 x = unsafeCoerce# x happyOut22 x = unsafeCoerce# x
{-# INLINE happyOut22 #-} {-# INLINE happyOut22 #-}
happyInTok :: Token -> (HappyAbsSyn t4 t5 t6 t7) happyInTok :: Token -> (HappyAbsSyn )
happyInTok x = unsafeCoerce# x happyInTok x = unsafeCoerce# x
{-# INLINE happyInTok #-} {-# INLINE happyInTok #-}
happyOutTok :: (HappyAbsSyn t4 t5 t6 t7) -> Token happyOutTok :: (HappyAbsSyn ) -> Token
happyOutTok x = unsafeCoerce# x happyOutTok x = unsafeCoerce# x
{-# INLINE happyOutTok #-} {-# INLINE happyOutTok #-}
happyActOffsets :: HappyAddr happyActOffsets :: HappyAddr
happyActOffsets = HappyA# "\x00\x00\x37\x00\x00\x00\x31\x00\x34\x00\x00\x00\x30\x00\x00\x00\x2e\x00\x36\x00\x17\x00\x2c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x35\x00\x33\x00\x00\x00\x2a\x00\x00\x00\x00\x00\x2d\x00\x00\x00\x2f\x00\x2b\x00\x27\x00\x29\x00\x21\x00\x1e\x00\x28\x00\x22\x00\x24\x00\x00\x00\x00\x00\x23\x00\x00\x00\x00\x00\x11\x00\x0b\x00\x00\x00\x0b\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# happyActOffsets = HappyA# "\x00\x00\x36\x00\x00\x00\x29\x00\x35\x00\x00\x00\x32\x00\x00\x00\x30\x00\x38\x00\x19\x00\x2e\x00\x00\x00\x00\x00\x00\x00\x00\x00\x37\x00\x34\x00\x00\x00\x2d\x00\x00\x00\x00\x00\x2f\x00\x00\x00\x31\x00\xfd\xff\x00\x00\x2c\x00\x2a\x00\x23\x00\x22\x00\x2b\x00\x25\x00\x20\x00\x00\x00\xfd\xff\x00\x00\x00\x00\x00\x00\x17\x00\x1c\x00\x00\x00\x1c\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
happyGotoOffsets :: HappyAddr happyGotoOffsets :: HappyAddr
happyGotoOffsets = HappyA# "\x19\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x0c\x00\x05\x00\x01\x00\x00\x00\x1b\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xf7\xff\x00\x00\x00\x00\x1a\x00\x00\x00\x00\x00\x09\x00\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x14\x00\x00\x00\x00\x00\x08\x00\x02\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# happyGotoOffsets = HappyA# "\x28\x00\x00\x00\x00\x00\x00\x00\x1e\x00\x00\x00\x21\x00\x05\x00\x01\x00\x00\x00\x1d\x00\x04\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x14\x00\x00\x00\x00\x00\x0c\x00\x00\x00\x00\x00\x00\x00\x1a\x00\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x0a\x00\x00\x00\x00\x00\x00\x00\x0d\x00\x02\x00\x00\x00\xff\xff\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
happyDefActions :: HappyAddr happyDefActions :: HappyAddr
happyDefActions = HappyA# "\xf8\xff\x00\x00\xfe\xff\x00\x00\xfa\xff\xf7\xff\x00\x00\xf5\xff\xf2\xff\x00\x00\x00\x00\x00\x00\xe1\xff\xf6\xff\xfb\xff\xf0\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf4\xff\xf9\xff\x00\x00\xf1\xff\x00\x00\xec\xff\xeb\xff\x00\x00\xe9\xff\x00\x00\x00\x00\xe8\xff\x00\x00\xfd\xff\xee\xff\xec\xff\xea\xff\xed\xff\xe9\xff\x00\x00\xe5\xff\xe3\xff\xf3\xff\xe6\xff\xe4\xff\xfc\xff\xe7\xff\xe2\xff"# happyDefActions = HappyA# "\xf8\xff\x00\x00\xfe\xff\x00\x00\xfa\xff\xf7\xff\x00\x00\xf5\xff\xf2\xff\x00\x00\x00\x00\x00\x00\xe0\xff\xf6\xff\xfb\xff\xf0\xff\x00\x00\x00\x00\xef\xff\x00\x00\xf4\xff\xf9\xff\x00\x00\xf1\xff\x00\x00\xed\xff\xe9\xff\x00\x00\xec\xff\xe8\xff\x00\x00\x00\x00\xe7\xff\x00\x00\xfd\xff\xed\xff\xee\xff\xeb\xff\xea\xff\xe8\xff\x00\x00\xe4\xff\xe2\xff\xf3\xff\xe5\xff\xe3\xff\xfc\xff\xe6\xff\xe1\xff"#
happyCheck :: HappyAddr happyCheck :: HappyAddr
happyCheck = HappyA# "\xff\xff\x02\x00\x03\x00\x0c\x00\x02\x00\x03\x00\x03\x00\x03\x00\x07\x00\x01\x00\x01\x00\x0a\x00\x00\x00\x08\x00\x03\x00\x10\x00\x11\x00\x12\x00\x10\x00\x11\x00\x12\x00\x12\x00\x12\x00\x0f\x00\x0f\x00\x0e\x00\x0f\x00\x00\x00\x05\x00\x04\x00\x0d\x00\x06\x00\x09\x00\x0d\x00\x0e\x00\x0c\x00\x09\x00\x05\x00\x0b\x00\x0d\x00\x0e\x00\x06\x00\x08\x00\x07\x00\x04\x00\x0f\x00\x0d\x00\x08\x00\x07\x00\x06\x00\x03\x00\x06\x00\x0a\x00\x02\x00\x01\x00\x01\x00\xff\xff\x0b\x00\xff\xff\x0f\x00\x0c\x00\xff\xff\x0a\x00\xff\xff\xff\xff\xff\xff\x11\x00\x0c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"# happyCheck = HappyA# "\xff\xff\x02\x00\x03\x00\x06\x00\x02\x00\x03\x00\x03\x00\x03\x00\x07\x00\x0c\x00\x00\x00\x0a\x00\x00\x00\x08\x00\x01\x00\x10\x00\x11\x00\x12\x00\x10\x00\x11\x00\x12\x00\x12\x00\x12\x00\x0d\x00\x0e\x00\x0d\x00\x0e\x00\x01\x00\x0f\x00\x00\x00\x05\x00\x03\x00\x0c\x00\x00\x00\x09\x00\x05\x00\x0d\x00\x0c\x00\x09\x00\x07\x00\x0b\x00\x0f\x00\x0e\x00\x0f\x00\x04\x00\x08\x00\x06\x00\x04\x00\x0d\x00\x0f\x00\x08\x00\x07\x00\x03\x00\x06\x00\x02\x00\x0a\x00\x01\x00\x01\x00\x11\x00\x0b\x00\xff\xff\x0f\x00\x0c\x00\x0a\x00\xff\xff\xff\xff\x0c\x00\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"#
happyTable :: HappyAddr happyTable :: HappyAddr
happyTable = HappyA# "\x00\x00\x28\x00\x0c\x00\x18\x00\x28\x00\x0c\x00\x0c\x00\x0c\x00\x09\x00\x1f\x00\x1f\x00\x0a\x00\x07\x00\x08\x00\x2d\x00\x29\x00\x2f\x00\x2b\x00\x29\x00\x2a\x00\x2b\x00\x1e\x00\x0d\x00\x2e\x00\x20\x00\x2e\x00\x0f\x00\x0f\x00\x13\x00\x03\x00\x22\x00\x04\x00\x14\x00\x1a\x00\x24\x00\x03\x00\x10\x00\x05\x00\x11\x00\x1a\x00\x1b\x00\x1d\x00\x27\x00\x26\x00\x28\x00\x0f\x00\x22\x00\x24\x00\x23\x00\x1d\x00\x1e\x00\x1a\x00\x16\x00\x17\x00\x18\x00\x15\x00\x00\x00\x0c\x00\x00\x00\x0f\x00\x03\x00\x00\x00\x07\x00\x00\x00\x00\x00\x00\x00\xff\xff\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"# happyTable = HappyA# "\x00\x00\x29\x00\x0c\x00\x1e\x00\x29\x00\x0c\x00\x0c\x00\x0c\x00\x09\x00\x03\x00\x1a\x00\x0a\x00\x1a\x00\x08\x00\x20\x00\x2a\x00\x30\x00\x2c\x00\x2a\x00\x2b\x00\x2c\x00\x1f\x00\x0d\x00\x25\x00\x1c\x00\x1b\x00\x1c\x00\x20\x00\x2f\x00\x0f\x00\x13\x00\x2e\x00\x18\x00\x07\x00\x14\x00\x05\x00\x23\x00\x03\x00\x10\x00\x27\x00\x11\x00\x21\x00\x2f\x00\x0f\x00\x03\x00\x28\x00\x04\x00\x29\x00\x23\x00\x0f\x00\x24\x00\x25\x00\x1f\x00\x1a\x00\x17\x00\x16\x00\x18\x00\x15\x00\xff\xff\x0c\x00\x00\x00\x0f\x00\x03\x00\x07\x00\x00\x00\x00\x00\x03\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00"#
happyReduceArr = array (1, 30) [ happyReduceArr = array (1, 31) [
(1 , happyReduce_1), (1 , happyReduce_1),
(2 , happyReduce_2), (2 , happyReduce_2),
(3 , happyReduce_3), (3 , happyReduce_3),
@@ -179,7 +179,8 @@ happyReduceArr = array (1, 30) [
(27 , happyReduce_27), (27 , happyReduce_27),
(28 , happyReduce_28), (28 , happyReduce_28),
(29 , happyReduce_29), (29 , happyReduce_29),
(30 , happyReduce_30) (30 , happyReduce_30),
(31 , happyReduce_31)
] ]
happy_n_terms = 18 :: Int happy_n_terms = 18 :: Int
@@ -321,56 +322,63 @@ happyReduce_17 = happySpecReduce_3 12# happyReduction_17
happyReduction_17 happy_x_3 happyReduction_17 happy_x_3
happy_x_2 happy_x_2
happy_x_1 happy_x_1
= case happyOut18 happy_x_2 of { happy_var_2 -> = case happyOut17 happy_x_2 of { happy_var_2 ->
happyIn16 happyIn16
(Profile happy_var_2 (Profiles happy_var_2
)} )}
happyReduce_18 = happySpecReduce_3 13# happyReduction_18 happyReduce_18 = happySpecReduce_0 13# happyReduction_18
happyReduction_18 happy_x_3 happyReduction_18 = happyIn17
happy_x_2
happy_x_1
= case happyOut19 happy_x_2 of { happy_var_2 ->
happyIn17
(Ints happy_var_2
)}
happyReduce_19 = happySpecReduce_0 14# happyReduction_19
happyReduction_19 = happyIn18
([] ([]
) )
happyReduce_20 = happySpecReduce_1 14# happyReduction_20 happyReduce_19 = happySpecReduce_1 13# happyReduction_19
happyReduction_20 happy_x_1 happyReduction_19 happy_x_1
= case happyOut17 happy_x_1 of { happy_var_1 -> = case happyOut18 happy_x_1 of { happy_var_1 ->
happyIn18 happyIn17
((:[]) happy_var_1 ((:[]) happy_var_1
)} )}
happyReduce_20 = happySpecReduce_3 13# happyReduction_20
happyReduction_20 happy_x_3
happy_x_2
happy_x_1
= case happyOut18 happy_x_1 of { happy_var_1 ->
case happyOut17 happy_x_3 of { happy_var_3 ->
happyIn17
((:) happy_var_1 happy_var_3
)}}
happyReduce_21 = happySpecReduce_3 14# happyReduction_21 happyReduce_21 = happySpecReduce_3 14# happyReduction_21
happyReduction_21 happy_x_3 happyReduction_21 happy_x_3
happy_x_2 happy_x_2
happy_x_1 happy_x_1
= case happyOut17 happy_x_1 of { happy_var_1 -> = case happyOut19 happy_x_2 of { happy_var_2 ->
case happyOut18 happy_x_3 of { happy_var_3 ->
happyIn18 happyIn18
((:) happy_var_1 happy_var_3 (UnifyProfile happy_var_2
)}} )}
happyReduce_22 = happySpecReduce_0 15# happyReduction_22 happyReduce_22 = happySpecReduce_1 14# happyReduction_22
happyReduction_22 = happyIn19 happyReduction_22 happy_x_1
= case happyOut4 happy_x_1 of { happy_var_1 ->
happyIn18
(ConstProfile happy_var_1
)}
happyReduce_23 = happySpecReduce_0 15# happyReduction_23
happyReduction_23 = happyIn19
([] ([]
) )
happyReduce_23 = happySpecReduce_1 15# happyReduction_23 happyReduce_24 = happySpecReduce_1 15# happyReduction_24
happyReduction_23 happy_x_1 happyReduction_24 happy_x_1
= case happyOut5 happy_x_1 of { happy_var_1 -> = case happyOut5 happy_x_1 of { happy_var_1 ->
happyIn19 happyIn19
((:[]) happy_var_1 ((:[]) happy_var_1
)} )}
happyReduce_24 = happySpecReduce_3 15# happyReduction_24 happyReduce_25 = happySpecReduce_3 15# happyReduction_25
happyReduction_24 happy_x_3 happyReduction_25 happy_x_3
happy_x_2 happy_x_2
happy_x_1 happy_x_1
= case happyOut5 happy_x_1 of { happy_var_1 -> = case happyOut5 happy_x_1 of { happy_var_1 ->
@@ -379,35 +387,35 @@ happyReduction_24 happy_x_3
((:) happy_var_1 happy_var_3 ((:) happy_var_1 happy_var_3
)}} )}}
happyReduce_25 = happySpecReduce_1 16# happyReduction_25 happyReduce_26 = happySpecReduce_1 16# happyReduction_26
happyReduction_25 happy_x_1 happyReduction_26 happy_x_1
= case happyOut22 happy_x_1 of { happy_var_1 -> = case happyOut22 happy_x_1 of { happy_var_1 ->
happyIn20 happyIn20
(CatS happy_var_1 (CatS happy_var_1
)} )}
happyReduce_26 = happySpecReduce_1 16# happyReduction_26 happyReduce_27 = happySpecReduce_1 16# happyReduction_27
happyReduction_26 happy_x_1 happyReduction_27 happy_x_1
= case happyOut6 happy_x_1 of { happy_var_1 -> = case happyOut6 happy_x_1 of { happy_var_1 ->
happyIn20 happyIn20
(TermS happy_var_1 (TermS happy_var_1
)} )}
happyReduce_27 = happySpecReduce_1 17# happyReduction_27 happyReduce_28 = happySpecReduce_1 17# happyReduction_28
happyReduction_27 happy_x_1 happyReduction_28 happy_x_1
= happyIn21 = happyIn21
([] ([]
) )
happyReduce_28 = happySpecReduce_1 17# happyReduction_28 happyReduce_29 = happySpecReduce_1 17# happyReduction_29
happyReduction_28 happy_x_1 happyReduction_29 happy_x_1
= case happyOut20 happy_x_1 of { happy_var_1 -> = case happyOut20 happy_x_1 of { happy_var_1 ->
happyIn21 happyIn21
((:[]) happy_var_1 ((:[]) happy_var_1
)} )}
happyReduce_29 = happySpecReduce_2 17# happyReduction_29 happyReduce_30 = happySpecReduce_2 17# happyReduction_30
happyReduction_29 happy_x_2 happyReduction_30 happy_x_2
happy_x_1 happy_x_1
= case happyOut20 happy_x_1 of { happy_var_1 -> = case happyOut20 happy_x_1 of { happy_var_1 ->
case happyOut21 happy_x_2 of { happy_var_2 -> case happyOut21 happy_x_2 of { happy_var_2 ->
@@ -415,8 +423,8 @@ happyReduction_29 happy_x_2
((:) happy_var_1 happy_var_2 ((:) happy_var_1 happy_var_2
)}} )}}
happyReduce_30 = happySpecReduce_1 18# happyReduction_30 happyReduce_31 = happySpecReduce_1 18# happyReduction_31
happyReduction_30 happy_x_1 happyReduction_31 happy_x_1
= case happyOut7 happy_x_1 of { happy_var_1 -> = case happyOut7 happy_x_1 of { happy_var_1 ->
happyIn22 happyIn22
(Category happy_var_1 (Category happy_var_1
@@ -476,7 +484,7 @@ happyError ts =
myLexer = tokens myLexer = tokens
{-# LINE 1 "GenericTemplate.hs" #-} {-# LINE 1 "GenericTemplate.hs" #-}
-- $Id: ParCFG.hs,v 1.7 2005/04/21 16:21:17 bringert Exp $ -- $Id: ParCFG.hs,v 1.8 2005/05/17 14:04:37 bringert Exp $

34
src/GF/CFGM/ParCFG.y
View File

@@ -8,6 +8,7 @@ import ErrM
%name pGrammars Grammars %name pGrammars Grammars
-- no lexer declaration
%monad { Err } { thenM } { returnM } %monad { Err } { thenM } { returnM }
%tokentype { Token } %tokentype { Token }
@@ -33,10 +34,10 @@ L_err { _ }
%% %%
Ident : L_ident { Ident $1 } Ident :: { Ident } : L_ident { Ident $1 }
Integer : L_integ { (read $1) :: Integer } Integer :: { Integer } : L_integ { (read $1) :: Integer }
String : L_quoted { $1 } String :: { String } : L_quoted { $1 }
SingleQuoteString : L_SingleQuoteString { SingleQuoteString ($1)} SingleQuoteString :: { SingleQuoteString} : L_SingleQuoteString { SingleQuoteString ($1)}
Grammars :: { Grammars } Grammars :: { Grammars }
Grammars : ListGrammar { Grammars (reverse $1) } Grammars : ListGrammar { Grammars (reverse $1) }
@@ -61,7 +62,7 @@ ListFlag : {- empty -} { [] }
Rule :: { Rule } Rule :: { Rule }
Rule : Fun ':' Profile '.' Category '->' ListSymbol { Rule $1 $3 $5 $7 } Rule : Fun ':' Profiles '.' Category '->' ListSymbol { Rule $1 $3 $5 $7 }
ListRule :: { [Rule] } ListRule :: { [Rule] }
@@ -74,18 +75,19 @@ Fun : Ident { Cons $1 }
| '_' { Coerce } | '_' { Coerce }
Profiles :: { Profiles }
Profiles : '[' ListProfile ']' { Profiles $2 }
ListProfile :: { [Profile] }
ListProfile : {- empty -} { [] }
| Profile { (:[]) $1 }
| Profile ',' ListProfile { (:) $1 $3 }
Profile :: { Profile } Profile :: { Profile }
Profile : '[' ListInts ']' { Profile $2 } Profile : '[' ListInteger ']' { UnifyProfile $2 }
| Ident { ConstProfile $1 }
Ints :: { Ints }
Ints : '[' ListInteger ']' { Ints $2 }
ListInts :: { [Ints] }
ListInts : {- empty -} { [] }
| Ints { (:[]) $1 }
| Ints ',' ListInts { (:) $1 $3 }
ListInteger :: { [Integer] } ListInteger :: { [Integer] }

17
src/GF/CFGM/PrintCFG.hs
View File

@@ -3,7 +3,7 @@ module GF.CFGM.PrintCFG where
-- pretty-printer generated by the BNF converter -- pretty-printer generated by the BNF converter
import GF.CFGM.AbsCFG import GF.CFGM.AbsCFG
import Data.Char import Char
-- the top-level printing method -- the top-level printing method
printTree :: Print a => a -> String printTree :: Print a => a -> String
@@ -112,7 +112,7 @@ instance Print Flag where
instance Print Rule where instance Print Rule where
prt i e = case e of prt i e = case e of
Rule fun profile category symbols -> prPrec i 0 (concatD [prt 0 fun , doc (showString ":") , prt 0 profile , doc (showString ".") , prt 0 category , doc (showString "->") , prt 0 symbols]) Rule fun profiles category symbols -> prPrec i 0 (concatD [prt 0 fun , doc (showString ":") , prt 0 profiles , doc (showString ".") , prt 0 category , doc (showString "->") , prt 0 symbols])
prtList es = case es of prtList es = case es of
[] -> (concatD []) [] -> (concatD [])
@@ -124,14 +124,15 @@ instance Print Fun where
Coerce -> prPrec i 0 (concatD [doc (showString "_")]) Coerce -> prPrec i 0 (concatD [doc (showString "_")])
instance Print Profiles where
prt i e = case e of
Profiles profiles -> prPrec i 0 (concatD [doc (showString "[") , prt 0 profiles , doc (showString "]")])
instance Print Profile where instance Print Profile where
prt i e = case e of prt i e = case e of
Profile intss -> prPrec i 0 (concatD [doc (showString "[") , prt 0 intss , doc (showString "]")]) UnifyProfile ns -> prPrec i 0 (concatD [doc (showString "[") , prt 0 ns , doc (showString "]")])
ConstProfile id -> prPrec i 0 (concatD [prt 0 id])
instance Print Ints where
prt i e = case e of
Ints ns -> prPrec i 0 (concatD [doc (showString "[") , prt 0 ns , doc (showString "]")])
prtList es = case es of prtList es = case es of
[] -> (concatD []) [] -> (concatD [])

17
src/GF/CFGM/PrintCFGrammar.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable) -- Stability : (stable)
-- Portability : (portable) -- Portability : (portable)
-- --
-- > CVS $Date: 2005/05/17 11:20:25 $ -- > CVS $Date: 2005/05/17 14:04:38 $
-- > CVS $Author: peb $ -- > CVS $Author: bringert $
-- > CVS $Revision: 1.19 $ -- > CVS $Revision: 1.20 $
-- --
-- Handles printing a CFGrammar in CFGM format. -- Handles printing a CFGrammar in CFGM format.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
@@ -80,11 +80,12 @@ ruleToCFGMRule (CFRule c rhs (GU.Name fun profile))
c' = catToCFGMCat c c' = catToCFGMCat c
rhs' = map symbolToGFCMSymbol rhs rhs' = map symbolToGFCMSymbol rhs
profileToCFGMProfile :: [GU.Profile a] -> AbsCFG.Profile profileToCFGMProfile :: [GU.Profile (GU.SyntaxForest GT.Fun)] -> AbsCFG.Profiles
profileToCFGMProfile = AbsCFG.Profile . map cnvProfile profileToCFGMProfile = AbsCFG.Profiles . map cnvProfile
where cnvProfile (GU.Unify ns) = AbsCFG.Ints $ map fromIntegral ns where cnvProfile (GU.Unify ns) = AbsCFG.UnifyProfile $ map fromIntegral ns
cnvProfile (GU.Constant a) = AbsCFG.Ints [] -- FIXME: is it always FNode?
-- FIXME: this should be replaced with a new constructor in 'AbsCFG' cnvProfile (GU.Constant (GU.FNode c _)) = AbsCFG.ConstProfile $ identToCFGMIdent c
identToCFGMIdent :: Ident -> AbsCFG.Ident identToCFGMIdent :: Ident -> AbsCFG.Ident
identToCFGMIdent = AbsCFG.Ident . prt identToCFGMIdent = AbsCFG.Ident . prt