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

paradigm for us_britishV variants

Browse Source
This commit is contained in:
aarne
2014-03-29 17:38:48 +00:00
parent 19881e6768
commit 0869181af9
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/english/ParadigmsEng.gf
View File

@@ -270,6 +270,10 @@ oper
reflV : V -> V ; -- reflexive e.g. behave oneself reflV : V -> V ; -- reflexive e.g. behave oneself
-- Verbs with variant American-British spelling
us_britishV : Str -> V ; -- travel - traveled/travelled
--3 Two-place verbs --3 Two-place verbs
-- --
-- Two-place verbs need a preposition, except the special case with direct object. -- Two-place verbs need a preposition, except the special case with direct object.
@@ -539,6 +543,12 @@ mkInterj : Str -> Interj
partV v p = lin V {s = \\f => v.s ! f ; p = p ; isRefl = v.isRefl} ; partV v p = lin V {s = \\f => v.s ! f ; p = p ; isRefl = v.isRefl} ;
reflV v = lin V {s = v.s ; p = v.p ; isRefl = True} ; reflV v = lin V {s = v.s ; p = v.p ; isRefl = True} ;
us_britishV : Str -> V = \s -> case s of {
_ + ("el" | "al" | "ol") => regV s | mkV s (s + "s") (s + "led") (s + "led") (s + "ling") ;
_ + "or" => regV s | regV (Predef.tk 2 s + "our") ;
_ => regV s
} ;
prepV2 v p = lin V2 {s = v.s ; p = v.p ; s1 = v.s1 ; c2 = p.s ; isRefl = v.isRefl} ; prepV2 v p = lin V2 {s = v.s ; p = v.p ; s1 = v.s1 ; c2 = p.s ; isRefl = v.isRefl} ;
dirV2 v = prepV2 v noPrep ; dirV2 v = prepV2 v noPrep ;