kansi_valid 0.0.7

data/kansi_valid.gemspec

@@ -0,0 +1,45 @@
+# coding:utf-8
+require 'rubygems'
+require './lib/kansi_valid/version'
+require './license'
+  spec = Gem::Specification.new do |s|
+    s.platform = Gem::Platform::RUBY
+    s.summary = "漢詩の作成補助、添削。　Easy to make Kanshi(Zekku)(Han-poet)and validate it. str=generate(5);kansi_valid(str);kv_bool(str)"
+    s.author="Takayasu Hayashi"
+    s.email="joe.ko9ji@gmail.com"
+    #s.homepage="http://maru.selfip.com/mygem/"
+    s.name = "kansi_valid"
+    s.version = Kansi_valid::Version
+    
+    #s.requirements << 'rmagick'
+    #s.requirements << 'gruff'
+    #s.add_dependency('serialport','>= 1.0.4')
+    s.require_path = 'lib'
+    s.has_rdoc=true
+    
+    #s.files = Dir.glob("{test,lib}/**/*.rb") 
+    s.files = Dir.glob("{lib}/**/*.{rb,txt,dic}")+
+              Dir.glob("test/{ts,tc}*.rb")+
+              Dir.glob("dic/*")+
+              #Dir.glob("bin/*.rb")+
+              ["kansi_valid.gemspec","LICENSE.txt"]
+    s.test_file="test/tc_kansi_valid.rb"
+    s.extra_rdoc_files="README"
+    s.description = <<EOF
+Usage:
+  requrie "rubyems"
+  require "Kansi_valid"
+  inclide Kansi_valid
+  
+  puts str1 = generate(7) # => make random poet(7 gon Zekku)
+  puts str2 = generate(5) # => make random poet(5 gon Zekku)
+  
+  kansi_valid(str1)       # => research dictionary and answer,validate
+  kv(str1)                # =>   same above
+  valid(str1)             # =>   same above
+  
+  valid?(str1)            # =>true,false(nil)  
+  kv_bool(str1)           # =>   same above
+EOF
+  end
+

data/lib/kansi_valid.rb

@@ -0,0 +1,299 @@
+#coding:utf-8
+$KCODE="u" if RUBY_VERSION<"1.9"
+File.expand_path(File.dirname(__FILE__))
+File.expand_path(File.dirname(__FILE__)+"../dic")
+
+Dir.glob(File.dirname(__FILE__)+"/kansi_valid/*.rb").each do |file|
+  p file if $DEBUG
+  require file
+end
+
+=begin rdoc
+=== 漢詩を作ったり、解析したりするのに役立つモジュール、関数をつくりました。
+kansi_valid is a varidator of Han character poem(Kan si).
+Author:: Takayasu Hayashi(林　貴康　joe.ko9ji@gmail.com　）
+License::GPL v2 
+* 辞書の使用は自己責任でお願いします。辞書は漢太郎の作者、Jigen様の作成された辞書を御許可いただきUTF-8テキストにしてあります。Jigen様、ありがとうございます。間違いがありましたら修正したいと思いますのでご連絡ください。
+* Dictionary saved "/dic/dic.txt"UTF-8,about 6800 chars ,made by Jigen Kanou.
+  If you resume this,please tell me.
+* 文字コードは　UTF-8　ですので、WinXPなどは出力をKconvで変換したり、対応のエディタで見てください。
+===:Usage 使い方
+  requrie "rubyems" if "RUBY_VERSION"<"1.9"
+  require "kansi_valid"
+  include Kansi_valid
+  puts kv(generate)
+  
+=== 先ずは有名なサンプルで。
+  sample # =>"#偶成　朱熹\n少年易老学難成\n一寸光陰不可軽\n未覚池塘春草夢\n階前梧葉已秋声\n"
+          #other valid=>"少年易老学難成\n一寸光陰不可軽\n未覚池塘春草夢\n階前梧葉已秋声"
+          #other valid=>"少年易老学難成 一寸光陰不可軽 未覚池塘春草夢 階前梧葉已秋声"
+          #other valid=>"少年易老学難成一寸光陰不可軽未覚池塘春草夢階前梧葉已秋声"
+          
+===漢詩ではないサンプル漢詩を機械的に生成します          
+  samples(10)        # =>make many 'Meaningless' poet. 
+  
+* 七言絶句(7を指定)五言絶句(5を指定)  make random 'Meaningless' poet(7or5 gon Zekku)
+ srand(0);str1 = generate(7) # => "戻里唆双差及援\n罷傷脈拘序周元\n家据弱役露宵屋\n稚守途紅稿軸温"
+ srand(0);generate(5)        # => "戻里唆双飯\n差猫及硬温\n除慌女収嫁\n枢寂厄痴援"
+* srand　は同じ詩を生成するために使用していますので通常は不要
+  
+===kansi_valid(String)  絶句ならば禁則評価と辞書の結果表示、research dictionary and answer,validate
+  kansi_valid(sample)
+                   # =>#偶成　朱熹
+                       少年易老学難成
+                       一寸光陰不可軽
+                       未覚池塘春草夢
+                       階前梧葉已秋声
+  
+                      #　庚　平起
+                      #篠●先○陌●皓●覚●寒◇庚○
+                      #質●願●陽○侵◇物◇哿●庚◇
+                      #未●覚●支○陽○真○皓●東◇
+                      #佳○先○虞◇葉●紙●尤○庚○
+                      #Valid 絶句(Ver0.0.6)
+                      #2013-01-03 22:58:18 +0900
+  
+                      #少:●:篠:嘯:ショウ:すくない すこし わかい
+                      #年:○:一先::ネン:とし よわい みのり
+              以下省略#
+              
+  kv(sample)             # =>同上、   same above
+  valid(sample)          # =>同上、   same above
+=== 文字列が絶句であれば true を返す
+  valid?(sample)         # =>true (絶句が正しいならtrue。)
+                                       (両韻・畳字などはtrueを返せない)  
+  kv_bool(sample)        # =>同上、   same above
+    
+===漢詩でないものも第二水準漢字程度まで調べられます。日本の国字＜峠辻＞なども調べられますが、絶句の評価はできません。  
+  dic("漢字辞典")        # =>文字列を調べる。普通こちら、Simple dictionary using Dic[]
+                           # =>"漢:●:翰::カン:国名 あや から
+                                字:●:寘::ジ:あざ あざな じ
+                                辞:○:四支::ジ:やめる ことば ことわる
+                                典:●:銑::テン:ふみ のり つかさどる
+                               "
+  Dic["漢"]             # =>単漢字を調べる、Character Hash Dictionary(Author Jigen Kanou,in Kantarou)
+                           # =>["漢", "413", "", "0", "●", "翰", "去声", "", "カン", "",
+                                "国名 あや から", "3441", "2033", "13", "水艸口夫漢", "0"]
+  
+=== 辞書の音訓などから調べる場合は　search　を使います  
+  search("かえで")       # =>Dicの内容から該当する漢字のハッシュをつくる
+                         # =>{"楓"=>["楓", "2440", "", "0", "○", "一東", "上平", "", "フウ", "",
+                                     "かえで", "4976", "4186", "13", "木風几丿虫", "0"],
+                              "槭"=>["槭", "4166", "", "0", "●", "屋", "入声", "", "セキ", "",
+                                     "かえで", "5C65", "6069", "15", "木戚戈上小", "0"]}
+===平韻の字表の配列です
+  inji                   # =>平韻の配列表(inji[x],x=0..29)
+                （inji[0]が一東です）
+               　inji[29] # =>"咸銜鹹緘岩巌杉衫凡鑑函監讒帆"
+===常用漢字の配列です(約1945字)
+  Jouyou=["哀","愛",..,"湾","腕"]
+===全ての辞書漢字の配列です(約6715字、国字など含む。)
+  Ji    =["亜","唖",..,"禔","赶"]
+
+===平仄韻からランダムに文字をあてはめます                                
+  poetter("常国◇○●\n◇○○●◎\n○○●○●\n○●●○◎",[Jouyou,inji[0]])
+                        # =>"常国雇坪坂\n飲戯眠分崇\n諸番襲硝看\n評緯越然籠"
+  zekku_list            # =>絶句として適した文字を当てはめる配列
+  kougo("◇●常国○◎")     # =>"囚故常国挑琴\n#侵"  平仄式から字を充て､最後に韻をコメント｡
+                        #   "◇不問　●仄　○平　◎韻"
+  kougo()               # =>無意味な香語調を生成します、make random 'Meaningless' "kougo".
+  
+  
+  hyousoku("菩薩")      # =>"虞◇曷●" (韻と平仄式を返す)
+  hyosoku("菩薩")       # =>同上、   same above
+
+漢詩バリデータ（ルールどおりか評価する）
+  漢詩のルールにしたがっているかをチェックするスクリプト
+    記号
+      平＝韻＋○
+      仄＝韻＋●
+      両韻＝◇
+      国字など＝■
+      それ以外＝？
+    
+  チェック可能漢詩：
+      七言絶句
+      五言絶句
+      
+  チェック項目
+    押韻、おういん（重複禁）、踏み落とし（三句目）
+    二四不動、にしふどう（挟み平（転句）はＯＫ）
+    二六対、にろくつい（挟み平（転句）はＯＫ）
+    下三連禁、あさんれんきん
+    挟み平（転句はＯＫ)
+    二弧平禁（七言は四弧平禁）
+    冒韻禁,韻字の句内での重複（畳字なども未チェック）
+    
+    他のチェック事項
+      韻
+      平起、仄起
+    
+    やりたいこと
+      読みかた（音、訓）# =>漢字辞書などへ転送など。
+    できてないこと
+      対句,畳字など技法のチェック
+      両韻の振り分けなど（◇でしか対応できない。基本１字１韻対応となる。） 
+    たぶんチェックできないこと
+      ２、２、３（五言は２，３）の字で区切られているか
+      多少目をつむるなどの融通はきかない。
+=end
+module Kansi_valid
+module_function
+  #全辞書ハッシュ
+  Dic=kanji
+  #常用漢字の配列
+  Jouyou=File.read(File.dirname(__FILE__)+"/../dic/jouyou_kanji.txt").chomp.split(//)
+  #辞書の全ての漢字の配列(ひらがな等は、除外、国字は含む)
+  Ji    =File.read(File.dirname(__FILE__)+"/../dic/kanji_list.txt").chomp.split(//)
+  #漢詩の総合チェック。
+  #漢詩部分の切り出し（#の行は読みとばす）
+  # '\n'，""なども読みとばす
+  def kansi_valid(str)
+    begin
+      comment=kansi_comment(str)#コメントの切り出し
+      kansi=kansi_organize(str)# =>整形(半角英数、半角空白など外す)
+      kekka=hyousoku(kansi)
+    
+    warning=""#警告コメント
+      #日本語かどうかの評価
+      _nihongo=nihongo(kekka)
+      if _nihongo==true
+        warning+="#Error:including Japanene or undefined char.\n"
+      end
+      
+      zekku=check_zekku(kansi)# =>5,7,nil
+      
+      ouIn=check_ouin(kekka)# =>東、元など
+      okosi=check_okosi(kekka)# =>○●■◇？など
+        #data<<韻、起し
+        if okosi=="●"
+          data="\n\n#　#{ouIn}　仄起\n"
+        elsif okosi=="○"
+          data="\n\n#　#{ouIn}　平起\n"
+        else
+          data="\n\n#　#{ouIn}　#{okosi}起\n"
+        end
+      #漢詩としての評価はじめ
+      a=kansi_analyze(kekka)#kekkaの分割
+      
+      #通韻チェック
+      tuuIn=check_tuuin(a,zekku,ouIn)#true or false
+      unless tuuIn
+        warning+="#　違反・押韻（又は両韻字)\n"
+      end
+      
+      #二四不動（挟み平（転句）はＯＫ）
+      #二六対（挟み平（転句）はＯＫ）
+      hudo=_24hudou(a,zekku)
+      unless hudo
+        warning+="#　違反・二四不同、（二六対）\n"
+      end
+      
+      #下三連禁
+      _simo3ren=_3ren(a)
+      unless _simo3ren
+        warning+="#　警告・下三連禁（下平三連、下仄三連）\n"
+      end
+      
+      #二弧平禁（七言は四弧平禁）
+      _kohyo=kohyo(a,zekku)
+      unless _kohyo
+        warning+="#　警告・二弧平禁（七言は四弧平禁）\n"
+      end
+      
+      #冒韻禁,韻字の句内での重複
+      _bouin=bouin(a,zekku,ouIn)&&tuuIn#韻を踏んで(tuuin==true)更にbouin==true
+      unless _bouin
+    Kansi    warning+="#　注・冒韻（両韻文字、韻が多いなど）\n"
+      end
+      p warning if $DEBUG
+        warning="#Valid 絶句(Ver#{Version})\n##{Time.now.to_s}\n" if warning==""
+      
+      ryouin_list=check_ryouin(kansi_organize(str))
+
+      result=str+data+seikei(kekka)+warning+"\n"+seikei(ryouin_list)
+      yield result if block_given?
+      return result
+    rescue
+      result=str+"\n\n"+seikei(hyosoku(kansi_organize(str)))+"\n"+seikei(check_ryouin(kansi_organize(str)))
+      yield result if block_given?
+      return result
+    end
+  end
+
+  def kv_bool(str)
+    bool=true
+    begin
+      comment=kansi_comment(str)#コメントの切り出し
+      kansi=kansi_organize(str)# =>整形(半角英数、半角空白など外す)
+      kekka=hyousoku(kansi)
+
+      #日本語かどうかの評価
+      _nihongo=nihongo(kekka)
+      if _nihongo==true
+        return false
+      end
+      
+      zekku=check_zekku(kansi)# =>5,7,nil
+      
+      ouIn=check_ouin(kekka)# =>東、元など
+      okosi=check_okosi(kekka)# =>○●■◇？など
+
+      #漢詩としての評価はじめ
+      a=kansi_analyze(kekka)#kekkaの分割
+      
+      #通韻チェック
+      tuuIn=check_tuuin(a,zekku,ouIn)#true or false
+      unless tuuIn
+        return false
+      end
+      
+      #二四不動（挟み平（転句）はＯＫ）
+      #二六対（挟み平（転句）はＯＫ）
+      hudo=_24hudou(a,zekku)
+      unless hudo
+        return false
+      end
+      
+      #下三連禁
+      _simo3ren=_3ren(a)
+      unless _simo3ren
+        return false
+      end
+      
+      #挟み平（転句）はＯＫ
+      #二弧平禁（七言は四弧平禁）
+      _kohyo=kohyo(a,zekku)
+      unless _kohyo
+        return false
+        #warning+="#　警告・二弧平禁（七言は四弧平禁）\n"
+      end
+      
+      #冒韻禁,韻字の句内での重複
+      _bouin=bouin(a,zekku,ouIn)&&tuuIn#韻を踏んで(tuuin==true)更にbouin==true
+      unless _bouin
+        return false
+      end
+      yield bool if block_given?
+    rescue
+      yield nil if block_given?
+      return nil
+    end
+    return bool
+  end
+
+  alias kv    kansi_valid
+  alias valid kansi_valid
+  
+  alias dic check_ryouin
+  
+  alias hyosoku hyousoku
+  alias kansi_ kansi_organize
+  alias kohyou kohyo
+  
+  alias valid? kv_bool
+  alias bool   kv_bool
+  
+  alias generate kansi_generate
+  alias generate2 kansi_generate2
+end

data/lib/kansi_valid/_24hudou.rb

@@ -0,0 +1,146 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  #24不同、26対を評価する。
+  #trueが正しい
+  #falseは正しくない
+  #nilは評価不能を示す。
+  #_24hudou(poem_string(詩),zekku=(5 or 7))
+  def _24hudou(a,zekku)
+    #p a
+    if zekku
+      #p a
+      #p a[0][3]
+      if zekku==7
+        case a[0][3]
+        when "◇"
+          bool1=
+          be_soku(a[1][3])&&
+          be_soku(a[2][3])&&
+          be_hyo(a[3][3])&&
+          
+          be_soku(a[0][7])&&
+          be_hyo(a[1][7])&& 
+          be_hyo(a[2][7])&&
+          be_soku(a[3][7])&&
+          
+          be_hyo(a[0][11])&&
+          be_soku(a[1][11])&&
+          (be_soku(a[2][11]) || be_soku(a[2][9]))&&#挟み平
+          be_hyo(a[3][11])
+          
+          bool2=
+          be_hyo(a[1][3])&&
+          be_hyo(a[2][3])&&
+          be_soku(a[3][3])&&
+          
+          be_hyo(a[0][7])&&
+          be_soku(a[1][7])&& 
+          be_soku(a[2][7])&&
+          be_hyo(a[3][7])&&
+          
+          be_soku(a[0][11])&&
+          be_hyo(a[1][11])&&
+          be_hyo(a[2][11])&&
+          be_soku(a[3][11])
+
+          #p bool
+          return (bool1 or bool2)
+
+        when "○"
+          bool=
+          be_soku(a[1][3])&&
+          be_soku(a[2][3])&&
+          be_hyo(a[3][3])&&
+          
+          be_soku(a[0][7])&&
+          be_hyo(a[1][7])&& 
+          be_hyo(a[2][7])&&
+          be_soku(a[3][7])&&
+          
+          be_hyo(a[0][11])&&
+          be_soku(a[1][11])&&
+          (be_soku(a[2][11]) || be_soku(a[2][9]))&&#挟み平
+          be_hyo(a[3][11])
+
+          #p bool
+          return bool
+        when "●"
+          bool=
+          be_hyo(a[1][3])&&
+          be_hyo(a[2][3])&&
+          be_soku(a[3][3])&&
+          
+          be_hyo(a[0][7])&&
+          be_soku(a[1][7])&& 
+          be_soku(a[2][7])&&
+          be_hyo(a[3][7])&&
+          
+          be_soku(a[0][11])&&
+          be_hyo(a[1][11])&&
+          be_hyo(a[2][11])&&
+          be_soku(a[3][11])
+          return bool
+        end
+      elsif zekku==5
+        case a[0][3]
+        when "◇"
+          bool1=
+          be_soku(a[1][3])&&
+          be_soku(a[2][3])&&
+          be_hyo(a[3][3])&&
+          
+          (be_soku(a[0][7])|| be_hyou(a[0][7]))&&
+          be_hyo(a[1][7])&& 
+          be_hyo(a[2][7])&&
+          be_soku(a[3][7])
+          
+          bool2=
+          be_hyo(a[1][3])&&
+          be_hyo(a[2][3])&&
+          be_soku(a[3][3])&&
+          
+          be_hyo(a[0][7])&&
+          be_soku(a[1][7])&& 
+          (be_soku(a[2][7])||be_soku(a[2][5]))&&#挟み平
+          be_hyo(a[3][7])
+          return (bool1 or bool2)
+
+
+        when "○"
+          bool=
+          be_soku(a[1][3])&&
+          be_soku(a[2][3])&&
+          be_hyo(a[3][3])&&
+          
+          (be_soku(a[0][7])|| be_hyou(a[0][7]))&&
+          be_hyo(a[1][7])&& 
+          be_hyo(a[2][7])&&
+          be_soku(a[3][7])
+          return bool
+        when "●"
+          bool=
+          be_hyo(a[1][3])&&
+          be_hyo(a[2][3])&&
+          be_soku(a[3][3])&&
+          
+          be_hyo(a[0][7])&&
+          be_soku(a[1][7])&& 
+          (be_soku(a[2][7])||be_soku(a[2][5]))&&#挟み平
+          be_hyo(a[3][7])
+          return bool
+        end
+      else
+        return false
+      end
+    else
+      return false
+    end
+    #評価されなかったら、最終値はnil
+    nil
+  end
+end
+
+#if $0==__FILE__
+#end