GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki 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

3
lib/src/abstract/Construction.gf
View File

@@ -42,6 +42,9 @@ fun
-- monthN : Month -> N --months are already as nouns in Dict -- monthN : Month -> N --months are already as nouns in Dict
weekdayPunctualAdv : Weekday -> Adv ; weekdayPunctualAdv : Weekday -> Adv ;
weekdayHabitualAdv : Weekday -> Adv ; weekdayHabitualAdv : Weekday -> Adv ;
weekdayLastAdv : Weekday -> Adv ;
weekdayNextAdv : Weekday -> Adv ;
monthAdv : Month -> Adv ; monthAdv : Month -> Adv ;
monday_Weekday, tuesday_Weekday, wednesday_Weekday, thursday_Weekday, friday_Weekday, sunday_Weekday : Weekday ; monday_Weekday, tuesday_Weekday, wednesday_Weekday, thursday_Weekday, friday_Weekday, sunday_Weekday : Weekday ;

2
lib/src/english/ConstructionEng.gf
View File

@@ -37,6 +37,8 @@ lin
weekdayPunctualAdv w = SyntaxEng.mkAdv on_Prep (mkNP w) ; -- on Sunday weekdayPunctualAdv w = SyntaxEng.mkAdv on_Prep (mkNP w) ; -- on Sunday
weekdayHabitualAdv w = SyntaxEng.mkAdv on_Prep (mkNP aPl_Det w) ; -- on Sundays weekdayHabitualAdv w = SyntaxEng.mkAdv on_Prep (mkNP aPl_Det w) ; -- on Sundays
weekdayNextAdv w = SyntaxEng.mkAdv (mkPrep "next") (mkNP w) ; -- next Sunday
weekdayLastAdv w = SyntaxEng.mkAdv (mkPrep "last") (mkNP w) ; -- last Sunday
} }

2
lib/src/finnish/ConstructionFin.gf
View File

@@ -36,6 +36,8 @@ lin
weekdayPunctualAdv w = w.point ; weekdayPunctualAdv w = w.point ;
weekdayHabitualAdv w = w.habitual ; weekdayHabitualAdv w = w.habitual ;
weekdayLastAdv w = ParadigmsFin.mkAdv ("viime" ++ w.point.s) ;
weekdayNextAdv w = ParadigmsFin.mkAdv ("ensi" ++ w.point.s) ;
oper oper

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

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

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

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

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

@@ -23,5 +23,22 @@ lin
is_wrong_VP = mkVP have_V2 (mkNP (ParadigmsSwe.mkN "fel")) ; 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) ; 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"
} }