* regparse.c, etc.: K&R to ANSI code cleanup patch from Stefan

Huehner <stefan at huehner.org>.  [ruby-core:10543]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@12095 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,8 @@
+Mon Mar 19 12:13:36 2007  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* regparse.c, etc.: K&R to ANSI code cleanup patch from Stefan
+	  Huehner <stefan at huehner.org>.  [ruby-core:10543]
+
 Mon Mar 19 11:27:13 2007  Minero Aoki  <aamine@loveruby.net>
 
 	* lib/net/protocol.rb (rbuf_read): extend buffer size for speed.

debug.h

@@ -24,7 +24,7 @@ VALUE ruby_debug_value(int level, int debug_level, char *header, VALUE v);
 ID    ruby_debug_id(int level, int debug_level, char *header, ID id);
 void  ruby_debug_indent(int level, int debug_level, int indent_level);
 void  ruby_debug_breakpoint(void);
-void  ruby_debug_gc_check_func();
+void  ruby_debug_gc_check_func(void);
 
 #if GCDEBUG == 1
 

error.c

@@ -26,8 +26,8 @@
 extern const char ruby_version[], ruby_release_date[], ruby_platform[];
 int ruby_nerrs;
 
-const char *rb_sourcefile();
+const char *rb_sourcefile(void);
-int rb_sourceline();
+int rb_sourceline(void);
 
 static int
 err_position(char *buf, long len)
@@ -148,7 +148,7 @@ rb_warn_m(VALUE self, VALUE mesg)
     return Qnil;
 }
 
-void yarv_bug();
+void yarv_bug(void);
 
 void
 rb_bug(const char *fmt, ...)

ext/curses/curses.c

@@ -72,9 +72,9 @@ struct windata {
 
 #define CHECK(c) c
 
-static VALUE window_attroff();
+static VALUE window_attroff(VALUE obj, VALUE attrs);
-static VALUE window_attron();
+static VALUE window_attron(VALUE obj, VALUE attrs);
-static VALUE window_attrset();
+static VALUE window_attrset(VALUE obj, VALUE attrs);
 
 static void
 no_window(void)

ext/etc/etc.c

@@ -164,14 +164,14 @@ etc_getpwnam(VALUE obj, VALUE nam)
 #ifdef HAVE_GETPWENT
 static int passwd_blocking = 0;
 static VALUE
-passwd_ensure()
+passwd_ensure(void)
 {
     passwd_blocking = Qfalse;
     return Qnil;
 }
 
 static VALUE
-passwd_iterate()
+passwd_iterate(void)
 {
     struct passwd *pw;
 
@@ -368,14 +368,14 @@ etc_getgrnam(VALUE obj, VALUE nam)
 #ifdef HAVE_GETGRENT
 static int group_blocking = 0;
 static VALUE
-group_ensure()
+group_ensure(void)
 {
     group_blocking = Qfalse;
     return Qnil;
 }
 
 static VALUE
-group_iterate()
+group_iterate(void)
 {
     struct group *pw;
 

ext/socket/socket.c

@@ -750,7 +750,7 @@ bsock_recv_nonblock(int argc, VALUE *argv, VALUE sock)
 }
 
 static VALUE
-bsock_do_not_rev_lookup()
+bsock_do_not_rev_lookup(void)
 {
     return do_not_reverse_lookup?Qtrue:Qfalse;
 }

ext/syck/node.c

@@ -46,7 +46,7 @@ syck_free_node( SyckNode *n )
 }
 
 SyckNode *
-syck_alloc_map()
+syck_alloc_map(void)
 {
     SyckNode *n;
     struct SyckMap *m;
@@ -65,7 +65,7 @@ syck_alloc_map()
 }
 
 SyckNode *
-syck_alloc_seq()
+syck_alloc_seq(void)
 {
     SyckNode *n;
     struct SyckSeq *s;
@@ -83,7 +83,7 @@ syck_alloc_seq()
 }
 
 SyckNode *
-syck_alloc_str()
+syck_alloc_str(void)
 {
     SyckNode *n;
     struct SyckStr *s;

ext/syck/rubyext.c

@@ -60,10 +60,10 @@ static VALUE oDefaultResolver, oGenericResolver;
 /*
  * my private collection of numerical oddities.
  */
-static double S_zero()    { return 0.0; }
+static double S_zero(void)    { return 0.0; }
-static double S_one() { return 1.0; }
+static double S_one(void) { return 1.0; }
-static double S_inf() { return S_one() / S_zero(); }
+static double S_inf(void) { return S_one() / S_zero(); }
-static double S_nan() { return S_zero() / S_zero(); }
+static double S_nan(void) { return S_zero() / S_zero(); }
 
 static VALUE syck_node_transform( VALUE );
 

ext/syck/syck.c

@@ -155,7 +155,7 @@ syck_parser_set_root_on_error( SyckParser *p, SYMID roer )
  * Allocate the parser
  */
 SyckParser *
-syck_new_parser()
+syck_new_parser(void)
 {
     SyckParser *p;
     p = S_ALLOC( SyckParser );

ext/syck/syck.h

@@ -390,7 +390,7 @@ SyckLevel *syck_emitter_parent_level( SyckEmitter * );
 void syck_emitter_pop_level( SyckEmitter * );
 void syck_emitter_add_level( SyckEmitter *, int, enum syck_level_status );
 void syck_emitter_reset_levels( SyckEmitter * );
-SyckParser *syck_new_parser();
+SyckParser *syck_new_parser(void);
 void syck_free_parser( SyckParser * );
 void syck_parser_set_root_on_error( SyckParser *, SYMID );
 void syck_parser_implicit_typing( SyckParser *, int );
@@ -416,9 +416,9 @@ char *syck_yaml2byte( char * );
 /*
  * Allocation prototypes
  */
-SyckNode *syck_alloc_map();
+SyckNode *syck_alloc_map(void);
-SyckNode *syck_alloc_seq();
+SyckNode *syck_alloc_seq(void);
-SyckNode *syck_alloc_str();
+SyckNode *syck_alloc_str(void);
 void syck_free_node( SyckNode * );
 void syck_free_members( SyckNode * );
 SyckNode *syck_new_str( const char *, enum scalar_style );

oniguruma.h

@@ -425,11 +425,11 @@ OnigUChar* onigenc_step_back P_((OnigEncoding enc, const OnigUChar* start, const
 
 /* encoding API */
 ONIG_EXTERN
-int onigenc_init P_(());
+int onigenc_init P_((void));
 ONIG_EXTERN
 int onigenc_set_default_encoding P_((OnigEncoding enc));
 ONIG_EXTERN
-OnigEncoding onigenc_get_default_encoding P_(());
+OnigEncoding onigenc_get_default_encoding P_((void));
 ONIG_EXTERN
 void  onigenc_set_default_caseconv_table P_((const OnigUChar* table));
 ONIG_EXTERN
@@ -888,7 +888,7 @@ int onig_set_meta_char P_((OnigEncoding enc, unsigned int what, OnigCodePoint co
 ONIG_EXTERN
 void onig_copy_encoding P_((OnigEncoding to, OnigEncoding from));
 ONIG_EXTERN
-OnigAmbigType onig_get_default_ambig_flag P_(());
+OnigAmbigType onig_get_default_ambig_flag P_((void));
 ONIG_EXTERN
 int onig_set_default_ambig_flag P_((OnigAmbigType ambig_flag));
 ONIG_EXTERN

regcomp.c

@@ -34,7 +34,7 @@ OnigAmbigType OnigDefaultAmbigFlag =
    ONIGENC_AMBIGUOUS_MATCH_NONASCII_CASE);
 
 extern OnigAmbigType
-onig_get_default_ambig_flag()
+onig_get_default_ambig_flag(void)
 {
   return OnigDefaultAmbigFlag;
 }
@@ -5402,9 +5402,9 @@ onig_init()
 
 
 extern int
-onig_end()
+onig_end(void)
 {
-  extern int onig_free_shared_cclass_table();
+  extern int onig_free_shared_cclass_table(void);
 
   THREAD_ATOMIC_START;
 

regenc.c

@@ -32,13 +32,13 @@
 OnigEncoding OnigEncDefaultCharEncoding = ONIG_ENCODING_INIT_DEFAULT;
 
 extern int
-onigenc_init()
+onigenc_init(void)
 {
   return 0;
 }
 
 extern OnigEncoding
-onigenc_get_default_encoding()
+onigenc_get_default_encoding(void)
 {
   return OnigEncDefaultCharEncoding;
 }

regparse.c

@@ -1088,7 +1088,7 @@ onig_node_free(Node* node)
 
 #ifdef USE_RECYCLE_NODE
 extern int
-onig_free_node_list()
+onig_free_node_list(void)
 {
   FreeNode* n;
 
@@ -1104,7 +1104,7 @@ onig_free_node_list()
 #endif
 
 static Node*
-node_new()
+node_new(void)
 {
   Node* node;
 
@@ -1133,7 +1133,7 @@ initialize_cclass(CClassNode* cc)
 }
 
 static Node*
-node_new_cclass()
+node_new_cclass(void)
 {
   Node* node = node_new();
   CHECK_NULL_RETURN(node);
@@ -1202,7 +1202,7 @@ node_new_ctype(int type)
 }
 
 static Node*
-node_new_anychar()
+node_new_anychar(void)
 {
   Node* node = node_new();
   CHECK_NULL_RETURN(node);
@@ -1490,7 +1490,7 @@ node_new_str_raw(UChar* s, UChar* end)
 }
 
 static Node*
-node_new_empty()
+node_new_empty(void)
 {
   return node_new_str(NULL, NULL);
 }
@@ -4826,7 +4826,7 @@ i_free_shared_class(type_cclass_key* key, Node* node, void* arg)
 }
 
 extern int
-onig_free_shared_cclass_table()
+onig_free_shared_cclass_table(void)
 {
   if (IS_NOT_NULL(OnigTypeCClassTable)) {
     onig_st_foreach(OnigTypeCClassTable, i_free_shared_class, 0);

regparse.h

@@ -315,7 +315,7 @@ extern Node*  onig_node_new_anchor P_((int type));
 extern Node*  onig_node_new_str P_((const UChar* s, const UChar* end));
 extern Node*  onig_node_new_list P_((Node* left, Node* right));
 extern void   onig_node_str_clear P_((Node* node));
-extern int    onig_free_node_list();
+extern int    onig_free_node_list(void);
 extern int    onig_names_free P_((regex_t* reg));
 extern int    onig_parse_make_tree P_((Node** root, const UChar* pattern, const UChar* end, regex_t* reg, ScanEnv* env));
 

ruby.h

@@ -291,7 +291,7 @@ VALUE rb_get_path(VALUE);
 #define FilePathValue(v) ((v) = rb_get_path(v))
 
 void rb_secure(int);
-int rb_safe_level();
+int rb_safe_level(void);
 void rb_set_safe_level(int);
 void rb_set_safe_level_force(int);
 void rb_secure_update(VALUE);

thread.c

@@ -53,7 +53,6 @@
 #define THREAD_DEBUG 0
 #endif
 
-static void sleep_for_polling();
 static void sleep_timeval(rb_thread_t *th, struct timeval time);
 static void sleep_wait_for_interrupt(rb_thread_t *th, double sleepsec);
 static void sleep_forever(rb_thread_t *th);
@@ -62,7 +61,7 @@ struct timeval rb_time_interval(VALUE);
 static int rb_thread_dead(rb_thread_t *th);
 
 void rb_signal_exec(rb_thread_t *th, int sig);
-void rb_disable_interrupt();
+void rb_disable_interrupt(void);
 
 static VALUE eKillSignal = INT2FIX(0);
 static VALUE eTerminateSignal = INT2FIX(1);
@@ -595,7 +594,7 @@ rb_thread_sleep(int sec)
 }
 
 void
-rb_thread_schedule()
+rb_thread_schedule(void)
 {
     thread_debug("rb_thread_schedule\n");
     if (!rb_thread_alone()) {
@@ -722,7 +721,7 @@ rb_thread_execute_interrupts(rb_thread_t *th)
 
 
 void
-rb_gc_mark_threads()
+rb_gc_mark_threads(void)
 {
     /* TODO: remove */
 }
@@ -905,7 +904,7 @@ rb_thread_s_kill(VALUE obj, VALUE th)
  */
 
 static VALUE
-rb_thread_exit()
+rb_thread_exit(void)
 {
     return rb_thread_kill(GET_THREAD()->self);
 }
@@ -1094,7 +1093,7 @@ rb_thread_s_main(VALUE klass)
  */
 
 static VALUE
-rb_thread_s_abort_exc()
+rb_thread_s_abort_exc(void)
 {
     return GET_THREAD()->vm->thread_abort_on_exception ? Qtrue : Qfalse;
 }
@@ -1980,8 +1979,7 @@ thgroup_list(VALUE group)
  */
 
 VALUE
-thgroup_enclose(group)
+thgroup_enclose(VALUE group)
-    VALUE group;
 {
     struct thgroup *data;
 
@@ -2501,7 +2499,7 @@ Init_Thread(void)
 }
 
 VALUE
-is_ruby_native_thread()
+is_ruby_native_thread(void)
 {
     return Qtrue;
 }

util.c

@@ -393,9 +393,7 @@ __crt0_glob_function(char *path)
 
 #define mmarg mmkind, size, high, low
 
-static void mmswap_(a, b, mmarg)
+static void mmswap_(register char *a, register char *b, int mmkind, int size, int high, int low)
-    register char *a, *b;
-    int mmarg;
 {
  register int s;
  if (a == b) return;
@@ -420,9 +418,7 @@ static void mmswap_(a, b, mmarg)
 }
 #define mmswap(a,b) mmswap_((a),(b),mmarg)
 
-static void mmrot3_(a, b, c, mmarg)
+static void mmrot3_(register char *a, register char *b, register char *c, int mmkind, int size, int high, int low)
-    register char *a, *b, *c;
-    int mmarg;
 {
  register int s;
  if (mmkind >= 0) {

vm.c

@@ -843,7 +843,7 @@ th_invoke_proc(rb_thread_t *th, rb_proc_t *proc,
 }
 
 static struct RValues *
-new_value()
+new_value(void)
 {
     struct RValues *val = RVALUES(rb_newobj());
     OBJSETUP(val, 0, T_VALUES);

vm_dump.c

@@ -576,7 +576,7 @@ thread_dump_state(VALUE self)
 }
 
 void
-yarv_bug()
+yarv_bug(void)
 {
     rb_thread_t *th = GET_THREAD();
     VALUE bt;

yarvcore.h

@@ -539,7 +539,7 @@ typedef struct {
 #define ic_vmstat u3.cnt
 typedef NODE *IC;
 
-void rb_vm_change_state();
+void rb_vm_change_state(void);
 
 typedef VALUE CDHASH;