Changeset 1954 for trunk/gsdl/perllib/DateExtract.pm

Timestamp:

2001-02-13T10:58:26+13:00 (23 years ago)

Author:

jmt14

Message:

* empty log message *

File:

• trunk/gsdl/perllib/DateExtract.pm (modified) (11 diffs)

trunk/gsdl/perllib/DateExtract.pm

@@ -7 +7 @@
 #75% of the instances of the word century use full name ordinals
 my %ordinals = ("first" => 1, "second" => 2, "third" => 3, "fourth" => 4,
-         "fifth" => 5, "sixth" => 6, "seventh" => 7, "eighth" => 8,
-         "ninth" => 9, "tenth" => 10, "eleventh" => 11, "twelfth" => 12,
-         "thirteenth" => 13, "fourteenth" => 14, "fifteenth" => 15,
-         "sixteenth" => 16, "seventeenth" => 17, "eighteenth" => 18,
-         "nineteenth" => 19, "twentieth" => 20);
-
-
-         
+             "fifth" => 5, "sixth" => 6, "seventh" => 7, "eighth" => 8,
+             "ninth" => 9, "tenth" => 10, "eleventh" => 11, "twelfth" => 12,
+             "thirteenth" => 13, "fourteenth" => 14, "fifteenth" => 15,
+             "sixteenth" => 16, "seventeenth" => 17, "eighteenth" => 18,
+             "nineteenth" => 19, "twentieth" => 20);
+
+
+             
 
 #definitions for a date grammar.
@@ -20 +20 @@
 
 my @months = ("january","february","march","april","may","june","july",
-          "august","september","october","november","december");
+              "august","september","october","november","december");
 
 my $shortmth = "";
@@ -77 +77 @@
     if($max_century =~ /B/)
     {
-    $max_century = $`;
-    $max_century =~ /\d+/;
-    $max_century = $&;
-    $max_century *=-1
+        $max_century = $`;
+        $max_century =~ /\d+/;
+        $max_century = $&;
+        $max_century *=-1
     }
    
@@ -87 +87 @@
     $extr = &remove_tags($extr);
     if(!$keep_bib){
-    $extr = &remove_biblio($extr);
+        $extr = &remove_biblio($extr);
     }
   
@@ -94 +94 @@
     while($extr =~ m!($range)|($millenium)|($qualified)|($centurydate)|($tri_digit)!i)
     { 
-    $extr = $';
-    my $fulldate = $&;
-    if ($fulldate =~ /$centurydate/i)
-    {
-        if($max_century!=-1)
-        {
-
-        local $date = $fulldate; if($date =~ /\d+/) {$date = $&;} 
-        else 
-        {
-            $date=$fulldate; $date =~ m! ($Century)!i; $date = $`;
-            $date =~ tr/A-Z/a-z/;
-            $date = $ordinals{$date};
-        }
-        if($max_century >= $date){
-            $date = ($date-1)*100 +1;
-            #if it BC, make it negative
-            $date = &convert_bc($fulldate,$date);
-            $end = $date + 99; 
-            @century = ($date..$end);
-            @datelist = (@datelist,@century);
-        }
-        }
-    }
-    
-    elsif($fulldate =~ /$range/)
-    {
-        $fulldate =~ /$sep/;
-        my @addlist = ();
-        #print "Range: $fulldate\n";
-        $fullfirst = $`; 
-        $fullsecond = $'; 
-        $fullfirst =~ /\d+/; $first = $&; 
-        $fullsecond =~ /\d+/; $second = $&;
-        $len1 = length($first);
-        $len2 = length($second);
-        $second = (substr($first,0,($len1-$len2))).$second;
-        $first = &convert_bc($fullfirst,$first);
-        $second = &convert_bc($fullsecond,$second);
-        @addlist = ($first..$second);
-        @datelist = (@datelist,@addlist);
-        
-    }
-    else {
-        
-        my $date = $fulldate; $date =~ /\d+/; $date = $&;  
-        $date = &convert_bc($fulldate,$date);
-        #add the date metadata
-        push(@datelist,$date);
-        #print "datelist @datelist\n"
-    }
-    
+        $extr = $';
+        my $fulldate = $&;
+        if ($fulldate =~ /$centurydate/i)
+        {
+            if($max_century!=-1)
+            {
+
+                local $date = $fulldate; if($date =~ /\d+/) {$date = $&;} 
+                else 
+                {
+                    $date=$fulldate; $date =~ m! ($Century)!i; $date = $`;
+                    $date =~ tr/A-Z/a-z/;
+                    $date = $ordinals{$date};
+                }
+                if($max_century >= $date){
+                    $date = ($date-1)*100 +1;
+                    #if it BC, make it negative
+                    $date = &convert_bc($fulldate,$date);
+                    $end = $date + 99; 
+                    @century = ($date..$end);
+                    @datelist = (@datelist,@century);
+                }
+            }
+        }
+        
+        elsif($fulldate =~ /$range/)
+        {
+            $fulldate =~ /$sep/;
+            my @addlist = ();
+            #print "Range: $fulldate\n";
+            $fullfirst = $`; 
+            $fullsecond = $'; 
+            $fullfirst =~ /\d+/; $first = $&; 
+            $fullsecond =~ /\d+/; $second = $&;
+            $len1 = length($first);
+            $len2 = length($second);
+            $second = (substr($first,0,($len1-$len2))).$second;
+            $first = &convert_bc($fullfirst,$first);
+            $second = &convert_bc($fullsecond,$second);
+            @addlist = ($first..$second);
+            @datelist = (@datelist,@addlist);
+            
+        }
+        else {
+            
+            my $date = $fulldate; $date =~ /\d+/; $date = $&;  
+            $date = &convert_bc($fulldate,$date);
+            #add the date metadata
+            push(@datelist,$date);
+            #print "datelist @datelist\n"
+        }
+        
     }
     
     if(@datelist){
-    @datelist = sort { $a <=> $b } @datelist;
-    @datelist = &post_process($max_year, @datelist);
-    foreach $date (@datelist)
-    {
-        if($date>0){
-        $doc->add_metadata($cursection,"Coverage",$date);}
-        else{
-        $doc->add_metadata($cursection,"Coverage","bc".(-1*$date));}
-        
-    }
+        @datelist = sort { $a <=> $b } @datelist;
+        @datelist = &post_process($max_year, @datelist);
+        foreach $date (@datelist)
+        {
+            if($date>0){
+                $doc->add_metadata($cursection,"Coverage",$date);}
+            else{
+                $doc->add_metadata($cursection,"Coverage","bc".(-1*$date));}
+                
+        }
     }
 }
@@ -172 +172 @@
     $prev = 0;
     foreach $e (@list) {
-    if ($e!=$prev && $e <= $max_year) {
-        push(@cleanlist, $e);
-    }
-    $prev = $e;
+        if ($e!=$prev && $e <= $max_year) {
+            push(@cleanlist, $e);
+        }
+        $prev = $e;
     }
     @cleanlist;
@@ -191 +191 @@
     while($tmp=~ m!<([^>])*(>|$)! && $tmp ne "")
     {
-    $parsed .= $`;#keep all that is not in a tag
-    $tmp = $';    #restart the search after then end of the tag
+        $parsed .= $`;#keep all that is not in a tag
+        $tmp = $';    #restart the search after then end of the tag
     }
     $parsed .= $tmp; #add anything after the last match
@@ -206 +206 @@
     if(($tmp =~ m!($spurious)|($lookalikes)!i) == 0 )
     { 
-    $parsed = $tmp;
+        $parsed = $tmp;
     }
     else { 
-    while ($tmp =~ m!($spurious)|($lookalikes)!i 
-           && $tmp ne "")
-    {
-        $parsed .= $`;
-        $storage = $&;
-        $tmp = $';
-        #match the pattern which indicates most recent alteration 
-        if ($storage =~ m!$lastaltered!i)
-        {
-        #match a four digit year or up until the first / 
-        #(as in last edited 3/97). 
-        $tmp =~ m!($millenium)|(\/)!;
-        $tmp = $';
-        }
-        
-    }
-    
-    $parsed .= $tmp;
-       
+        while ($tmp =~ m!($spurious)|($lookalikes)!i 
+               && $tmp ne "")
+        {
+            $parsed .= $`;
+            $storage = $&;
+            $tmp = $';
+            #match the pattern which indicates most recent alteration 
+            if ($storage =~ m!$lastaltered!i)
+            {
+                #match a four digit year or up until the first / 
+                #(as in last edited 3/97). 
+                $tmp =~ m!($millenium)|(\/)!;
+                $tmp = $';
+            }
+                
+        }
+        
+        $parsed .= $tmp;
+           
     }
     #print "Parsed:\n $parsed\n\n";
@@ -240 +240 @@
     if($tmp =~ m!$bibheader!i)
     {
-    $tmp=$`;
+        $tmp=$`;
     }
     
@@ -246 +246 @@
     if(($tmp =~ m!($ref_end)|($bracket)|($colonsp)|($reprint)|($comma)|($fullstop)|($semi)|($seasonref) ($millenium)!i) == 0)
     {
-    $parsed = $tmp;
+        $parsed = $tmp;
     }
     else{
 
-    #print "removing bib\n";
-    while ($tmp =~ m!($ref_end)|($bracket)|($colonsp)|($reprint)|($comma)|($fullstop)|($semi)|(($seasonref) ($millenium))|($bibheader)!i && $tmp ne "")
-    {
-        
-        $parsed .= $`;
-        $tmp = $';
-        if($&=~m!($comma)|($fullstop)!)
-        {
-        
-        local  $date = $&;
-        if($parsed =~ m!((\d)($Ord)$)|(($shortmth)$)|(($longmth)$)!i)
-        {
-            $parsed .= $date;
-        }
-        }  
-        
-    }
-           $parsed .= $tmp;
+        #print "removing bib\n";
+        while ($tmp =~ m!($ref_end)|($bracket)|($colonsp)|($reprint)|($comma)|($fullstop)|($semi)|(($seasonref) ($millenium))|($bibheader)!i && $tmp ne "")
+        {
+            
+            $parsed .= $`;
+            $tmp = $';
+            if($&=~m!($comma)|($fullstop)!)
+            {
+                
+                local  $date = $&;
+                if($parsed =~ m!((\d)($Ord)$)|(($shortmth)$)|(($longmth)$)!i)
+                {
+                    $parsed .= $date;
+                }
+            }  
+            
+        }
+                   $parsed .= $tmp;
     }
     $parsed;
@@ -292 +292 @@
 
 
+
+
+
+
+
+
+
+