mirror of
				https://github.com/ruby/ruby.git
				synced 2022-11-09 12:17:21 -05:00 
			
		
		
		
	* range.c (rb_range_beg_len): should return Qfalse for non-range
object. * pack.c (EXTEND16): [ruby-dev:27383] * eval.c (set_trace_func): add rb_secure(4) to prevent adding tracing function. * lib/delegate.rb: document update from James Edward Gray II <james@grayproductions.net>. [ruby-core:05942] * process.c (proc_daemon): should restrict execution on levels higher than $SAFE=2. suggested by URABE Shyouhei <shyouhei@ice.uec.ac.jp>. * lib/forwardable.rb: replaced by new implementation from <Daniel.Berger@qwest.com>. [ruby-core:05899] * file.c (path_check_0): disallow sticky world writable directory in PATH (and $LOAD_PATH). [ruby-dev:27226] * numeric.c (fix_idiv): 1.div(1.0) should return integer value. [ruby-dev:27235] * lib/yaml.rb: require 'yaml/constants'. [ruby-core:5776] * lib/xmlrpc/client.rb (XMLRPC::Client::do_rpc): add charset information to content-type header.[ruby-core:5127] * lib/xmlrpc/server.rb (CGIServer::serve): ditto. * lib/xmlrpc/server.rb (ModRubyServer::serve): ditto. * lib/xmlrpc/server.rb (WEBrickServlet::service): ditto. * test/dbm/test_dbm.rb (TestDBM::test_s_open_error): remove test_s_open_error test to detect duplicate open. [ruby-dev:27202] * eval.c (splat_value): use to_a to splat non Array object. * object.c (nil_to_a): remove nil.to_a. [experimental] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9349 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
		
							parent
							
								
									313e0cb56a
								
							
						
					
					
						commit
						22f1926644
					
				
					 21 changed files with 492 additions and 215 deletions
				
			
		
							
								
								
									
										72
									
								
								ChangeLog
									
										
									
									
									
								
							
							
						
						
									
										72
									
								
								ChangeLog
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -1,13 +1,22 @@
 | 
			
		|||
Wed Oct 05 04:42:38 2005  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 | 
			
		||||
Thu Oct  6 01:02:19 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* range.c (rb_range_beg_len): should return Qfalse for non-range
 | 
			
		||||
	  object.
 | 
			
		||||
 | 
			
		||||
Wed Oct  5 04:42:38 2005  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 | 
			
		||||
 | 
			
		||||
	* lib/xmlrpc/server.rb (XMLRPC::Server#initialize): should mount the
 | 
			
		||||
	  servlet on "/".
 | 
			
		||||
 | 
			
		||||
Wed Oct 05 04:06:49 2005  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 | 
			
		||||
Wed Oct  5 04:06:49 2005  GOTOU Yuuzou  <gotoyuzo@notwork.org>
 | 
			
		||||
 | 
			
		||||
	* lib/xmlrpc/server.rb (XMLRPC::Server#serve): delete wrong call
 | 
			
		||||
	  of "join".
 | 
			
		||||
 | 
			
		||||
Mon Oct  3 00:04:00 2005  Kazuhiro NISHIYAMA  <zn@mbf.nifty.com>
 | 
			
		||||
 | 
			
		||||
	* pack.c (EXTEND16): [ruby-dev:27383]
 | 
			
		||||
 | 
			
		||||
Sat Oct  1 23:55:24 2005  NAKAMURA Usaku  <usa@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* win32/win32.c (do_select, rb_w32_select): brush up.
 | 
			
		||||
| 
						 | 
				
			
			@ -73,6 +82,11 @@ Wed Sep 28 03:16:41 2005  NAKAMURA Usaku  <usa@ruby-lang.org>
 | 
			
		|||
	* rubysig.h: fixed build problem with --enable-pthread on platforms
 | 
			
		||||
	  which don't have setitimer().
 | 
			
		||||
 | 
			
		||||
Mon Sep 26 22:32:13 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* eval.c (set_trace_func): add rb_secure(4) to prevent adding
 | 
			
		||||
	  tracing function.
 | 
			
		||||
 | 
			
		||||
Mon Sep 26 20:59:28 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 | 
			
		||||
 | 
			
		||||
	* parse.y: changed to ANSI function style.
 | 
			
		||||
| 
						 | 
				
			
			@ -132,6 +146,7 @@ Sat Sep 24 11:44:28 2005  Minero Aoki  <aamine@loveruby.net>
 | 
			
		|||
 | 
			
		||||
	* test/net/http/test_http.rb: new file.
 | 
			
		||||
 | 
			
		||||
>>>>>>> 1.4662
 | 
			
		||||
Sat Sep 24 08:54:05 2005  Minero Aoki  <aamine@loveruby.net>
 | 
			
		||||
 | 
			
		||||
	* lib/fileutils.rb (cd): no longer accept :noop option, related
 | 
			
		||||
| 
						 | 
				
			
			@ -193,6 +208,17 @@ Sat Sep 24 06:35:15 2005  Minero Aoki  <aamine@loveruby.net>
 | 
			
		|||
 | 
			
		||||
	* ext/ripper/lib/ripper/sexp.rb: ditto.
 | 
			
		||||
 | 
			
		||||
Sat Sep 24 02:40:20 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* lib/delegate.rb: document update from James Edward Gray II
 | 
			
		||||
	  <james@grayproductions.net>.  [ruby-core:05942]
 | 
			
		||||
 | 
			
		||||
Sat Sep 24 02:05:51 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* process.c (proc_daemon): should restrict execution on levels
 | 
			
		||||
	  higher than $SAFE=2.  suggested by URABE Shyouhei
 | 
			
		||||
	  <shyouhei@ice.uec.ac.jp>.
 | 
			
		||||
 | 
			
		||||
Fri Sep 23 20:10:35 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* ext/ripper/tools/generate.rb, ext/ripper/tools/preproc.rb: StringIO
 | 
			
		||||
| 
						 | 
				
			
			@ -203,6 +229,11 @@ Fri Sep 23 17:36:48 2005  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
 | 
			
		|||
	* ext/win32ole/win32ole.c: avoid core dump with WIN32OLE_EVENT.
 | 
			
		||||
	  [ruby-dev:27133]
 | 
			
		||||
 | 
			
		||||
Fri Sep 23 16:27:39 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* lib/forwardable.rb: replaced by new implementation from
 | 
			
		||||
	  <Daniel.Berger@qwest.com>.  [ruby-core:05899]
 | 
			
		||||
 | 
			
		||||
Fri Sep 23 07:07:47 2005  Minero Aoki  <aamine@loveruby.net>
 | 
			
		||||
 | 
			
		||||
	* test/ripper/depend: use --output option instead of redirect;
 | 
			
		||||
| 
						 | 
				
			
			@ -304,6 +335,16 @@ Wed Sep 21 07:43:58 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 | 
			
		|||
	* lib/optparse.rb (default_argv, Arguable#options): defaults strings
 | 
			
		||||
	  to be parsed to Arguable instance.
 | 
			
		||||
 | 
			
		||||
Wed Sep 21 02:44:09 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* file.c (path_check_0): disallow sticky world writable directory
 | 
			
		||||
	  in PATH (and $LOAD_PATH).  [ruby-dev:27226]
 | 
			
		||||
 | 
			
		||||
Wed Sep 21 00:32:22 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* numeric.c (fix_idiv): 1.div(1.0) should return integer value.
 | 
			
		||||
	  [ruby-dev:27235]
 | 
			
		||||
 | 
			
		||||
Tue Sep 20 22:25:43 2005  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* ext/io/wait/lib/nonblock.rb: disable on platforms non-blocking flag
 | 
			
		||||
| 
						 | 
				
			
			@ -315,6 +356,21 @@ Tue Sep 20 18:23:04 2005  Tanaka Akira  <akr@m17n.org>
 | 
			
		|||
 | 
			
		||||
	* eval.c (thread_mark): mark th->last_status.  [ruby-dev:27179]
 | 
			
		||||
 | 
			
		||||
Tue Sep 20 18:20:33 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* lib/yaml.rb: require 'yaml/constants'.  [ruby-core:5776]
 | 
			
		||||
 | 
			
		||||
Tue Sep 20 17:48:34 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* lib/xmlrpc/client.rb (XMLRPC::Client::do_rpc): add charset
 | 
			
		||||
	  information to content-type header.[ruby-core:5127]
 | 
			
		||||
 | 
			
		||||
	* lib/xmlrpc/server.rb (CGIServer::serve): ditto.
 | 
			
		||||
 | 
			
		||||
	* lib/xmlrpc/server.rb (ModRubyServer::serve): ditto.
 | 
			
		||||
 | 
			
		||||
	* lib/xmlrpc/server.rb (WEBrickServlet::service): ditto.
 | 
			
		||||
 | 
			
		||||
Tue Sep 20 17:26:42 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 | 
			
		||||
 | 
			
		||||
	* test/webrick/test_cgi.rb: set ENV["PATH"] to CGIEnvPath on
 | 
			
		||||
| 
						 | 
				
			
			@ -326,6 +382,12 @@ Tue Sep 20 17:14:10 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 | 
			
		|||
	* io.c: PIPE_BUF is not defined in BeOS. use _POSIX_PIPE_BUF instead.
 | 
			
		||||
	  [ruby-dev:27185]
 | 
			
		||||
 | 
			
		||||
Tue Sep 20 17:10:38 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* test/dbm/test_dbm.rb (TestDBM::test_s_open_error): remove
 | 
			
		||||
	  test_s_open_error test to detect duplicate open.
 | 
			
		||||
	  [ruby-dev:27202]
 | 
			
		||||
 | 
			
		||||
Tue Sep 20 15:39:40 2005  why the lucky stiff  <why@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* ext/syck/emitter.c (syck_scan_scalar): prevent indicators from
 | 
			
		||||
| 
						 | 
				
			
			@ -348,6 +410,12 @@ Tue Sep 20 05:48:26 2005  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 | 
			
		|||
	  should not include 'webrick/https' unless 'use_ssl' because
 | 
			
		||||
	  it fails where openssl is not installed.
 | 
			
		||||
 | 
			
		||||
Tue Sep 20 01:24:45 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* eval.c (splat_value): use to_a to splat non Array object.
 | 
			
		||||
 | 
			
		||||
	* object.c (nil_to_a): remove nil.to_a.  [experimental]
 | 
			
		||||
 | 
			
		||||
Tue Sep 20 01:01:41 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>
 | 
			
		||||
 | 
			
		||||
	* lib/mathn.rb (Fixnum): remove debug print.
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -42,13 +42,17 @@
 | 
			
		|||
#endif
 | 
			
		||||
 | 
			
		||||
#define xmalloc ruby_xmalloc
 | 
			
		||||
#define xmalloc2 ruby_xmalloc2
 | 
			
		||||
#define xcalloc ruby_xcalloc
 | 
			
		||||
#define xrealloc ruby_xrealloc
 | 
			
		||||
#define xrealloc2 ruby_xrealloc2
 | 
			
		||||
#define xfree ruby_xfree
 | 
			
		||||
 | 
			
		||||
void *xmalloc(long);
 | 
			
		||||
void *xmalloc2(long,long);
 | 
			
		||||
void *xcalloc(long,long);
 | 
			
		||||
void *xrealloc(void*,long);
 | 
			
		||||
void *xrealloc2(void*,long,long);
 | 
			
		||||
void xfree(void*);
 | 
			
		||||
 | 
			
		||||
#if SIZEOF_LONG_LONG > 0
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										7
									
								
								eval.c
									
										
									
									
									
								
							
							
						
						
									
										7
									
								
								eval.c
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -2464,6 +2464,7 @@ set_trace_func(VALUE obj, VALUE trace)
 | 
			
		|||
{
 | 
			
		||||
    rb_event_hook_t *hook;
 | 
			
		||||
 | 
			
		||||
    rb_secure(4);
 | 
			
		||||
    if (NIL_P(trace)) {
 | 
			
		||||
	trace_func = 0;
 | 
			
		||||
	rb_remove_event_hook(call_trace_func);
 | 
			
		||||
| 
						 | 
				
			
			@ -2644,11 +2645,7 @@ avalue_splat(VALUE v)
 | 
			
		|||
static VALUE
 | 
			
		||||
splat_value(VALUE v)
 | 
			
		||||
{
 | 
			
		||||
    VALUE tmp = rb_check_array_type(v);
 | 
			
		||||
 | 
			
		||||
    if (NIL_P(tmp)) v = rb_ary_new3(1, v);
 | 
			
		||||
    else v = tmp;
 | 
			
		||||
    return rb_values_from_ary(v);
 | 
			
		||||
    return rb_values_from_ary(rb_convert_type(v, T_ARRAY, "Array", "to_a"));
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static VALUE
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										25
									
								
								file.c
									
										
									
									
									
								
							
							
						
						
									
										25
									
								
								file.c
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -3840,7 +3840,7 @@ is_absolute_path(const char *path)
 | 
			
		|||
 | 
			
		||||
#ifndef DOSISH
 | 
			
		||||
static int
 | 
			
		||||
path_check_1(VALUE path)
 | 
			
		||||
path_check_0(VALUE path, int loadpath)
 | 
			
		||||
{
 | 
			
		||||
    struct stat st;
 | 
			
		||||
    char *p0 = StringValueCStr(path);
 | 
			
		||||
| 
						 | 
				
			
			@ -3855,7 +3855,7 @@ path_check_1(VALUE path)
 | 
			
		|||
 | 
			
		||||
	rb_str_cat2(newpath, "/");
 | 
			
		||||
	rb_str_cat2(newpath, p0);
 | 
			
		||||
	return path_check_1(newpath);
 | 
			
		||||
	return path_check_0(newpath, loadpath);
 | 
			
		||||
    }
 | 
			
		||||
    for (;;) {
 | 
			
		||||
#ifndef S_IWOTH
 | 
			
		||||
| 
						 | 
				
			
			@ -3863,7 +3863,7 @@ path_check_1(VALUE path)
 | 
			
		|||
#endif
 | 
			
		||||
	if (stat(p0, &st) == 0 && S_ISDIR(st.st_mode) && (st.st_mode & S_IWOTH)
 | 
			
		||||
#ifdef S_ISVTX
 | 
			
		||||
	    && !(st.st_mode & S_ISVTX)
 | 
			
		||||
	    && (loadpath || !(st.st_mode & S_ISVTX))
 | 
			
		||||
#endif
 | 
			
		||||
	    && !access(p0, W_OK)) {
 | 
			
		||||
	    rb_warn("Insecure world writable dir %s, mode 0%o", p0, st.st_mode);
 | 
			
		||||
| 
						 | 
				
			
			@ -3879,6 +3879,17 @@ path_check_1(VALUE path)
 | 
			
		|||
}
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
static int
 | 
			
		||||
fpath_check(path)
 | 
			
		||||
    char *path;
 | 
			
		||||
{
 | 
			
		||||
#ifndef DOSISH
 | 
			
		||||
    return path_check_0(rb_str_new2(path), Qfalse);
 | 
			
		||||
#else
 | 
			
		||||
    return 1;
 | 
			
		||||
#endif
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int
 | 
			
		||||
rb_path_check(const char *path)
 | 
			
		||||
{
 | 
			
		||||
| 
						 | 
				
			
			@ -3894,7 +3905,7 @@ rb_path_check(const char *path)
 | 
			
		|||
    if (!p) p = pend;
 | 
			
		||||
 | 
			
		||||
    for (;;) {
 | 
			
		||||
	if (!path_check_1(rb_str_new(p0, p - p0))) {
 | 
			
		||||
	if (!path_check_0(rb_str_new(p0, p - p0), Qtrue)) {
 | 
			
		||||
	    return 0;		/* not safe */
 | 
			
		||||
	}
 | 
			
		||||
	p0 = p + 1;
 | 
			
		||||
| 
						 | 
				
			
			@ -4001,7 +4012,7 @@ rb_find_file(VALUE path)
 | 
			
		|||
 | 
			
		||||
#if defined(__MACOS__) || defined(riscos)
 | 
			
		||||
    if (is_macos_native_path(f)) {
 | 
			
		||||
	if (rb_safe_level() >= 1 && !rb_path_check(f)) {
 | 
			
		||||
	if (rb_safe_level() >= 1 && !fpath_check(f)) {
 | 
			
		||||
	    rb_raise(rb_eSecurityError, "loading from unsafe file %s", f);
 | 
			
		||||
	}
 | 
			
		||||
	if (file_load_ok(f)) return path;
 | 
			
		||||
| 
						 | 
				
			
			@ -4009,7 +4020,7 @@ rb_find_file(VALUE path)
 | 
			
		|||
#endif
 | 
			
		||||
 | 
			
		||||
    if (is_absolute_path(f)) {
 | 
			
		||||
	if (rb_safe_level() >= 1 && !rb_path_check(f)) {
 | 
			
		||||
	if (rb_safe_level() >= 1 && !fpath_check(f)) {
 | 
			
		||||
	    rb_raise(rb_eSecurityError, "loading from unsafe file %s", f);
 | 
			
		||||
	}
 | 
			
		||||
	if (file_load_ok(f)) return path;
 | 
			
		||||
| 
						 | 
				
			
			@ -4050,7 +4061,7 @@ rb_find_file(VALUE path)
 | 
			
		|||
	return 0;		/* no path, no load */
 | 
			
		||||
    }
 | 
			
		||||
    f = dln_find_file(f, lpath);
 | 
			
		||||
    if (rb_safe_level() >= 1 && !rb_path_check(f)) {
 | 
			
		||||
    if (rb_safe_level() >= 1 && !fpath_check(f)) {
 | 
			
		||||
	rb_raise(rb_eSecurityError, "loading from unsafe file %s", f);
 | 
			
		||||
    }
 | 
			
		||||
    if (file_load_ok(f)) {
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										24
									
								
								gc.c
									
										
									
									
									
								
							
							
						
						
									
										24
									
								
								gc.c
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -133,12 +133,22 @@ ruby_xmalloc(long size)
 | 
			
		|||
    return mem;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void *
 | 
			
		||||
ruby_xmalloc2(long n, long size)
 | 
			
		||||
{
 | 
			
		||||
    long len = size * n;
 | 
			
		||||
    if (len < n || (n > 0 && len < size)) {
 | 
			
		||||
	rb_raise(rb_eArgError, "malloc: possible integer overflow");
 | 
			
		||||
    }
 | 
			
		||||
    return ruby_xmalloc(len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void *
 | 
			
		||||
ruby_xcalloc(long n, long size)
 | 
			
		||||
{
 | 
			
		||||
    void *mem;
 | 
			
		||||
 | 
			
		||||
    mem = xmalloc(n * size);
 | 
			
		||||
    mem = ruby_xmalloc2(n, size);
 | 
			
		||||
    memset(mem, 0, n * size);
 | 
			
		||||
 | 
			
		||||
    return mem;
 | 
			
		||||
| 
						 | 
				
			
			@ -152,7 +162,7 @@ ruby_xrealloc(void *ptr, long size)
 | 
			
		|||
    if (size < 0) {
 | 
			
		||||
	rb_raise(rb_eArgError, "negative re-allocation size");
 | 
			
		||||
    }
 | 
			
		||||
    if (!ptr) return xmalloc(size);
 | 
			
		||||
    if (!ptr) return ruby_xmalloc(size);
 | 
			
		||||
    if (size == 0) size = 1;
 | 
			
		||||
    malloc_increase += size;
 | 
			
		||||
    RUBY_CRITICAL(mem = realloc(ptr, size));
 | 
			
		||||
| 
						 | 
				
			
			@ -168,6 +178,16 @@ ruby_xrealloc(void *ptr, long size)
 | 
			
		|||
    return mem;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void *
 | 
			
		||||
ruby_xrealloc2(void *ptr, long n, long size)
 | 
			
		||||
{
 | 
			
		||||
    long len = size * n;
 | 
			
		||||
    if (len < n || (n > 0 && len < size)) {
 | 
			
		||||
	rb_raise(rb_eArgError, "realloc: possible integer overflow");
 | 
			
		||||
    }
 | 
			
		||||
    return ruby_xrealloc(ptr, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void
 | 
			
		||||
ruby_xfree(void *x)
 | 
			
		||||
{
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -14,8 +14,11 @@ cgi
 | 
			
		|||
cgi.rb
 | 
			
		||||
complex.rb
 | 
			
		||||
date.rb
 | 
			
		||||
delegate.rb
 | 
			
		||||
erb.rb
 | 
			
		||||
fileutils.rb
 | 
			
		||||
find.rb
 | 
			
		||||
forwardable.rb
 | 
			
		||||
generator.rb
 | 
			
		||||
logger.rb
 | 
			
		||||
matrix.rb
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										191
									
								
								lib/delegate.rb
									
										
									
									
									
								
							
							
						
						
									
										191
									
								
								lib/delegate.rb
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -1,21 +1,119 @@
 | 
			
		|||
#  Delegation class that delegates even methods defined in super class,
 | 
			
		||||
# which can not be covered with normal method_missing hack.
 | 
			
		||||
# = delegate -- Support for the Delegation Pattern
 | 
			
		||||
#
 | 
			
		||||
#  Delegator is the abstract delegation class. Need to redefine
 | 
			
		||||
# `__getobj__' method in the subclass.  SimpleDelegator is the 
 | 
			
		||||
# concrete subclass for simple delegation.
 | 
			
		||||
# Documentation by James Edward Gray II and Gavin Sinclair
 | 
			
		||||
#
 | 
			
		||||
# Usage:
 | 
			
		||||
#   foo = Object.new
 | 
			
		||||
#   foo2 = SimpleDelegator.new(foo)
 | 
			
		||||
#   foo.hash == foo2.hash # => false
 | 
			
		||||
# == Introduction
 | 
			
		||||
#
 | 
			
		||||
#   Foo = DelegateClass(Array)
 | 
			
		||||
# This library provides three different ways to delegate method calls to an
 | 
			
		||||
# object.  The easiest to use is SimpleDelegator.  Pass an object to the
 | 
			
		||||
# constructor and all methods supported by the object will be delegated.  This
 | 
			
		||||
# object can be changed later.
 | 
			
		||||
#
 | 
			
		||||
#  class ExtArray<DelegateClass(Array)
 | 
			
		||||
#    ...
 | 
			
		||||
# Going a step further, the top level DelegateClass method allows you to easily
 | 
			
		||||
# setup delegation through class inheritance.  This is considerably more
 | 
			
		||||
# flexible and thus probably the most common use for this library.
 | 
			
		||||
#
 | 
			
		||||
# Finally, if you need full control over the delegation scheme, you can inherit
 | 
			
		||||
# from the abstract class Delegator and customize as needed.  (If you find
 | 
			
		||||
# yourself needing this control, have a look at _forwardable_, also in the
 | 
			
		||||
# standard library.  It may suit your needs better.)
 | 
			
		||||
#
 | 
			
		||||
# == Notes
 | 
			
		||||
#
 | 
			
		||||
# Be advised, RDoc will not detect delegated methods.
 | 
			
		||||
#
 | 
			
		||||
# <b>delegate.rb provides full-class delegation via the
 | 
			
		||||
# DelegateClass() method.  For single-method delegation via
 | 
			
		||||
# def_delegator(), see forwardable.rb.</b>
 | 
			
		||||
#
 | 
			
		||||
# == Examples
 | 
			
		||||
#
 | 
			
		||||
# === SimpleDelegator
 | 
			
		||||
#
 | 
			
		||||
# Here's a simple example that takes advantage of the fact that
 | 
			
		||||
# SimpleDelegator's delegation object can be changed at any time.
 | 
			
		||||
#
 | 
			
		||||
#   class Stats
 | 
			
		||||
#     def initialize
 | 
			
		||||
#       @source = SimpleDelegator.new([])
 | 
			
		||||
#     end
 | 
			
		||||
#     
 | 
			
		||||
#     def stats( records )
 | 
			
		||||
#       @source.__setobj__(records)
 | 
			
		||||
#       	
 | 
			
		||||
#       "Elements:  #{@source.size}\n" +
 | 
			
		||||
#       " Non-Nil:  #{@source.compact.size}\n" +
 | 
			
		||||
#       "  Unique:  #{@source.uniq.size}\n"
 | 
			
		||||
#     end
 | 
			
		||||
#   end
 | 
			
		||||
#   
 | 
			
		||||
#   s = Stats.new
 | 
			
		||||
#   puts s.stats(%w{James Edward Gray II})
 | 
			
		||||
#   puts
 | 
			
		||||
#   puts s.stats([1, 2, 3, nil, 4, 5, 1, 2])
 | 
			
		||||
#
 | 
			
		||||
# <i>Prints:</i>
 | 
			
		||||
#
 | 
			
		||||
#   Elements:  4
 | 
			
		||||
#    Non-Nil:  4
 | 
			
		||||
#     Unique:  4
 | 
			
		||||
# 
 | 
			
		||||
#   Elements:  8
 | 
			
		||||
#    Non-Nil:  7
 | 
			
		||||
#     Unique:  6
 | 
			
		||||
#
 | 
			
		||||
# === DelegateClass()
 | 
			
		||||
#
 | 
			
		||||
# Here's a sample of use from <i>tempfile.rb</i>.
 | 
			
		||||
#
 | 
			
		||||
# A _Tempfile_ object is really just a _File_ object with a few special rules
 | 
			
		||||
# about storage location and/or when the File should be deleted.  That makes for
 | 
			
		||||
# an almost textbook perfect example of how to use delegation.
 | 
			
		||||
#
 | 
			
		||||
#   class Tempfile < DelegateClass(File)
 | 
			
		||||
#     # constant and class member data initialization...
 | 
			
		||||
#   
 | 
			
		||||
#     def initialize(basename, tmpdir=Dir::tmpdir)
 | 
			
		||||
#       # build up file path/name in var tmpname...
 | 
			
		||||
#     
 | 
			
		||||
#       @tmpfile = File.open(tmpname, File::RDWR|File::CREAT|File::EXCL, 0600)
 | 
			
		||||
#     
 | 
			
		||||
#       # ...
 | 
			
		||||
#     
 | 
			
		||||
#       super(@tmpfile)
 | 
			
		||||
#     
 | 
			
		||||
#       # below this point, all methods of File are supported...
 | 
			
		||||
#     end
 | 
			
		||||
#   
 | 
			
		||||
#     # ...
 | 
			
		||||
#   end
 | 
			
		||||
#
 | 
			
		||||
# === Delegator
 | 
			
		||||
#
 | 
			
		||||
# SimpleDelegator's implementation serves as a nice example here.
 | 
			
		||||
#
 | 
			
		||||
#    class SimpleDelegator < Delegator
 | 
			
		||||
#      def initialize(obj)
 | 
			
		||||
#        super             # pass obj to Delegator constructor, required
 | 
			
		||||
#        @_sd_obj = obj    # store obj for future use
 | 
			
		||||
#      end
 | 
			
		||||
# 
 | 
			
		||||
#      def __getobj__
 | 
			
		||||
#        @_sd_obj          # return object we are delegating to, required
 | 
			
		||||
#      end
 | 
			
		||||
# 
 | 
			
		||||
#      def __setobj__(obj)
 | 
			
		||||
#        @_sd_obj = obj    # change delegation object, a feature we're providing
 | 
			
		||||
#      end
 | 
			
		||||
# 
 | 
			
		||||
#      # ...
 | 
			
		||||
#    end
 | 
			
		||||
 | 
			
		||||
#
 | 
			
		||||
# Delegator is an abstract class used to build delegator pattern objects from
 | 
			
		||||
# subclasses.  Subclasses should redefine \_\_getobj\_\_.  For a concrete
 | 
			
		||||
# implementation, see SimpleDelegator.
 | 
			
		||||
#
 | 
			
		||||
class Delegator
 | 
			
		||||
  preserved = ["__id__", "object_id", "__send__", "respond_to?"]
 | 
			
		||||
  instance_methods.each do |m|
 | 
			
		||||
| 
						 | 
				
			
			@ -23,10 +121,15 @@ class Delegator
 | 
			
		|||
    undef_method m
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  #
 | 
			
		||||
  # Pass in the _obj_ to delegate method calls to.  All methods supported by
 | 
			
		||||
  # _obj_ will be delegated to.
 | 
			
		||||
  #
 | 
			
		||||
  def initialize(obj)
 | 
			
		||||
    __setobj__(obj)
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  # Handles the magic of delegation through \_\_getobj\_\_.
 | 
			
		||||
  def method_missing(m, *args)
 | 
			
		||||
    begin
 | 
			
		||||
      target = self.__getobj__
 | 
			
		||||
| 
						 | 
				
			
			@ -40,42 +143,79 @@ class Delegator
 | 
			
		|||
    end
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  # 
 | 
			
		||||
  # Checks for a method provided by this the delegate object by fowarding the 
 | 
			
		||||
  # call through \_\_getobj\_\_.
 | 
			
		||||
  # 
 | 
			
		||||
  def respond_to?(m)
 | 
			
		||||
    return true if super
 | 
			
		||||
    return self.__getobj__.respond_to?(m)
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  #
 | 
			
		||||
  # This method must be overridden by subclasses and should return the object
 | 
			
		||||
  # method calls are being delegated to.
 | 
			
		||||
  #
 | 
			
		||||
  def __getobj__
 | 
			
		||||
    raise NotImplementedError, "need to define `__getobj__'"
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  #
 | 
			
		||||
  # This method must be overridden by subclasses and change the object delegate
 | 
			
		||||
  # to _obj_.
 | 
			
		||||
  #
 | 
			
		||||
  def __setobj__(obj)
 | 
			
		||||
    raise NotImplementedError, "need to define `__setobj__'"
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  # Serialization support for the object returned by \_\_getobj\_\_.
 | 
			
		||||
  def marshal_dump
 | 
			
		||||
    __getobj__
 | 
			
		||||
  end
 | 
			
		||||
  # Reinitializes delegation from a serialized object.
 | 
			
		||||
  def marshal_load(obj)
 | 
			
		||||
    __setobj__(obj)
 | 
			
		||||
  end
 | 
			
		||||
end
 | 
			
		||||
 | 
			
		||||
#
 | 
			
		||||
# A concrete implementation of Delegator, this class provides the means to
 | 
			
		||||
# delegate all supported method calls to the object passed into the constructor
 | 
			
		||||
# and even to change the object being delegated to at a later time with
 | 
			
		||||
# \_\_setobj\_\_ .
 | 
			
		||||
#
 | 
			
		||||
class SimpleDelegator<Delegator
 | 
			
		||||
  # Returns the current object method calls are being delegated to.
 | 
			
		||||
  def __getobj__
 | 
			
		||||
    @_sd_obj
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  #
 | 
			
		||||
  # Changes the delegate object to _obj_.
 | 
			
		||||
  #
 | 
			
		||||
  # It's important to note that this does *not* cause SimpleDelegator's methods
 | 
			
		||||
  # to change.  Because of this, you probably only want to change delegation
 | 
			
		||||
  # to objects of the same type as the original delegate.
 | 
			
		||||
  #
 | 
			
		||||
  # Here's an example of changing the delegation object.
 | 
			
		||||
  #
 | 
			
		||||
  #   names = SimpleDelegator.new(%w{James Edward Gray II})
 | 
			
		||||
  #   puts names[1]    # => Edward
 | 
			
		||||
  #   names.__setobj__(%w{Gavin Sinclair})
 | 
			
		||||
  #   puts names[1]    # => Sinclair
 | 
			
		||||
  #
 | 
			
		||||
  def __setobj__(obj)
 | 
			
		||||
    raise ArgumentError, "cannot delegate to self" if self.equal?(obj)
 | 
			
		||||
    @_sd_obj = obj
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  # Clone support for the object returned by \_\_getobj\_\_.
 | 
			
		||||
  def clone
 | 
			
		||||
    copy = super
 | 
			
		||||
    copy.__setobj__(__getobj__.clone)
 | 
			
		||||
    copy
 | 
			
		||||
  end
 | 
			
		||||
  # Duplication support for the object returned by \_\_getobj\_\_.
 | 
			
		||||
  def dup
 | 
			
		||||
    copy = super
 | 
			
		||||
    copy.__setobj__(__getobj__.dup)
 | 
			
		||||
| 
						 | 
				
			
			@ -83,10 +223,21 @@ class SimpleDelegator<Delegator
 | 
			
		|||
  end
 | 
			
		||||
end
 | 
			
		||||
 | 
			
		||||
# :stopdoc:
 | 
			
		||||
# backward compatibility ^_^;;;
 | 
			
		||||
Delegater = Delegator
 | 
			
		||||
SimpleDelegater = SimpleDelegator
 | 
			
		||||
# :startdoc:
 | 
			
		||||
 | 
			
		||||
#
 | 
			
		||||
# The primary interface to this library.  Use to setup delegation when defining
 | 
			
		||||
# your class.
 | 
			
		||||
#
 | 
			
		||||
#   class MyClass < DelegateClass( ClassToDelegateTo )    # Step 1
 | 
			
		||||
#     def initiaize
 | 
			
		||||
#       super(obj_of_ClassToDelegateTo)                   # Step 2
 | 
			
		||||
#     end
 | 
			
		||||
#   end
 | 
			
		||||
#
 | 
			
		||||
def DelegateClass(superclass)
 | 
			
		||||
  klass = Class.new
 | 
			
		||||
| 
						 | 
				
			
			@ -97,31 +248,31 @@ def DelegateClass(superclass)
 | 
			
		|||
    "clone", "dup", "marshal_dump", "marshal_load",
 | 
			
		||||
  ]
 | 
			
		||||
  klass.module_eval {
 | 
			
		||||
    def initialize(obj)
 | 
			
		||||
    def initialize(obj)  # :nodoc:
 | 
			
		||||
      @_dc_obj = obj
 | 
			
		||||
    end
 | 
			
		||||
    def method_missing(m, *args)
 | 
			
		||||
    def method_missing(m, *args)  # :nodoc:
 | 
			
		||||
      unless @_dc_obj.respond_to?(m)
 | 
			
		||||
        super(m, *args)
 | 
			
		||||
      end
 | 
			
		||||
      @_dc_obj.__send__(m, *args)
 | 
			
		||||
    end
 | 
			
		||||
    def respond_to?(m)
 | 
			
		||||
    def respond_to?(m)  # :nodoc:
 | 
			
		||||
      return true if super
 | 
			
		||||
      return @_dc_obj.respond_to?(m)
 | 
			
		||||
    end
 | 
			
		||||
    def __getobj__
 | 
			
		||||
    def __getobj__  # :nodoc:
 | 
			
		||||
      @_dc_obj
 | 
			
		||||
    end
 | 
			
		||||
    def __setobj__(obj)
 | 
			
		||||
    def __setobj__(obj)  # :nodoc:
 | 
			
		||||
      raise ArgumentError, "cannot delegate to self" if self.equal?(obj)
 | 
			
		||||
      @_dc_obj = obj
 | 
			
		||||
    end
 | 
			
		||||
    def clone
 | 
			
		||||
    def clone  # :nodoc:
 | 
			
		||||
      super
 | 
			
		||||
      __setobj__(__getobj__.clone)
 | 
			
		||||
    end
 | 
			
		||||
    def dup
 | 
			
		||||
    def dup  # :nodoc:
 | 
			
		||||
      super
 | 
			
		||||
      __setobj__(__getobj__.dup)
 | 
			
		||||
    end
 | 
			
		||||
| 
						 | 
				
			
			@ -145,6 +296,8 @@ def DelegateClass(superclass)
 | 
			
		|||
  return klass
 | 
			
		||||
end
 | 
			
		||||
 | 
			
		||||
# :enddoc:
 | 
			
		||||
 | 
			
		||||
if __FILE__ == $0
 | 
			
		||||
  class ExtArray<DelegateClass(Array)
 | 
			
		||||
    def initialize()
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -5,90 +5,174 @@
 | 
			
		|||
#   	$Date$
 | 
			
		||||
#   	by Keiju ISHITSUKA(keiju@ishitsuka.com)
 | 
			
		||||
#	original definition by delegator.rb
 | 
			
		||||
# --
 | 
			
		||||
# Usage:
 | 
			
		||||
#       Revised by Daniel J. Berger with suggestions from Florian Gross.
 | 
			
		||||
#
 | 
			
		||||
#   class Foo
 | 
			
		||||
#       Documentation by James Edward Gray II and Gavin Sinclair
 | 
			
		||||
#
 | 
			
		||||
# == Introduction
 | 
			
		||||
#
 | 
			
		||||
# This library allows you delegate method calls to an object, on a method by
 | 
			
		||||
# method basis.
 | 
			
		||||
#
 | 
			
		||||
# == Notes
 | 
			
		||||
#
 | 
			
		||||
# Be advised, RDoc will not detect delegated methods.
 | 
			
		||||
#
 | 
			
		||||
# <b>forwardable.rb provides single-method delegation via the
 | 
			
		||||
# def_delegator() and def_delegators() methods.  For full-class
 | 
			
		||||
# delegation via DelegateClass(), see delegate.rb.</b>
 | 
			
		||||
#
 | 
			
		||||
# == Examples
 | 
			
		||||
#
 | 
			
		||||
# === Forwardable
 | 
			
		||||
#
 | 
			
		||||
# Forwardable makes building a new class based on existing work, with a proper
 | 
			
		||||
# interface, almost trivial.  We want to rely on what has come before obviously,
 | 
			
		||||
# but with delegation we can take just the methods we need and even rename them
 | 
			
		||||
# as appropriate.  In many cases this is preferable to inheritance, which gives
 | 
			
		||||
# us the entire old interface, even if much of it isn't needed.
 | 
			
		||||
#
 | 
			
		||||
#   class Queue
 | 
			
		||||
#     extend Forwardable
 | 
			
		||||
#     
 | 
			
		||||
#     def_delegators("@out", "printf", "print")
 | 
			
		||||
#     def_delegators(:@in, :gets)
 | 
			
		||||
#     def_delegator(:@contents, :[], "content_at")
 | 
			
		||||
#     def initialize
 | 
			
		||||
#       @q = [ ]    # prepare delegate object
 | 
			
		||||
#     end
 | 
			
		||||
#     
 | 
			
		||||
#     # setup prefered interface, enq() and deq()...
 | 
			
		||||
#     def_delegator :@q, :push, :enq
 | 
			
		||||
#     def_delegator :@q, :shift, :deq
 | 
			
		||||
#     
 | 
			
		||||
#     # support some general Array methods that fit Queues well
 | 
			
		||||
#     def_delegators :@q, :clear, :first, :push, :shift, :size
 | 
			
		||||
#   end
 | 
			
		||||
# 
 | 
			
		||||
#   q = Queue.new
 | 
			
		||||
#   q.enq 1, 2, 3, 4, 5
 | 
			
		||||
#   q.push 6
 | 
			
		||||
# 
 | 
			
		||||
#   q.shift    # => 1
 | 
			
		||||
#   while q.size > 0
 | 
			
		||||
#     puts q.deq
 | 
			
		||||
#   end
 | 
			
		||||
# 
 | 
			
		||||
#   q.enq "Ruby", "Perl", "Python"
 | 
			
		||||
#   puts q.first
 | 
			
		||||
#   q.clear
 | 
			
		||||
#   puts q.first
 | 
			
		||||
#
 | 
			
		||||
# <i>Prints:</i>
 | 
			
		||||
#
 | 
			
		||||
#   2
 | 
			
		||||
#   3
 | 
			
		||||
#   4
 | 
			
		||||
#   5
 | 
			
		||||
#   6
 | 
			
		||||
#   Ruby
 | 
			
		||||
#   nil
 | 
			
		||||
#
 | 
			
		||||
# Forwardable can be used to setup delegation at the object level as well.
 | 
			
		||||
#
 | 
			
		||||
#    printer = String.new
 | 
			
		||||
#    printer.extend Forwardable              # prepare object for delegation
 | 
			
		||||
#    printer.def_delegator "STDOUT", "puts"  # add delegation for STDOUT.puts()
 | 
			
		||||
#    printer.puts "Howdy!"
 | 
			
		||||
#
 | 
			
		||||
# <i>Prints:</i>
 | 
			
		||||
#
 | 
			
		||||
#    Howdy!
 | 
			
		||||
 | 
			
		||||
#
 | 
			
		||||
# The Forwardable module provides delegation of specified
 | 
			
		||||
# methods to a designated object, using the methods #def_delegator
 | 
			
		||||
# and #def_delegators.
 | 
			
		||||
#
 | 
			
		||||
# For example, say you have a class RecordCollection which
 | 
			
		||||
# contains an array <tt>@records</tt>.  You could provide the lookup method
 | 
			
		||||
# #record_number(), which simply calls #[] on the <tt>@records</tt>
 | 
			
		||||
# array, like this:
 | 
			
		||||
#
 | 
			
		||||
#   class RecordCollection
 | 
			
		||||
#     extends Forwardable
 | 
			
		||||
#     def_delegator :@records, :[], :record_number
 | 
			
		||||
#   end
 | 
			
		||||
#
 | 
			
		||||
# Further, if you wish to provide the methods #size, #<<, and #map,
 | 
			
		||||
# all of which delegate to @records, this is how you can do it:
 | 
			
		||||
#
 | 
			
		||||
#   class RecordCollection
 | 
			
		||||
#     # extends Forwardable, but we did that above
 | 
			
		||||
#     def_delegators :@records, :size, :<<, :map
 | 
			
		||||
#   end
 | 
			
		||||
#   f = Foo.new
 | 
			
		||||
#   f.printf ...
 | 
			
		||||
#   f.gets
 | 
			
		||||
#   f.content_at(1)
 | 
			
		||||
#
 | 
			
		||||
#   g = Goo.new
 | 
			
		||||
#   g.extend SingleForwardable
 | 
			
		||||
#   g.def_delegator("@out", :puts)
 | 
			
		||||
#   g.puts ...
 | 
			
		||||
#
 | 
			
		||||
#
 | 
			
		||||
# Also see the example at forwardable.rb.
 | 
			
		||||
 | 
			
		||||
module Forwardable
 | 
			
		||||
  FORWARDABLE_VERSION = "1.0.0"
 | 
			
		||||
  
 | 
			
		||||
  @debug = nil
 | 
			
		||||
  class<<self
 | 
			
		||||
    attr_accessor :debug
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  def def_instance_delegators(accessor, *methods)
 | 
			
		||||
    for method in methods
 | 
			
		||||
  # Takes a hash as its argument.  The key is a symbol or an array of
 | 
			
		||||
  # symbols.  These symbols correspond to method names.  The value is
 | 
			
		||||
  # the accessor to which the methods will be delegated.
 | 
			
		||||
  #
 | 
			
		||||
  # :call-seq:
 | 
			
		||||
  #    delegate method => accessor
 | 
			
		||||
  #    delegate [method, method, ...] => accessor
 | 
			
		||||
  #
 | 
			
		||||
  def delegate(hash)
 | 
			
		||||
    hash.each{ |methods, accessor|
 | 
			
		||||
      methods = methods.to_s unless methods.respond_to?(:each)
 | 
			
		||||
      methods.each{ |method|
 | 
			
		||||
        def_instance_delegator(accessor, method)
 | 
			
		||||
    end
 | 
			
		||||
      }
 | 
			
		||||
    }
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  #
 | 
			
		||||
  # Shortcut for defining multiple delegator methods, but with no
 | 
			
		||||
  # provision for using a different name.  The following two code
 | 
			
		||||
  # samples have the same effect:
 | 
			
		||||
  #
 | 
			
		||||
  #   def_delegators :@records, :size, :<<, :map
 | 
			
		||||
  #
 | 
			
		||||
  #   def_delegator :@records, :size
 | 
			
		||||
  #   def_delegator :@records, :<<
 | 
			
		||||
  #   def_delegator :@records, :map
 | 
			
		||||
  #
 | 
			
		||||
  def def_instance_delegators(accessor, *methods)
 | 
			
		||||
    methods.delete("__send__")
 | 
			
		||||
    methods.delete("__id__")
 | 
			
		||||
    methods.each{ |method|
 | 
			
		||||
      def_instance_delegator(accessor, method)
 | 
			
		||||
    }
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  #
 | 
			
		||||
  # Defines a method _method_ which delegates to _obj_ (i.e. it calls
 | 
			
		||||
  # the method of the same name in _obj_).  If _new_name_ is
 | 
			
		||||
  # provided, it is used as the name for the delegate method.
 | 
			
		||||
  #
 | 
			
		||||
  def def_instance_delegator(accessor, method, ali = method)
 | 
			
		||||
    accessor = accessor.id2name if accessor.kind_of?(Integer)
 | 
			
		||||
    method = method.id2name if method.kind_of?(Integer)
 | 
			
		||||
    ali = ali.id2name if ali.kind_of?(Integer)
 | 
			
		||||
 | 
			
		||||
    module_eval(<<-EOS, "(__FORWARDABLE__)", 1)
 | 
			
		||||
    str = %Q{
 | 
			
		||||
      def #{ali}(*args, &block)
 | 
			
		||||
        #{accessor}.send(:#{method}, *args, &block)
 | 
			
		||||
      end
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    # If it's not a class or module, it's an instance
 | 
			
		||||
    begin
 | 
			
		||||
	  #{accessor}.__send__(:#{method}, *args, &block)
 | 
			
		||||
	rescue Exception
 | 
			
		||||
	  $@.delete_if{|s| /^\\(__FORWARDABLE__\\):/ =~ s} unless Forwardable::debug
 | 
			
		||||
	  Kernel::raise
 | 
			
		||||
      module_eval(str)
 | 
			
		||||
    rescue
 | 
			
		||||
      instance_eval(str)
 | 
			
		||||
    end
 | 
			
		||||
  end
 | 
			
		||||
    EOS
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  alias def_delegators def_instance_delegators
 | 
			
		||||
  alias def_delegator def_instance_delegator
 | 
			
		||||
end
 | 
			
		||||
 | 
			
		||||
module SingleForwardable
 | 
			
		||||
  def def_singleton_delegators(accessor, *methods)
 | 
			
		||||
    for method in methods
 | 
			
		||||
      def_singleton_delegator(accessor, method)
 | 
			
		||||
    end
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  def def_singleton_delegator(accessor, method, ali = method)
 | 
			
		||||
    accessor = accessor.id2name if accessor.kind_of?(Integer)
 | 
			
		||||
    method = method.id2name if method.kind_of?(Integer)
 | 
			
		||||
    ali = ali.id2name if ali.kind_of?(Integer)
 | 
			
		||||
 | 
			
		||||
    instance_eval(<<-EOS, "(__FORWARDABLE__)", 1)
 | 
			
		||||
       def #{ali}(*args, &block)
 | 
			
		||||
	 begin
 | 
			
		||||
	   #{accessor}.__send__(:#{method}, *args,&block)
 | 
			
		||||
	 rescue Exception
 | 
			
		||||
	   $@.delete_if{|s| /^\\(__FORWARDABLE__\\):/ =~ s} unless Forwardable::debug
 | 
			
		||||
	   Kernel::raise
 | 
			
		||||
	 end
 | 
			
		||||
       end
 | 
			
		||||
    EOS
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  alias def_delegators def_singleton_delegators
 | 
			
		||||
  alias def_delegator def_singleton_delegator
 | 
			
		||||
end
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
# compatibility
 | 
			
		||||
SingleForwardable = Forwardable
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -352,7 +352,7 @@ class OptionParser
 | 
			
		|||
    #    : (({block}))
 | 
			
		||||
    #      (({yields})) at semi-error condition, instead of raises exception.
 | 
			
		||||
    #
 | 
			
		||||
    def conv_arg(arg, val = nil)
 | 
			
		||||
    def conv_arg(arg, val = [])
 | 
			
		||||
      if block
 | 
			
		||||
        if conv
 | 
			
		||||
          val = conv.call(*val)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -500,7 +500,7 @@ module XMLRPC
 | 
			
		|||
    def do_rpc(request, async=false)
 | 
			
		||||
      header = {  
 | 
			
		||||
       "User-Agent"     =>  USER_AGENT,
 | 
			
		||||
       "Content-Type"   => "text/xml",
 | 
			
		||||
       "Content-Type"   => "text/xml; charset=utf-8",
 | 
			
		||||
       "Content-Length" => request.size.to_s, 
 | 
			
		||||
       "Connection"     => (async ? "close" : "keep-alive")
 | 
			
		||||
      }
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -456,7 +456,7 @@ class CGIServer < BasicServer
 | 
			
		|||
 | 
			
		||||
      http_error(400, "Bad Request")        if data.nil? or data.size != length
 | 
			
		||||
 | 
			
		||||
      http_write(process(data), "Content-type" => "text/xml")
 | 
			
		||||
      http_write(process(data), "Content-type" => "text/xml; charset=utf-8")
 | 
			
		||||
    }
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -531,7 +531,7 @@ class ModRubyServer < BasicServer
 | 
			
		|||
 | 
			
		||||
      http_error(400, "Bad Request")        if data.nil? or data.size != length
 | 
			
		||||
 | 
			
		||||
      http_write(process(data), 200, "Content-type" => "text/xml")
 | 
			
		||||
      http_write(process(data), 200, "Content-type" => "text/xml; charset=utf-8")
 | 
			
		||||
    }
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -764,7 +764,7 @@ class WEBrickServlet < BasicServer
 | 
			
		|||
 | 
			
		||||
    response.status = 200
 | 
			
		||||
    response['Content-Length'] = resp.size
 | 
			
		||||
    response['Content-Type']   = "text/xml"
 | 
			
		||||
    response['Content-Type']   = "text/xml; charset=utf-8"
 | 
			
		||||
    response.body = resp 
 | 
			
		||||
  end
 | 
			
		||||
end
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -11,6 +11,7 @@ require 'yaml/error'
 | 
			
		|||
require 'yaml/syck'
 | 
			
		||||
require 'yaml/tag'
 | 
			
		||||
require 'yaml/stream'
 | 
			
		||||
require 'yaml/constants'
 | 
			
		||||
 | 
			
		||||
# == YAML
 | 
			
		||||
#
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										48
									
								
								numeric.c
									
										
									
									
									
								
							
							
						
						
									
										48
									
								
								numeric.c
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -2039,18 +2039,8 @@ fix_quo(VALUE x, VALUE y)
 | 
			
		|||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/*
 | 
			
		||||
 * call-seq:
 | 
			
		||||
 *   fix / numeric      =>  numeric_result
 | 
			
		||||
 *   fix.div(numeric)   =>  numeric_result
 | 
			
		||||
 *
 | 
			
		||||
 * Performs division: the class of the resulting object depends on
 | 
			
		||||
 * the class of <code>numeric</code> and on the magnitude of the 
 | 
			
		||||
 * result.
 | 
			
		||||
 */
 | 
			
		||||
 | 
			
		||||
static VALUE
 | 
			
		||||
fix_div(VALUE x, VALUE y)
 | 
			
		||||
fix_divide(VALUE x, VALUE y, int flo)
 | 
			
		||||
{
 | 
			
		||||
    if (FIXNUM_P(y)) {
 | 
			
		||||
	long div;
 | 
			
		||||
| 
						 | 
				
			
			@ -2063,12 +2053,46 @@ fix_div(VALUE x, VALUE y)
 | 
			
		|||
	x = rb_int2big(FIX2LONG(x));
 | 
			
		||||
	return rb_big_div(x, y);
 | 
			
		||||
      case T_FLOAT:
 | 
			
		||||
	if (flo) {
 | 
			
		||||
	    return rb_float_new((double)FIX2LONG(x) / RFLOAT(y)->value);
 | 
			
		||||
	}
 | 
			
		||||
	else {
 | 
			
		||||
	    long div = (double)FIX2LONG(x) / RFLOAT(y)->value;
 | 
			
		||||
	    return LONG2NUM(div);
 | 
			
		||||
	}
 | 
			
		||||
      default:
 | 
			
		||||
	return rb_num_coerce_bin(x, y);
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/*
 | 
			
		||||
 * call-seq:
 | 
			
		||||
 *   fix / numeric      =>  numeric_result
 | 
			
		||||
 *
 | 
			
		||||
 * Performs division: the class of the resulting object depends on
 | 
			
		||||
 * the class of <code>numeric</code> and on the magnitude of the 
 | 
			
		||||
 * result.
 | 
			
		||||
 */
 | 
			
		||||
 | 
			
		||||
static VALUE
 | 
			
		||||
fix_div(VALUE x, VALUE y)
 | 
			
		||||
{
 | 
			
		||||
    return fix_divide(x, y, Qtrue);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/*
 | 
			
		||||
 * call-seq:
 | 
			
		||||
 *   fix.div(numeric)   =>  numeric_result
 | 
			
		||||
 *
 | 
			
		||||
 * Performs integer division: returns integer value.
 | 
			
		||||
 */
 | 
			
		||||
 | 
			
		||||
static VALUE
 | 
			
		||||
fix_idiv(VALUE x, VALUE y)
 | 
			
		||||
{
 | 
			
		||||
    return fix_divide(x, y, Qfalse);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/*
 | 
			
		||||
 *  call-seq:
 | 
			
		||||
 *    fix % other         => Numeric
 | 
			
		||||
| 
						 | 
				
			
			@ -2824,7 +2848,7 @@ Init_Numeric(void)
 | 
			
		|||
    rb_define_method(rb_cFixnum, "-", fix_minus, 1);
 | 
			
		||||
    rb_define_method(rb_cFixnum, "*", fix_mul, 1);
 | 
			
		||||
    rb_define_method(rb_cFixnum, "/", fix_div, 1);
 | 
			
		||||
    rb_define_method(rb_cFixnum, "div", fix_div, 1);
 | 
			
		||||
    rb_define_method(rb_cFixnum, "div", fix_idiv, 1);
 | 
			
		||||
    rb_define_method(rb_cFixnum, "%", fix_mod, 1);
 | 
			
		||||
    rb_define_method(rb_cFixnum, "modulo", fix_mod, 1);
 | 
			
		||||
    rb_define_method(rb_cFixnum, "divmod", fix_divmod, 1);
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										16
									
								
								object.c
									
										
									
									
									
								
							
							
						
						
									
										16
									
								
								object.c
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -727,21 +727,6 @@ nil_to_s(VALUE obj)
 | 
			
		|||
    return rb_str_new2("");
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/*
 | 
			
		||||
 *  call-seq:
 | 
			
		||||
 *     nil.to_a    => []
 | 
			
		||||
 *  
 | 
			
		||||
 *  Always returns an empty array.
 | 
			
		||||
 *     
 | 
			
		||||
 *     nil.to_a   #=> []
 | 
			
		||||
 */
 | 
			
		||||
 | 
			
		||||
static VALUE
 | 
			
		||||
nil_to_a(VALUE obj)
 | 
			
		||||
{
 | 
			
		||||
    return rb_ary_new2(0);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/*
 | 
			
		||||
 *  call-seq:
 | 
			
		||||
 *    nil.inspect  => "nil"
 | 
			
		||||
| 
						 | 
				
			
			@ -2448,7 +2433,6 @@ Init_Object(void)
 | 
			
		|||
    rb_define_method(rb_cNilClass, "to_i", nil_to_i, 0);
 | 
			
		||||
    rb_define_method(rb_cNilClass, "to_f", nil_to_f, 0);
 | 
			
		||||
    rb_define_method(rb_cNilClass, "to_s", nil_to_s, 0);
 | 
			
		||||
    rb_define_method(rb_cNilClass, "to_a", nil_to_a, 0);
 | 
			
		||||
    rb_define_method(rb_cNilClass, "inspect", nil_inspect, 0);
 | 
			
		||||
    rb_define_method(rb_cNilClass, "&", false_and, 1);
 | 
			
		||||
    rb_define_method(rb_cNilClass, "|", false_or, 1);
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										4
									
								
								pack.c
									
										
									
									
									
								
							
							
						
						
									
										4
									
								
								pack.c
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -349,12 +349,12 @@ num2i32(VALUE x)
 | 
			
		|||
# define EXTEND32(x) 
 | 
			
		||||
#else
 | 
			
		||||
/* invariant in modulo 1<<31 */
 | 
			
		||||
# define EXTEND32(x) do {if (!natint) {(x) = (I32)(((1<<31)-1-(x))^~(~0<<31))}} while(0)
 | 
			
		||||
# define EXTEND32(x) do {if (!natint) {(x) = (I32)(((1<<31)-1-(x))^~(~0<<31));}} while(0)
 | 
			
		||||
#endif
 | 
			
		||||
#if SIZEOF_SHORT == SIZE16
 | 
			
		||||
# define EXTEND16(x) 
 | 
			
		||||
#else
 | 
			
		||||
# define EXTEND16(x) do { if (!natint) {(x) = (short)(((1<<15)-1-(x))^~(~0<<15))}} while(0)
 | 
			
		||||
# define EXTEND16(x) do { if (!natint) {(x) = (short)(((1<<15)-1-(x))^~(~0<<15));}} while(0)
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
#ifdef HAVE_LONG_LONG
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -2756,6 +2756,7 @@ proc_daemon(int argc, VALUE *argv)
 | 
			
		|||
    VALUE nochdir, noclose;
 | 
			
		||||
    int n;
 | 
			
		||||
 | 
			
		||||
    rb_secure(2);
 | 
			
		||||
    rb_scan_args(argc, argv, "02", &nochdir, &noclose);
 | 
			
		||||
 | 
			
		||||
#if defined(HAVE_DAEMON)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										4
									
								
								range.c
									
										
									
									
									
								
							
							
						
						
									
										4
									
								
								range.c
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -449,9 +449,9 @@ rb_range_beg_len(VALUE range, long *begp, long *lenp, long len, int err)
 | 
			
		|||
    }
 | 
			
		||||
    else {
 | 
			
		||||
	b = rb_check_to_integer(range, "begin");
 | 
			
		||||
	if (NIL_P(b)) return Qnil;
 | 
			
		||||
	if (NIL_P(b)) return Qfalse;
 | 
			
		||||
	e = rb_check_to_integer(range, "end");
 | 
			
		||||
	if (NIL_P(e)) return Qnil;
 | 
			
		||||
	if (NIL_P(e)) return Qfalse;
 | 
			
		||||
	excl = RTEST(rb_funcall(range, rb_intern("exclude_end?"), 0));
 | 
			
		||||
    }
 | 
			
		||||
    beg = NUM2LONG(b);
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										4
									
								
								ruby.h
									
										
									
									
									
								
							
							
						
						
									
										4
									
								
								ruby.h
									
										
									
									
									
								
							| 
						 | 
				
			
			@ -479,9 +479,9 @@ struct RBignum {
 | 
			
		|||
#define OBJ_FROZEN(x) FL_TEST((x), FL_FREEZE)
 | 
			
		||||
#define OBJ_FREEZE(x) FL_SET((x), FL_FREEZE)
 | 
			
		||||
 | 
			
		||||
#define ALLOC_N(type,n) (type*)xmalloc(sizeof(type)*(n))
 | 
			
		||||
#define ALLOC_N(type,n) (type*)xmalloc2((n),sizeof(type))
 | 
			
		||||
#define ALLOC(type) (type*)xmalloc(sizeof(type))
 | 
			
		||||
#define REALLOC_N(var,type,n) (var)=(type*)xrealloc((char*)(var),sizeof(type)*(n))
 | 
			
		||||
#define REALLOC_N(var,type,n) (var)=(type*)xrealloc2((char*)(var),(n),sizeof(type))
 | 
			
		||||
 | 
			
		||||
#define ALLOCA_N(type,n) (type*)alloca(sizeof(type)*(n))
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -54,8 +54,6 @@ a = [*[]]; test_ok(a == [])
 | 
			
		|||
a = [*[1]]; test_ok(a == [1])
 | 
			
		||||
a = [*[1,2]]; test_ok(a == [1,2])
 | 
			
		||||
 | 
			
		||||
a = *nil; test_ok(a == nil)
 | 
			
		||||
a = *1; test_ok(a == 1)
 | 
			
		||||
a = *[]; test_ok(a == nil)
 | 
			
		||||
a = *[1]; test_ok(a == 1)
 | 
			
		||||
a = *[nil]; test_ok(a == nil)
 | 
			
		||||
| 
						 | 
				
			
			@ -78,8 +76,6 @@ a, = [*[1]]; test_ok(a == 1)
 | 
			
		|||
a, = *[1,2]; test_ok(a == 1)
 | 
			
		||||
a, = [*[1,2]]; test_ok(a == 1)
 | 
			
		||||
 | 
			
		||||
a, = *nil; test_ok(a == nil)
 | 
			
		||||
a, = *1; test_ok(a == 1)
 | 
			
		||||
a, = *[]; test_ok(a == nil)
 | 
			
		||||
a, = *[1]; test_ok(a == 1)
 | 
			
		||||
a, = *[nil]; test_ok(a == nil)
 | 
			
		||||
| 
						 | 
				
			
			@ -100,8 +96,6 @@ a, = *[*[1,2]]; test_ok(a == 1)
 | 
			
		|||
*a = [*[1]]; test_ok(a == [[1]])
 | 
			
		||||
*a = [*[1,2]]; test_ok(a == [[1,2]])
 | 
			
		||||
 | 
			
		||||
*a = *nil; test_ok(a == [nil])
 | 
			
		||||
*a = *1; test_ok(a == [1])
 | 
			
		||||
*a = *[]; test_ok(a == [])
 | 
			
		||||
*a = *[1]; test_ok(a == [1])
 | 
			
		||||
*a = *[nil]; test_ok(a == [nil])
 | 
			
		||||
| 
						 | 
				
			
			@ -122,8 +116,6 @@ a,b,*c = [*[]]; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		|||
a,b,*c = [*[1]]; test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
a,b,*c = [*[1,2]]; test_ok([a,b,c] == [1,2,[]])
 | 
			
		||||
 | 
			
		||||
a,b,*c = *nil; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
a,b,*c = *1; test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
a,b,*c = *[]; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
a,b,*c = *[1]; test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
a,b,*c = *[nil]; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
| 
						 | 
				
			
			@ -143,8 +135,6 @@ def f; yield [*[]]; end; f {|a| test_ok(a == [])}
 | 
			
		|||
def f; yield [*[1]]; end; f {|a| test_ok(a == [1])}
 | 
			
		||||
def f; yield [*[1,2]]; end; f {|a| test_ok(a == [1,2])}
 | 
			
		||||
 | 
			
		||||
def f; yield *nil; end; f {|a| test_ok(a == nil)}
 | 
			
		||||
def f; yield *1; end; f {|a| test_ok(a == 1)}
 | 
			
		||||
def f; yield *[1]; end; f {|a| test_ok(a == 1)}
 | 
			
		||||
def f; yield *[nil]; end; f {|a| test_ok(a == nil)}
 | 
			
		||||
def f; yield *[[]]; end; f {|a| test_ok(a == [])}
 | 
			
		||||
| 
						 | 
				
			
			@ -161,8 +151,6 @@ def f; yield [*[]]; end; f {|a,| test_ok(a == nil)}
 | 
			
		|||
def f; yield [*[1]]; end; f {|a,| test_ok(a == 1)}
 | 
			
		||||
def f; yield [*[1,2]]; end; f {|a,| test_ok(a == 1)}
 | 
			
		||||
 | 
			
		||||
def f; yield *nil; end; f {|a,| test_ok(a == nil)}
 | 
			
		||||
def f; yield *1; end; f {|a,| test_ok(a == 1)}
 | 
			
		||||
def f; yield *[]; end; f {|a,| test_ok(a == nil)}
 | 
			
		||||
def f; yield *[1]; end; f {|a,| test_ok(a == 1)}
 | 
			
		||||
def f; yield *[nil]; end; f {|a,| test_ok(a == nil)}
 | 
			
		||||
| 
						 | 
				
			
			@ -183,8 +171,6 @@ def f; yield [*[]]; end; f {|*a| test_ok(a == [[]])}
 | 
			
		|||
def f; yield [*[1]]; end; f {|*a| test_ok(a == [[1]])}
 | 
			
		||||
def f; yield [*[1,2]]; end; f {|*a| test_ok(a == [[1,2]])}
 | 
			
		||||
 | 
			
		||||
def f; yield *nil; end; f {|*a| test_ok(a == [nil])}
 | 
			
		||||
def f; yield *1; end; f {|*a| test_ok(a == [1])}
 | 
			
		||||
def f; yield *[]; end; f {|*a| test_ok(a == [])}
 | 
			
		||||
def f; yield *[1]; end; f {|*a| test_ok(a == [1])}
 | 
			
		||||
def f; yield *[nil]; end; f {|*a| test_ok(a == [nil])}
 | 
			
		||||
| 
						 | 
				
			
			@ -204,8 +190,6 @@ def f; yield [*[]]; end; f {|a,b,*c| test_ok([a,b,c] == [nil,nil,[]])}
 | 
			
		|||
def f; yield [*[1]]; end; f {|a,b,*c| test_ok([a,b,c] == [1,nil,[]])}
 | 
			
		||||
def f; yield [*[1,2]]; end; f {|a,b,*c| test_ok([a,b,c] == [1,2,[]])}
 | 
			
		||||
 | 
			
		||||
def f; yield *nil; end; f {|a,b,*c| test_ok([a,b,c] == [nil,nil,[]])}
 | 
			
		||||
def f; yield *1; end; f {|a,b,*c| test_ok([a,b,c] == [1,nil,[]])}
 | 
			
		||||
def f; yield *[]; end; f {|a,b,*c| test_ok([a,b,c] == [nil,nil,[]])}
 | 
			
		||||
def f; yield *[1]; end; f {|a,b,*c| test_ok([a,b,c] == [1,nil,[]])}
 | 
			
		||||
def f; yield *[nil]; end; f {|a,b,*c| test_ok([a,b,c] == [nil,nil,[]])}
 | 
			
		||||
| 
						 | 
				
			
			@ -225,8 +209,6 @@ def r; return [*[]]; end; a = r(); test_ok(a == [])
 | 
			
		|||
def r; return [*[1]]; end; a = r(); test_ok(a == [1])
 | 
			
		||||
def r; return [*[1,2]]; end; a = r(); test_ok(a == [1,2])
 | 
			
		||||
 | 
			
		||||
def r; return *nil; end; a = r(); test_ok(a == nil)
 | 
			
		||||
def r; return *1; end; a = r(); test_ok(a == 1)
 | 
			
		||||
def r; return *[]; end; a = r(); test_ok(a == nil)
 | 
			
		||||
def r; return *[1]; end; a = r(); test_ok(a == 1)
 | 
			
		||||
def r; return *[nil]; end; a = r(); test_ok(a == nil)
 | 
			
		||||
| 
						 | 
				
			
			@ -235,14 +217,7 @@ def r; return *[*[]]; end; a = r(); test_ok(a == nil)
 | 
			
		|||
def r; return *[*[1]]; end; a = r(); test_ok(a == 1)
 | 
			
		||||
def r; return *[*[1,2]]; end; a = r(); test_ok(a == [1,2])
 | 
			
		||||
 | 
			
		||||
def r; return *nil; end; a = *r(); test_ok(a == nil)
 | 
			
		||||
def r; return *1; end; a = *r(); test_ok(a == 1)
 | 
			
		||||
def r; return *[]; end; a = *r(); test_ok(a == nil)
 | 
			
		||||
def r; return *[1]; end; a = *r(); test_ok(a == 1)
 | 
			
		||||
def r; return *[nil]; end; a = *r(); test_ok(a == nil)
 | 
			
		||||
def r; return *[[]]; end; a = *r(); test_ok(a == nil)
 | 
			
		||||
def r; return *[*[]]; end; a = *r(); test_ok(a == nil)
 | 
			
		||||
def r; return *[*[1]]; end; a = *r(); test_ok(a == 1)
 | 
			
		||||
def r; return *[*[1,2]]; end; a = *r(); test_ok(a == [1,2])
 | 
			
		||||
 | 
			
		||||
def r; return; end; *a = r(); test_ok(a == [nil])
 | 
			
		||||
| 
						 | 
				
			
			@ -257,8 +232,6 @@ def r; return [*[]]; end; *a = r(); test_ok(a == [[]])
 | 
			
		|||
def r; return [*[1]]; end; *a = r(); test_ok(a == [[1]])
 | 
			
		||||
def r; return [*[1,2]]; end; *a = r(); test_ok(a == [[1,2]])
 | 
			
		||||
 | 
			
		||||
def r; return *nil; end; *a = r(); test_ok(a == [nil])
 | 
			
		||||
def r; return *1; end; *a = r(); test_ok(a == [1])
 | 
			
		||||
def r; return *[]; end; *a = r(); test_ok(a == [nil])
 | 
			
		||||
def r; return *[1]; end; *a = r(); test_ok(a == [1])
 | 
			
		||||
def r; return *[nil]; end; *a = r(); test_ok(a == [nil])
 | 
			
		||||
| 
						 | 
				
			
			@ -268,15 +241,8 @@ def r; return *[*[]]; end; *a = r(); test_ok(a == [nil])
 | 
			
		|||
def r; return *[*[1]]; end; *a = r(); test_ok(a == [1])
 | 
			
		||||
def r; return *[*[1,2]]; end; *a = r(); test_ok(a == [[1,2]])
 | 
			
		||||
 | 
			
		||||
def r; return *nil; end; *a = *r(); test_ok(a == [nil])
 | 
			
		||||
def r; return *1; end; *a = *r(); test_ok(a == [1])
 | 
			
		||||
def r; return *[]; end; *a = *r(); test_ok(a == [nil])
 | 
			
		||||
def r; return *[1]; end; *a = *r(); test_ok(a == [1])
 | 
			
		||||
def r; return *[nil]; end; *a = *r(); test_ok(a == [nil])
 | 
			
		||||
def r; return *[[]]; end; *a = *r(); test_ok(a == [])
 | 
			
		||||
def r; return *[1,2]; end; *a = *r(); test_ok(a == [1,2])
 | 
			
		||||
def r; return *[*[]]; end; *a = *r(); test_ok(a == [nil])
 | 
			
		||||
def r; return *[*[1]]; end; *a = *r(); test_ok(a == [1])
 | 
			
		||||
def r; return *[*[1,2]]; end; *a = *r(); test_ok(a == [1,2])
 | 
			
		||||
 | 
			
		||||
def r; return; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
| 
						 | 
				
			
			@ -291,8 +257,6 @@ def r; return [*[]]; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		|||
def r; return [*[1]]; end; a,b,*c = r(); test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
def r; return [*[1,2]]; end; a,b,*c = r(); test_ok([a,b,c] == [1,2,[]])
 | 
			
		||||
 | 
			
		||||
def r; return *nil; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
def r; return *1; end; a,b,*c = r(); test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
def r; return *[]; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
def r; return *[1]; end; a,b,*c = r(); test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
def r; return *[nil]; end; a,b,*c = r(); test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
| 
						 | 
				
			
			@ -352,8 +316,6 @@ a = loop do break [*[]]; end; test_ok(a == [])
 | 
			
		|||
a = loop do break [*[1]]; end; test_ok(a == [1])
 | 
			
		||||
a = loop do break [*[1,2]]; end; test_ok(a == [1,2])
 | 
			
		||||
 | 
			
		||||
a = loop do break *nil; end; test_ok(a == nil)
 | 
			
		||||
a = loop do break *1; end; test_ok(a == 1)
 | 
			
		||||
a = loop do break *[]; end; test_ok(a == nil)
 | 
			
		||||
a = loop do break *[1]; end; test_ok(a == 1)
 | 
			
		||||
a = loop do break *[nil]; end; test_ok(a == nil)
 | 
			
		||||
| 
						 | 
				
			
			@ -374,8 +336,6 @@ a = loop do break *[*[1,2]]; end; test_ok(a == [1,2])
 | 
			
		|||
*a = loop do break [*[1]]; end; test_ok(a == [[1]])
 | 
			
		||||
*a = loop do break [*[1,2]]; end; test_ok(a == [[1,2]])
 | 
			
		||||
 | 
			
		||||
*a = loop do break *nil; end; test_ok(a == [nil])
 | 
			
		||||
*a = loop do break *1; end; test_ok(a == [1])
 | 
			
		||||
*a = loop do break *[]; end; test_ok(a == [nil])
 | 
			
		||||
*a = loop do break *[1]; end; test_ok(a == [1])
 | 
			
		||||
*a = loop do break *[nil]; end; test_ok(a == [nil])
 | 
			
		||||
| 
						 | 
				
			
			@ -385,15 +345,8 @@ a = loop do break *[*[1,2]]; end; test_ok(a == [1,2])
 | 
			
		|||
*a = loop do break *[*[1]]; end; test_ok(a == [1])
 | 
			
		||||
*a = loop do break *[*[1,2]]; end; test_ok(a == [[1,2]])
 | 
			
		||||
 | 
			
		||||
*a = *loop do break *nil; end; test_ok(a == [nil])
 | 
			
		||||
*a = *loop do break *1; end; test_ok(a == [1])
 | 
			
		||||
*a = *loop do break *[]; end; test_ok(a == [nil])
 | 
			
		||||
*a = *loop do break *[1]; end; test_ok(a == [1])
 | 
			
		||||
*a = *loop do break *[nil]; end; test_ok(a == [nil])
 | 
			
		||||
*a = *loop do break *[[]]; end; test_ok(a == [])
 | 
			
		||||
*a = *loop do break *[1,2]; end; test_ok(a == [1,2])
 | 
			
		||||
*a = *loop do break *[*[]]; end; test_ok(a == [nil])
 | 
			
		||||
*a = *loop do break *[*[1]]; end; test_ok(a == [1])
 | 
			
		||||
*a = *loop do break *[*[1,2]]; end; test_ok(a == [1,2])
 | 
			
		||||
 | 
			
		||||
a,b,*c = loop do break; end; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
| 
						 | 
				
			
			@ -408,8 +361,6 @@ a,b,*c = loop do break [*[]]; end; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		|||
a,b,*c = loop do break [*[1]]; end; test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
a,b,*c = loop do break [*[1,2]]; end; test_ok([a,b,c] == [1,2,[]])
 | 
			
		||||
 | 
			
		||||
a,b,*c = loop do break *nil; end; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
a,b,*c = loop do break *1; end; test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
a,b,*c = loop do break *[]; end; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
a,b,*c = loop do break *[1]; end; test_ok([a,b,c] == [1,nil,[]])
 | 
			
		||||
a,b,*c = loop do break *[nil]; end; test_ok([a,b,c] == [nil,nil,[]])
 | 
			
		||||
| 
						 | 
				
			
			@ -431,8 +382,6 @@ r([]){next [*[]]}
 | 
			
		|||
r([1]){next [*[1]]}
 | 
			
		||||
r([1,2]){next [*[1,2]]}
 | 
			
		||||
 | 
			
		||||
r(nil){next *nil}
 | 
			
		||||
r(1){next *1}
 | 
			
		||||
r(nil){next *[]}
 | 
			
		||||
r(1){next *[1]}
 | 
			
		||||
r(nil){next *[nil]}
 | 
			
		||||
| 
						 | 
				
			
			@ -455,15 +404,8 @@ r([[1]]){next [*[1]]}
 | 
			
		|||
r([[1,2]]){next [*[1,2]]}
 | 
			
		||||
 | 
			
		||||
def r(val); *a = *yield(); test_ok(a == val, 2); end
 | 
			
		||||
r([nil]){next *nil}
 | 
			
		||||
r([1]){next *1}
 | 
			
		||||
r([nil]){next *[]}
 | 
			
		||||
r([1]){next *[1]}
 | 
			
		||||
r([nil]){next *[nil]}
 | 
			
		||||
r([]){next *[[]]}
 | 
			
		||||
r([1,2]){next *[1,2]}
 | 
			
		||||
r([nil]){next *[*[]]}
 | 
			
		||||
r([1]){next *[*[1]]}
 | 
			
		||||
r([1,2]){next *[*[1,2]]}
 | 
			
		||||
 | 
			
		||||
def r(val); a,b,*c = yield(); test_ok([a,b,c] == val, 2); end
 | 
			
		||||
| 
						 | 
				
			
			@ -480,15 +422,8 @@ r([1,nil,[]]){next [*[1]]}
 | 
			
		|||
r([1,2,[]]){next [*[1,2]]}
 | 
			
		||||
 | 
			
		||||
def r(val); a,b,*c = *yield(); test_ok([a,b,c] == val, 2); end
 | 
			
		||||
r([nil,nil,[]]){next *nil}
 | 
			
		||||
r([1,nil,[]]){next *1}
 | 
			
		||||
r([nil,nil,[]]){next *[]}
 | 
			
		||||
r([1,nil,[]]){next *[1]}
 | 
			
		||||
r([nil,nil,[]]){next *[nil]}
 | 
			
		||||
r([nil,nil,[]]){next *[[]]}
 | 
			
		||||
r([1,2,[]]){next *[1,2]}
 | 
			
		||||
r([nil,nil,[]]){next *[*[]]}
 | 
			
		||||
r([1,nil,[]]){next *[*[1]]}
 | 
			
		||||
r([1,2,[]]){next *[*[1,2]]}
 | 
			
		||||
 | 
			
		||||
test_check "condition"
 | 
			
		||||
| 
						 | 
				
			
			@ -1025,11 +960,11 @@ test_ok(IterTest.new(nil).method(:f).to_proc.call([m]) == [m])
 | 
			
		|||
IterTest.new([0]).each0 {|x| test_ok(x == 0)}
 | 
			
		||||
IterTest.new([1]).each1 {|x| test_ok(x == 1)}
 | 
			
		||||
IterTest.new([2]).each2 {|x| test_ok(x == [2])}
 | 
			
		||||
IterTest.new([3]).each3 {|x| test_ok(x == 3)}
 | 
			
		||||
#IterTest.new([3]).each3 {|x| test_ok(x == 3)}
 | 
			
		||||
IterTest.new([4]).each4 {|x| test_ok(x == 4)}
 | 
			
		||||
IterTest.new([5]).each5 {|x| test_ok(x == 5)}
 | 
			
		||||
IterTest.new([6]).each6 {|x| test_ok(x == [6])}
 | 
			
		||||
IterTest.new([7]).each7 {|x| test_ok(x == 7)}
 | 
			
		||||
#IterTest.new([7]).each7 {|x| test_ok(x == 7)}
 | 
			
		||||
IterTest.new([8]).each8 {|x| test_ok(x == 8)}
 | 
			
		||||
 | 
			
		||||
IterTest.new([[0]]).each0 {|x| test_ok(x == [0])}
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -86,14 +86,6 @@ if defined? DBM
 | 
			
		|||
      assert_equal(DBM.open("tmptest_dbm") { :foo }, :foo)
 | 
			
		||||
    end
 | 
			
		||||
 | 
			
		||||
    def test_s_open_error
 | 
			
		||||
      assert_instance_of(DBM, dbm = DBM.open("tmptest_dbm", 0))
 | 
			
		||||
      assert_raise(Errno::EACCES, "NEVER MIND IF YOU USE Berkeley DB3") {
 | 
			
		||||
        DBM.open("tmptest_dbm", 0)
 | 
			
		||||
      }
 | 
			
		||||
      dbm.close
 | 
			
		||||
    end
 | 
			
		||||
 | 
			
		||||
    def test_close
 | 
			
		||||
      assert_instance_of(DBM, dbm = DBM.open("tmptest_dbm"))
 | 
			
		||||
      assert_nil(dbm.close)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -23,14 +23,14 @@ module WEBrick_Testing
 | 
			
		|||
    }
 | 
			
		||||
 | 
			
		||||
    Timeout.timeout(5) {
 | 
			
		||||
      nil until @__started # wait until the server is ready
 | 
			
		||||
      Thread.pass until @__started # wait until the server is ready
 | 
			
		||||
    }
 | 
			
		||||
  end
 | 
			
		||||
 | 
			
		||||
  def stop_server
 | 
			
		||||
    Timeout.timeout(5) {
 | 
			
		||||
      @__server.shutdown
 | 
			
		||||
      nil while @__started # wait until the server is down
 | 
			
		||||
      Thread.pass while @__started # wait until the server is down
 | 
			
		||||
    }
 | 
			
		||||
    @__server = nil
 | 
			
		||||
  end
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue