IntroEng from lecture 2

This commit is contained in:
Aarne Ranta
2025-04-02 11:19:03 +02:00
parent 20d5649c22
commit 27b188b550

View File

@@ -2,20 +2,23 @@ concrete IntroEng of Intro = {
lincat lincat
S = Str ; S = Str ;
NP = Str ; NP = {s : Case => Str ; a : Agr} ;
VP = Str ; VP = Agr => Str ;
CN = Str ; CN = Str ;
AP = Str ; AP = Str ;
Det = Str ; Det = Str ;
Pron = Str ; Pron = {s : Case => Str ; a : Agr} ;
N = Str ; N = Str ;
A = Str ; A = Str ;
V2 = Str ; V2 = Agr => Str ;
lin lin
PredVP np vp = np ++ vp ; PredVP np vp = np.s ! Nom ++ vp ! np.a ;
ComplV2 v2 np = v2 ++ np ; ComplV2 v2 np = table {a => v2 ! a ++ np.s ! Acc} ;
DetCN det cn = det ++ cn ; DetCN det cn = {
s = table {_ => det ++ cn} ;
a = SgP3
} ;
AdjCN ap cn = ap ++ cn ; AdjCN ap cn = ap ++ cn ;
UseN n = n ; UseN n = n ;
UseA a = a ; UseA a = a ;
@@ -24,7 +27,14 @@ lin
the_Det = "the" ; the_Det = "the" ;
black_A = "black" ; black_A = "black" ;
cat_N = "cat" ; cat_N = "cat" ;
see_V2 = "sees" ; see_V2 = table {SgP3 => "sees" ; Other => "see"} ;
we_Pron = "us" ; we_Pron = {
s = table {Nom => "we" ; Acc => "us"} ;
a = Other
} ;
param
Case = Nom | Acc ;
Agr = SgP3 | Other ;
} }