* eval.c (rb_call_super): should call method_missing if super is
called from Kernel method. * eval.c (exec_under): frame during eval should preserve external information. * configure.in: use proper option for Sun linker. A patch from Shinya Kuwamura <kuwa@labs.fujitsu.com>. [ruby-dev:27603] * numeric.c (fix_rshift): RDoc fix. [ruby-core:6351] * util.h (strtod): add #undef for platforms defines strtod() macro. [ruby-dev:27563] * ext/etc/etc.c: document update from mathew <meta@pobox.com>. [ruby-core:06473] * ext/fcntl/fcntl.c: ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9490 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
cc1b72bc22
commit
9974cb96d3
27
ChangeLog
27
ChangeLog
@ -1,3 +1,11 @@
|
|||||||
|
Tue Nov 1 14:20:11 2005 Yukihiro Matsumoto <matz@ruby-lang.org>
|
||||||
|
|
||||||
|
* eval.c (rb_call_super): should call method_missing if super is
|
||||||
|
called from Kernel method.
|
||||||
|
|
||||||
|
* eval.c (exec_under): frame during eval should preserve external
|
||||||
|
information.
|
||||||
|
|
||||||
Tue Nov 01 10:48:49 2005 GOTOU Yuuzou <gotoyuzo@notwork.org>
|
Tue Nov 01 10:48:49 2005 GOTOU Yuuzou <gotoyuzo@notwork.org>
|
||||||
|
|
||||||
* ext/openssl/extconf.rb: should check ERR_peek_last_error().
|
* ext/openssl/extconf.rb: should check ERR_peek_last_error().
|
||||||
@ -5,6 +13,11 @@ Tue Nov 01 10:48:49 2005 GOTOU Yuuzou <gotoyuzo@notwork.org>
|
|||||||
|
|
||||||
* ext/openssl/ossl.c (ossl_raise): ditto.
|
* ext/openssl/ossl.c (ossl_raise): ditto.
|
||||||
|
|
||||||
|
Mon Oct 31 17:34:46 2005 Yukihiro Matsumoto <matz@ruby-lang.org>
|
||||||
|
|
||||||
|
* configure.in: use proper option for Sun linker. A patch from
|
||||||
|
Shinya Kuwamura <kuwa@labs.fujitsu.com>. [ruby-dev:27603]
|
||||||
|
|
||||||
Mon Oct 31 05:46:08 2005 GOTOU Yuuzou <gotoyuzo@notwork.org>
|
Mon Oct 31 05:46:08 2005 GOTOU Yuuzou <gotoyuzo@notwork.org>
|
||||||
|
|
||||||
* ext/openssl/ossl_cipher.c (ossl_cipher_update): input data must
|
* ext/openssl/ossl_cipher.c (ossl_cipher_update): input data must
|
||||||
@ -24,11 +37,25 @@ Mon Oct 31 05:38:26 2005 GOTOU Yuuzou <gotoyuzo@notwork.org>
|
|||||||
* test/webrick/test_cookie.rb, test/webrick/test_cgi.rb,
|
* test/webrick/test_cookie.rb, test/webrick/test_cgi.rb,
|
||||||
test/webrick/webrick.cgi: add some test for cookie.
|
test/webrick/webrick.cgi: add some test for cookie.
|
||||||
|
|
||||||
|
Mon Oct 31 02:33:25 2005 Yukihiro Matsumoto <matz@ruby-lang.org>
|
||||||
|
|
||||||
|
* numeric.c (fix_rshift): RDoc fix. [ruby-core:6351]
|
||||||
|
|
||||||
|
* util.h (strtod): add #undef for platforms defines strtod()
|
||||||
|
macro. [ruby-dev:27563]
|
||||||
|
|
||||||
Mon Oct 31 02:31:41 2005 Hirokazu Yamamoto <ocean@m2.ccsnet.ne.jp>
|
Mon Oct 31 02:31:41 2005 Hirokazu Yamamoto <ocean@m2.ccsnet.ne.jp>
|
||||||
|
|
||||||
* test/ruby/test_float.rb (test_precision): test by assert_in_delta.
|
* test/ruby/test_float.rb (test_precision): test by assert_in_delta.
|
||||||
[ruby-dev:27575]
|
[ruby-dev:27575]
|
||||||
|
|
||||||
|
Sat Oct 29 01:58:25 2005 Yukihiro Matsumoto <matz@ruby-lang.org>
|
||||||
|
|
||||||
|
* ext/etc/etc.c: document update from mathew <meta@pobox.com>.
|
||||||
|
[ruby-core:06473]
|
||||||
|
|
||||||
|
* ext/fcntl/fcntl.c: ditto.
|
||||||
|
|
||||||
Sat Oct 29 16:56:03 2005 Tadayoshi Funaba <tadf@dotrb.org>
|
Sat Oct 29 16:56:03 2005 Tadayoshi Funaba <tadf@dotrb.org>
|
||||||
|
|
||||||
* lib/date.rb: added seven predicates sunday? to saturday?.
|
* lib/date.rb: added seven predicates sunday? to saturday?.
|
||||||
|
@ -996,7 +996,11 @@ if test "$with_dln_a_out" != yes; then
|
|||||||
[enable_rpath=$enableval], [enable_rpath="$rb_cv_binary_elf"])
|
[enable_rpath=$enableval], [enable_rpath="$rb_cv_binary_elf"])
|
||||||
if test "$enable_rpath" = yes; then
|
if test "$enable_rpath" = yes; then
|
||||||
LIBPATHFLAG=" -L'%1\$-s'"
|
LIBPATHFLAG=" -L'%1\$-s'"
|
||||||
RPATHFLAG=" -Wl,-R'%1\$-s'"
|
if test "$GCC" = yes; then
|
||||||
|
RPATHFLAG=" -Wl,-R'%1\$-s'"
|
||||||
|
else
|
||||||
|
RPATHFLAG=" -R'%1\$-s'"
|
||||||
|
fi
|
||||||
fi
|
fi
|
||||||
fi
|
fi
|
||||||
if test "${LDSHAREDXX}" = ""; then
|
if test "${LDSHAREDXX}" = ""; then
|
||||||
|
14
eval.c
14
eval.c
@ -5914,6 +5914,9 @@ rb_call_super(int argc, const VALUE *argv)
|
|||||||
|
|
||||||
self = ruby_frame->self;
|
self = ruby_frame->self;
|
||||||
klass = ruby_frame->this_class;
|
klass = ruby_frame->this_class;
|
||||||
|
if (RCLASS(klass)->super == 0) {
|
||||||
|
return method_missing(self, ruby_frame->this_func, argc, argv, CSTAT_SUPER);
|
||||||
|
}
|
||||||
|
|
||||||
PUSH_ITER(ruby_iter->iter ? ITER_PRE : ITER_NOT);
|
PUSH_ITER(ruby_iter->iter ? ITER_PRE : ITER_NOT);
|
||||||
result = rb_call(RCLASS(klass)->super, self, ruby_frame->this_func, argc, argv, 3);
|
result = rb_call(RCLASS(klass)->super, self, ruby_frame->this_func, argc, argv, 3);
|
||||||
@ -6256,14 +6259,15 @@ exec_under(VALUE (*func) (VALUE), VALUE under, VALUE cbase, VALUE args)
|
|||||||
VALUE val = Qnil; /* OK */
|
VALUE val = Qnil; /* OK */
|
||||||
int state;
|
int state;
|
||||||
int mode;
|
int mode;
|
||||||
|
struct FRAME *f = ruby_frame->prev;
|
||||||
|
|
||||||
PUSH_CLASS(under);
|
PUSH_CLASS(under);
|
||||||
PUSH_FRAME();
|
PUSH_FRAME();
|
||||||
ruby_frame->self = _frame.prev->self;
|
ruby_frame->self = f->self;
|
||||||
ruby_frame->callee = _frame.prev->callee;
|
ruby_frame->callee = f->callee;
|
||||||
ruby_frame->this_func = _frame.prev->this_func;
|
ruby_frame->this_func = f->this_func;
|
||||||
ruby_frame->this_class = _frame.prev->this_class;
|
ruby_frame->this_class = f->this_class;
|
||||||
ruby_frame->argc = _frame.prev->argc;
|
ruby_frame->argc = f->argc;
|
||||||
if (cbase) {
|
if (cbase) {
|
||||||
PUSH_CREF(cbase);
|
PUSH_CREF(cbase);
|
||||||
}
|
}
|
||||||
|
135
ext/etc/etc.c
135
ext/etc/etc.c
@ -34,6 +34,11 @@ char *getenv();
|
|||||||
#endif
|
#endif
|
||||||
char *getlogin();
|
char *getlogin();
|
||||||
|
|
||||||
|
/* Returns the short user name of the currently logged in user.
|
||||||
|
*
|
||||||
|
* e.g.
|
||||||
|
* Etc.getlogin -> 'guest'
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_getlogin(obj)
|
etc_getlogin(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -104,6 +109,15 @@ setup_passwd(pwd)
|
|||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
/* Returns the /etc/passwd information for the user with specified integer
|
||||||
|
* user id (uid).
|
||||||
|
*
|
||||||
|
* The information is returned as a Struct::Passwd; see getpwent above for
|
||||||
|
* details.
|
||||||
|
*
|
||||||
|
* e.g. * Etc.getpwuid(0) -> #<struct Struct::Passwd name="root",
|
||||||
|
* passwd="x", uid=0, gid=0, gecos="root",dir="/root", shell="/bin/bash">
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_getpwuid(argc, argv, obj)
|
etc_getpwuid(argc, argv, obj)
|
||||||
int argc;
|
int argc;
|
||||||
@ -130,6 +144,14 @@ etc_getpwuid(argc, argv, obj)
|
|||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Returns the /etc/passwd information for the user with specified login name.
|
||||||
|
*
|
||||||
|
* The information is returned as a Struct::Passwd; see getpwent above for
|
||||||
|
* details.
|
||||||
|
*
|
||||||
|
* e.g. * Etc.getpwnam('root') -> #<struct Struct::Passwd name="root",
|
||||||
|
* passwd="x", uid=0, gid=0, gecos="root",dir="/root", shell="/bin/bash">
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_getpwnam(obj, nam)
|
etc_getpwnam(obj, nam)
|
||||||
VALUE obj, nam;
|
VALUE obj, nam;
|
||||||
@ -169,6 +191,21 @@ passwd_iterate()
|
|||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
/* Provides a convenient Ruby iterator which executes a block for each entry
|
||||||
|
* in the /etc/passwd file.
|
||||||
|
*
|
||||||
|
* The code block is passed an Etc::Passwd struct; see getpwent above for
|
||||||
|
* details.
|
||||||
|
*
|
||||||
|
* Example:
|
||||||
|
*
|
||||||
|
* require 'etc'
|
||||||
|
*
|
||||||
|
* Etc.passwd {|u|
|
||||||
|
* puts u.name + " = " + u.gecos
|
||||||
|
* }
|
||||||
|
*
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_passwd(obj)
|
etc_passwd(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -191,6 +228,9 @@ etc_passwd(obj)
|
|||||||
return Qnil;
|
return Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Resets the process of reading the /etc/passwd file, so that the next call
|
||||||
|
* to getpwent will return the first entry again.
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_setpwent(obj)
|
etc_setpwent(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -201,6 +241,9 @@ etc_setpwent(obj)
|
|||||||
return Qnil;
|
return Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Ends the process of scanning through the /etc/passwd file begun with
|
||||||
|
* getpwent, and closes the file.
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_endpwent(obj)
|
etc_endpwent(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -211,6 +254,32 @@ etc_endpwent(obj)
|
|||||||
return Qnil;
|
return Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Returns an entry from the /etc/passwd file. The first time it is called it
|
||||||
|
* opens the file and returns the first entry; each successive call returns
|
||||||
|
* the next entry, or nil if the end of the file has been reached.
|
||||||
|
*
|
||||||
|
* To close the file when processing is complete, call endpwent.
|
||||||
|
*
|
||||||
|
* Each entry is returned as a Struct::Passwd:
|
||||||
|
*
|
||||||
|
* - Passwd#name contains the short login name of the user as a String.
|
||||||
|
*
|
||||||
|
* - Passwd#passwd contains the encrypted password of the user as a String.
|
||||||
|
* an 'x' is returned if shadow passwords are in use. An '*' is returned
|
||||||
|
* if the user cannot log in using a password.
|
||||||
|
*
|
||||||
|
* - Passwd#uid contains the integer user ID (uid) of the user.
|
||||||
|
*
|
||||||
|
* - Passwd#gid contains the integer group ID (gid) of the user's primary group.
|
||||||
|
*
|
||||||
|
* - Passwd#gecos contains a longer String description of the user, such as
|
||||||
|
* a full name. Some Unix systems provide structured information in the
|
||||||
|
* gecos field, but this is system-dependent.
|
||||||
|
*
|
||||||
|
* - Passwd#dir contains the path to the home directory of the user as a String.
|
||||||
|
*
|
||||||
|
* - Passwd#shell contains the path to the login shell of the user as a String.
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_getpwent(obj)
|
etc_getpwent(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -249,6 +318,16 @@ setup_group(grp)
|
|||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
/* Returns information about the group with specified integer group id (gid),
|
||||||
|
* as found in /etc/group.
|
||||||
|
*
|
||||||
|
* The information is returned as a Struct::Group; see getgrent above for
|
||||||
|
* details.
|
||||||
|
*
|
||||||
|
* e.g. Etc.getgrgid(100) -> #<struct Struct::Group name="users", passwd="x",
|
||||||
|
* gid=100, mem=["meta", "root"]>
|
||||||
|
*
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_getgrgid(obj, id)
|
etc_getgrgid(obj, id)
|
||||||
VALUE obj, id;
|
VALUE obj, id;
|
||||||
@ -267,6 +346,16 @@ etc_getgrgid(obj, id)
|
|||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Returns information about the group with specified String name, as found
|
||||||
|
* in /etc/group.
|
||||||
|
*
|
||||||
|
* The information is returned as a Struct::Group; see getgrent above for
|
||||||
|
* details.
|
||||||
|
*
|
||||||
|
* e.g. Etc.getgrnam('users') -> #<struct Struct::Group name="users",
|
||||||
|
* passwd="x", gid=100, mem=["meta", "root"]>
|
||||||
|
*
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_getgrnam(obj, nam)
|
etc_getgrnam(obj, nam)
|
||||||
VALUE obj, nam;
|
VALUE obj, nam;
|
||||||
@ -307,6 +396,21 @@ group_iterate()
|
|||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
/* Provides a convenient Ruby iterator which executes a block for each entry
|
||||||
|
* in the /etc/group file.
|
||||||
|
*
|
||||||
|
* The code block is passed an Etc::Group struct; see getgrent above for
|
||||||
|
* details.
|
||||||
|
*
|
||||||
|
* Example:
|
||||||
|
*
|
||||||
|
* require 'etc'
|
||||||
|
*
|
||||||
|
* Etc.group {|g|
|
||||||
|
* puts g.name + ": " + g.mem.join(', ')
|
||||||
|
* }
|
||||||
|
*
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_group(obj)
|
etc_group(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -329,6 +433,9 @@ etc_group(obj)
|
|||||||
return Qnil;
|
return Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Resets the process of reading the /etc/group file, so that the next call
|
||||||
|
* to getgrent will return the first entry again.
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_setgrent(obj)
|
etc_setgrent(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -339,6 +446,9 @@ etc_setgrent(obj)
|
|||||||
return Qnil;
|
return Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Ends the process of scanning through the /etc/group file begun by
|
||||||
|
* getgrent, and closes the file.
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_endgrent(obj)
|
etc_endgrent(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -349,6 +459,26 @@ etc_endgrent(obj)
|
|||||||
return Qnil;
|
return Qnil;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Returns an entry from the /etc/group file. The first time it is called it
|
||||||
|
* opens the file and returns the first entry; each successive call returns
|
||||||
|
* the next entry, or nil if the end of the file has been reached.
|
||||||
|
*
|
||||||
|
* To close the file when processing is complete, call endgrent.
|
||||||
|
*
|
||||||
|
* Each entry is returned as a Struct::Group:
|
||||||
|
*
|
||||||
|
* - Group#name contains the name of the group as a String.
|
||||||
|
*
|
||||||
|
* - Group#passwd contains the encrypted password as a String. An 'x' is
|
||||||
|
* returned if password access to the group is not available; an empty
|
||||||
|
* string is returned if no password is needed to obtain membership of
|
||||||
|
* the group.
|
||||||
|
*
|
||||||
|
* - Group#gid contains the group's numeric ID as an integer.
|
||||||
|
*
|
||||||
|
* - Group#mem is an Array of Strings containing the short login names of the
|
||||||
|
* members of the group.
|
||||||
|
*/
|
||||||
static VALUE
|
static VALUE
|
||||||
etc_getgrent(obj)
|
etc_getgrent(obj)
|
||||||
VALUE obj;
|
VALUE obj;
|
||||||
@ -365,6 +495,11 @@ etc_getgrent(obj)
|
|||||||
|
|
||||||
static VALUE mEtc;
|
static VALUE mEtc;
|
||||||
|
|
||||||
|
/* The etc module provides access to information from the /etc/passwd and
|
||||||
|
* /etc/group files on Linux and Unix systems.
|
||||||
|
*
|
||||||
|
* Documented by mathew <meta@pobox.com>.
|
||||||
|
*/
|
||||||
void
|
void
|
||||||
Init_etc()
|
Init_etc()
|
||||||
{
|
{
|
||||||
|
@ -34,6 +34,81 @@ pack up your own arguments to pass as args for locking functions, etc.
|
|||||||
#include "ruby.h"
|
#include "ruby.h"
|
||||||
#include <fcntl.h>
|
#include <fcntl.h>
|
||||||
|
|
||||||
|
/* Fcntl loads the constants defined in the system's <fcntl.h> C header
|
||||||
|
* file, and used with both the fcntl(2) and open(2) POSIX system calls.
|
||||||
|
*
|
||||||
|
* Copyright (C) 1997-2001 Yukihiro Matsumoto
|
||||||
|
*
|
||||||
|
* Documented by mathew <meta@pobox.com>
|
||||||
|
*
|
||||||
|
* = Usage
|
||||||
|
*
|
||||||
|
* To perform a fcntl(2) operation, use IO::fcntl in the core classes.
|
||||||
|
*
|
||||||
|
* To perform an open(2) operation, use IO::sysopen.
|
||||||
|
*
|
||||||
|
* The set of operations and constants available depends upon specific OS
|
||||||
|
* platform. Some values listed below may not be supported on your system.
|
||||||
|
*
|
||||||
|
* The constants supported by Ruby for use with IO::fcntl are:
|
||||||
|
*
|
||||||
|
* - F_DUPFD - duplicate a close-on-exec file handle to a non-close-on-exec
|
||||||
|
* file handle.
|
||||||
|
*
|
||||||
|
* - F_GETFD - read the close-on-exec flag of a file handle.
|
||||||
|
*
|
||||||
|
* - F_SETFD - set the close-on-exec flag of a file handle.
|
||||||
|
*
|
||||||
|
* - FD_CLOEXEC - the value of the close-on-exec flag.
|
||||||
|
*
|
||||||
|
* - F_GETFL - get file descriptor flags.
|
||||||
|
*
|
||||||
|
* - F_SETFL - set file descriptor flags.
|
||||||
|
*
|
||||||
|
* - O_APPEND, O_NONBLOCK, etc (see below) - file descriptor flag
|
||||||
|
* values for the above.
|
||||||
|
*
|
||||||
|
* - F_GETLK - determine whether a given region of a file is locked.
|
||||||
|
*
|
||||||
|
* - F_SETLK - acquire a lock on a region of a file.
|
||||||
|
*
|
||||||
|
* - F_SETLKW - acquire a lock on a region of a file, waiting if necessary.
|
||||||
|
*
|
||||||
|
* - F_RDLCK, F_WRLCK, F_UNLCK - types of lock for the above.
|
||||||
|
*
|
||||||
|
* The constants supported by Ruby for use with IO::sysopen are:
|
||||||
|
*
|
||||||
|
* - O_APPEND - open file in append mode.
|
||||||
|
*
|
||||||
|
* - O_NOCTTY - open tty without it becoming controlling tty.
|
||||||
|
*
|
||||||
|
* - O_CREAT - create file if it doesn't exist.
|
||||||
|
*
|
||||||
|
* - O_EXCL - used with O_CREAT, fail if file exists.
|
||||||
|
*
|
||||||
|
* - O_TRUNC - truncate file on open.
|
||||||
|
*
|
||||||
|
* - O_NONBLOCK / O_NDELAY - open in non-blocking mode.
|
||||||
|
*
|
||||||
|
* - O_RDONLY - open read-only.
|
||||||
|
*
|
||||||
|
* - O_WRONLY - open write-only.
|
||||||
|
*
|
||||||
|
* - O_RDWR - open read-write.
|
||||||
|
*
|
||||||
|
* - O_ACCMODE - mask to extract read/write flags.
|
||||||
|
*
|
||||||
|
* Example:
|
||||||
|
*
|
||||||
|
* require 'fcntl'
|
||||||
|
*
|
||||||
|
* fd = IO::sysopen('/tmp/tempfile',
|
||||||
|
* Fcntl::O_WRONLY | Fcntl::O_EXCL | Fcntl::O_CREAT)
|
||||||
|
* f = IO.open(fd)
|
||||||
|
* f.syswrite("TEMP DATA")
|
||||||
|
* f.close
|
||||||
|
*
|
||||||
|
*/
|
||||||
void
|
void
|
||||||
Init_fcntl()
|
Init_fcntl()
|
||||||
{
|
{
|
||||||
|
@ -770,6 +770,7 @@ syck_parser_initialize(argc, argv, self)
|
|||||||
Check_Type(options, T_HASH);
|
Check_Type(options, T_HASH);
|
||||||
}
|
}
|
||||||
rb_ivar_set(self, s_options, options);
|
rb_ivar_set(self, s_options, options);
|
||||||
|
rb_ivar_set(self, s_input, Qnil);
|
||||||
return self;
|
return self;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -602,7 +602,7 @@ class Matrix
|
|||||||
|
|
||||||
for i in 0 .. size
|
for i in 0 .. size
|
||||||
next if i == k
|
next if i == k
|
||||||
q = a[i][k] / akk
|
q = a[i][k].quo(akk)
|
||||||
a[i][k] = 0
|
a[i][k] = 0
|
||||||
|
|
||||||
(k + 1).upto(size) do
|
(k + 1).upto(size) do
|
||||||
@ -617,11 +617,11 @@ class Matrix
|
|||||||
|
|
||||||
(k + 1).upto(size) do
|
(k + 1).upto(size) do
|
||||||
|j|
|
|j|
|
||||||
a[k][j] /= akk
|
a[k][j] = a[k][j].quo(akk)
|
||||||
end
|
end
|
||||||
0.upto(size) do
|
0.upto(size) do
|
||||||
|j|
|
|j|
|
||||||
@rows[k][j] /= akk
|
@rows[k][j] = @rows[k][j].quo(akk)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
self
|
self
|
||||||
@ -692,7 +692,7 @@ class Matrix
|
|||||||
end
|
end
|
||||||
(k + 1).upto(size) do
|
(k + 1).upto(size) do
|
||||||
|i|
|
|i|
|
||||||
q = a[i][k] / akk
|
q = a[i][k].quo(akk)
|
||||||
(k + 1).upto(size) do
|
(k + 1).upto(size) do
|
||||||
|j|
|
|j|
|
||||||
a[i][j] -= a[k][j] * q
|
a[i][j] -= a[k][j] * q
|
||||||
@ -758,7 +758,7 @@ class Matrix
|
|||||||
end
|
end
|
||||||
(k + 1).upto(a_row_size - 1) do
|
(k + 1).upto(a_row_size - 1) do
|
||||||
|i|
|
|i|
|
||||||
q = a[i][k] / akk
|
q = a[i][k].quo(akk)
|
||||||
(k + 1).upto(a_column_size - 1) do
|
(k + 1).upto(a_column_size - 1) do
|
||||||
|j|
|
|j|
|
||||||
a[i][j] -= a[k][j] * q
|
a[i][j] -= a[k][j] * q
|
||||||
@ -925,7 +925,7 @@ class Matrix
|
|||||||
self * _M.inverse
|
self * _M.inverse
|
||||||
else
|
else
|
||||||
x, y = other.coerce(self)
|
x, y = other.coerce(self)
|
||||||
x / y
|
x.quo(y)
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
# = PStore -- Transactional File Storage for Ruby Objects
|
# = PStore -- Transactional File Storage for Ruby Objects
|
||||||
#
|
#
|
||||||
# pstore.rb -
|
# pstore.rb -
|
||||||
# by unknown
|
# originally by matz
|
||||||
# documentation by Kev Jackson and James Edward Gray II
|
# documentation by Kev Jackson and James Edward Gray II
|
||||||
#
|
#
|
||||||
# See PStore for documentation.
|
# See PStore for documentation.
|
||||||
|
@ -436,6 +436,7 @@ class RubyLex
|
|||||||
def_exception(:SyntaxError, "%s")
|
def_exception(:SyntaxError, "%s")
|
||||||
|
|
||||||
include RubyToken
|
include RubyToken
|
||||||
|
include IRB
|
||||||
|
|
||||||
attr_reader :continue
|
attr_reader :continue
|
||||||
attr_reader :lex_state
|
attr_reader :lex_state
|
||||||
|
@ -2467,7 +2467,7 @@ fix_lshift(VALUE x, VALUE y)
|
|||||||
* call-seq:
|
* call-seq:
|
||||||
* fix >> count => integer
|
* fix >> count => integer
|
||||||
*
|
*
|
||||||
* Shifts _fix_ left _count_ positions (right if _count_ is negative).
|
* Shifts _fix_ right _count_ positions (left if _count_ is negative).
|
||||||
*/
|
*/
|
||||||
|
|
||||||
static VALUE
|
static VALUE
|
||||||
|
1
util.h
1
util.h
@ -60,6 +60,7 @@ char *ruby_getcwd(void);
|
|||||||
#define my_getcwd() ruby_getcwd()
|
#define my_getcwd() ruby_getcwd()
|
||||||
|
|
||||||
double ruby_strtod(const char*, char **);
|
double ruby_strtod(const char*, char **);
|
||||||
|
#undef strtod
|
||||||
#define strtod(s,e) ruby_strtod(s,e)
|
#define strtod(s,e) ruby_strtod(s,e)
|
||||||
|
|
||||||
#endif /* UTIL_H */
|
#endif /* UTIL_H */
|
||||||
|
Loading…
x
Reference in New Issue
Block a user