hiwai-kaeuta 0.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 30b144111d55205118b2c8240070a7e5e8d95dc1
+  data.tar.gz: cf1aef1decab43bce43767219be1700f88609221
+SHA512:
+  metadata.gz: e8034fd3816e5ab7fcffa3e9bf989cfdf219dba5fecc519d5d533a7392725d5fe94ac9c2480142095efaec8b2a89b83fe74fb0368dd2a4f367726b2ab8a24498
+  data.tar.gz: 32819814485968be4e897e0d9fad54a3659ba98d1992bb30b4f4f60951af08c6d55193be81e228e4d417f9d388093b65cc75bd54eed388c1817fd70943975b03

data/README.md

@@ -0,0 +1,39 @@
+#HiwaiKaeuta
+
+***
+
+#概要
+
+日本語の任意の歌詞を卑猥な歌詞に変更します。
+
+***
+
+#インストール
+
+##STEP 1.
+
+mecab-rubyをインストールして下さい。
+
+##STEP 2.
+
+###Gemfile
+
+```ruby
+gem 'hiwai-kaeuta'
+```
+
+###Script
+
+```bash
+$ gem install 'hiwai-kaeuta'
+```
+
+***
+
+#使い方
+
+```zsh
+$ ruby -e "require 'hiwai-kaeuta';
+puts HiwaiKaeuta.convert('あなたのキーは机の引き出しの中です')"
+アナルのキーは机のマンコの中です
+```

data/bin/hiwaikaeuta

@@ -0,0 +1,5 @@
+#! /usr/bin/env ruby
+
+require File.expand_path('../../lib/hiwai-kaeuta', __FILE__)
+
+puts HiwaiKaeuta.convert(File.open(ARGV[0]).read)

data/hiwai-kaeuta.gemspec

@@ -0,0 +1,15 @@
+Gem::Specification.new do |s|
+  s.name          = 'hiwai-kaeuta'
+  s.version       = '0.0.0'
+  s.date          = '2014-02-08'
+  s.summary       = '卑猥な替え歌を作るgem'
+  s.description   = '日本語の任意の歌詞を卑猥な歌詞に変えます'
+  s.authors       = ['pandora2000']
+  s.email         = 'tetsuri.moriya@gmail.com'
+  s.homepage      = 'https://bitbucket.org/pandora2000/kaeuta'
+  s.license       = 'MIT'
+  s.files         = `git ls-files`.split($/)
+  s.executables   = s.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  s.test_files    = s.files.grep(%r{^(test|spec|features)/})
+  s.require_paths = ['lib']
+end

data/lib/hiwai-kaeuta.rb

@@ -0,0 +1,2 @@
+require 'active_support/core_ext'
+ActiveSupport::Dependencies.autoload_paths << File.expand_path('../../lib', __FILE__)

data/lib/hiwai_kaeuta.rb

@@ -0,0 +1,33 @@
+class HiwaiKaeuta
+  def self.convert(text)
+    nodes = Mecab::Nodes.new(text)
+    strs = converted_strings(nodes)
+    ''.tap do |res|
+      location = 0
+      nodes.each_with_index do |node, node_index|
+        str_index = text.index(node.surface, location)
+        res << text[location...str_index]
+        res << strs[node_index]
+        location = str_index + node.surface.length
+      end
+    end
+  end
+
+  private
+
+  def self.converted_strings(nodes)
+    nodes.map { |x| x.surface }.tap do |res|
+      [].tap do |substs|
+        PriorityQueue.new.tap do |subst_queue|
+          Inference.execute(nodes).each { |x| subst_queue.push(x, x.priority) }
+          until subst_queue.empty?
+            subst = subst_queue.pop
+            next if substs.any? { |x| SubstSet.are_overlapping?(x, subst) }
+            substs << subst
+          end
+        end
+        substs.each { |x| x.execute(res) }
+      end
+    end
+  end
+end

data/lib/hiwai_kaeuta/inference.rb

@@ -0,0 +1,15 @@
+class HiwaiKaeuta
+  class Inference
+    HIWAI_WORDS = [['マンコ', 'マンコ'],
+                   ['チンコ', 'チンコ'],
+                   ['アナル', 'アナル'],
+                   ['マラ', 'マラ'],
+                   ['チツ', '膣']]
+
+    def self.execute(nodes)
+      %w(Node No).map { |x|
+        Pattern.const_get(x).get_all(nodes).map(&:subst).reject(&:nil?)
+      }.flatten
+    end
+  end
+end

data/lib/hiwai_kaeuta/inference/pattern/base.rb

@@ -0,0 +1,7 @@
+class HiwaiKaeuta::Inference::Pattern::Base
+  def self.get_all(nodes)
+  end
+
+  def subst
+  end
+end

data/lib/hiwai_kaeuta/inference/pattern/no.rb

@@ -0,0 +1,46 @@
+module HiwaiKaeuta::Inference::Pattern
+  class No < Base
+    PAIRS = [[[/.*/, 'マンコ'], /^ナカ$/],
+             [[/.*/, 'マンコ'], /^ニオイ$/]]
+
+    def self.get_all(nodes)
+      nodes.select { |node|
+        node.reading == 'ノ' && node.index > 0 && node.index < nodes.length - 1
+      }.map { |node|
+        new(node, nodes[node.index - 1], nodes[node.index + 1])
+      }
+    end
+
+    attr_reader :no_node, :pre_node, :post_node
+
+    def initialize(no_node, pre_node, post_node)
+      @no_node = no_node
+      @pre_node = pre_node
+      @post_node = post_node
+    end
+
+    def subst
+      return nil unless pre_node.is_noun? && post_node.is_noun?
+      can = PAIRS.map { |pre, post|
+        [match(pre, pre_node), match(post, post_node)]
+      }.reject { |pre, post| pre.nil? || post.nil? }.first
+      return nil if can.nil?
+      HiwaiKaeuta::SubstSet.new(2).tap do |subst|
+        subst.push(HiwaiKaeuta::Subst.new(pre_node.index, can[0]))
+        subst.push(HiwaiKaeuta::Subst.new(post_node.index, can[1]))
+      end
+    end
+
+    private
+
+    def match(matcher, node)
+      if matcher.nil?
+        HiwaiKaeuta::Inference::HIWAI_WORDS.select { |x| x[0] == node.reading }.first.try(:[], 1)
+      elsif matcher.is_a?(Array)
+        matcher[1] if matcher[0].match(node.reading)
+      else
+        node.surface if matcher.match(node.reading)
+      end
+    end
+  end
+end

data/lib/hiwai_kaeuta/inference/pattern/node.rb

@@ -0,0 +1,30 @@
+module HiwaiKaeuta::Inference::Pattern
+  class Node < Base
+    HIWAI_WORDS = HiwaiKaeuta::Inference::HIWAI_WORDS
+
+    def self.get_all(nodes)
+      nodes.map { |x| new(x) }
+    end
+
+    attr_reader :node
+
+    def initialize(node)
+      @node = node
+    end
+
+    def subst
+      return nil unless node.is_noun?
+      read = node.reading
+      can = HIWAI_WORDS.reject { |wr, ww| wr.length != read.length }
+        .group_by { |wr, ww|
+        score = 0
+        wr.split('').each_with_index { |c, index| score += (c == read[index] ? 1 : 0) }
+        score
+      }.max_by { |k, v| k }
+      return nil if can.nil? || can[0] == 0
+      HiwaiKaeuta::SubstSet.new(1).tap do |subst|
+        subst.push(HiwaiKaeuta::Subst.new(node.index, can[1][0][1]))
+      end
+    end
+  end
+end

data/lib/hiwai_kaeuta/mecab/node.rb

@@ -0,0 +1,38 @@
+require 'MeCab'
+require 'active_support/core_ext'
+
+module HiwaiKaeuta::Mecab
+  class Node
+    attr_reader :features, :surface, :pos
+    attr_accessor :location, :index
+
+    def initialize(node)
+      @features = node.feature.split(',').map { |x| correct_encoding(x) }
+      @surface = correct_encoding(node.surface)
+      @pos = @features[0]
+    end
+
+    def is_bos_or_eos?
+      @pos == 'BOS/EOS'
+    end
+
+    def is_noun?
+      @pos == '名詞'
+    end
+
+    def reading
+      x = @features[7]
+      if x == '*' || x.nil?
+        @surface
+      else
+        x
+      end
+    end
+
+    private
+
+    def correct_encoding(str)
+      str.force_encoding(__ENCODING__)
+    end
+  end
+end

data/lib/hiwai_kaeuta/mecab/nodes.rb

@@ -0,0 +1,32 @@
+require 'MeCab'
+
+module HiwaiKaeuta::Mecab
+  class Nodes
+    include Enumerable
+
+    delegate :each, :length, :[], to: :data
+
+    def initialize(text)
+      raw_node = MeCab::Tagger.new.parseToNode(text)
+      @nodes = [].tap do |nodes|
+        location = 0
+        while raw_node
+          node = Node.new(raw_node)
+          unless node.surface.empty?
+            location = text.index(node.surface, location)
+          end
+          node.location = location
+          nodes << node
+          raw_node = raw_node.next
+        end
+      end
+      @nodes.each_with_index { |node, index| node.index = index }
+    end
+
+    private
+
+    def data
+      @nodes
+    end
+  end
+end

data/lib/hiwai_kaeuta/priority_queue.rb

@@ -0,0 +1,36 @@
+class HiwaiKaeuta::PriorityQueue
+  def initialize
+    @list = []
+  end
+
+  def push(elem, priority)
+    i = 0
+    @list.each do |x|
+      break if priority > x[:priority]
+      i += 1
+    end
+    @list.insert(i, { priority: priority, elem: elem })
+  end
+
+  def pop
+    r = @list.shift
+    r[:elem]
+  end
+
+  def empty?
+    @list.empty?
+  end
+
+  def delete(elem)
+    i = 0
+    @list.each do |x|
+      break if x[:elem].equal?(elem)
+      i += 1
+    end
+    @list.delete_at(i)
+  end
+
+  def to_a
+    @list
+  end
+end

data/lib/hiwai_kaeuta/subst.rb

@@ -0,0 +1,14 @@
+class HiwaiKaeuta
+  class Subst
+    attr_accessor :index, :str
+
+    def initialize(index, str)
+      @index = index
+      @str = str
+    end
+
+    def execute(target)
+      target[index] = str
+    end
+  end
+end

data/lib/hiwai_kaeuta/subst_set.rb

@@ -0,0 +1,26 @@
+class HiwaiKaeuta
+  class SubstSet
+    def self.are_overlapping?(substs1, substs2)
+      substs1.any? { |s1| substs2.any? { |s2| s1.index == s2.index } }
+    end
+
+    attr_accessor :priority
+
+    delegate :push, :any?, to: :data
+
+    def initialize(priority)
+      @priority = priority
+      @data = []
+    end
+
+    def execute(target)
+      @data.each { |x| x.execute(target) }
+    end
+
+    private
+
+    def data
+      @data
+    end
+  end
+end

metadata

@@ -0,0 +1,60 @@
+--- !ruby/object:Gem::Specification
+name: hiwai-kaeuta
+version: !ruby/object:Gem::Version
+  version: 0.0.0
+platform: ruby
+authors:
+- pandora2000
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-02-08 00:00:00.000000000 Z
+dependencies: []
+description: 日本語の任意の歌詞を卑猥な歌詞に変えます
+email: tetsuri.moriya@gmail.com
+executables:
+- hiwaikaeuta
+extensions: []
+extra_rdoc_files: []
+files:
+- README.md
+- bin/hiwaikaeuta
+- hiwai-kaeuta-0.0.0.gem
+- hiwai-kaeuta.gemspec
+- lib/hiwai-kaeuta.rb
+- lib/hiwai_kaeuta.rb
+- lib/hiwai_kaeuta/inference.rb
+- lib/hiwai_kaeuta/inference/pattern/base.rb
+- lib/hiwai_kaeuta/inference/pattern/no.rb
+- lib/hiwai_kaeuta/inference/pattern/node.rb
+- lib/hiwai_kaeuta/mecab/node.rb
+- lib/hiwai_kaeuta/mecab/nodes.rb
+- lib/hiwai_kaeuta/priority_queue.rb
+- lib/hiwai_kaeuta/subst.rb
+- lib/hiwai_kaeuta/subst_set.rb
+homepage: https://bitbucket.org/pandora2000/kaeuta
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.14
+signing_key: 
+specification_version: 4
+summary: 卑猥な替え歌を作るgem
+test_files: []
+has_rdoc: