msyds/comp-syntax-gu-mlt
1
0
Fork 0
forked from GitHub/comp-syntax-gu-mlt
Code Pull Requests Activity

May 5 files to myproject

Browse Source
This commit is contained in:
aarneranta
2021-05-12 12:51:24 +02:00
parent 73dd44252e
commit 43bbf3f5a3
3 changed files with 188 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
lab2/grammar/myproject/MicroLangEng.gf
View File

@@ -2,14 +2,56 @@
concrete MicroLangEng of MicroLang = open MicroResEng in {
lincat N = MicroResEng.N ;
lincat
Utt = {s : Str} ;
S = {s : Str} ;
lin baby_N = mkN "baby" ;
lin dog_N = mkN "dog" ;
lin man_N = mkN "man" "men" ;
lin car_N = mkN "car" ;
lin city_N = mkN "city" ;
lin boy_N = mkN "boy" ;
VP = {verb : MicroResEng.V ; compl : Str} ;
CN = MicroResEng.N ;
AP = MicroResEng.A ;
NP = MicroResEng.Pron ;
Pron = MicroResEng.Pron ;
N = MicroResEng.N ;
A = MicroResEng.A ;
V = MicroResEng.V ;
V2 = MicroResEng.V2 ;
lin
PredVPS np vp = {s = np.s ! Nom ++ selectVerb vp.verb np.n ++ vp.compl} ;
UseV v = {verb = v ; compl = []} ;
ComplV2 v np = {verb = v ; compl = np.s ! Acc} ;
AdjCN ap cn = {s = \\n => ap.s ++ cn.s ! n} ;
UsePron p = p ;
UseN n = n ;
PositA a = a ;
he_Pron = mkPron "he" "him" Sg ;
she_Pron = mkPron "she" "her" Sg ;
they_Pron = mkPron "they" "them" Pl ;
book_N = {s = table {Sg => "book" ; Pl => "books"}} ;
grammar_N = mkN "grammar" ;
woman_N = mkN "woman" "women" ;
child_N = mkN "child" "children" ;
boy_N = mkN "boy" ;
big_A = mkA "big" ;
good_A = mkA "good" ;
live_V = mkV "live" ;
love_V2 = mkV2 "love" ;
}