<?php

/**
 * French Stemmer
 *
 * Lightweight suffix-based stemmer for French.
 *
 * @package ProRank\SEO\Modules\Content\InternalLinking\Parser\MultiLanguage\Languages
 * @since   1.0.0
 */

declare(strict_types=1);

namespace ProRank\SEO\Modules\Content\InternalLinking\Parser\MultiLanguage\Languages;

use ProRank\SEO\Modules\Content\InternalLinking\Parser\MultiLanguage\Stemmer;

if ( ! defined( 'ABSPATH' ) ) {
    exit;
}

class FrenchStemmer extends Stemmer {
    public function __construct() {
        parent::__construct('fr');
    }

    public function stem(string $word): string {
        $word = $this->normalize($word);
        if (strlen($word) <= 3) {
            return $word;
        }

        $suffixes = [
            'issements', 'atrices', 'ateurs', 'ations', 'ements', 'ement', 'atrice',
            'ateur', 'ation', 'ismes', 'istes', 'euses', 'euse', 'ment', 'ance',
            'ence', 'ités', 'ité', 'ique', 'iques', 'able', 'ables', 'eux',
            'es', 's',
        ];

        foreach ($suffixes as $suffix) {
            if (str_ends_with($word, $suffix) && strlen($word) > strlen($suffix) + 2) {
                return substr($word, 0, -strlen($suffix));
            }
        }

        return $word;
    }
}
