lucene-java-3.5.0/lucene/contrib/analyzers/common/src/java/org/apache/lucene/analysis/sv/SwedishLightStemmer.java

   1 package org.apache.lucene.analysis.sv;
   2
   3 /**
   4  * Licensed to the Apache Software Foundation (ASF) under one or more
   5  * contributor license agreements.  See the NOTICE file distributed with
   6  * this work for additional information regarding copyright ownership.
   7  * The ASF licenses this file to You under the Apache License, Version 2.0
   8  * (the "License"); you may not use this file except in compliance with
   9  * the License.  You may obtain a copy of the License at
  10  *
  11  *     http://www.apache.org/licenses/LICENSE-2.0
  12  *
  13  * Unless required by applicable law or agreed to in writing, software
  14  * distributed under the License is distributed on an "AS IS" BASIS,
  15  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  16  * See the License for the specific language governing permissions and
  17  * limitations under the License.
  18  */
  19
  20 /*
  21  * This algorithm is updated based on code located at:
  22  * http://members.unine.ch/jacques.savoy/clef/
  23  *
  24  * Full copyright for that code follows:
  25  */
  26
  27 /*
  28  * Copyright (c) 2005, Jacques Savoy
  29  * All rights reserved.
  30  *
  31  * Redistribution and use in source and binary forms, with or without
  32  * modification, are permitted provided that the following conditions are met:
  33  *
  34  * Redistributions of source code must retain the above copyright notice, this
  35  * list of conditions and the following disclaimer. Redistributions in binary
  36  * form must reproduce the above copyright notice, this list of conditions and
  37  * the following disclaimer in the documentation and/or other materials
  38  * provided with the distribution. Neither the name of the author nor the names
  39  * of its contributors may be used to endorse or promote products derived from
  40  * this software without specific prior written permission.
  41  *
  42  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  43  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  44  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  45  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
  46  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  47  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  48  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  49  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  50  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  51  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  52  * POSSIBILITY OF SUCH DAMAGE.
  53  */
  54
  55 import static org.apache.lucene.analysis.util.StemmerUtil.*;
  56
  57 /**
  58  * Light Stemmer for Swedish.
  59  * <p>
  60  * This stemmer implements the algorithm described in:
  61  * <i>Report on CLEF-2003 Monolingual Tracks</i>
  62  * Jacques Savoy
  63  */
  64 public class SwedishLightStemmer {
  65
  66   public int stem(char s[], int len) {
  67     if (len > 4 && s[len-1] == 's')
  68       len--;
  69
  70     if (len > 7 &&
  71         (endsWith(s, len, "elser") ||
  72          endsWith(s, len, "heten")))
  73       return len - 5;
  74
  75     if (len > 6 &&
  76         (endsWith(s, len, "arne") ||
  77          endsWith(s, len, "erna") ||
  78          endsWith(s, len, "ande") ||
  79          endsWith(s, len, "else") ||
  80          endsWith(s, len, "aste") ||
  81          endsWith(s, len, "orna") ||
  82          endsWith(s, len, "aren")))
  83       return len - 4;
  84
  85     if (len > 5 &&
  86         (endsWith(s, len, "are") ||
  87          endsWith(s, len, "ast") ||
  88          endsWith(s, len, "het")))
  89       return len - 3;
  90
  91     if (len > 4 &&
  92         (endsWith(s, len, "ar") ||
  93          endsWith(s, len, "er") ||
  94          endsWith(s, len, "or") ||
  95          endsWith(s, len, "en") ||
  96          endsWith(s, len, "at") ||
  97          endsWith(s, len, "te") ||
  98          endsWith(s, len, "et")))
  99       return len - 2;
 100
 101     if (len > 3)
 102       switch(s[len-1]) {
 103         case 't':
 104         case 'a':
 105         case 'e':
 106         case 'n': return len - 1;
 107       }
 108
 109     return len;
 110   }
 111 }