forked from GitHub/gf-core
refreshed the tutorial
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
module SemBase where
|
||||
|
||||
import GSyntax
|
||||
import Base
|
||||
import Logic
|
||||
|
||||
-- translation of Base syntax to Logic
|
||||
@@ -8,7 +8,6 @@ import Logic
|
||||
iS :: GS -> Prop
|
||||
iS s = case s of
|
||||
GPredAP np ap -> iNP np (iAP ap)
|
||||
GConjS c s t -> iConj c (iS s) (iS t)
|
||||
|
||||
iNP :: GNP -> (Exp -> Prop) -> Prop
|
||||
iNP np p = case np of
|
||||
|
||||
@@ -1,16 +1,16 @@
|
||||
module Main where
|
||||
|
||||
import GSyntax
|
||||
import Base
|
||||
import SemBase
|
||||
import Logic
|
||||
import GF.GFCC.API
|
||||
import PGF
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
gr <- file2grammar "base.gfcc"
|
||||
gr <- file2grammar "Base.pgf"
|
||||
loop gr
|
||||
|
||||
loop :: MultiGrammar -> IO ()
|
||||
loop :: PGF -> IO ()
|
||||
loop gr = do
|
||||
s <- getLine
|
||||
let t:_ = parse gr "BaseEng" "S" s
|
||||
|
||||
Reference in New Issue
Block a user