/[stem-hr]/StemHR.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /StemHR.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

stem-hr.pm revision 13 by dpavlin, Sat Jul 9 10:43:16 2005 UTC StemHR.pm revision 16 by dpavlin, Thu Jun 28 10:38:34 2007 UTC
# Line 1  Line 1 
1  package StemHr;  package StemHR;
2    
3  #  #
4  # Croatian stemmer  # Croatian stemmer
# Line 23  use strict; Line 23  use strict;
23  use locale;  use locale;
24    
25  use Memoize;  use Memoize;
26  memoize('stem');  #memoize('stem');
27    
28  sub kgh {  sub kgh {
29          my ($pre,$replace,$post) = @_;          my ($pre,$replace,$post) = @_;
# Line 49  my $g_5r = '[nm]'; Line 49  my $g_5r = '[nm]';
49  my $g_6r = '(:?nu|n)';  my $g_6r = '(:?nu|n)';
50    
51  sub stem {  sub stem {
52            my $self = shift;
53            die "call with StemHR->stem('word') $self" unless $self eq 'StemHR';
54    
55          my $w = shift || return;          my $w = shift || return;
56    
# Line 107  sub stem { Line 109  sub stem {
109          return $w;          return $w;
110  }  }
111    
112    1;
Legend:
Removed from v.13  
changed lines
  Added in v.16
  ViewVC Help
Powered by ViewVC 1.1.26