GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 08:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

checkd BasicNor and half of SwadeshNor

Browse Source
This commit is contained in:
aarne
2005-03-13 09:55:09 +00:00
parent fbc4d1a439
commit 9687b0f395
8 changed files with 209 additions and 422 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/resource/MkLexicon.hs
View File

@@ -106,3 +106,15 @@ prQuot s = "\"" ++ s ++ "\""
isConsonant = not . isVowel
isVowel = flip elem "aeiouyäöå"
-- Norwegian 13/3
groupLines :: [String] -> [String]
groupLines ss = [unwords [a, b, c] | [a,_,b,c,_] <- grps ss] where
grps ls = let (g,rest) = splitAt 5 ls in g:grps rest
lin2fun s = case words s of
_:fun:_:_ -> " fun " ++ fun ++ " : " ++ cat fun ++ " ;"
_ -> s
where
cat fun = reverse (takeWhile (/='_') (reverse fun))