fixes in QueryFre

This commit is contained in:
aarne
2010-12-16 16:27:13 +00:00
parent 7755babaa2
commit 28e3f12007
3 changed files with 10 additions and 6 deletions

View File

@@ -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" ;

View File

@@ -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
; ;

View File

@@ -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