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

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

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