「grass.el(0.1.8)/defun grass-parse-normalize」の編集履歴（バックアップ）一覧はこちら

grass.el(0.1.8)/defun grass-parse-normalize - (2009/01/06 (火) 23:21:00) の最新版との変更点

追加された行は緑色になります。

削除された行は赤色になります。

*概要
- aaa
- aaa
-- bbb

*引数
- string

*実装
(defun grass-parse-normalize (string)
  (concat
   (delq nil 
         (memq ?w
               (mapcar
                (lambda (p) (car (memq p '(?w ?W ?v))))
                (append (japanese-hankaku string t) nil)
                )))))

*呼出元
- [[grass.el(0.1.8)/defun grass-parse]]   (2009-01-03 21:17:14)
#comment(noname)


*履歴
-作者：[[kobapan>http://www20.atwiki.jp/kobapan/]]
-日付：2009/01/03
-対象：
|更新日|更新者|更新内容|
||||

*コメント

#comment

*概要
- 引数文字列を掃除。
-- 全角の `ｗＷｖ' を半角の `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)
#comment(noname)


*履歴
-作者：[[kobapan>http://www20.atwiki.jp/kobapan/]]
-日付：2009/01/03
-対象：
|更新日|更新者|更新内容|
||||

*コメント

#comment