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

new words in DictionaryFin and rules in ExtensionsFin ; some fun's in Dictionary commented out with ----*

Browse Source
This commit is contained in:
aarne
2015-04-17 15:48:01 +00:00
parent 168e6a04d8
commit ab5d911141
5 changed files with 173 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -66,8 +66,8 @@ lin
monthAdv m = SyntaxFin.mkAdv in_Prep (mkNP m) ;
yearAdv y = SyntaxFin.mkAdv (prePrep nominative "vuonna") y ;
---- dayMonthAdv d m = ParadigmsFin.mkAdv (d.s ! R.NPCase R.Nom ++ BIND ++ "." ++ m.s ! R.NCase R.Sg R.Part) ;
---- monthYearAdv m y = SyntaxFin.mkAdv in_Prep (mkNP (mkNP m) (SyntaxFin.mkAdv (casePrep nominative) y)) ;
dayMonthAdv d m = ParadigmsFin.mkAdv ((mkUtt d).s ++ BIND ++ "." ++ (mkUtt (mkNP m)).s) ;
monthYearAdv m y = SyntaxFin.mkAdv in_Prep (mkNP (mkNP m) (SyntaxFin.mkAdv (casePrep nominative) y)) ;
---- dayMonthYearAdv d m y =
---- lin Adv {s = d.s ! R.NPCase R.Nom ++ BIND ++ "." ++ m.s ! R.NCase R.Sg R.Part ++ y.s ! R.NPCase R.Nom} ;
@@ -84,6 +84,10 @@ lin InLanguage l = SyntaxFin.mkAdv (mkPrep translative) (mkNP l) ;
lin
weekdayN w = w.noun ;
monthN m = m ;
weekdayPN w = mkPN w.noun ;
monthPN m = mkPN m ;
languageNP l = mkNP l ;
languageCN l = mkCN l ;