mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 13:09:33 -06:00
24 lines
350 B
Haskell
24 lines
350 B
Haskell
module Main where
|
|
|
|
import Base
|
|
import SemBase
|
|
import Logic
|
|
import PGF
|
|
|
|
main :: IO ()
|
|
main = do
|
|
gr <- file2grammar "Base.pgf"
|
|
loop gr
|
|
|
|
loop :: PGF -> IO ()
|
|
loop gr = do
|
|
s <- getLine
|
|
let t:_ = parse gr "BaseEng" "S" s
|
|
putStrLn $ showTree t
|
|
let p = iS $ fg t
|
|
putStrLn $ show p
|
|
let v = valProp exModel [] p
|
|
putStrLn $ show v
|
|
loop gr
|
|
|