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

added full Lexicon and some new languages to the LibraryBrowser grammar

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

13
src/api/libraryBrowser/LibraryBrowser.gf
View File

@@ -1,10 +1,12 @@
abstract LibraryBrowser =
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,
UseCopula,
UsePron, IndefArt, DefArt, Use2N3, Use3N3
-- 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
-- ,UsePron, IndefArt, DefArt, Use2N3, Use3N3
],
Lexicon [
Lexicon
{- AR 21/8/2017 removing almost all the restrictions
[
N, man_N, woman_N, house_N,
N2, brother_N2,
N3, distance_N3,
@@ -21,7 +23,8 @@ abstract LibraryBrowser =
V2A, paint_V2A,
V2S, answer_V2S,
V2Q, ask_V2Q
]
]
-}
** {
flags startcat = Utt ;

6
src/api/libraryBrowser/LibraryBrowserAPI.gf
View File

@@ -121,7 +121,7 @@ lin D_6 = mkTerm "n6_Dig" ;
lin D_7 = mkTerm "n7_Dig" ;
lin D_8 = mkTerm "n8_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 DetNP det_1 = mkTerm "mkNP" det_1 ;
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 ImpVP vp_1 = mkTerm "mkImp" 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 NoPConj = mkTerm (hide "NoPConj") ;
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 UseN2 n2_1 = mkTerm "mkCN" n2_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 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 ;

25
src/api/libraryBrowser/LibraryBrowserBul.gf Normal file
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 ;
}

25
src/api/libraryBrowser/LibraryBrowserChi.gf Normal file
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 ;
}

26
src/api/libraryBrowser/LibraryBrowserDut.gf
View File

@@ -2,30 +2,10 @@
concrete LibraryBrowserDut of LibraryBrowser =
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,
UsePron, IndefArt, DefArt, Use2N3, Use3N3
UseCopula
],
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 {
flags startcat = Utt ;
LexiconDut
** open (S = SyntaxDut) in {
lin
i_NP = S.i_NP ;

16
src/api/libraryBrowser/LibraryBrowserEng.gf
View File

@@ -2,11 +2,13 @@
concrete LibraryBrowserEng of LibraryBrowser =
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,
UseCopula,
UsePron, IndefArt, DefArt, Use2N3, Use3N3
--- 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
--- ,UsePron, IndefArt, DefArt, Use2N3, Use3N3
],
LexiconEng [
LexiconEng
{-
[
N, man_N, woman_N, house_N,
N2, brother_N2,
N3, distance_N3,
@@ -23,10 +25,10 @@ concrete LibraryBrowserEng of LibraryBrowser =
V2A, paint_V2A,
V2S, answer_V2S,
V2Q, ask_V2Q
]
]
-}
** open (S = SyntaxEng) in {
flags startcat = Utt ;
lin
i_NP = S.i_NP ;
you_NP = S.you_NP ;

25
src/api/libraryBrowser/LibraryBrowserSpa.gf Normal file
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 ;
}

25
src/api/libraryBrowser/LibraryBrowserSwe.gf Normal file
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 ;
}