mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-19 08:02:51 -06:00
31 lines
828 B
Haskell
31 lines
828 B
Haskell
----------------------------------------------------------------------
|
|
-- |
|
|
-- Module : Glue
|
|
-- Maintainer : AR
|
|
-- Stability : (stable)
|
|
-- Portability : (portable)
|
|
--
|
|
-- > CVS $Date: 2005/02/18 19:21:14 $
|
|
-- > CVS $Author: peb $
|
|
-- > CVS $Revision: 1.6 $
|
|
--
|
|
-- AR 8-11-2003, using Markus Forsberg's implementation of Huet's @unglue@
|
|
-----------------------------------------------------------------------------
|
|
|
|
module Glue (decomposeSimple) where
|
|
|
|
import Trie2
|
|
import Operations
|
|
import List
|
|
|
|
decomposeSimple :: Trie Char a -> [Char] -> Err [[Char]]
|
|
decomposeSimple t s = do
|
|
let ss = map (decompose t) $ words s
|
|
if any null ss
|
|
then Bad "unknown word in input"
|
|
else return $ concat [intersperse "&+" ws | ws <- ss]
|
|
|
|
exTrie = tcompile (zip ws ws) where
|
|
ws = words "ett två tre tjugo trettio hundra tusen"
|
|
|