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

kotus experiments; bindings in gfcc

Browse Source
This commit is contained in:
aarne
2008-02-13 17:47:54 +00:00
parent c143bd7d10
commit 34037dbf3c
12 changed files with 55381 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
examples/uusisuomi/MkLex.hs
View File

@@ -37,9 +37,9 @@ initiate tgt cat i = mapM_ putStrLn [
"lin testV = showV ;"
]
nums = map prt [1 ..] where
nums = map prt [10001 ..] where
---- prt i = (if i < 10 then "0" else "") ++ show i ++ ". "
prt i = let n = show i in replicate (4-length n) '0' ++ n ++ ". "
prt i = show i ++ ". "
-- W is the flag for mixed-class word lists
mkLex "W" 0 line = case words line of