#!/usr/bin/perl

 ###################################################################
 #                                                                 #
 # Project Acronym:     PaGAL                                      #
 # Document ID:                                                    #
 # Date:                07/05/01                                   #
 # Author:              Meike Griese                               #
 # WP/Task              T                                          #
 # Abstract:            Modul erkennt Adjektive und kuerzt ab      #
 # Distribution:        public                                     #
 #                                                                 #
 ###################################################################

 ####################################################################
 # Modul bekommt von der Hauptfunktion die Langform. Die Subroutine #
 # prueft ob Endung der Langform einer Adjektiv-Endung entspricht   #
 # und ersetzt sie durch . , bzw. -l. und gibt die Abkuerzung an die#
 # Hauptfunktion zurueck.                                           #
 ####################################################################


sub adjeab {
    my ($lf) = @_;
    my ($kfg) = 0;
    
    if ($lf =~ /(.*)isch|(.*)ische|(.*)isches|(.*)ischen|(.*)ischem|(.*)ischer/) {
    $kfg = $1 . ".";    #wenn Endung matcht durch Punkt ersetzen
    }

    
    elsif ($lf =~ /(.*)lich|(.*)liche|(.*)liches|(.*)lichen|(.*)lichem|(.*)licher/) {
    $kfg = $1 . "l.";
    }

    
    elsif ($lf =~ /(.*)lig|(.*)lige|(.*)liges|(.*)ligen|(.*)ligem|(.*)liger/) {
    $kfg = $1 . "l.";
    }

return $kfg;

}

1;