mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 19:22:50 -06:00
changed names of resource-1.3; added a note on homepage on release
This commit is contained in:
23
old-examples/tutorial/semantics/Top.hs
Normal file
23
old-examples/tutorial/semantics/Top.hs
Normal file
@@ -0,0 +1,23 @@
|
||||
module Main where
|
||||
|
||||
import GSyntax
|
||||
import SemBase
|
||||
import Logic
|
||||
import GF.GFCC.API
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
gr <- file2grammar "base.gfcc"
|
||||
loop gr
|
||||
|
||||
loop :: MultiGrammar -> 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
|
||||
|
||||
Reference in New Issue
Block a user