GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-11 12:12: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

46
lib/src/german/ConstructionGer.gf
View File

@@ -1,7 +1,8 @@
--# -path=.:../abstract
concrete ConstructionGer of Construction = CatGer **
open SyntaxGer, ParadigmsGer, (L = LexiconGer), (E = ExtraGer), (G = GrammarGer), (I = IrregGer), Prelude in {
open SyntaxGer, SymbolicGer, ParadigmsGer,
(L = LexiconGer), (E = ExtraGer), (G = GrammarGer), (I = IrregGer), (R = ResGer), Prelude in {
lin
@@ -25,5 +26,48 @@ lin
is_wrong_VP = mkVP have_V2 (mkNP (ParadigmsGer.mkN "Unrecht")) ;
n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
lincat
Weekday = N ;
Monthday = NP ;
Month = N ;
Year = NP ;
lin
monday_Weekday = mkN "Montag" ;
tuesday_Weekday = mkN "Dienstag" ;
wednesday_Weekday = mkN "Mittwoch" ;
thursday_Weekday = mkN "Donnerstag" ;
friday_Weekday = mkN "Freitag" ;
saturday_Weekday = mkN "Samstag" ;
sunday_Weekday = mkN "Sonntag" ;
weekdayPunctualAdv w = SyntaxGer.mkAdv anDat_Prep (mkNP the_Det w) ; -- am Montag
weekdayHabitualAdv w = SyntaxGer.mkAdv (mkPrep "" accusative) (mkNP every_Det w) ; ---- jeden Montag
weekdayLastAdv w = SyntaxGer.mkAdv (mkPrep "am letzten" dative) (mkNP w) ; -- letzten Montag ----
weekdayNextAdv w = SyntaxGer.mkAdv (mkPrep "am nächsten" dative) (mkNP w) ; -- nächsten Montag ----
monthAdv m = SyntaxGer.mkAdv inDat_Prep (mkNP the_Det m) ;
yearAdv y = SyntaxGer.mkAdv (mkPrep "im Jahr" dative) y ; ----
dayMonthAdv d m = ParadigmsGer.mkAdv ("am" ++ d.s ! dative ++ BIND ++ "." ++ m.s ! R.Sg ! R.Nom) ; -- am 17 Mai
monthYearAdv m y = SyntaxGer.mkAdv inDat_Prep (mkNP the_Det (mkCN m y)) ; -- im Mai 2012
dayMonthYearAdv d m y = ParadigmsGer.mkAdv ("am" ++ d.s ! dative ++ BIND ++ "." ++ m.s ! R.Sg ! R.Nom ++ y.s ! accusative) ; -- am 17 Mai 2013
intYear = symb ;
intMonthday = symb ;
january_Month = mkN "Januar" ;
february_Month = mkN "Februar" ;
march_Month = mkN "März" ;
april_Month = mkN "April" ;
may_Month = mkN "Mai" ;
june_Month = mkN "Juni" ;
july_Month = mkN "Juli" ;
august_Month = mkN "August" ;
september_Month = mkN "September" ;
october_Month = mkN "Oktober" ;
november_Month = mkN "November" ;
december_Month = mkN "Dezember" ;
}