mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
refreshed the tutorial
This commit is contained in:
1010
doc/gf-tutorial.html
1010
doc/gf-tutorial.html
File diff suppressed because it is too large
Load Diff
@@ -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