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

cp labs to old-labs

Browse Source
This commit is contained in:
Arianna Masciolini
2025-03-21 11:39:09 +01:00
parent 37b39176d9
commit 3d9659d987
70 changed files with 6357 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
old-labs/lab2/wikipedia-2022/CountriesSwe.gf Normal file
View File

@@ -0,0 +1,25 @@
concrete CountriesSwe of Countries = FactsSwe, CountryNamesSwe **
open SyntaxSwe, ParadigmsSwe, SymbolicSwe, (I=IrregSwe), Prelude in {
lin
cName name = name.np ;
capital_Attribute = mkAttribute "huvudstad" ;
area_Attribute = mkAttribute "yta" ;
population_Attribute = mkAttribute "befolkning" ;
continent_Attribute = mkAttribute "kontinent" ;
currency_Attribute = mkAttribute "valuta" ;
populationFact cname int = mkCl cname.np have_V2 (mkNP <symb int : Card> (mkN "invånare" "invånare")) ;
continentFact cname name = mkCl cname.np (mkVP (mkVP I.ligga_V) (SyntaxSwe.mkAdv (locPrep name) name.np)) ;
oper
mkAttribute : Str -> CN = \s -> mkCN (mkN s) ; ----
locPrep : LocName -> Prep = \name -> case name.isIn of {
True => in_Prep ;
False => on_Prep
} ;
}