diff options
| author | aarne <aarne@chalmers.se> | 2012-06-21 06:06:05 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2012-06-21 06:06:05 +0000 |
| commit | f8e74c50e277b06964f2d820da109197ecde5711 (patch) | |
| tree | bc87de828ed3aaf2bb6fbf5315016894b75644fd /examples/query/small/patentsQuery/LexQueryEng.gf | |
| parent | 18c08fdac1b981b85b15a9f28584b0def9aa45a2 (diff) | |
factored Query by taking our Proton parts and introducing an interface
Diffstat (limited to 'examples/query/small/patentsQuery/LexQueryEng.gf')
| -rw-r--r-- | examples/query/small/patentsQuery/LexQueryEng.gf | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/examples/query/small/patentsQuery/LexQueryEng.gf b/examples/query/small/patentsQuery/LexQueryEng.gf new file mode 100644 index 000000000..5e543aabb --- /dev/null +++ b/examples/query/small/patentsQuery/LexQueryEng.gf @@ -0,0 +1,26 @@ +instance LexQueryEng of LexQuery = open ParadigmsEng, SyntaxEng, ExtraEng, IrregEng in { + +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} ; + + that_RP = ExtraEng.that_RP ; + +}
\ No newline at end of file |