From 7af649f2784056f26fec3908f644057bd9a870be Mon Sep 17 00:00:00 2001 From: "ramona.enache" Date: Thu, 21 Jun 2012 10:45:05 +0000 Subject: fixed and completed the patent query grammr for English --- examples/query/small/patentsQuery/QueryPatEng2.gf | 69 ----------------------- 1 file changed, 69 deletions(-) delete mode 100644 examples/query/small/patentsQuery/QueryPatEng2.gf (limited to 'examples/query/small/patentsQuery/QueryPatEng2.gf') 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")) ; - -} -- cgit v1.2.3