mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-17 08:49:31 -06:00
71 lines
1.8 KiB
Plaintext
71 lines
1.8 KiB
Plaintext
--# -path=.:../chunk
|
|
|
|
concrete TranslateEng of Translate =
|
|
TenseX - [Pol, PNeg, PPos],
|
|
CatEng,
|
|
NounEng - [
|
|
PPartNP
|
|
,DetNP -- Eng exception
|
|
],
|
|
AdjectiveEng,
|
|
NumeralEng,
|
|
SymbolEng [
|
|
PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP,
|
|
addGenitiveS
|
|
],
|
|
ConjunctionEng,
|
|
VerbEng - [
|
|
UseCopula, -- just removed: not needed
|
|
PassV2, -- generalized in Extensions
|
|
ComplVS, SlashV2S, ComplSlash -- Eng exceptions
|
|
],
|
|
AdverbEng,
|
|
PhraseEng,
|
|
SentenceEng - [
|
|
UseCl -- replaced by UseCl | ContractedUseCl
|
|
],
|
|
QuestionEng,
|
|
RelativeEng - [IdRP],
|
|
IdiomEng,
|
|
ConstructionEng,
|
|
DocumentationEng,
|
|
|
|
ChunkEng,
|
|
ExtensionsEng [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
|
|
DirectComplVS, DirectComplVQ, FocusObjS
|
|
|
|
---- , PastPartAP, PastPartAgentAP, PresPartAP
|
|
],
|
|
DictionaryEng **
|
|
open MorphoEng, ResEng, ParadigmsEng, (G = GrammarEng), (E = ExtraEng), Prelude in {
|
|
|
|
flags
|
|
literal=Symb ;
|
|
|
|
-- exceptional linearizations
|
|
lin
|
|
UseCl t p cl =
|
|
G.UseCl t p cl -- I am here
|
|
| E.ContractedUseCl t p cl -- I'm here
|
|
;
|
|
|
|
ComplVS vs s = G.ComplVS vs s | E.ComplBareVS vs s ;
|
|
SlashV2S vs s = G.SlashV2S vs s | E.SlashBareV2S vs s ;
|
|
ComplSlash vps np = G.ComplSlash vps np | E.ComplSlashPartLast vps np ;
|
|
|
|
PPos = {s = [] ; p = CPos} ;
|
|
PNeg = {s = [] ; p = CNeg True} | {s = [] ; p = CNeg False} ;
|
|
|
|
IdRP = ExtensionsEng.that_RP | G.IdRP | ExtensionsEng.who_RP |
|
|
{ s = table {
|
|
RC _ (NCase Gen) | RC _ NPNomPoss => "whose" ;
|
|
RC _ NPAcc => [] ;
|
|
_ => "which"
|
|
} ;
|
|
a = RNoAg
|
|
} ;
|
|
|
|
DetNP d = G.DetNP d | G.DetCN d (UseN (mkN "one")) ; -- I like this / I like this one ; it / the one
|
|
|
|
}
|