rb_str_new()
bison 2.1¤ÇÀ¸À®¤µ¤ì¤¿y.tab.c¤Ï¡¢__STDC__¤¬ÄêµÁ¤µ¤ì¤Æ¤¤¤ë¤«pure parser¤Ç¤Ê¤¤¤È¥³¥ó¥Ñ¥¤¥ë¤Ç¤¤Ê¤¤¡£
m4¤Î¤Û¤¦¤ò¤¤¤¸¤Ã¤Æ¤ß¤¿¤±¤É¡¢¤³¤Î¤Ø¤ó¤Ï2.0¤«¤é¤È¤¯¤ËÊѤï¤Ã¤Æ¤¤¤ë¤ï¤±¤Ç¤Ï¤Ê¤¤¤Î¤Ç¡¢
²¿¤¬¸¶°ø¤Ê¤Î¤«¤Ï¤è¤¯¤ï¤«¤é¤Ê¤¤¡£
b4_parse_param¤¬¶õ¤¸¤ã¤Ê¤¯¤Æ[]¤Ë¤Ê¤Ã¤Æ¤ë¤Ã¤Ý¤¤¤ó¤À¤±¤É¡£
Index: bison/bison/data/c.m4
===================================================================
RCS file: /cvsroot/bison/cvsroot/bison/bison/data/c.m4,v
retrieving revision 1.33
diff -u -r1.33
--- bison/bison/data/c.m4 2005/09/29 06:50:57 1.33
+++ bison/bison/data/c.m4 2005/09/30 08:35:18
@@ -236,8 +236,8 @@
b4_c_ansi_function_def($@)
#else
$2
-$1 (b4_c_knr_formal_names(m4_shiftn(2, $@)))
-b4_c_knr_formal_decls(m4_shiftn(2, $@))
+$1 (b4_c_knr_formal_names(m4_shiftn(2, $@)))dnl
+b4_c_knr_formal_decls(m4_shiftn(2, $@))dnl
#endif[]dnl
])
@@ -278,10 +278,15 @@
# ------------------------------------------
# Output the K&R argument declarations.
m4_define([b4_c_knr_formal_decls],
-[m4_map_sep([b4_c_knr_formal_decl],
+[m4_case([$@],
+ [], [],
+ [[]], [],
+[
+m4_map_sep([b4_c_knr_formal_decl],
[
],
[$@])])
+])
m4_define([b4_c_knr_formal_decl],
[ $1;])
¸í²ò¤¬¤¢¤ë¤è¤¦¤Ê¤Î¤Ç²òÀ⤷¤Æ¤ª¤¯¤È¡¢ ¤³¤ì¤Ï1.8.3¸ÇͤÎÌäÂê¤È¤¤¤¦¤ï¤±¤Ç¤Ê¤¯¤Æ¡¢ 1.8°Ê¹ß¤Èbison 2.0°Ê¹ß¤ÎÁȤ߹ç¤ï¤»¤ÎÌäÂê¡£ bison¤Ëruby¤ÎGC¤Ë¤È¤Ã¤Æ¤Ï½ÅÂç¤ÊÊѹ¹¤¬Æþ¤Ã¤¿¤ó¤À¤±¤ì¤É¡¢ ¤¿¤Þ¤¿¤Þº£¤Þ¤Çbison 2.0¤Ç¥³¥ó¥Ñ¥¤¥ë¤·¤è¤¦¤È¤·¤¿¿Í´Ö¤¬¤¤¤Ê¤¯¤ÆÃ¯¤âµ¤¤Å¤«¤Ê¤«¤Ã¤¿¤È¤¤¤¦¤À¤±¡£
¤È¤ê¤¢¤¨¤ºÂǤäƤ«¤écode¤È¤«¤Ë¤·¤¿¤¤¤È¤¤¤¦¤³¤È¤¬¤è¤¯¤¢¤ë¤Î¤Ç¡¢ region¤¬Í¸ú¤Ê¤È¤¤Ï¤½¤³¤òinlineÍ×ÁǤˤ¹¤ë¤è¤¦¤Ë¤·¤Æ¤ß¤¿¡£
diff -u2 rd-mode.el~ rd-mode.el
--- rd-mode.el~ 2004-11-09 01:59:29.000000000 +0900
+++ rd-mode.el 2005-09-30 17:50:28.047500000 +0900
@@ -231,11 +231,18 @@
(defun rd-insert-inline (beg end str)
"Insert Inline Inline (general)."
- (if str
- (insert (concat beg str end))
- (progn
- (if rd-use-prompt-when-insertion-p
- (rd-insert-inline beg end (read-string (concat beg " elm " end ": ")))
- (insert beg end)
- (backward-char (length end))))))
+ (cond (str
+ (insert (concat beg str end)))
+ (mark-active
+ (let ((b (region-beginning)) (e (region-end)))
+ (save-excursion
+ (goto-char e)
+ (insert-before-markers end)
+ (goto-char b)
+ (insert beg))))
+ (rd-use-prompt-when-insertion-p
+ (rd-insert-inline beg end (read-string (concat beg " elm " end ": "))))
+ (t
+ (insert beg end)
+ (backward-char (length end)))))
(defun rd-insert-emphasis (&optional str)
@@ -402,5 +409,5 @@
(end-of-line)
(newline)
- (if item (insert-string item))))
+ (if item (insert item))))
(provide 'rd-mode)
¤È¤¤¤¦¤«rd-mode.el¤Ã¤Æº£¤É¤³¤ÇÇÛÉÛ¤µ¤ì¤Æ¤ë¤ó¤À?
RDtool¤Îrd-mode.el¤Ë¼è¤ê¹þ¤ó¤Ç¤è¤¤¤Ç¤·¤ç¤¦¤«?
http://trac.moonwolf.com/rdtool/ticket/11
¼è¤ê¹þ¤ó¤Ç¤¯¤À¤µ¤¤¡£