msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

weekdays in Swe ; adverbs for next and last weekday

Browse Source
This commit is contained in:
aarne
2013-12-11 13:10:21 +00:00
parent 01ffe53fe9
commit eb2f006cf5
6 changed files with 26 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/src/swedish/AllSwe.gf
View File

@@ -3,5 +3,6 @@
concrete AllSwe of AllSweAbs =
LangSwe - [PassV2],
IrregSwe,
ConstructionSwe,
ExtraSwe
** {} ;

1
lib/src/swedish/AllSweAbs.gf
View File

@@ -1,5 +1,6 @@
abstract AllSweAbs =
Lang - [PassV2] ,
IrregSweAbs,
Construction,
ExtraSweAbs
** {} ;

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

@@ -23,5 +23,22 @@ lin
is_wrong_VP = mkVP have_V2 (mkNP (ParadigmsSwe.mkN "fel")) ;
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
lincat
Weekday = N ;
lin
monday_Weekday = mkN "måndag" ;
tuesday_Weekday = mkN "tisdag" ;
wednesday_Weekday = mkN "onsdag" ;
thursday_Weekday = mkN "torsdag" ;
friday_Weekday = mkN "fredag" ;
saturday_Weekday = mkN "lördag" ;
sunday_Weekday = mkN "söndag" ;
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"
}