msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

some more transfer functions included in Grammar

Browse Source
This commit is contained in:
aarne
2011-03-13 17:22:51 +00:00
parent e6c353425c
commit 2e935bf2c0
5 changed files with 35 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/src/abstract/Transfer.gf Normal file
View File

@@ -0,0 +1,29 @@
abstract Transfer = Sentence, Verb, Adverb, Structural, NumeralTransfer ** {
{-
-- examples of transfer: to test,
> i LangEng.gf
> p "she sees him" | pt -transfer=active2passive | l
he is seen by her
> p "wouldn't she see him" | pt -transfer=active2passive | l
wouldn't he be seen by her
> p -cat=NP "3 cats with 4 dogs" | pt -transfer=digits2numeral | l
three cats with four dogs
-}
fun
active2passive : Cl -> Cl ;
def
active2passive (PredVP subj (ComplSlash (SlashV2a v) obj)) =
PredVP obj (AdvVP (PassV2 v) (PrepNP by8agent_Prep subj)) ;
active2passive (PredVP subj (AdvVP (ComplSlash (SlashV2a v) obj) adv)) =
PredVP obj (AdvVP (AdvVP (PassV2 v) (PrepNP by8agent_Prep subj)) adv) ;
active2passive (PredVP subj (AdVVP adv (ComplSlash (SlashV2a v) obj))) =
PredVP obj (AdVVP adv (AdvVP (PassV2 v) (PrepNP by8agent_Prep subj))) ;
active2passive cl = cl ;
}