mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
removed gfo files from query dir
This commit is contained in:
Binary file not shown.
Binary file not shown.
@@ -1,8 +1,9 @@
|
|||||||
--# -path=.:..:alltenses
|
--# -path=.:..:alltenses
|
||||||
|
|
||||||
incomplete concrete QueryI of Query = open
|
incomplete concrete QueryI of Query = open
|
||||||
|
LexQuery,
|
||||||
Syntax,
|
Syntax,
|
||||||
Lang,
|
(Lang = Lang),
|
||||||
Prelude
|
Prelude
|
||||||
in {
|
in {
|
||||||
|
|
||||||
@@ -35,9 +36,9 @@ lin
|
|||||||
| mkNP (mkNP thePl_Det name_N) (mkAdv possess_Prep s)
|
| mkNP (mkNP thePl_Det name_N) (mkAdv possess_Prep s)
|
||||||
---- s's names
|
---- s's names
|
||||||
in
|
in
|
||||||
mkUtt (mkImp (mkVP give_V3 (mkNP i_Pron) ss))
|
mkUtt (mkImp (mkVP LexQuery.give_V3 (mkNP i_Pron) ss))
|
||||||
| mkUtt (mkQS (mkQCl (L.CompIP whatSg_IP) ss))
|
| mkUtt (mkQS (mkQCl (Lang.CompIP whatSg_IP) ss))
|
||||||
| mkUtt (mkQS (mkQCl (L.CompIP (L.IdetIP (mkIDet which_IQuant))) ss))
|
| mkUtt (mkQS (mkQCl (Lang.CompIP (Lang.IdetIP (mkIDet which_IQuant))) ss))
|
||||||
| mkUtt ss ;
|
| mkUtt ss ;
|
||||||
|
|
||||||
QWhere s = mkUtt (mkQS (mkQCl where_IAdv s)) ;
|
QWhere s = mkUtt (mkQS (mkQCl where_IAdv s)) ;
|
||||||
@@ -45,10 +46,10 @@ lin
|
|||||||
let
|
let
|
||||||
info : NP = mkNP all_Predet (mkNP (mkNP information_N) (mkAdv about_Prep s)) ;
|
info : NP = mkNP all_Predet (mkNP (mkNP information_N) (mkAdv about_Prep s)) ;
|
||||||
in
|
in
|
||||||
mkUtt (mkImp (mkVP give_V3 (mkNP i_Pron) info))
|
mkUtt (mkImp (mkVP LexQuery.give_V3 (mkNP i_Pron) info))
|
||||||
| mkUtt info ;
|
| mkUtt info ;
|
||||||
|
|
||||||
QCalled i = mkUtt (mkQS (mkQCl how_IAdv (mkCl i (mkVP also_AdV (mkVP called_A))))) ;
|
--- QCalled i = mkUtt (mkQS (mkQCl how_IAdv (mkCl i (mkVP also_AdV (mkVP called_A))))) ;
|
||||||
|
|
||||||
AKind s k = mkUtt (mkCl s (mkNP aPl_Det k)) ; ---- a, fun of s
|
AKind s k = mkUtt (mkCl s (mkNP aPl_Det k)) ; ---- a, fun of s
|
||||||
AProp s p = mkUtt (mkCl s p) ;
|
AProp s p = mkUtt (mkCl s p) ;
|
||||||
@@ -80,25 +81,6 @@ lin
|
|||||||
mkCN k (mkRS (mkRCl that_RP p)) ;
|
mkCN k (mkRS (mkRCl that_RP p)) ;
|
||||||
KRel r = r.cn ;
|
KRel r = r.cn ;
|
||||||
|
|
||||||
oper
|
|
||||||
-- structural words
|
|
||||||
about_Prep = mkPrep "about" ;
|
|
||||||
all_NP = mkNP (mkPN "all") ; ---
|
|
||||||
also_AdV = mkAdV "also" | mkAdV "otherwise" ;
|
|
||||||
as_Prep = mkPrep "as" ;
|
|
||||||
at_Prep = mkPrep "at" ;
|
|
||||||
called_A = mkA "called" | mkA "named" ;
|
|
||||||
give_V3 = mkV3 give_V ;
|
|
||||||
information_N = mkN "information" ;
|
|
||||||
other_A = mkA "other" ;
|
|
||||||
name_N = mkN "name" ;
|
|
||||||
|
|
||||||
-- lexical constructors
|
|
||||||
mkName : Str -> NP =
|
|
||||||
\s -> mkNP (mkPN s) ;
|
|
||||||
|
|
||||||
oper
|
|
||||||
mkRelation : Str -> {cn : CN ; prep : Prep} =
|
|
||||||
\s -> {cn = mkCN (mkN s) ; prep = possess_Prep} ;
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Binary file not shown.
@@ -1,4 +1,4 @@
|
|||||||
--# -path=.:..:alltenses
|
--# -path=.:alltenses
|
||||||
|
|
||||||
concrete QueryPatEng of QueryPat = QueryEng ** open
|
concrete QueryPatEng of QueryPat = QueryEng ** open
|
||||||
SyntaxEng,
|
SyntaxEng,
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user