diff options
| author | ramona.enache <ramona.enache@chalmers.se> | 2012-06-21 10:45:05 +0000 |
|---|---|---|
| committer | ramona.enache <ramona.enache@chalmers.se> | 2012-06-21 10:45:05 +0000 |
| commit | 7af649f2784056f26fec3908f644057bd9a870be (patch) | |
| tree | 83d0908246a3775467f976c949c27a33e802fd4f /examples/query/small/patentsQuery/QueryPatEng2.gf | |
| parent | 92a106339f5948e30119664dfe9dce1b66afe81b (diff) | |
fixed and completed the patent query grammr for English
Diffstat (limited to 'examples/query/small/patentsQuery/QueryPatEng2.gf')
| -rw-r--r-- | examples/query/small/patentsQuery/QueryPatEng2.gf | 69 |
1 files changed, 0 insertions, 69 deletions
diff --git a/examples/query/small/patentsQuery/QueryPatEng2.gf b/examples/query/small/patentsQuery/QueryPatEng2.gf deleted file mode 100644 index ac8fc78d2..000000000 --- a/examples/query/small/patentsQuery/QueryPatEng2.gf +++ /dev/null @@ -1,69 +0,0 @@ ---# -path=.:..:alltenses - -concrete QueryPatEng of QueryPat = QueryPatI with - (Syntax = SyntaxEng), - (Lang = LangEng), - (LexPatsQuery = LexPatsQueryEng) ** - -open - LexPatsQueryEng, - ParadigmsEng, - IrregEng, - SyntaxEng, - ExtraEng, - (L = LangEng), - (M = MakeStructuralEng), - Prelude, - QueryEng -in { - --- lexicon - -oper mkDrug : Str -> NP = - \p -> mkNP (mkPN p) ; - -oper mkPatents : Str -> NP = - \p -> mkNP (mkPN p) ; - -oper mkChemicalSubstance : Str -> NP = - \p -> mkNP (mkPN p) ; - -oper mkDrugUsageForm : Str -> NP = - \p -> mkNP (mkPN p) ; - -oper mkPatentNumber : Str -> NP = - \p -> mkNP (mkPN p) ; - -oper mkApplicant : Str -> NP = - \p -> mkNP (mkPN p) ; - -oper mkApplicationNumber : Str -> NP = - \p -> mkNP (mkPN p); - - - - -lin - -Aspirin = mkDrug "DRUG" ; - -Pats1230 = mkPatents "PATENT" ; - -Hydrogen = mkChemicalSubstance "CHEMICAL_SUBSTANCE" ; - -Inhalation = mkDrugUsageForm "DRUG_USAGE_FORM" ; - -P123 = mkPatentNumber "PATENT_NUMBER" ; - -JohnDoe = mkApplicant "APPLICANT" ; - -A123 = mkApplicationNumber "APPLICATION_NUMBER" ; - - - OnDate = mkPatsDate on_Prep ; - BeforeDate = mkPatsDate before_Prep ; - AfterDate = mkPatsDate after_Prep ; - -oper mkPatsDate : Prep -> Adv = \prep -> Syntax.mkAdv prep (mkNP (mkPN "DATE")) ; - -} |