1
0
forked from GitHub/gf-rgl

added full Lexicon and some new languages to the LibraryBrowser grammar

This commit is contained in:
Aarne Ranta
2017-08-21 21:36:03 +03:00
parent d8e24c19da
commit 41ab809c88
8 changed files with 123 additions and 38 deletions

View File

@@ -1,10 +1,12 @@
abstract LibraryBrowser = abstract LibraryBrowser =
Grammar - [ Grammar - [
n2,n3,n4,n5,n6,n7,n8,D_0,D_1,D_2,D_3,D_4,D_5,D_6,D_7,D_8, -- n2,n3,n4,n5,n6,n7,n8,D_0,D_1,D_2,D_3,D_4,D_5,D_6,D_7,D_8,
UseCopula, UseCopula
UsePron, IndefArt, DefArt, Use2N3, Use3N3 -- ,UsePron, IndefArt, DefArt, Use2N3, Use3N3
], ],
Lexicon [ Lexicon
{- AR 21/8/2017 removing almost all the restrictions
[
N, man_N, woman_N, house_N, N, man_N, woman_N, house_N,
N2, brother_N2, N2, brother_N2,
N3, distance_N3, N3, distance_N3,
@@ -22,6 +24,7 @@ abstract LibraryBrowser =
V2S, answer_V2S, V2S, answer_V2S,
V2Q, ask_V2Q V2Q, ask_V2Q
] ]
-}
** { ** {
flags startcat = Utt ; flags startcat = Utt ;

View File

@@ -121,7 +121,7 @@ lin D_6 = mkTerm "n6_Dig" ;
lin D_7 = mkTerm "n7_Dig" ; lin D_7 = mkTerm "n7_Dig" ;
lin D_8 = mkTerm "n8_Dig" ; lin D_8 = mkTerm "n8_Dig" ;
lin D_9 = mkTerm "n9_Dig" ; lin D_9 = mkTerm "n9_Dig" ;
--lin DefArt = mkTerm "the_Quant" ; lin DefArt = mkTerm "the_Quant" ;
lin DetCN det_1 cn_2 = mkTerm "mkNP" (flatIfTerm det_1) (flatIfTerm cn_2) ; lin DetCN det_1 cn_2 = mkTerm "mkNP" (flatIfTerm det_1) (flatIfTerm cn_2) ;
lin DetNP det_1 = mkTerm "mkNP" det_1 ; lin DetNP det_1 = mkTerm "mkNP" det_1 ;
lin DetQuant quant_1 num_2 = mkFlat (mkTerm "mkDet" quant_1 num_2) ; lin DetQuant quant_1 num_2 = mkFlat (mkTerm "mkDet" quant_1 num_2) ;
@@ -144,7 +144,7 @@ lin IdetQuant iquant_1 num_2 = mkTerm "mkIDet" iquant_1 num_2 ;
lin ImpPl1 vp_1 = mkTerm "lets_Utt" vp_1 ; lin ImpPl1 vp_1 = mkTerm "lets_Utt" vp_1 ;
lin ImpVP vp_1 = mkTerm "mkImp" vp_1 ; lin ImpVP vp_1 = mkTerm "mkImp" vp_1 ;
lin ImpersCl vp_1 = mkTerm "mkCl" vp_1 ; lin ImpersCl vp_1 = mkTerm "mkCl" vp_1 ;
--lin IndefArt = mkTerm "a_Quant" ; lin IndefArt = mkTerm "a_Quant" ;
lin MassNP cn_1 = mkTerm "mkNP" cn_1 ; lin MassNP cn_1 = mkTerm "mkNP" cn_1 ;
lin NoPConj = mkTerm (hide "NoPConj") ; lin NoPConj = mkTerm (hide "NoPConj") ;
lin NoVoc = mkTerm (hide "NoVoc") ; lin NoVoc = mkTerm (hide "NoVoc") ;
@@ -222,7 +222,7 @@ lin UseComparA a_1 = mkTerm "mkAP" a_1 ;
lin UseN n_1 = mkFlat (mkTerm "mkCN" n_1) ; lin UseN n_1 = mkFlat (mkTerm "mkCN" n_1) ;
lin UseN2 n2_1 = mkTerm "mkCN" n2_1 ; lin UseN2 n2_1 = mkTerm "mkCN" n2_1 ;
lin UsePN pn_1 = mkTerm "mkNP" pn_1 ; lin UsePN pn_1 = mkTerm "mkNP" pn_1 ;
--lin UsePron pron_1 = mkTerm "mkNP" pron_1 ; lin UsePron pron_1 = mkTerm "mkNP" pron_1 ;
lin UseQCl temp_1 pol_2 qcl_3 = mkTerm "mkQS" (flatTerm temp_1) pol_2 qcl_3 ; lin UseQCl temp_1 pol_2 qcl_3 = mkTerm "mkQS" (flatTerm temp_1) pol_2 qcl_3 ;
lin UseRCl temp_1 pol_2 rcl_3 = mkTerm "mkRS" (flatTerm temp_1) pol_2 rcl_3 ; lin UseRCl temp_1 pol_2 rcl_3 = mkTerm "mkRS" (flatTerm temp_1) pol_2 rcl_3 ;
lin UseSlash temp_1 pol_2 clslash_3 = mkTerm "mkSSlash" temp_1 pol_2 clslash_3 ; lin UseSlash temp_1 pol_2 clslash_3 = mkTerm "mkSSlash" temp_1 pol_2 clslash_3 ;

View File

@@ -0,0 +1,25 @@
--# -path=.:alltenses
concrete LibraryBrowserBul of LibraryBrowser =
GrammarBul - [
UseCopula
],
LexiconBul
** open (S = SyntaxBul) in {
lin
i_NP = S.i_NP ;
you_NP = S.you_NP ;
he_NP = S.he_NP ;
she_NP = S.she_NP ;
we_NP = S.we_NP ;
youPl_NP = S.youPl_NP ;
youPol_NP = S.youPol_NP ;
they_NP = S.they_NP ;
a_Det = S.mkDet S.a_Quant ;
the_Det = S.mkDet S.the_Quant ;
aPl_Det = S.mkDet S.a_Quant S.plNum ;
thePl_Det = S.mkDet S.the_Quant S.plNum ;
}

View File

@@ -0,0 +1,25 @@
--# -path=.:alltenses
concrete LibraryBrowserChi of LibraryBrowser =
GrammarChi - [
UseCopula
],
LexiconChi
** open (S = SyntaxChi) in {
lin
i_NP = S.i_NP ;
you_NP = S.you_NP ;
he_NP = S.he_NP ;
she_NP = S.she_NP ;
we_NP = S.we_NP ;
youPl_NP = S.youPl_NP ;
youPol_NP = S.youPol_NP ;
they_NP = S.they_NP ;
a_Det = S.mkDet S.a_Quant ;
the_Det = S.mkDet S.the_Quant ;
aPl_Det = S.mkDet S.a_Quant S.plNum ;
thePl_Det = S.mkDet S.the_Quant S.plNum ;
}

View File

@@ -2,30 +2,10 @@
concrete LibraryBrowserDut of LibraryBrowser = concrete LibraryBrowserDut of LibraryBrowser =
GrammarDut - [ GrammarDut - [
n2,n3,n4,n5,n6,n7,n8,D_0,D_1,D_2,D_3,D_4,D_5,D_6,D_7,D_8, UseCopula
UseCopula,
UsePron, IndefArt, DefArt, Use2N3, Use3N3
], ],
LexiconDut [ LexiconDut
N, man_N, woman_N, house_N,
N2, brother_N2,
N3, distance_N3,
PN, john_PN, paris_PN,
A, old_A, young_A, red_A,
A2, married_A2,
V, sleep_V, walk_V,
V2, love_V2,
V3, give_V3,
VA, become_VA,
VS, know_VS,
VQ, wonder_VQ,
V2V, beg_V2V,
V2A, paint_V2A,
V2S, answer_V2S,
V2Q, ask_V2Q
]
** open (S = SyntaxDut) in { ** open (S = SyntaxDut) in {
flags startcat = Utt ;
lin lin
i_NP = S.i_NP ; i_NP = S.i_NP ;

View File

@@ -2,11 +2,13 @@
concrete LibraryBrowserEng of LibraryBrowser = concrete LibraryBrowserEng of LibraryBrowser =
GrammarEng - [ GrammarEng - [
n2,n3,n4,n5,n6,n7,n8,D_0,D_1,D_2,D_3,D_4,D_5,D_6,D_7,D_8, --- n2,n3,n4,n5,n6,n7,n8,D_0,D_1,D_2,D_3,D_4,D_5,D_6,D_7,D_8,
UseCopula, UseCopula
UsePron, IndefArt, DefArt, Use2N3, Use3N3 --- ,UsePron, IndefArt, DefArt, Use2N3, Use3N3
], ],
LexiconEng [ LexiconEng
{-
[
N, man_N, woman_N, house_N, N, man_N, woman_N, house_N,
N2, brother_N2, N2, brother_N2,
N3, distance_N3, N3, distance_N3,
@@ -24,8 +26,8 @@ concrete LibraryBrowserEng of LibraryBrowser =
V2S, answer_V2S, V2S, answer_V2S,
V2Q, ask_V2Q V2Q, ask_V2Q
] ]
-}
** open (S = SyntaxEng) in { ** open (S = SyntaxEng) in {
flags startcat = Utt ;
lin lin
i_NP = S.i_NP ; i_NP = S.i_NP ;

View File

@@ -0,0 +1,25 @@
--# -path=.:alltenses
concrete LibraryBrowserSpa of LibraryBrowser =
GrammarSpa - [
UseCopula
],
LexiconSpa
** open (S = SyntaxSpa) in {
lin
i_NP = S.i_NP ;
you_NP = S.you_NP ;
he_NP = S.he_NP ;
she_NP = S.she_NP ;
we_NP = S.we_NP ;
youPl_NP = S.youPl_NP ;
youPol_NP = S.youPol_NP ;
they_NP = S.they_NP ;
a_Det = S.mkDet S.a_Quant ;
the_Det = S.mkDet S.the_Quant ;
aPl_Det = S.mkDet S.a_Quant S.plNum ;
thePl_Det = S.mkDet S.the_Quant S.plNum ;
}

View File

@@ -0,0 +1,25 @@
--# -path=.:alltenses
concrete LibraryBrowserSwe of LibraryBrowser =
GrammarSwe - [
UseCopula
],
LexiconSwe
** open (S = SyntaxSwe) in {
lin
i_NP = S.i_NP ;
you_NP = S.you_NP ;
he_NP = S.he_NP ;
she_NP = S.she_NP ;
we_NP = S.we_NP ;
youPl_NP = S.youPl_NP ;
youPol_NP = S.youPol_NP ;
they_NP = S.they_NP ;
a_Det = S.mkDet S.a_Quant ;
the_Det = S.mkDet S.the_Quant ;
aPl_Det = S.mkDet S.a_Quant S.plNum ;
thePl_Det = S.mkDet S.the_Quant S.plNum ;
}