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

start files for lab2

Browse Source
This commit is contained in:
Aarne Ranta
2025-05-04 09:38:01 +02:00
parent 31239a3d63
commit 0671eee0ba
26 changed files with 636 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
lab2/old/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
} ;
}