diff --git a/src/norwegian/ConstructionNor.gf b/src/norwegian/ConstructionNor.gf new file mode 100644 index 000000000..9d28aa4ba --- /dev/null +++ b/src/norwegian/ConstructionNor.gf @@ -0,0 +1,60 @@ +--# -path=.:../abstract:../api + +concrete ConstructionNor of Construction = CatNor ** + open SyntaxNor, SymbolicNor, ParadigmsNor, (L = LexiconNor), + (G = GrammarNor), (C = CommonScand), Prelude in { + +flags coding=utf8 ; + +lin + ready_VP = mkVP (mkA "klar") ; + + has_age_VP card = + mkVP (lin AP (mkAP (lin AdA (mkUtt (mkNP L.year_N))) L.old_A)) ; + + n_units_AP card cn a = + mkAP (lin AdA (mkUtt (mkNP (lin CN cn)))) (lin A a) ; + + n_units_of_NP card cn np = + G.AdvNP (mkNP (lin CN cn)) + (SyntaxNor.mkAdv noPrep (lin NP np)) ; + + cup_of_CN np = mkCN (lin N2 (mkN2 (mkN "kopp") noPrep)) (lin NP np) ; + +lincat + Weekday = N ; + Monthday = NP ; + Month = N ; + Year = NP ; + +lin + weekdayPunctualAdv w = SyntaxNor.mkAdv on_Prep (mkNP w) ; + weekdayHabitualAdv w = SyntaxNor.mkAdv on_Prep (mkNP aPl_Det w) ; + + yearAdv y = SyntaxNor.mkAdv (mkPrep "i") y ; + intYear = symb ; + + weekdayN w = w ; + monthN m = m ; + + monday_Weekday = mkN "mandag" ; + tuesday_Weekday = mkN "tirsdag" ; + wednesday_Weekday = mkN "onsdag" ; + thursday_Weekday = mkN "torsdag" ; + friday_Weekday = mkN "fredag" ; + saturday_Weekday = mkN "lørdag" ; + sunday_Weekday = mkN "søndag" ; + + january_Month = mkN "januar" ; + february_Month = mkN "februar" ; + march_Month = mkN "mars" ; + 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 "desember" ; +} diff --git a/src/nynorsk/ConstructionNno.gf b/src/nynorsk/ConstructionNno.gf new file mode 100644 index 000000000..0b85a4445 --- /dev/null +++ b/src/nynorsk/ConstructionNno.gf @@ -0,0 +1,60 @@ +--# -path=.:../abstract:../api + +concrete ConstructionNno of Construction = CatNno ** + open SyntaxNno, SymbolicNno, ParadigmsNno, (L = LexiconNno), + (G = GrammarNno), (C = CommonScand), Prelude in { + +flags coding=utf8 ; + +lin + ready_VP = mkVP (mkA "klar") ; + + has_age_VP card = + mkVP (lin AP (mkAP (lin AdA (mkUtt (mkNP L.year_N))) L.old_A)) ; + + n_units_AP card cn a = + mkAP (lin AdA (mkUtt (mkNP (lin CN cn)))) (lin A a) ; + + n_units_of_NP card cn np = + G.AdvNP (mkNP (lin CN cn)) + (SyntaxNno.mkAdv noPrep (lin NP np)) ; + + cup_of_CN np = mkCN (lin N2 (mkN2 (mkN "kopp") noPrep)) (lin NP np) ; + +lincat + Weekday = N ; + Monthday = NP ; + Month = N ; + Year = NP ; + +lin + weekdayPunctualAdv w = SyntaxNno.mkAdv on_Prep (mkNP w) ; + weekdayHabitualAdv w = SyntaxNno.mkAdv on_Prep (mkNP aPl_Det w) ; + + yearAdv y = SyntaxNno.mkAdv (mkPrep "i") y ; + intYear = symb ; + + weekdayN w = w ; + monthN m = m ; + + monday_Weekday = mkN "måndag" ; + tuesday_Weekday = mkN "tysdag" ; + wednesday_Weekday = mkN "onsdag" ; + thursday_Weekday = mkN "torsdag" ; + friday_Weekday = mkN "fredag" ; + saturday_Weekday = mkN "laurdag" ; + sunday_Weekday = mkN "sundag" ; + + january_Month = mkN "januar" ; + february_Month = mkN "februar" ; + march_Month = mkN "mars" ; + 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 "desember" ; +}