GitHub/gf-rgl
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-25 09:13:18 -06:00
Code Issues Packages Projects Releases Wiki Activity

forgot Construction

Browse Source
This commit is contained in:
Krasimir Angelov committed 2026-10-12 16:23:08 +02:00
1 parent eb6769c87f
commit badbadc59a
2 files changed
+120
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/norwegian/ConstructionNor.gf
+60
View File
@@ -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 <lin Card card : Card> L.year_N))) L.old_A)) ;
n_units_AP card cn a =
mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
n_units_of_NP card cn np =
G.AdvNP (mkNP <lin Card card : Card> (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" ;
}
src/nynorsk/ConstructionNno.gf
+60
View File
@@ -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 <lin Card card : Card> L.year_N))) L.old_A)) ;
n_units_AP card cn a =
mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
n_units_of_NP card cn np =
G.AdvNP (mkNP <lin Card card : Card> (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" ;
}