Made changes required by lock fields; not yet in Swedish and Finnish.

This commit is contained in:
aarne
2003-11-12 12:22:53 +00:00
parent 54c72f5ab0
commit eb24522848
11 changed files with 93 additions and 74 deletions

View File

@@ -1,4 +1,4 @@
concrete DatabaseEng of Database = open Prelude,Syntax,English,Predication,Paradigms,DatabaseRes in {
concrete DatabaseEng of Database = open Prelude,Syntax,English,Predication,Paradigms,DatabaseEngRes in {
flags lexer=text ; unlexer=text ;
@@ -11,7 +11,7 @@ lincat
Relation = Adj2 ;
Feature = Fun ;
Value = NP ;
Name = ProperName ;
Name = PN ;
lin
LongForm sent = ss (sent.s ! True ++ "?") ;
@@ -41,7 +41,7 @@ lin
-- only these are language-dependent
Any = detNounPhrase anyPlDet ; ---
Any n = detNounPhrase anyPlDet n ** {lock_NP = <>} ; ---
IsThere A = mkSentPrel ["is there"] (defaultNounPhrase (IndefOneNP A)) ;
AreThere A = mkSentPrel ["are there"] (defaultNounPhrase (IndefManyNP A)) ;