mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-01 15:22:50 -06:00
20 lines
364 B
Haskell
20 lines
364 B
Haskell
-- to process constructor examples to lin commans
|
|
|
|
main = mkgfs
|
|
|
|
src = "ExxI.gf"
|
|
script = "exx.gfs"
|
|
|
|
mkgfs = do
|
|
writeFile script ""
|
|
readFile src >>= (mapM addLin . lines)
|
|
|
|
|
|
addLin s = case words s of
|
|
c@('e':'x':_):_ -> appendFile script ("l " ++ cc ++ "\n") where
|
|
cc = case take 2 (reverse c) of
|
|
"PV" -> "utt " ++ c
|
|
_ -> c
|
|
_ -> return ()
|
|
|