diff options
| author | aarne <unknown> | 2005-06-23 13:32:43 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-06-23 13:32:43 +0000 |
| commit | 22b5b12a2a80835eb5792f3687106084eb95bd0d (patch) | |
| tree | f042b573418181eed582908e1508501bfcb7e7d1 /src/GF/UseGrammar | |
| parent | 34e441d2e35ade46ed560bf7f4139c16a7b0c505 (diff) | |
finnish vowel harmony unlexer ; optimizations and mcfg
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 7 | ||||
| -rw-r--r-- | src/GF/UseGrammar/Linear.hs | 7 |
2 files changed, 8 insertions, 6 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index e158a19c4..40c625612 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/06/17 12:46:05 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.64 $ +-- > CVS $Date: 2005/06/23 14:32:44 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.65 $ -- -- A database for customizable GF shell commands. -- @@ -404,6 +404,7 @@ customUntokenizer = ,(strCI "codelit", const $ formatAsCodeLit) ,(strCI "concat", const $ concatRemSpace) ,(strCI "glue", const $ performBinds) + ,(strCI "finnish", const $ performBindsFinnish) ,(strCI "reverse", const $ reverse) ,(strCI "bind", const $ performBinds) -- backward compat -- add your own untokenizers here diff --git a/src/GF/UseGrammar/Linear.hs b/src/GF/UseGrammar/Linear.hs index 4df459ec6..3899aa48f 100644 --- a/src/GF/UseGrammar/Linear.hs +++ b/src/GF/UseGrammar/Linear.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/06/23 09:43:40 $ --- > CVS $Author: peb $ --- > CVS $Revision: 1.16 $ +-- > CVS $Date: 2005/06/23 14:32:44 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.17 $ -- -- Linearization for canonical GF. AR 7\/6\/2003 ----------------------------------------------------------------------------- @@ -93,6 +93,7 @@ linearizeNoMark gr = linearizeToRecord gr noMark -- | expand tables in linearized term to full, normal-order tables -- -- NB expand from inside-out so that values are not looked up in copies of branches + expandLinTables :: CanonGrammar -> Term -> Err Term expandLinTables gr t = case t of R rs -> liftM (R . map (uncurry Ass)) $ mapPairsM exp [(l,r) | Ass l r <- rs] |