Files
comp-syntax-gu-mlt/old-labs/lab2/wikipedia-2022/CountriesGer.gf
Arianna Masciolini 3d9659d987 cp labs to old-labs
2025-03-21 11:39:09 +01:00

21 lines
719 B
Plaintext

concrete CountriesGer of Countries = FactsGer, CountryNamesGer **
open SyntaxGer, ParadigmsGer, SymbolicGer in {
lin
cName name = name ;
capital_Attribute = mkAttribute (mkN "Hauptstadt" "Hauptstädte" feminine) ;
area_Attribute = mkAttribute (mkN "Fläche") ;
population_Attribute = mkAttribute (mkN "Einwohnerzahl" feminine) ;
continent_Attribute = mkAttribute (mkN "Kontinent" "Kontinente" masculine) ;
currency_Attribute = mkAttribute (mkN "Währung") ;
populationFact cname int = mkCl cname have_V2 (mkNP <symb int : Card> (mkN "Einwohner")) ;
continentFact cname name = mkCl cname (mkVP (mkVP (mkV "liegen")) (SyntaxGer.mkAdv in_Prep name)) ;
oper
mkAttribute : N -> CN = \n -> mkCN n ;
}