GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-18 07:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

added more temporal Constructions in Eng,Fin,Fre,Ger,Swe

Browse Source
This commit is contained in:
aarne
2013-12-15 11:38:43 +00:00
parent 27a9f72f37
commit 3c935f12ba
6 changed files with 204 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lib/src/swedish/ConstructionSwe.gf
View File

@@ -1,7 +1,7 @@
--# -path=.:../abstract
concrete ConstructionSwe of Construction = CatSwe **
open SyntaxSwe, ParadigmsSwe, (L = LexiconSwe), (E = ExtraSwe), (G = GrammarSwe), Prelude in {
open SyntaxSwe, SymbolicSwe, ParadigmsSwe, (L = LexiconSwe), (E = ExtraSwe), (G = GrammarSwe), (R = ResSwe), (C = CommonScand), Prelude in {
lin
@@ -26,6 +26,9 @@ lin
lincat
Weekday = N ;
Monthday = NP ;
Month = N ;
Year = NP ;
lin
monday_Weekday = mkN "måndag" ;
tuesday_Weekday = mkN "tisdag" ;
@@ -38,7 +41,28 @@ lin
weekdayPunctualAdv w = SyntaxSwe.mkAdv on_Prep (mkNP w) ; -- på söndag
weekdayHabitualAdv w = SyntaxSwe.mkAdv on_Prep (mkNP aPl_Det w) ; -- på söndagar
weekdayLastAdv w = SyntaxSwe.mkAdv in_Prep (mkNP (E.GenNP (mkNP w))) ; -- i söndags
weekdayNextAdv w = SyntaxSwe.mkAdv (mkPrep "nästa") (mkNP w) ; -- nästa söndag --- can mean a week later than English "next Sunday"
weekdayNextAdv w = SyntaxSwe.mkAdv (mkPrep "nästa") (mkNP w) ; -- nästa söndag --- can mean a week later than Swelish "next Sunday"
monthAdv m = SyntaxSwe.mkAdv in_Prep (mkNP m) ;
yearAdv y = SyntaxSwe.mkAdv (mkPrep "år") y ;
dayMonthAdv d m = ParadigmsSwe.mkAdv ("den" ++ d.s ! C.NPAcc ++ m.s ! C.Sg ! C.Indef ! C.Nom) ; -- den 17 maj
monthYearAdv m y = SyntaxSwe.mkAdv in_Prep (mkNP (mkCN m y)) ; -- i maj 2012
dayMonthYearAdv d m y = ParadigmsSwe.mkAdv ("den" ++ d.s ! C.NPAcc ++ m.s ! C.Sg ! C.Indef ! C.Nom ++ y.s ! C.NPAcc) ; -- den 17 maj 2013
intYear = symb ;
intMonthday = symb ;
january_Month = mkN "januari" ;
february_Month = mkN "februari" ;
march_Month = mkN "mars" ;
april_Month = mkN "april" ;
may_Month = mkN "maj" ;
june_Month = mkN "juni" ;
july_Month = mkN "juli" ;
august_Month = mkN "augusti" ;
september_Month = mkN "september" ;
october_Month = mkN "oktober" ;
november_Month = mkN "november" ;
december_Month = mkN "december" ;
}