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

26
old-labs/lab2/wikipedia-2022/CountriesFin.gf Normal file
View File

@@ -0,0 +1,26 @@
concrete CountriesFin of Countries = FactsFin, CountryNamesFin **
open SyntaxFin, ParadigmsFin, SymbolicFin, Prelude
in {
lin
cName name = name.np ;
capital_Attribute = mkAttribute "pääkaupunki" ;
area_Attribute = mkAttribute "pinta-ala" ;
population_Attribute = mkAttribute "asukasluku" ;
continent_Attribute = mkAttribute "maanosa" ;
currency_Attribute = mkAttribute "valuutta" ;
populationFact cname int = mkCl cname.np (mkV2 (caseV (locCase cname) have_V2)) (mkNP <symb int : Card> (mkN "asukas")) ;
continentFact cname name = mkCl cname.np (SyntaxFin.mkAdv (casePrep (locCase name)) name.np) ;
oper
mkAttribute : Str -> CN = \s -> mkCN (mkN s) ;
locCase : LocName -> Case = \name -> case name.isIn of {
True => inessive ;
False => adessive
} ;
}