-
-
-
-
- porter2_postprocess()
- click to toggle source
-
-
-
-
-
-
-Turn all Y letters into y
-
-
-
-
-
-
-
-261: def porter2_postprocess
-262: self.gsub(/Y/, 'y')
-263: end
-
-
-
-
-
-
-
-
-
-
-
-
- porter2_preprocess()
- click to toggle source
-
-
-
-
-
-
-Preprocess the word. Remove any initial ’, if present. Then, set
-initial y, or y after a vowel, to Y
-
-
-(The comment to ‘establish the regions R1 and R2’ in the
-original description is an implementation optimisation that identifies
-where the regions start. As no modifications are made to the word that
-affect those positions, you may want to cache them now. This implementation
-doesn’t do that.)
-
-
-
-
-
-
-
-25: def porter2_preprocess
-26: w = self.dup
-27:
-28:
-29: w.gsub!(/^'*(.)/, '\1')
-30:
-31:
-32: w.gsub!(/^y/, "Y")
-33: w.gsub!(/(#{Porter2::V})y/, '\1Y')
-34:
-35: w
-36: end
-
-
-
-
-
-
-
-
-
-
-
-
- porter2_r1()
- click to toggle source
-
-
-
-
-
-
-R1 is the portion of the word after the first non-vowel after the first
-vowel (with words beginning ‘gener-’, ‘commun-’,
-and ‘arsen-’ treated as special cases
-
-
-
-
-
-
-
-41: def porter2_r1
-42: if self =~ /^(gener|commun|arsen)(?<r1>.*)/
-43: Regexp.last_match(:r1)
-44: else
-45: self =~ /#{Porter2::V}#{Porter2::C}(?<r1>.*)$/
-46: Regexp.last_match(:r1) || ""
-47: end
-48: end
-
-
-
-
-
-
-
-
-
-
-
-
- porter2_step1b(gb_english = false)
- click to toggle source
-
-
-
-
-
-
-Search for the longest among the following suffixes, and perform the action
-indicated.
-
-
-| eed, eedly |
-replace by ee if the suffix is also in R1
-
- |
-| ed, edly, ing, ingly |
-delete if the preceding word part contains a vowel and, after the
-deletion:
-
-
-
-
- |
-
-
-(If gb_english is true, treat the ‘is’ suffix as
-‘iz’ above.)
-
-
-
-
-
-
-
-115: def porter2_step1b(gb_english = false)
-116: if self =~ /(eed|eedly)$/
-117: if self.porter2_r1 =~ /(eed|eedly)$/
-118: self.sub(/(eed|eedly)$/, 'ee')
-119: else
-120: self
-121: end
-122: else
-123: w = self.dup
-124: if w =~ /#{Porter2::V}.*(ed|edly|ing|ingly)$/
-125: w.sub!(/(ed|edly|ing|ingly)$/, '')
-126: if w =~ /(at|lb|iz)$/
-127: w += 'e'
-128: elsif w =~ /is$/ and gb_english
-129: w += 'e'
-130: elsif w =~ /#{Porter2::Double}$/
-131: w.chop!
-132: elsif w.porter2_is_short_word?
-133: w += 'e'
-134: end
-135: end
-136: w
-137: end
-138: end
-
-
-
-
-
-
-
-
-
-
-
-
- porter2_step2(gb_english = false)
- click to toggle source
-
-
-
-
-
-
-Search for the longest among the suffixes listed in the keys of
-Porter2::STEP_2_MAPS. If one is found and that suffix occurs in R1,
-replace it with the value found in STEP_2_MAPS.
-
-
-(Suffixes ‘ogi’ and ‘li’ are treated as special
-cases in the procedure.)
-
-
-(If gb_english is true, replace the ‘iser’ and
-‘isation’ suffixes with ‘ise’, similarly to how
-‘izer’ and ‘ization’ are treated.)
-
-
-
-
-
-
-
-160: def porter2_step2(gb_english = false)
-161: r1 = self.porter2_r1
-162: s2m = Porter2::STEP_2_MAPS.dup
-163: if gb_english
-164: s2m["iser"] = "ise"
-165: s2m["isation"] = "ise"
-166: end
-167: step_2_re = Regexp.union(s2m.keys.map {|r| Regexp.new(r + "$")})
-168: if self =~ step_2_re
-169: if r1 =~ /#{$&}$/
-170: self.sub(/#{$&}$/, s2m[$&])
-171: else
-172: self
-173: end
-174: elsif r1 =~ /li$/ and self =~ /(#{Porter2::Valid_LI})li$/
-175: self.sub(/li$/, '')
-176: elsif r1 =~ /ogi$/ and self =~ /logi$/
-177: self.sub(/ogi$/, 'og')
-178: else
-179: self
-180: end
-181: end
-
-
-
-
-
-
-
-
-
-
-
-
- porter2_step3(gb_english = false)
- click to toggle source
-
-
-
-
-
-
-Search for the longest among the suffixes listed in the keys of
-Porter2::STEP_3_MAPS. If one is found and that suffix occurs in R1,
-replace it with the value found in STEP_3_MAPS.
-
-
-(Suffix ‘ative’ is treated as a special case in the procedure.)
-
-
-(If gb_english is true, replace the ‘alise’ suffix
-with ‘al’, similarly to how ‘alize’ is treated.)
-
-
-
-
-
-
-
-192: def porter2_step3(gb_english = false)
-193: if self =~ /ative$/ and self.porter2_r2 =~ /ative$/
-194: self.sub(/ative$/, '')
-195: else
-196: s3m = Porter2::STEP_3_MAPS.dup
-197: if gb_english
-198: s3m["alise"] = "al"
-199: end
-200: step_3_re = Regexp.union(s3m.keys.map {|r| Regexp.new(r + "$")})
-201: r1 = self.porter2_r1
-202: if self =~ step_3_re and r1 =~ /#{$&}$/
-203: self.sub(/#{$&}$/, s3m[$&])
-204: else
-205: self
-206: end
-207: end
-208: end
-
-
-
-
-
-
-
-
-
-
-
-
- porter2_step4(gb_english = false)
- click to toggle source
-
-
-
-
-
-
-Search for the longest among the suffixes listed in the keys of
-Porter2::STEP_4_MAPS. If one is found and that suffix occurs in R2,
-replace it with the value found in STEP_4_MAPS.
-
-
-(Suffix ‘ion’ is treated as a special case in the procedure.)
-
-
-(If gb_english is true, delete the ‘ise’ suffix if
-found.)
-
-
-
-
-
-
-
-218: def porter2_step4(gb_english = false)
-219: if self.porter2_r2 =~ /ion$/ and self =~ /(s|t)ion$/
-220: self.sub(/ion$/, '')
-221: else
-222: s4m = Porter2::STEP_4_MAPS.dup
-223: if gb_english
-224: s4m["ise"] = ""
-225: end
-226: step_4_re = Regexp.union(s4m.keys.map {|r| Regexp.new(r + "$")})
-227: r2 = self.porter2_r2
-228: if self =~ step_4_re
-229: if r2 =~ /#{$&}/
-230: self.sub(/#{$&}$/, s4m[$&])
-231: else
-232: self
-233: end
-234: else
-235: self
-236: end
-237: end
-238: end
-
-
-
-
-
-
-
-
-
-
-
-
- porter2_step5()
- click to toggle source
-
-
-
-
-
-
-Search for the the following suffixes, and, if found, perform the action
-indicated.
-
-
-| e |
-delete if in R2, or in R1 and not preceded by a short syllable
-
- |
-| l |
-delete if in R2 and preceded by l
-
- |
-
-
-
-
-
-
-
-244: def porter2_step5
-245: if self =~ /ll$/ and self.porter2_r2 =~ /l$/
-246: self.sub(/ll$/, 'l')
-247: elsif self =~ /e$/ and self.porter2_r2 =~ /e$/
-248: self.sub(/e$/, '')
-249: else
-250: r1 = self.porter2_r1
-251: if self =~ /e$/ and r1 =~ /e$/ and not self =~ /#{Porter2::SHORT_SYLLABLE}e$/
-252: self.sub(/e$/, '')
-253: else
-254: self
-255: end
-256: end
-257: end
-
-
-
-
-
-
-
-
![[+]](./images/find.png "show/hide quicksearch")