[lucy-commits] svn commit: r1033549 [9/9] - in /incubator/lucy/trunk: ./ core/Lucy/Analysis/ devel/conf/ modules/ modules/analysis/ modules/analysis/snowstem/ modules/analysis/snowstem/devel/ modules/analysis/snowstem/source/ modules/analysis/snowstem/source/include/...

[ma...@apache.org]

Modified: incubator/lucy/trunk/perl/lib/Lucy/Analysis/Stemmer.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/lib/Lucy/Analysis/Stemmer.pm?rev=1033549&r1=1033548&r2=1033549&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/lib/Lucy/Analysis/Stemmer.pm (original)
+++ incubator/lucy/trunk/perl/lib/Lucy/Analysis/Stemmer.pm Wed Nov 10 16:02:40 2010
@@ -22,35 +22,6 @@ __END__
 
 __BINDING__
 
-my $xs = <<'END_XS';
-MODULE = Lucy    PACKAGE = Lucy::Analysis::Stemmer
-
-void
-_copy_snowball_symbols()
-PPCODE:
-{
-    SV **const new_sv_ptr = hv_fetch(PL_modglobal,
-        "Lingua::Stem::Snowball::sb_stemmer_new", 38, 0);
-    SV **const delete_sv_ptr = hv_fetch(PL_modglobal,
-        "Lingua::Stem::Snowball::sb_stemmer_delete", 41, 0);
-    SV **const stem_sv_ptr = hv_fetch(PL_modglobal,
-        "Lingua::Stem::Snowball::sb_stemmer_stem", 39, 0);
-    SV **const length_sv_ptr = hv_fetch(PL_modglobal,
-        "Lingua::Stem::Snowball::sb_stemmer_length", 41, 0);
-    if (!new_sv_ptr || !delete_sv_ptr || !stem_sv_ptr || !length_sv_ptr) {
-        THROW(LUCY_ERR, "Failed to retrieve one or more Snowball symbols");
-    }
-    lucy_Stemmer_sb_stemmer_new 
-        = (lucy_Stemmer_sb_stemmer_new_t)SvIV(*new_sv_ptr);
-    lucy_Stemmer_sb_stemmer_delete 
-        = (lucy_Stemmer_sb_stemmer_delete_t)SvIV(*delete_sv_ptr);
-    lucy_Stemmer_sb_stemmer_stem 
-        = (lucy_Stemmer_sb_stemmer_stem_t)SvIV(*stem_sv_ptr);
-    lucy_Stemmer_sb_stemmer_length 
-        = (lucy_Stemmer_sb_stemmer_length_t)SvIV(*length_sv_ptr);
-}
-END_XS
-
 my $synopsis = <<'END_SYNOPSIS';
     my $stemmer = Lucy::Analysis::Stemmer->new( language => 'es' );
     
@@ -58,8 +29,8 @@ my $synopsis = <<'END_SYNOPSIS';
         analyzers => [ $case_folder, $tokenizer, $stemmer ],
     );
 
-This class is a wrapper around L<Lingua::Stem::Snowball>, so it supports the
-same languages.  
+This class is a wrapper around the Snowball stemming library, so it supports
+the same languages.  
 END_SYNOPSIS
 
 my $constructor = <<'END_CONSTRUCTOR';
@@ -70,7 +41,6 @@ Clownfish::Binding::Perl::Class->registe
     parcel            => "Lucy",
     class_name        => "Lucy::Analysis::Stemmer",
     bind_constructors => ["new"],
-    xs_code           => $xs,
     make_pod          => {
         synopsis    => $synopsis,
         constructor => { sample => $constructor }