From e9e80fc389365e24d4300d7d5390c7d833a96c50 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 25 Jun 2008 16:54:35 +0000 Subject: changed names of resource-1.3; added a note on homepage on release --- examples/big/MkDict.hs | 48 ------------------------------------------------ 1 file changed, 48 deletions(-) delete mode 100644 examples/big/MkDict.hs (limited to 'examples/big/MkDict.hs') diff --git a/examples/big/MkDict.hs b/examples/big/MkDict.hs deleted file mode 100644 index babf7809f..000000000 --- a/examples/big/MkDict.hs +++ /dev/null @@ -1,48 +0,0 @@ -import Char - -infile = "mywordlist1" - -main = do - s <- readFile infile - mapM_ (putStrLn . mkOne) $ lines s - -mkOne s = case words s of - "--":_ -> "" - ('(':_):w:cat:ws -> unwords $ mkCatf (nopar cat) (more ws) w - _ -> "-- " ++ s - where - more ws = case ws of - _ | elem "(REG" ws -> "irreg" - _ -> "reg" - nopar = filter (flip notElem "()") - mkCatf c r w = case c of - "Noun" -> ["N","regN",w] - "PRT" -> ["Adv","mkAdv",w] ---- - "TITLE" -> ["N","regN",w] ---- - "Adject" -> ["A","regA",w] - "AdjInf" -> ["A","regA",w] ---- - "AdjInf_LONG" -> ["A","longA",w] ---- - "AdjPrd" -> ["A","regA",w] ---- - "AdjPrd_LONG" -> ["A","longA",w] ---- - "Adject_LONG" -> ["A","longA",w] - "Verb" | r == "irreg" -> [] - "Verb" -> ["V","regV",w] - "V2" | r == "irreg" -> ["V2","irreg", w, "_V"] - "V2" -> ["V2","regV2", w] - "PNoun" -> ["PN","regPN",toUpper (head w): tail w] - 'V':'2':'_':prep | r == "irreg" -> - let p = map toLower prep in ["V2","mkV2_"++p, w, "_V", p] - x:'2':'_':prep -> - let p = map toLower prep in [[x]++"2","prep" ++[x]++"2"++p, w, p] - "V3_NP" | r == "irreg" -> ["V3","irreg", w, "_V"] - "V3_NP" -> ["V3","regV3", w] - 'V':'3':'_':'P':'P':prep | r == "irreg" -> - let p = map toLower prep in ["V3","mkV3_"++p, w, "_V", p] - 'V':'3':'_':'P':'P':prep -> - let p = map toLower prep in ["V3","mkV3_"++p, w, p] - 'V':'3':'_':'S':_ | r == "irreg" -> ["V2","mkV2_S", w, "_V"] ---- - 'V':'3':'_':'S':_ -> ["V2","mkV2_S", w] ---- - 'V':'3':'_':_ -> ["V3","mkV3", w] ---- - - _ -> [c,"mk" ++ c, w] - -- cgit v1.2.3