grass.el(0.1.8)/defun grass-parse-normalize - kobapan @ wiki

概要

• 引数文字列を掃除。
  • 全角の `ｗＷｖ' を半角の `wWv' にする
  • 最初の`w'より前の文字を削除
  • wWv意外の文字を削除

実行例

(grass-parse-normalize "wWｖWあう　vwvvvvWWWWWWW　ＷＷＷＷ")
→　"wWvWvwvvvvWWWWWWWWWWW"

(grass-parse-normalize "Ww")
→　"w"

引数

• string

実装

(defun grass-parse-normalize (string)

 (concat

• Emacs-Lisp/concatを使って文字コードのリストを文字列に変換する

  (delq nil

• リストから nil を削除する

        (memq ?w

• `w'から後の部分をリストとして抽出する

              (mapcar (lambda (p) (car (memq p '(?w ?W ?v))))

• 文字コードのリストを`w'`W'`v'意外は nil に変換したリストにする
  • Emacs-Lisp/memqで`w'`W'`v'のうち一致するものから後のリストを得て、
  • carでその先頭だけを取り出す
  • ⇒ (car (memq NEEDLE '(LIST)) で NEEDLE が LIST のどれかに一致したら一致したものを返す　になる　一致しない場合は nil が返る

               (append (japanese-hankaku string t) nil)

• Emacs-Lisp/japanese-hankakuを使って、半角文字のみに変換し、
• Emacs-Lisp/appendを使って、文字コードのリストに変換する

               )))))

呼出元

• grass.el(0.1.8)/defun grass-parse (2009-01-03 21:17:14)

履歴

• 作者：kobapan
• 日付：2009/01/03
• 対象：

更新日	更新者	更新内容

コメント