mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-23 19:42:50 -06:00
fixes in QueryFre
This commit is contained in:
@@ -5,7 +5,7 @@ oper
|
|||||||
located_A : A = mkA "situé" ;
|
located_A : A = mkA "situé" ;
|
||||||
|
|
||||||
giveMe = \np -> mkVP (mkV2 (mkV "montrer")) np ; ---
|
giveMe = \np -> mkVP (mkV2 (mkV "montrer")) np ; ---
|
||||||
know_V2 = connaître_V2 ;
|
know_V2 = IrregFre.savoir_V2 ;
|
||||||
|
|
||||||
-- structural words
|
-- structural words
|
||||||
about_Prep : Prep = mkPrep "sur" ;
|
about_Prep : Prep = mkPrep "sur" ;
|
||||||
|
|||||||
@@ -1,6 +1,8 @@
|
|||||||
--# -path=.:present
|
--# -path=.:present
|
||||||
|
|
||||||
concrete QueryFre of Query = QueryI - [namePrep, propCalled, SFun] with
|
concrete QueryFre of Query = QueryI -
|
||||||
|
[namePrep, propCalled, SFun, SAll, IWhat]
|
||||||
|
with
|
||||||
(Syntax = SyntaxFre),
|
(Syntax = SyntaxFre),
|
||||||
(Lang = LangFre),
|
(Lang = LangFre),
|
||||||
(LexQuery = LexQueryFre) **
|
(LexQuery = LexQueryFre) **
|
||||||
@@ -18,13 +20,15 @@ in {
|
|||||||
-- deviations from functor
|
-- deviations from functor
|
||||||
oper
|
oper
|
||||||
-- prep not "av"
|
-- prep not "av"
|
||||||
namePrep = on_Prep ;
|
namePrep = possess_Prep ;
|
||||||
-- verb "heta"
|
-- verb "heta"
|
||||||
propCalled : NP -> Prop = \i ->
|
propCalled : NP -> Prop = \i ->
|
||||||
propVP (mkVP (mkAdV "aussi") (mkVP (mkV2 (reflV (mkV "appeler")) for_Prep) i)) ;
|
propVP (mkVP (mkAdV "aussi") (mkVP (mkV2 (reflV (mkV "appeler"))) i)) ;
|
||||||
|
|
||||||
lin
|
lin
|
||||||
|
SAll k = mkNP all_Predet (mkNP thePl_Det k) | mkNP thePl_Det k ;
|
||||||
SFun s r = mkNP (mkNP the_Quant plNum r.cn) (mkAdv r.prep s) ;
|
SFun s r = mkNP (mkNP the_Quant plNum r.cn) (mkAdv r.prep s) ;
|
||||||
|
IWhat = mkIP (mkIDet which_IQuant) | mkIP (mkIDet which_IQuant pluralNum) ;
|
||||||
|
|
||||||
|
|
||||||
-- lexicon
|
-- lexicon
|
||||||
@@ -38,7 +42,7 @@ lin
|
|||||||
relAP (mkAP (mkA "employé")) by8agent_Prep
|
relAP (mkAP (mkA "employé")) by8agent_Prep
|
||||||
| relAP (mkAP (mkA "payé")) by8agent_Prep
|
| relAP (mkAP (mkA "payé")) by8agent_Prep
|
||||||
| relAP (mkAP (mkA "actif")) at_Prep
|
| relAP (mkAP (mkA "actif")) at_Prep
|
||||||
| relAP (mkAP (mkA "professionnellement aktif")) at_Prep
|
| relAP (mkAP (mkA "professionnellement actif")) at_Prep
|
||||||
| relVP (mkVP (mkV "travailler")) at_Prep
|
| relVP (mkVP (mkV "travailler")) at_Prep
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|||||||
@@ -70,7 +70,7 @@ lin
|
|||||||
in
|
in
|
||||||
mkUtt (mkImp (giveMe info))
|
mkUtt (mkImp (giveMe info))
|
||||||
| mkUtt (mkQCl whatSg_IP
|
| mkUtt (mkQCl whatSg_IP
|
||||||
(mkClSlash (mkClSlash (mkNP youSg_Pron) know_V2) (mkAdv about_Prep s)))
|
(mkClSlash (mkClSlash (mkNP youSg_Pron) LexQuery.know_V2) (mkAdv about_Prep s)))
|
||||||
| mkUtt info ;
|
| mkUtt info ;
|
||||||
|
|
||||||
QCalled i = mkUtt (mkQS (mkQCl how_IAdv (mkCl i
|
QCalled i = mkUtt (mkQS (mkQCl how_IAdv (mkCl i
|
||||||
|
|||||||
Reference in New Issue
Block a user