GitHub/comp-syntax-gu-mlt
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/comp-syntax-gu-mlt.git synced 2026-02-09 06:41:07 -07:00
Code Issues Packages Projects Releases Wiki Activity

rename stuff + new ud lab draft

Browse Source
This commit is contained in:
Arianna Masciolini
2025-03-21 13:50:23 +01:00
parent 3d9659d987
commit 19fb44c64d
72 changed files with 148 additions and 184 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
labs1-2/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
} ;
}