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

first Nobel grammar

Browse Source
This commit is contained in:
Aarne Ranta
2025-05-04 10:12:23 +02:00
parent 0671eee0ba
commit cc604093d0
5 changed files with 73 additions and 102 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lab2/grammars/LabelsEng.gf
View File

@@ -1,3 +1,19 @@
concrete LabelsEng of Labels = open SyntaxEng, ParadigmsEng in {
lincat Country = NP ;
lincat Award = NP ;
oper mkCountry = overload {
mkCountry : Str -> NP = \s -> mkNP (mkPN s) ;
mkCountry : NP -> NP = \np -> np ;
} ;
oper mkAward = overload {
mkAward : Str -> NP = \s -> mkNP (mkPN s) ;
mkAward : NP -> NP = \np -> np ;
} ;
lin Q800_Costa_Rica_Country = mkCountry "Costa Rica" ;
lin Q219060_State_of_Palestine_Country = mkCountry "State of Palestine" ;
lin Q37_Lithuania_Country = mkCountry "Lithuania" ;
@@ -110,3 +126,5 @@ lin Q8733_Qing_dynasty_Country = mkCountry "Qing dynasty" ;
lin Q96_Mexico_Country = mkCountry "Mexico" ;
lin Q884_South_Korea_Country = mkCountry "South Korea" ;
lin Q114_Kenya_Country = mkCountry "Kenya" ;
}