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

big lex compiles again

Browse Source
This commit is contained in:
aarne
2006-11-03 21:47:56 +00:00
parent a6d8a143ca
commit a59a89d366
2 changed files with 304 additions and 294 deletions
Download Patch File Download Diff File Expand all files Collapse all files

585
examples/big/BigLexEng.gf
View File

File diff suppressed because it is too large Load Diff

13
examples/big/postedit.hs
View File

@@ -7,7 +7,8 @@ tmp = "tm"
main = do main = do
writeFile tmp "" writeFile tmp ""
s <- readFile infile s <- readFile infile
mapM_ (appendFile tmp . mkOne) $ lines s --- $ chop s mapM_ (appendFile tmp . mkTwo) $ lines s --- $ chop s
system "cp BigLexEng.gf bak"
system "mv tm BigLexEng.gf" system "mv tm BigLexEng.gf"
chop s = case s of chop s = case s of
@@ -15,6 +16,16 @@ chop s = case s of
c:cs -> c:chop cs c:cs -> c:chop cs
_ -> s _ -> s
mkTwo s = case words s of
lin:tie:eq:"dirV3":tie_V:ws ->
let prep = case reverse (takeWhile (/='_') (reverse tie)) of
"loc" -> "in" ---
p -> p
in unwords $
[lin,tie,eq,"dirV3",show (take (length tie_V - 2) tie_V),show prep] ++
ws ++ ["\n"]
_ -> s ++ "\n"
mkOne s = case words s of mkOne s = case words s of
lin:a2:eq:pa2:ws | take 6 pa2 == "prepA2" -> lin:a2:eq:pa2:ws | take 6 pa2 == "prepA2" ->
unwords $ [lin,a2,eq,"prepA2"] ++ ws ++ ["\n"] unwords $ [lin,a2,eq,"prepA2"] ++ ws ++ ["\n"]