GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 09:32:53 -06:00
Code Issues Packages Projects Releases Wiki Activity

tense update for lib/resource/english

Browse Source
This commit is contained in:
aarne
2005-01-30 14:45:01 +00:00
parent 1a98f294ea
commit 039de90677
16 changed files with 345 additions and 377 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
lib/resource/english/StructuralEng.gf
View File

@@ -7,16 +7,16 @@
concrete StructuralEng of Structural =
CategoriesEng, NumeralsEng ** open Prelude, SyntaxEng in {
lin
INP = pronI ;
ThouNP = pronYouSg ;
HeNP = pronHe ;
SheNP = pronShe ;
ItNP = pronIt ;
WeNumNP = pronWithNum pronWe ;
YeNumNP = pronWithNum pronYouPl ;
YouNP = pronYouSg ;
TheyNP = pronThey ;
TheyFemNP = pronThey ;
INP = pronNounPhrase pronI ;
ThouNP = pronNounPhrase pronYouSg ;
HeNP = pronNounPhrase pronHe ;
SheNP = pronNounPhrase pronShe ;
ItNP = pronNounPhrase pronIt ;
WeNumNP n = pronNounPhrase (pronWithNum pronWe n) ;
YeNumNP n = pronNounPhrase (pronWithNum pronYouPl n) ;
YouNP = pronNounPhrase pronYouSg ;
TheyNP = pronNounPhrase pronThey ;
TheyFemNP = pronNounPhrase pronThey ;
EveryDet = everyDet ;
AllMassDet = mkDeterminer Sg "all" ; --- all the missing
@@ -42,17 +42,19 @@ concrete StructuralEng of Structural =
ThatDet = mkDeterminer Sg "that" ;
ThoseNumDet = mkDeterminerNum Pl "those" ;
ThisNP = nameNounPhrase (nameReg "this") ;
ThatNP = nameNounPhrase (nameReg "that") ;
TheseNumNP n = nameNounPhrasePl {s = \\c => "these" ++ n.s ! c} ;
ThoseNumNP n = nameNounPhrasePl {s = \\c => "those" ++ n.s ! c} ;
ThisNP = nameNounPhrase (nameReg "this" Neutr) ;
ThatNP = nameNounPhrase (nameReg "that" Neutr) ;
TheseNumNP n = nameNounPhrasePl {s = \\c => "these" ++ n.s ! c ; g =
Neutr} ;
ThoseNumNP n = nameNounPhrasePl {s = \\c => "those" ++ n.s ! c ; g =
Neutr} ;
EverybodyNP = nameNounPhrase (nameReg "everybody") ;
SomebodyNP = nameNounPhrase (nameReg "somebody") ;
NobodyNP = nameNounPhrase (nameReg "nobody") ;
EverythingNP = nameNounPhrase (nameReg "everything") ;
SomethingNP = nameNounPhrase (nameReg "something") ;
NothingNP = nameNounPhrase (nameReg "nothing") ;
EverybodyNP = nameNounPhrase (nameReg "everybody" human) ;
SomebodyNP = nameNounPhrase (nameReg "somebody" human) ;
NobodyNP = nameNounPhrase (nameReg "nobody" human) ;
EverythingNP = nameNounPhrase (nameReg "everything" Neutr) ;
SomethingNP = nameNounPhrase (nameReg "something" Neutr) ;
NothingNP = nameNounPhrase (nameReg "nothing" Neutr) ;
CanVV = vvCan ;
CanKnowVV = vvCan ;