Skip to content

Commit

Permalink
czech: Use R1 instead of RV
Browse files Browse the repository at this point in the history
There seems no benefit from having a separate region we can remove
possessive suffixes in.

See #151
  • Loading branch information
ojwb committed Oct 9, 2024
1 parent 360d722 commit 4b23362
Showing 1 changed file with 4 additions and 11 deletions.
15 changes: 4 additions & 11 deletions algorithms/czech.sbl
Original file line number Diff line number Diff line change
@@ -1,5 +1,5 @@
routines (
RV // R1
R1
palatalise_e
palatalise_ecaron
palatalise_i
Expand All @@ -11,7 +11,7 @@ routines (

externals ( stem )

integers ( pV p1 x )
integers ( p1 x )

groupings ( v v_or_syllabic_c )

Expand Down Expand Up @@ -46,15 +46,9 @@ define v_or_syllabic_c v + 'lr'

define mark_regions as (

$pV = limit
$p1 = limit
test(hop 3 setmark x)

do (
gopast non-v setmark pV
try($pV < x $pV = x) // at least 3
)

do (
// A syllabic consonant must occur between two consonants, or be
// preceded by a consonant and at the end of the word.
Expand All @@ -76,8 +70,7 @@ define mark_regions as (

backwardmode (

define RV as $pV <= cursor
// define R1 as $p1 <= cursor
define R1 as $p1 <= cursor

define palatalise_e as (
[substring] among (
Expand Down Expand Up @@ -110,7 +103,7 @@ backwardmode (
)

define possessive_suffix as (
[substring] RV among (
[substring] R1 among (
'ov' '{u*}v'
(delete)
'in'
Expand Down

0 comments on commit 4b23362

Please sign in to comment.