* ext/bigdecimal/lib/bigdecimal/newton.rb (Newton::nlsolve): typo

fixed: raize -> raise.  [ruby-talk:196608]

* string.c (rb_str_ord): new method.

* parse.y (rbracket): allow optional newline before closing
  brackets.


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

COPYING.ja

@@ -1,6 +1,6 @@
-$BK\%W%m%0%i%`$O%U%j!<%=%U%H%&%'%"$G$9!%(BGPL(the GNU General
-Public License)$B$^$?$O0J2<$K<($9>r7o$GK\%W%m%0%i%`$r:FG[I[$G(B
-$B$-$^$9!%(BGPL$B$K$D$$$F$O(BGPL$B%U%!%$%k$r;2>H$7$F2<$5$$!%(B
+$BK\%W%m%0%i%`$O%U%j!<%=%U%H%&%'%"$G$9!%(BGPL (the GNU General
+Public License)$B%P!<%8%g%s(B2$B$^$?$O0J2<$K<($9>r7o$GK\%W%m%0%i%`(B
+$B$r:FG[I[$G$-$^$9!%(BGPL$B$K$D$$$F$O(BGPL$B%U%!%$%k$r;2>H$7$F2<$5$$!%(B
 
   1. $BJ#@=$O@)8B$J$/<+M3$G$9!%(B
 

ChangeLog

@@ -1,3 +1,15 @@
+Sat Jun 10 18:02:40 2006  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* ext/bigdecimal/lib/bigdecimal/newton.rb (Newton::nlsolve): typo
+	  fixed: raize -> raise.  [ruby-talk:196608]
+
+Sat Jun 10 17:49:53 2006  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* string.c (rb_str_ord): new method.
+
+	* parse.y (rbracket): allow optional newline before closing
+	  brackets.
+
 Sat Jun 10 15:12:29 2006  NAKAMURA Usaku  <usa@ruby-lang.org>
 
 	* eval.c (rb_f_method_name, rb_f_callee_name): new functions.

ext/bigdecimal/lib/bigdecimal/newton.rb

@@ -60,7 +60,7 @@ module Newton
       begin
         fact *= p5
         if fact < minfact then
-          raize "Failed to reduce function values."
+          raise "Failed to reduce function values."
         end
         for i in 0...n do
           x[i] = xs[i] - dx[i]*fact

parse.y

@@ -620,7 +620,6 @@ program		:  {
 		    /*%
 			lex_state = EXPR_BEG;
 			class_nest = !parser->toplevel_p;
-			$$ = Qnil;
 		    %*/
 		    }
 		  compstmt
@@ -915,7 +914,7 @@ stmt		: kALIAS fitem {lex_state = EXPR_FNAME;} fitem
 			$$ = dispatch3(opassign, $1, $2, $3);
 		    %*/
 		    }
-		| primary_value '[' opt_call_args ']' tOP_ASGN command_call
+		| primary_value '[' opt_call_args rbracket tOP_ASGN command_call
 		    {
 		    /*%%%*/
 			NODE *args = $3;
@@ -1384,7 +1383,7 @@ mlhs_node	: variable
 			$$ = $1;
 		    %*/
 		    }
-		| primary_value '[' opt_call_args ']'
+		| primary_value '[' opt_call_args rbracket
 		    {
 		    /*%%%*/
 			$$ = aryset($1, $3);
@@ -1458,7 +1457,7 @@ lhs		: variable
 			$$ = dispatch1(var_field, $1);
 		    %*/
 		    }
-		| primary_value '[' opt_call_args ']'
+		| primary_value '[' opt_call_args rbracket
 		    {
 		    /*%%%*/
 			$$ = aryset($1, $3);
@@ -1704,7 +1703,7 @@ arg		: lhs '=' arg
 			$$ = dispatch3(opassign, $1, $2, $3);
 		    %*/
 		    }
-		| primary_value '[' opt_call_args ']' tOP_ASGN arg
+		| primary_value '[' opt_call_args rbracket tOP_ASGN arg
 		    {
 		    /*%%%*/
 			NODE *args;
@@ -3303,7 +3302,7 @@ method_call	: operation paren_args
 			$$ = method_optarg($$, $4);
 		    %*/
 		    }
-		| primary_value '[' opt_call_args ']'
+		| primary_value '[' opt_call_args rbracket
 		    {
 		    /*%%%*/
 			if ($1 && nd_type($1) == NODE_SELF)
@@ -4331,6 +4330,9 @@ opt_nl		: /* none */
 rparen		: opt_nl ')'
 		;
 
+rbracket	: opt_nl ']'
+		;
+
 trailer		: /* none */
 		| '\n'
 		| ','

string.c

@@ -4039,6 +4039,28 @@ rb_str_intern(VALUE s)
 }
 
 
+/*
+ *  call-seq:
+ *     str.ord   => integer
+ *  
+ *  Return the <code>Integer</code> ordinal of a one-character string.
+ *     
+ *     "a".ord         #=> 97
+ */
+
+VALUE
+rb_str_ord(VALUE s)
+{
+    int c;
+
+    if (RSTRING(s)->len != 1) {
+	rb_raise(rb_eTypeError,
+		 "expacted a characer, but string of size %d given",
+		 RSTRING(s)->len);
+    }
+    c = RSTRING(s)->ptr[0];
+    return INT2NUM(c);
+}
 /*
  *  call-seq:
  *     str.sum(n=16)   => integer
@@ -4309,6 +4331,7 @@ Init_String(void)
     rb_define_method(rb_cString, "crypt", rb_str_crypt, 1);
     rb_define_method(rb_cString, "intern", rb_str_intern, 0);
     rb_define_method(rb_cString, "to_sym", rb_str_intern, 0);
+    rb_define_method(rb_cString, "ord", rb_str_ord, 0);
 
     rb_define_method(rb_cString, "include?", rb_str_include, 1);