=head3 _regex_unmittelbareDominanz( $satz, $dominierendesSymbol, $dominiertesSymbol )

Diese Funktion  überprüft, ob im gegebenen Satz ($satz)
ein Symbol ($dominierendesSymbol) ein anderes Symbol ($dominiertesSymbol)
unmittelbar dominiert.

=cut

sub _regex_unmittelbareDominanz($$$) {
    my ($s, $x1, $x2) = @_;
    
    our $pat;
    $pat = qr!
        (?:
            \[
            (?>
                (?>[^\[\]]+)
                |
                (??{$pat})
            )*
            \](?:\,\s)*
        )
    !x;
    
    say "suche mit $x1, $x2 in $s";
    
    if( $s =~ /\[$x1\,\s?($pat)*\[\[?[\'\,\w\s]*$x2/ ) {
        say "gefunden";
        return 1;
    }else{
        say "nix da!";
        return 0;
    }
    
} # /_regex_unmittelbareDominanz