diff options
-rw-r--r-- | bignum.c | 6 | ||||
-rw-r--r-- | lib/tk.rb | 3 | ||||
-rw-r--r-- | ruby.1 | 2 | ||||
-rw-r--r-- | time.c | 2 |
4 files changed, 8 insertions, 5 deletions
@@ -24,13 +24,13 @@ VALUE cBignum; #define BIGLO(x) ((x) & (BIGRAD-1)) static VALUE -bignew_1(class, len, sign) - VALUE class; +bignew_1(klass, len, sign) + VALUE klass; UINT len; char sign; { NEWOBJ(big, struct RBignum); - OBJSETUP(big, cBignum, T_BIGNUM); + OBJSETUP(big, klass, T_BIGNUM); big->sign = sign; big->len = len; BDIGITS(big) = ALLOC_N(USHORT, len); @@ -26,6 +26,9 @@ module TkComm private :error_at def tk_tcl2ruby(val) + if val.include? ? + return val.split.collect{|v| tk_tcl2ruby(v)} + end case val when /^-?\d+$/ val.to_i @@ -272,7 +272,7 @@ example: .ne 3 \& #! /usr/local/bin/ruby -s \& # prints "true" if invoked with `-xyz' switch. -\& print "true\n" if $xyz +\& print "true\en" if $xyz .fi .TP .B -S @@ -201,7 +201,7 @@ time_arg(argc, argv, args) } /* value validation */ - if ( args[0] < 70|| args[1] > 137 + if ( args[0] < 70|| args[0] > 137 || args[1] < 0 || args[1] > 11 || args[2] < 1 || args[2] > 31 || args[3] < 0 || args[3] > 23 |