From 76ba03b545600054176612201de78dca16eb65e1 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 22 Nov 2010 12:55:37 +0000 Subject: started a subdir for the book --- book/examples/chapter9/SemanticsIta.gf | 42 ++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 book/examples/chapter9/SemanticsIta.gf (limited to 'book/examples/chapter9/SemanticsIta.gf') diff --git a/book/examples/chapter9/SemanticsIta.gf b/book/examples/chapter9/SemanticsIta.gf new file mode 100644 index 000000000..70d4b79b9 --- /dev/null +++ b/book/examples/chapter9/SemanticsIta.gf @@ -0,0 +1,42 @@ +concrete SemanticsIta of Semantics = GrammarIta, LogicSymb ** open ResIta, Formal, Prelude in { + +lin + iN f = star (f.s ! Sg) ; + iA f = star (f.s ! Masc ! Sg) ; + iV f = star (f.s ! VInf) ; + iV2 f x y = star (f.s ! VInf) (cc2 x y) ; + +oper star : Str -> SS -> TermPrec = \f,x -> prefix 3 (f ++ "*") (constant (parenth x.s)) ; + +{- + +lincat + T, I = TermPrec ; +lin + And = infixl 2 "&" ; + Or = infixl 2 "v" ; + If = infixr 1 "->" ; +-- Not = prefix 3 "~" ; +-- All : (I -> T) -> T ; +-- Exist : (I -> T) -> T ; +-- Past : T -> T ; + +lin + iS : S -> T ; + iCl : Cl -> T ; + iNP : NP -> (I -> T) -> T ; + iVP : VP -> I -> T ; + iAP : AP -> I -> T ; + iCN : CN -> I -> T ; + iDet : Det -> (I -> T) -> (I -> T) -> T ; + iN : N -> I -> T ; + iA : A -> I -> T ; + iV : V -> I -> T ; + iV2 : V2 -> I -> I -> T ; + iAdA : AdA -> (I -> T) -> I -> T ; + iTense : Tense -> T -> T ; + iPol : Pol -> T -> T ; + iConj : Conj -> T -> T -> T ; +-} + +} -- cgit v1.2.3