refreshed the tutorial

This commit is contained in:
aarne
2008-10-01 13:13:10 +00:00
parent 8fbdf3e57c
commit 307042a6a1
3 changed files with 424 additions and 597 deletions

File diff suppressed because it is too large Load Diff

View File

@@ -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

View File

@@ -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