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

grass.el(0.1.8)/defun grass-parse - (2009/01/07 (水) 23:47:32) の１つ前との変更点

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

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

*概要
- aaa
- aaa
-- bbb

*引数
- string

*実装
(defun grass-parse (string)
  (let ((list (split-string (grass-parse-normalize string) "v"))
    (case-fold-search nil)
    (seq (list nil)))
    (while list
      (let ((string (car list)))
    (nconc seq (if (string-match "^\\(w+\\)\\(.*\\)" string)
               (list (list 'abs (match-end 1)
                   (grass-parse-apps string (match-beginning 2))))
             (if (and (string= string "") (cdr list))
             (unless grass-allow-consecutive-v-separators
               (error "grass-parse: syntax error: consecutive v separators")))
             (grass-parse-apps string))))
      (setq list (cdr list)))
    (cdr seq)))



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


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

*コメント

#comment

*概要
- aaa
- aaa
-- bbb

*引数
- string

*実装
(defun grass-parse (string)
  (let ((list (split-string (grass-parse-normalize string) "v"))
- [[grass.el(0.1.8)/defun grass-parse-normalize]]

    (case-fold-search nil)
    (seq (list nil)))
    (while list
      (let ((string (car list)))
    (nconc seq (if (string-match "^\\(w+\\)\\(.*\\)" string)
               (list (list 'abs (match-end 1)
                   (grass-parse-apps string (match-beginning 2))))
             (if (and (string= string "") (cdr list))
             (unless grass-allow-consecutive-v-separators
               (error "grass-parse: syntax error: consecutive v separators")))
             (grass-parse-apps string))))
      (setq list (cdr list)))
    (cdr seq)))



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


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

*コメント

#comment