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

started Swadesh in 1.0: Eng and Swe ready (also stoneage1)

Browse Source
This commit is contained in:
aarne
2006-02-23 17:46:49 +00:00
parent 625a25cc68
commit 849ac10299
14 changed files with 2778 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/resource-1.0/swadesh/MkV2.hs Normal file
View File

@@ -0,0 +1,18 @@
-- to make certain verbs transitive
mkV2 file = do
ls <- readFile file >>= return . lines
mapM_ (putStrLn . mkOne) ls
mkOne li = case words li of
v : e : ws | elem v v2s ->
" " ++ unwords (v : e : "dirV2" : ["(" ++ unwords (init ws) ++ ") ;"])
_ -> li
-- grep dirV2 SwadeshEng.gf >v2s
-- readFile "v2s" >>= print . map (head . words) . lines
v2s = ["bite_V","breathe_V","count_V","cut_V","drink_V","eat_V","fear_V","fight_V","hear_V","hit_V","hold_V","hunt_V","kill_V","know_V","pull_V","push_V","rub_V","scratch_V","see_V","smell_V","split_V","squeeze_V","stab_V","suck_V","throw_V","tie_V","wash_V","wipe_V"]