GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

moved lexical parts of Construction to Names, and added Language names there ; implemented for the six old Construction languages

Browse Source
This commit is contained in:
aarne
2014-06-17 19:12:18 +00:00
parent 84a26357e2
commit 613594d732
14 changed files with 496 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -44,13 +44,6 @@ lincat
Month = N ;
Year = NP ;
lin
monday_Weekday = mkWeekday "maanantai" ;
tuesday_Weekday = mkWeekday "tiistai" ;
wednesday_Weekday = mkWeekday "keskiviikko" ;
thursday_Weekday = mkWeekday "torstai" ;
friday_Weekday = mkWeekday "perjantai" ;
saturday_Weekday = mkWeekday"lauantai" ;
sunday_Weekday = mkWeekday "sunnuntai" ;
weekdayPunctualAdv w = lin Adv {s = pointWeekday w} ;
weekdayHabitualAdv w = w.habitual ;
@@ -66,31 +59,14 @@ lin
intYear = symb ;
intMonthday = symb ;
january_Month = mkN "tammikuu" ;
february_Month = mkN "helmikuu" ;
march_Month = mkN "maaliskuu" ;
april_Month = mkN "huhtikuu" ;
may_Month = mkN "toukokuu" ;
june_Month = mkN "kesäkuu" ;
july_Month = mkN "heinäkuu" ;
august_Month = mkN "elokuu" ;
september_Month = mkN "syyskuu" ;
october_Month = mkN "lokakuu" ;
november_Month = mkN "marraskuu" ;
december_Month = mkN "joulukuu" ;
oper
mkWeekday : Str -> Weekday = \d ->
lin Weekday {
noun = mkN d ;
habitual = case d of {
_ + "i" => ParadigmsFin.mkAdv (d + "sin") ; -- tiistaisin
_ => ParadigmsFin.mkAdv (d + "isin") -- keskiviikkoisin
}
} ;
pointWeekday : Weekday -> Str = \w -> (SyntaxFin.mkAdv (casePrep essive) (mkNP w.noun)).s ;
lincat Language = PN ;
lin InLanguage l = SyntaxFin.mkAdv (mkPrep translative) (mkNP l) ;
}