blob: 5ab537c4c69dfbb27a61a1fdf102de1912ea6d98 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
instance LexPatsQueryEng of LexPatsQuery = QueryEng **
open SyntaxEng, (M = MakeStructuralEng), ParadigmsEng, (Lang=LangEng), ExtraEng, IrregEng, ResEng in {
oper
giveMe : NP -> VP = \np -> mkVP (mkV3 give_V) (SyntaxEng.mkNP i_Pron) np ;
get_V2 = mkV2 IrregEng.get_V ;
want_V2 = mkV2 (mkV "want" "wants" "wanted" "wanted" "wanting") ;
-- structural words
about_Prep : Prep = mkPrep "about" ;
all_NP : NP = SyntaxEng.mkNP (mkPN "all") ;
-- at_Prep : Prep = mkPrep "at" ;
vpAP = PartVP ;
active_ingredient_CN : Relation = makeRelation (mkCN (mkA "active") (mkN "ingredient")) ;
dosage_form_CN : Relation = makeRelation (mkCN (mkN "dosage" (mkN "form"))) ;
route_of_administration_CN : Relation = makeRelation (mkCN (mkN "route") (SyntaxEng.mkAdv (mkPrep "of") (SyntaxEng.mkNP (mkN "administration")))) ;
patent_number_CN : Kind = lin Kind (mkCN (mkN "patent" (mkN "number"))) ;
patent_number_Rel : Relation = makeRelation (mkCN (mkN "patent" (mkN "number"))) ;
patent_N : Relation = lin Relation {cn = mkCN (mkN "patent") ; prep = for_Prep } ;
expiration_date_CN : Relation = makeRelation (mkCN (mkN "expiration" (mkN "date"))) ;
expire_V : V = mkV "expire" ;
use_code_CN : Relation = makeRelation (SyntaxEng.mkCN (mkN "use" (mkN "code"))) ;
application_number_CN : Relation = makeRelation ((mkCN (mkN "application" (mkN "number"))) | (mkCN (mkN ["patent application"] (mkN "number")))) ;
apply_V : V = mkV "apply" "applies" "applied" "applied" "applying" ;
applicant_CN : Relation = lin Relation {cn = mkCN (mkN "applicant") ; prep = for_Prep } ;
approval_date_CN : Relation = makeRelation (mkCN (mkN "approval" (mkN "date"))) ;
chemical_composition_CN : Relation = makeRelation (mkCN (mkA "chemical") (mkN "composition")) ;
chemical_substance_CN : Relation = makeRelation (mkCN (mkA "chemical") (mkN "substance")) ;
drug_N : N = mkN "drug" ;
use_N : Relation = makeRelation (mkCN (mkN "use")) ;
compound_CN : Relation = makeRelation (mkCN (mkN "compound")) ;
--name_N : N = mkN "name" ;
method_N : N = mkN "method" ;
strength_N : Relation = makeRelation (mkCN (mkN "strength")) ;
drug_preparation_CN : Relation = makeRelation (mkCN (mkN "drug" (mkN "preparation"))) ;
claim_N : N = mkN "claim" ;
mention_V2 : V2 = mkV2 (mkV "mention" "mentions" "mentioned" "mentioned" "mentioning") ;
use_V2 : V2 = mkV2 (mkV "use" "uses" "used" "used" "using") ;
approve_V2 : V2 = mkV2 (mkV "approve" "approves" "approved" "approved" "approving") ;
contain_V2 : V2 = mkV2 (mkV "contain" "contains" "contained" "contained" "containing") ;
usage_form_CN : Relation = makeRelation (mkCN (mkN "usage" (mkN "form"))) ;
information_N : N = mkN "information" ;
what_IQuant : IQuant = M.mkIQuant "what" "what" ;
massInfoSg : CN -> NP = \cn -> SyntaxEng.mkNP cn ;
massInfoPl : CN -> NP = \cn -> SyntaxEng.mkNP aPl_Det cn ;
that_RP : RP = ExtraEng.that_RP ;
PatsAdvVPSlash = Lang.AdvVPSlash ;
selectIP np = case np.a of
{AgP3Sg _ => whatSg_IP ;
_ => whatPl_IP
};
oper makeRelation : CN -> Relation =
\s -> lin Relation {cn = s ; prep = possess_Prep} ;
}
|
