mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
22 lines
472 B
Haskell
22 lines
472 B
Haskell
module Main where
|
|
|
|
import PGF
|
|
import TransferDef (transfer)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
gr <- readPGF "Query.pgf"
|
|
loop (translate transfer gr)
|
|
|
|
loop :: (String -> String) -> IO ()
|
|
loop trans = do
|
|
s <- getLine
|
|
if s == "quit" then putStrLn "bye" else do
|
|
putStrLn $ trans s
|
|
loop trans
|
|
|
|
translate :: (Tree -> Tree) -> PGF -> String -> String
|
|
translate tr gr s = case parseAllLang gr (startCat gr) s of
|
|
(lg,t:_):_ -> linearize gr lg (tr t)
|
|
_ -> "NO PARSE"
|