GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

days of the week - WordsBul

Browse Source
This commit is contained in:
krasimir
2010-05-20 13:23:49 +00:00
parent af4cfd5b9d
commit c08649adeb
1 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
examples/phrasebook/WordsBul.gf
View File

@@ -183,15 +183,15 @@ concrete WordsBul of Words = SentencesBul **
-- week days -- week days
-- Monday = mkDay "Monday" ; Monday = mkDay (mkN014 "понеделник") ;
-- Tuesday = mkDay "Tuesday" ; Tuesday = mkDay (mkN014 "вторник") ;
-- Wednesday = mkDay "Wednesday" ; Wednesday = mkDay (mkN043 "сряда") ;
-- Thursday = mkDay "Thursday" ; Thursday = mkDay (mkN014 "четвъртък") ;
-- Friday = mkDay "Friday" ; Friday = mkDay (mkN014 "петък") ;
-- Saturday = mkDay "Saturday" ; Saturday = mkDay (mkN041 "събота") ;
-- Sunday = mkDay "Sunday" ; Sunday = mkDay (mkN047 "неделя") ;
-- Tomorrow = P.mkAdv "tomorrow" ; Tomorrow = P.mkAdv "утре" ;
-- auxiliaries -- auxiliaries
@@ -202,10 +202,12 @@ concrete WordsBul of Words = SentencesBul **
mkNat : N -> N -> A -> PN -> Nationality mkNat : N -> N -> A -> PN -> Nationality
= \male, female, adj, country -> lin Nationality {s1 = table {R.Fem => female.s; _ => male.s}; s2 = adj; s3 = country} ; = \male, female, adj, country -> lin Nationality {s1 = table {R.Fem => female.s; _ => male.s}; s2 = adj; s3 = country} ;
-- mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> mkDay : N -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
-- let day = mkNP (mkPN d) in let day : NP = mkNP d ;
-- mkNPDay day (SyntaxBul.mkAdv on_Prep day) w_Prep : Prep = mkPrep "в" R.Acc
-- (SyntaxBul.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d)))) ; in mkNPDay day
(SyntaxBul.mkAdv w_Prep day)
(SyntaxBul.mkAdv w_Prep (mkNP the_Quant plNum (mkCN d))) ;
mkCompoundPlace : A -> N -> Str -> {name : CN ; at : Prep ; to : Prep} = \a, n, i -> mkCompoundPlace : A -> N -> Str -> {name : CN ; at : Prep ; to : Prep} = \a, n, i ->
mkCNPlace (mkCN a n) (P.mkPrep i R.Acc) to_Prep ; mkCNPlace (mkCN a n) (P.mkPrep i R.Acc) to_Prep ;