#!/usr/bin/perl

 ##################     Verzei.pm        ###########################
 #                                                                 #
 # Project Acronym:     PaGAL                                      #
 # Document ID:                                                    #
 # Date:                01/07/01                                   #
 # Author:              Meike Griese                               #
 # WP/Task              T 1.4                                      #
 # Abstract:            Modul liest aus Bibel_txt und Abk_txt      #
 #                      Langform und Kurzform ein und generiert    #
 #                      Abkuerungshashes                           #
 # Distribution:        public                                     #
 #                                                                 #
 ###################################################################
 #                                                                 #
 # Version      Date      Author  Notes                            #
 # 02           06/04/01  G                                        #
 # 03           01/07/01  G       bearbeitet bibl. und sonstige    #
 #                                Abkuerzungen                     #
 #                                                                 #
 ###################################################################

 ###################################################################
 # Modul oeffnet Bibel_txt, Abk_txt und Abk_txt und erstellt zwei  #
 # Hash aus den Langformen mit ihren dazugehoerigen Kurzformen,    #
 # gibt beide Hashs zurueck, die in Abverz.pm durchsucht werden.   #
 ################################################################### 

open(B, "<Bibel_txt") || die ("Cannot open Bibel_txt\n");
open(A, "<Abk_txt") || die ("Cannot open Abk_txt\n");
open(K, "Abkneu_txt") || die ("Cannot open Abkneu_txt\n");

while ($line = <B>) {             
    if ($line =~ /(.*): (.*)/){    # Langform: Kurzform 

	$abk{$1} = $2;             # Hash wird aufgebaut


    }
}

while ($line = <A>) {
    if ($line =~ /(.*): (.*)/){

	$abk{$1} = $2;
    }
}




while ($line = <K>) {       # in Abkneu_txt stehen Langformen, die nicht 
                            # flektiert werden und nicht in Komposita vorkommen

    if ($line =~ /(.*): (.*)/){

	$abk_klein{$1} = $2;  


    }
}

return %abk;               # Hash, der bibl. Eigennamen + grosses
                           # Abkuerzungsverzeichnis

return %abk_klein;         # Hash der "Sonder-Faelle"