[ruby-dev:32725] more ANSI'ize

斎藤と申します。
おはようございます。

英語版に合わせてREADME.EXT.jaのDBMサンプルコードをANSI化していたのですが、
*.[ch]等に残る_(...)もついでに消してみました。都合のよい範囲でお使い
いただければ幸いです。

なお加えてREADME.EXT.jaには、fill-paragraphしてあります。


Index: README.EXT.ja
===================================================================
--- README.EXT.ja	(リビジョン 14640)
+++ README.EXT.ja	(作業コピー)
@@ -107,16 +107,16 @@
 発生する)．同様にチェック無しで使える変換マクロはdoubleを
 取り出す「NUM2DBL()」があります。
 
-char* を取り出す場合、version 1.6 以前では「STR2CSTR()」と
-いうマクロを使っていましたが、これは to_str() による暗黙の
-型変換結果が GC される可能性があるため、version 1.7 以降では
-obsolete となり、代わりに StringValue() と StringValuePtr()
-を使う事を推奨しています。StringValue(var) は var が String
- であれば何もせず、そうでなければ var を var.to_str() の結果に
-置き換えるマクロ、StringValuePtr(var) は同様に var を置き換え
-てから var の文字列表現に対する char* を返すマクロです。var の
-内容を直接置き換える処理が入るので、var は lvalue である必要が
-あります。
+char* を取り出す場合、version 1.6 以前では「STR2CSTR()」とい
+うマクロを使っていましたが、これは to_str() による暗黙の型変
+換結果が GC される可能性があるため、version 1.7 以降では
+obsolete となり、代わりに StringValue() と StringValuePtr() 
+を使う事を推奨しています。StringValue(var) は var が String 
+であれば何もせず、そうでなければ var を var.to_str() の結果
+に置き換えるマクロ、StringValuePtr(var) は同様に var を置き
+換えてから var の文字列表現に対する char* を返すマクロです。
+var の内容を直接置き換える処理が入るので、var は lvalue であ
+る必要があります。
 
 それ以外のデータタイプは対応するCの構造体があります．対応す
 る構造体のあるVALUEはそのままキャスト(型変換)すれば構造体の
@@ -576,7 +576,8 @@
 定義を行います．dbm.cから一部引用します．
 
 --
-Init_dbm()
+void
+Init_dbm(void)
 {
     /* DBMクラスを定義する */
     cDBM = rb_define_class("DBM", rb_cObject);
@@ -638,8 +639,7 @@
 
 --
 static VALUE
-fdbm_delete(obj, keystr)
-    VALUE obj, keystr;
+fdbm_delete(VALUE obj, VALUE keystr)
 {
 	:
 }
@@ -655,10 +655,7 @@
 
 --
 static VALUE
-fdbm_s_open(argc, argv, klass)
-    int argc;
-    VALUE *argv;
-    VALUE klass;
+fdbm_s_open(int argc, VALUE *argv, VALUE klass)
 {
 	:
     if (rb_scan_args(argc, argv, "11", &file, &vmode) == 1) {
@@ -687,8 +684,7 @@
 
 --
 static VALUE
-fdbm_indexes(obj, args)
-    VALUE obj, args;
+fdbm_indexes(VALUE obj, VALUE args)
 {
 	:
 }
@@ -1049,8 +1045,8 @@
 
 char *rb_class2name(VALUE klass)
 
-  クラスの名前を返す(デバッグ用)．クラスが名前を持たない時には, 
-  祖先を遡って名前を持つクラスの名前を返す．
+  クラスの名前を返す(デバッグ用)．クラスが名前を持たない時に
+  は, 祖先を遡って名前を持つクラスの名前を返す．
 
 int rb_respond_to(VALUE obj, ID id)
 
@@ -1193,10 +1189,10 @@
 
 have_func(func, header)
 
-  ヘッダファイルheaderをインクルードして関数funcの存在をチェッ
-  クする．funcが標準ではリンクされないライブラリ内のものであ
-  る時には先にhave_libraryでそのライブラリをチェックしておく
-  事．関数が存在する時trueを返す．
+  ヘッダファイルheaderをインクルードして関数funcの存在をチェ
+  ックする．funcが標準ではリンクされないライブラリ内のもので
+  ある時には先にhave_libraryでそのライブラリをチェックしてお
+  く事．関数が存在する時trueを返す．
 
 have_var(var, header)
 
@@ -1247,7 +1243,8 @@
 
 with_config(withval[, default=nil])
 
-  コマンドライン上の--with-<withval>で指定されたオプション値を得る．
+  コマンドライン上の--with-<withval>で指定されたオプション値
+  を得る．
 
 enable_config(config, *defaults)
 disable_config(config, *defaults)
@@ -1256,8 +1253,9 @@
   --disable-<config>で指定された真偽値を得る．
   --enable-<config>が指定されていた場合はtrue，
   --disable-<config>が指定されていた場合はfalseを返す．
-  どちらも指定されていない場合は，ブロックつきで呼び出されている場合は
-  *defaultsをyieldした結果，ブロックなしなら*defaultsを返す．
+  どちらも指定されていない場合は，ブロックつきで呼び出されて
+  いる場合は*defaultsをyieldした結果，ブロックなしなら
+  *defaultsを返す．
 
 dir_config(target[, default_dir])
 dir_config(target[, default_include, default_lib])
@@ -1266,8 +1264,8 @@
   --with-<target>-libのいずれかで指定されるディレクトリを
   $CFLAGS や $LDFLAGS に追加する．--with-<target>-dir=/pathは
   --with-<target>-include=/path/include --with-<target>-lib=/path/lib
-  と等価である．追加された include ディレクトリと lib ディレクトリの
-  配列を返す． ([include_dir, lib_dir])
+  と等価である．追加された include ディレクトリと lib ディレ
+  クトリの配列を返す． ([include_dir, lib_dir])
 
 pkg_config(pkg)
 
Index: dir.c
===================================================================
--- dir.c	(リビジョン 14640)
+++ dir.c	(作業コピー)
@@ -922,7 +922,7 @@
 
 #define GLOB_VERBOSE	(1UL << (sizeof(int) * CHAR_BIT - 1))
 #define sys_warning(val) \
-    (void)((flags & GLOB_VERBOSE) && rb_protect((VALUE (*)_((VALUE)))sys_warning_1, (VALUE)(val), 0))
+    (void)((flags & GLOB_VERBOSE) && rb_protect((VALUE (*)(VALUE))sys_warning_1, (VALUE)(val), 0))
 
 #define GLOB_ALLOC(type) (type *)malloc(sizeof(type))
 #define GLOB_ALLOC_N(type, n) (type *)malloc(sizeof(type) * (n))
Index: eval.c
===================================================================
--- eval.c	(リビジョン 14640)
+++ eval.c	(作業コピー)
@@ -55,10 +55,10 @@
 void rb_clear_trace_func(void);
 void rb_thread_stop_timer_thread(void);
 
-void rb_call_inits _((void));
-void Init_stack _((VALUE *));
-void Init_heap _((void));
-void Init_ext _((void));
+void rb_call_inits(void);
+void Init_stack(VALUE *);
+void Init_heap(void);
+void Init_ext(void);
 void Init_BareVM(void);
 
 void
@@ -268,7 +268,7 @@
 VALUE
 rb_eval_string_protect(const char *str, int *state)
 {
-    return rb_protect((VALUE (*)_((VALUE)))rb_eval_string, (VALUE)str, state);
+    return rb_protect((VALUE (*)(VALUE))rb_eval_string, (VALUE)str, state);
 }
 
 VALUE
Index: eval_intern.h
===================================================================
--- eval_intern.h	(リビジョン 14640)
+++ eval_intern.h	(作業コピー)
@@ -62,7 +62,7 @@
 #endif
 
 #ifndef HAVE_STRING_H
-char *strrchr _((const char *, const char));
+char *strrchr(const char *, const char);
 #endif
 
 #ifdef HAVE_UNISTD_H
@@ -192,19 +192,19 @@
   } \
 while (0)
 
-void rb_thread_cleanup _((void));
-void rb_thread_wait_other_threads _((void));
+void rb_thread_cleanup(void);
+void rb_thread_wait_other_threads(void);
 
 int thread_set_raised(rb_thread_t *th);
 int thread_reset_raised(rb_thread_t *th);
 
 VALUE rb_f_eval(int argc, VALUE *argv, VALUE self);
-VALUE rb_make_exception _((int argc, VALUE *argv));
+VALUE rb_make_exception(int argc, VALUE *argv);
 
 NORETURN(void rb_fiber_start(void));
 
-NORETURN(void rb_raise_jump _((VALUE)));
-NORETURN(void rb_print_undef _((VALUE, ID, int)));
+NORETURN(void rb_raise_jump(VALUE));
+NORETURN(void rb_print_undef(VALUE, ID, int));
 NORETURN(void vm_localjump_error(const char *, VALUE, int));
 NORETURN(void vm_jump_tag_but_local_jump(int, VALUE));
 
Index: lex.c.src
===================================================================
--- lex.c.src	(リビジョン 14640)
+++ lex.c.src	(作業コピー)
@@ -1,6 +1,6 @@
 %{
 struct kwtable {char *name; int id[2]; enum lex_state_e state;};
-const struct kwtable *rb_reserved_word _((const char *, unsigned int));
+const struct kwtable *rb_reserved_word(const char *, unsigned int);
 #ifndef RIPPER
 %}
 
Index: lex.c.blt
===================================================================
--- lex.c.blt	(リビジョン 14640)
+++ lex.c.blt	(作業コピー)
@@ -31,7 +31,7 @@
 #line 1 "keywords"
 
 struct kwtable {char *name; int id[2]; enum lex_state_e state;};
-const struct kwtable *rb_reserved_word _((const char *, unsigned int));
+const struct kwtable *rb_reserved_word(const char *, unsigned int);
 #ifndef RIPPER
 #line 7 "keywords"
 struct kwtable;
Index: keywords
===================================================================
--- keywords	(リビジョン 14640)
+++ keywords	(作業コピー)
@@ -1,6 +1,6 @@
 %{
 struct kwtable {char *name; int id[2]; enum lex_state_e state;};
-const struct kwtable *rb_reserved_word _((const char *, unsigned int));
+const struct kwtable *rb_reserved_word(const char *, unsigned int);
 #ifndef RIPPER
 %}
 
Index: load.c
===================================================================
--- load.c	(リビジョン 14640)
+++ load.c	(作業コピー)
@@ -215,7 +215,7 @@
     rb_provide_feature(rb_str_new2(feature));
 }
 
-NORETURN(static void load_failed _((VALUE)));
+NORETURN(static void load_failed(VALUE));
 
 void
 rb_load(VALUE fname, int wrap)
Index: thread.c
===================================================================
--- thread.c	(リビジョン 14640)
+++ thread.c	(作業コピー)
@@ -1998,7 +1998,7 @@
  *  were created.
  */
 
-static VALUE thgroup_s_alloc _((VALUE));
+static VALUE thgroup_s_alloc(VALUE);
 static VALUE
 thgroup_s_alloc(VALUE klass)
 {


-- 
斎藤ただし