mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-21 09:02:50 -06:00
some var parser bug fixes
This commit is contained in:
@@ -39,8 +39,8 @@ concrete StructuralEng of Structural =
|
||||
|
||||
ThisNP = nameNounPhrase (nameReg "this") ;
|
||||
ThatNP = nameNounPhrase (nameReg "that") ;
|
||||
TheseNumNP n = nameNounPhrase {s = \\c => "these" ++ n.s ! c} ; --- Pl; Gen!
|
||||
ThoseNumNP n = nameNounPhrase {s = \\c => "those" ++ n.s ! c} ; --- Pl; Gen!
|
||||
TheseNumNP n = nameNounPhrasePl {s = \\c => "these" ++ n.s ! c} ;
|
||||
ThoseNumNP n = nameNounPhrasePl {s = \\c => "those" ++ n.s ! c} ;
|
||||
|
||||
EverybodyNP = nameNounPhrase (nameReg "everybody") ;
|
||||
SomebodyNP = nameNounPhrase (nameReg "somebody") ;
|
||||
|
||||
@@ -47,6 +47,9 @@ oper
|
||||
nameNounPhrase : ProperName -> NounPhrase = \john ->
|
||||
{s = \\c => john.s ! toCase c ; n = Sg ; p = P3} ;
|
||||
|
||||
nameNounPhrasePl : ProperName -> NounPhrase = \john ->
|
||||
{s = \\c => john.s ! toCase c ; n = Pl ; p = P3} ;
|
||||
|
||||
-- The following construction has to be refined for genitive forms:
|
||||
-- "we two", "us two" are OK, but "our two" is not.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user