Unverified Commit fed34b7c authored by Olly Betts's avatar Olly Betts Committed by GitHub
Browse files

Merge pull request #78 from dscorbett/fr-diaeresis

Recognize French suffixes even when they begin with diaereses
parents c64169d8 86ceab9b
......@@ -42,6 +42,10 @@ define prelude as repeat goto (
('y' ] <- 'Y')
)
or
( [ '{e"}' ] <- 'He' )
or
( [ '{i"}' ] <- 'Hi' )
or
( ['y'] v <- 'Y' )
or
( 'q' ['u'] <- 'U' )
......@@ -78,6 +82,9 @@ define postlude as repeat (
'I' (<- 'i')
'U' (<- 'u')
'Y' (<- 'y')
'He' (<- '{e"}')
'Hi' (<- '{i"}')
'H' (delete)
'' (next)
)
)
......@@ -167,7 +174,7 @@ backwardmode (
'irions' 'irons' 'iront' 'is' 'issaIent' 'issais' 'issait'
'issant' 'issante' 'issantes' 'issants' 'isse' 'issent' 'isses'
'issez' 'issiez' 'issions' 'issons' 'it'
(non-v delete)
(not 'H' non-v delete)
)
)
......@@ -196,14 +203,13 @@ backwardmode (
define keep_with_s 'aiou{e`}s'
define residual_suffix as (
try(['s'] test non-keep_with_s delete)
try(['s'] test ('Hi' or non-keep_with_s) delete)
setlimit tomark pV for (
[substring] among(
'ion' (R2 's' or 't' delete)
'ier' 'i{e`}re'
'Ier' 'I{e`}re' (<-'i')
'e' (delete)
'{e"}' ('gu' delete)
)
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment