1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@537 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
matz 1999-10-12 04:53:36 +00:00
parent 758cb647c7
commit be1fea072c
19 changed files with 188 additions and 99 deletions

View file

@ -1,3 +1,17 @@
Mon Oct 11 17:42:25 1999 Nobuyoshi Nakada <nobu.nakada@nifty.ne.jp>
* parse.y (rb_intern): should generate distinct ID_ATTRSET symbols
for the name with multiple `='s at the end.
* Makefile.in (CPPFLAGS): separate cpp flags from CFLAGS.
Mon Oct 11 07:27:05 1999 Yukihiro Matsumoto <matz@netlab.co.jp>
* eval.c (rb_eval): should not execute the `else' clause on the
case the exceptions are handled by the `rescue' clause.
* signal.c (Init_signal): ignore SIGPIPE by default.
Mon Oct 4 12:42:32 1999 Kazuhiko Izawa <izawa@erec.che.tohoku.ac.jp>
* pack.c (pack_unpack): % in printf format should be %%.

View file

@ -12,7 +12,8 @@ AUTOCONF = autoconf
@SET_MAKE@
prefix = @prefix@
CFLAGS = @CFLAGS@ -I. -I@srcdir@ -I@includedir@
CFLAGS = @CFLAGS@
CPPFLAGS = -I. -I@srcdir@ -I@includedir@
LDFLAGS = @STATIC@ $(CFLAGS) @LDFLAGS@
XLDFLAGS = @XLDFLAGS@
EXTLIBS =
@ -38,7 +39,7 @@ LIBRUBY_ALIASES= @LIBRUBY_ALIASES@
LIBRUBY = @LIBRUBY@
LIBRUBYARG = @LIBRUBYARG@
EXTOBJS = dmyext.@OBJEXT@
EXTOBJS =
MAINOBJ = main.@OBJEXT@
@ -83,20 +84,20 @@ OBJS = array.@OBJEXT@ \
all: miniruby$(EXEEXT) rbconfig.rb
@./miniruby$(EXEEXT) -Xext extmk.rb @EXTSTATIC@
miniruby$(EXEEXT): config.status $(LIBRUBY_A) $(MAINOBJ) $(EXTOBJS)
miniruby$(EXEEXT): config.status $(LIBRUBY_A) $(MAINOBJ) dmyext.@OBJEXT@
@rm -f $@
$(PURIFY) $(CC) $(LDFLAGS) $(MAINOBJ) $(EXTOBJS) $(LIBRUBY_A) $(LIBS) -o $@
$(PURIFY) $(CC) $(LDFLAGS) $(MAINOBJ) dmyext.@OBJEXT@ $(LIBRUBY_A) $(LIBS) -o $@
$(PROGRAM): $(LIBRUBY) $(MAINOBJ) $(EXTOBJS)
@rm -f $@
$(PURIFY) $(CC) $(LDFLAGS) $(XLDFLAGS) $(MAINOBJ) $(EXTOBJS) $(LIBRUBYARG) $(LIBS) -o $@
$(LIBRUBY_A): $(OBJS)
@AR@ rcu $@ $(OBJS)
$(LIBRUBY_A): $(OBJS) dmyext.@OBJEXT@
@AR@ rcu $@ $(OBJS) dmyext.@OBJEXT@
@-@RANLIB@ $@ 2> /dev/null || true
$(LIBRUBY_SO): $(OBJS)
$(LDSHARED) $(DLDFLAGS) $(SOLIBS) $(OBJS) -o $@
$(LIBRUBY_SO): $(OBJS) dmyext.@OBJEXT@
$(LDSHARED) $(DLDFLAGS) $(SOLIBS) $(OBJS) dmyext.@OBJEXT@ -o $@
@-./miniruby -e 'ARGV.each{|link| File.delete link if File.exist? link; \
File.symlink "$(LIBRUBY_SO)", link}' \
$(LIBRUBY_ALIASES) || true

View file

@ -874,6 +874,10 @@ Returns the name corresponding ID.
Returns the name of the class.
int rb_respond_to(VALUE object, ID id)
Returns true if the object reponds to the message specified by id.
** Instance Variables
VALUE rb_iv_get(VALUE obj, char *name)

View file

@ -1013,7 +1013,7 @@ VALUE rb_funcall2(VALUE recv, ID mid, int argc, VALUE *argv)
VALUE rb_eval_string(char *str)
文字列をRubyスクリプトしてコンパイル・実行する.
文字列をRubyスクリプトしてコンパイル・実行する.
ID rb_intern(char *name)
@ -1028,6 +1028,10 @@ char *rb_class2name(VALUE class)
classの名前を返す(デバッグ用)classが名前を持たない時には,
祖先を遡って名前を持つクラスの名前を返す.
int rb_respond_to(VALUE obj, ID id)
objがidで示されるメソッドを持つかどうかを返す。
** インスタンス変数
VALUE rb_iv_get(VALUE obj, char *name)

3
ToDo
View file

@ -15,6 +15,7 @@ Language Spec.
Hacking Interpreter
* hash[key] = nil may not remove entry; hashes may have nil as the value.
* RUBYOPT environment variable
* non-blocking open (e.g. named pipe) for thread
* avoid blocking with gethostbyname/gethostbyaddr
@ -26,6 +27,7 @@ Hacking Interpreter
Standard Libraries
* Array#{first,last,at}
* Struct::new([name,]member,...) ??
* String#scanf(?)
* Object#fmt(?)
@ -44,7 +46,6 @@ Extension Libraries
Ruby Libraries
* net/pop.rb net/smtp.rb
* httplib.rb, urllib.rb, nttplib.rb, etc.
* format like perl's

View file

@ -14,7 +14,7 @@
/* define RUBY_USE_EUC/SJIS for default kanji-code */
#ifndef DEFAULT_KCODE
#if defined(MSDOS) || defined(__CYGWIN32__) || defined(__human68k__) || defined(__MACOS__) || defined(__EMX__) || defined(OS2)
#if defined(MSDOS) || defined(__CYGWIN32__) || defined(__human68k__) || defined(__MACOS__) || defined(__EMX__) || defined(OS2) || defined(NT)
#define DEFAULT_KCODE KCODE_SJIS
#else
#define DEFAULT_KCODE KCODE_EUC

View file

@ -330,7 +330,7 @@ exc_inspect(exc)
str = rb_str_new2("#<");
klass = rb_class_path(klass);
rb_str_concat(str, klass);
rb_str_cat(str, ":", 1);
rb_str_cat(str, ": ", 2);
rb_str_concat(str, exc);
rb_str_cat(str, ">", 1);

8
eval.c
View file

@ -2084,10 +2084,12 @@ rb_eval(self, node)
resq = resq->nd_head; /* next rescue */
}
}
if (state) JUMP_TAG(state);
if (node->nd_else) { /* no exception raised, else clause given */
result = rb_eval(self, node->nd_else);
else if (node->nd_else) { /* else clause given */
if (!state) { /* no exception raised */
result = rb_eval(self, node->nd_else);
}
}
if (state) JUMP_TAG(state);
}
break;

View file

@ -149,6 +149,8 @@ EOF
end
have_header("sys/sysctl.h")
have_header("netinet/tcp.h")
have_header("netinet/udp.h")
$getaddr_info_ok = false
if try_run(<<EOF)

View file

@ -16,6 +16,12 @@
#ifndef NT
#include <sys/socket.h>
#include <netinet/in.h>
#ifdef NETINET_TCP
# include <netinet/tcp.h>
#endif
#ifdef NETINET_UDP
# include <netinet/udp.h>
#endif
#include <netdb.h>
#endif
#include <errno.h>

16
file.c
View file

@ -1521,20 +1521,20 @@ rb_f_test(argc, argv)
case '-':
if (st1.st_dev == st2.st_dev && st1.st_ino == st2.st_ino)
return Qtrue;
break;
return Qfalse;
case '=':
if (st1.st_mtime == st2.st_mtime) return Qtrue;
break;
return Qfalse;
case '>':
if (st1.st_mtime > st2.st_mtime) return Qtrue;
break;
return Qfalse;
case '<':
if (st1.st_mtime < st2.st_mtime) return Qtrue;
break;
}
return Qfalse;
}
}
/* unknown command */
rb_raise(rb_eArgError, "unknown command ?%c", cmd);

1
gc.c
View file

@ -10,7 +10,6 @@
************************************************/
#define RUBY_NO_INLINE
#include "ruby.h"
#include "rubysig.h"
#include "st.h"

1
hash.c
View file

@ -264,6 +264,7 @@ rb_hash_s_create(argc, argv, klass)
hash = rb_hash_new2(klass);
for (i=0; i<argc; i+=2) {
if (NIL_P(argv[i+1])) continue;
st_insert(RHASH(hash)->tbl, argv[i], argv[i+1]);
}

View file

@ -117,6 +117,17 @@ class CGI < SimpleDelegator
LF = "\012"
EOL = CR + LF
RFC822_DAYS = %w[ Sun Mon Tue Wed Thu Fri Sat ]
RFC822_MONTHS = %w[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ]
# make rfc1123 date string
def rfc1123_date(time)
t = time.clone.gmtime
return format("%s, %.2d %s %d %.2d:%.2d:%.2d GMT",
RFC822_DAYS[t.wday], t.day, RFC822_MONTHS[t.month-1], t.year,
t.hour, t.min, t.sec)
end
# escape url encode
def escape(str)
str.gsub(/[^a-zA-Z0-9_\-.]/n){ sprintf("%%%02X", $&.unpack("C")[0]) }
@ -132,7 +143,7 @@ class CGI < SimpleDelegator
str.gsub(/&/, "&amp;").gsub(/\"/, "&quot;").gsub(/>/, "&gt;").gsub(/</, "&lt;")
end
module_function :escape, :unescape, :escapeHTML
module_function :escape, :unescape, :escapeHTML, :rfc1123_date
# offline mode. read name=value pairs on standard input.
def read_from_cmdline
@ -160,7 +171,7 @@ class CGI < SimpleDelegator
input.read(Integer(ENV['CONTENT_LENGTH'])) or ""
else
read_from_cmdline
end.split(/&/).each do |x|
end.split(/[&;]/).each do |x|
key, val = x.split(/=/,2).collect{|x|unescape(x)}
if @inputs.include?(key)
@inputs[key] += "\0" + (val or "")
@ -201,7 +212,7 @@ class CGI < SimpleDelegator
"Set-Cookie: " + options['name'] + '=' + escape(options['value']) +
(options['domain'] ? '; domain=' + options['domain'] : '') +
(options['path'] ? '; path=' + options['path'] : '') +
(options['expires'] ? '; expires=' + options['expires'].strftime("%a, %d %b %Y %X %Z") : '') +
(options['expires'] ? '; expires=' + rfc1123_date(options['expires']) : '') +
(options['secure'] ? '; secure' : '')
end
@ -218,7 +229,7 @@ class CGI < SimpleDelegator
else
if options.delete("nph") or (ENV['SERVER_SOFTWARE'] =~ /IIS/)
[(ENV['SERVER_PROTOCOL'] or "HTTP/1.0") + " 200 OK",
"Date: " + Time.now.gmtime.strftime("%a, %d %b %Y %X %Z"),
"Date: " + rfc1123_date(Time.now),
"Server: " + (ENV['SERVER_SOFTWARE'] or ""),
"Connection: close"] +
(options.empty? ? ["Content-Type: text/html"] : options)

View file

@ -1,8 +1,9 @@
#!/usr/local/bin/ruby
#
# matrix.rb -
# $Release Version: 1.0$
# $Revision: 1.9 $
# $Date: 1999/08/24 10:25:00 $
# $Revision: 1.11 $
# $Date: 1999/10/06 11:01:53 $
# Original Version from Smalltalk-80 version
# on July 23, 1985 at 8:37:17 am
# by Keiju ISHITSUKA
@ -38,7 +39,7 @@
# creates a matrix where `rows' indicates rows.
# `rows' is an array of arrays,
# e.g, Matrix[[11, 12], [21, 22]]
# Matrix.rows(rows, copy = true)
# Matrix.rows(rows, copy = TRUE)
# creates a matrix where `rows' indicates rows.
# if optional argument `copy' is false, use the array as
# internal structure of the metrix without copying.
@ -144,7 +145,7 @@
#
# INSTANCE CREATION:
# Vector.[](*array)
# Vector.elements(array, copy = true)
# Vector.elements(array, copy = TRUE)
# ACCSESSING:
# [](i)
# size
@ -185,7 +186,7 @@ module ExceptionForMatrix
end
class Matrix
@RCS_ID='-$Id: matrix.rb,v 1.8 1999/02/17 12:34:19 keiju Exp keiju $-'
@RCS_ID='-$Id: matrix.rb,v 1.11 1999/10/06 11:01:53 keiju Exp keiju $-'
# extend Exception2MessageMapper
include ExceptionForMatrix
@ -194,10 +195,10 @@ class Matrix
private_class_method :new
def Matrix.[](*rows)
new(:init_rows, rows, false)
new(:init_rows, rows, FALSE)
end
def Matrix.rows(rows, copy = true)
def Matrix.rows(rows, copy = TRUE)
new(:init_rows, rows, copy)
end
@ -209,7 +210,7 @@ class Matrix
columns[j][i]
}
}
Matrix.rows(rows, false)
Matrix.rows(rows, FALSE)
end
def Matrix.diagonal(*values)
@ -220,7 +221,8 @@ class Matrix
row[j] = values[j]
row
}
rows(rows, false)
self
rows(rows, FALSE)
end
def Matrix.scalar(n, value)
@ -242,11 +244,11 @@ class Matrix
def Matrix.row_vector(row)
case row
when Vector
Matrix.rows([row.to_a], false)
Matrix.rows([row.to_a], FALSE)
when Array
Matrix.rows([row.dup], false)
Matrix.rows([row.dup], FALSE)
else
Matrix.row([[row]], false)
Matrix.row([[row]], FALSE)
end
end
@ -311,13 +313,13 @@ class Matrix
|i|
@rows[i][j]
}
Vector.elements(col, false)
Vector.elements(col, FALSE)
end
end
def collect
rows = @rows.collect{|row| row.collect{|e| yield e}}
Matrix.rows(rows, false)
Matrix.rows(rows, FALSE)
end
alias map collect
@ -345,7 +347,7 @@ class Matrix
|row|
row[from_col, size_col]
}
Matrix.rows(rows, false)
Matrix.rows(rows, FALSE)
end
# TESTING
@ -363,20 +365,20 @@ class Matrix
# COMPARING
def ==(other)
return false unless Matrix === other
return FALSE unless Matrix === other
other.compare_by_row_vectors(@rows)
end
alias eql? ==
def compare_by_row_vectors(rows)
return false unless @rows.size == rows.size
return FALSE unless @rows.size == rows.size
0.upto(@rows.size - 1) do
|i|
return false unless @rows[i] == rows[i]
return FALSE unless @rows[i] == rows[i]
end
true
TRUE
end
def clone
@ -405,7 +407,7 @@ class Matrix
e * m
}
}
return Matrix.rows(rows, false)
return Matrix.rows(rows, FALSE)
when Vector
m = Matrix.column_vector(m)
r = self * m
@ -425,7 +427,7 @@ class Matrix
vij
}
}
return Matrix.rows(rows, false)
return Matrix.rows(rows, FALSE)
else
x, y = m.coerce(self)
return x * y
@ -453,7 +455,7 @@ class Matrix
self[i, j] + m[i, j]
}
}
Matrix.rows(rows, false)
Matrix.rows(rows, FALSE)
end
def -(m)
@ -477,7 +479,7 @@ class Matrix
self[i, j] - m[i, j]
}
}
Matrix.rows(rows, false)
Matrix.rows(rows, FALSE)
end
def /(other)
@ -490,7 +492,7 @@ class Matrix
e / other
}
}
return Matrix.rows(rows, false)
return Matrix.rows(rows, FALSE)
when Matrix
return self * other.inverse
else
@ -619,17 +621,36 @@ class Matrix
k = 0
begin
if (akk = a[k][k]) == 0
i = -1
nothing = false
i = k
exists = true
begin
if (i += 1) > column_size - 1
nothing = true
exists = false
break
end
end while a[i][k] == 0
next if nothing
a[i], a[k] = a[k], a[i]
akk = a[k][k]
if exists
a[i], a[k] = a[k], a[i]
akk = a[k][k]
else
i = k
exists = true
begin
if (i += 1) > row_size - 1
exists = false
break
end
end while a[k][i] == 0
if exists
k.upto(column_size - 1) do
|j|
a[j][k], a[j][i] = a[j][i], a[j][k]
end
akk = a[k][k]
else
next
end
end
end
(k + 1).upto(row_size - 1) do
|i|
@ -806,10 +827,10 @@ class Vector
private_class_method :new
def Vector.[](*array)
new(:init_elements, array, copy = false)
new(:init_elements, array, copy = FALSE)
end
def Vector.elements(array, copy = true)
def Vector.elements(array, copy = TRUE)
new(:init_elements, array, copy)
end
@ -854,7 +875,7 @@ class Vector
# COMPARING
def ==(other)
return false unless Vector === other
return FALSE unless Vector === other
other.compare_by(@elements)
end
@ -874,11 +895,11 @@ class Vector
# ARITHMETIC
def *(x) # is matrix or number
def *(x) "is matrix or number"
case x
when Numeric
els = @elements.collect{|e| e * x}
Vector.elements(els, false)
Vector.elements(els, FALSE)
when Matrix
self.covector * x
else
@ -895,7 +916,7 @@ class Vector
|v1, v2|
v1 + v2
}
Vector.elements(els, false)
Vector.elements(els, FALSE)
when Matrix
Matrix.column_vector(self) + v
else
@ -912,7 +933,7 @@ class Vector
|v1, v2|
v1 - v2
}
Vector.elements(els, false)
Vector.elements(els, FALSE)
when Matrix
Matrix.column_vector(self) - v
else
@ -939,7 +960,7 @@ class Vector
|v|
yield v
}
Vector.elements(els, false)
Vector.elements(els, FALSE)
end
alias map collect
@ -948,7 +969,7 @@ class Vector
|v1, v2|
yield v1, v2
}
Vector.elements(els, false)
Vector.elements(els, FALSE)
end
def r
@ -999,4 +1020,3 @@ class Vector
str = "Vector"+@elements.inspect
end
end

View file

@ -1,11 +1,11 @@
=begin
$Date: 1999/09/21 21:24:07 $
$Date: 1999/10/04 22:51:26 $
== SIMPLE TELNET CLIANT LIBRARY
telnet.rb
Version 0.50
Version 1.00
Wakou Aoyama <wakou@fsinet.or.jp>
@ -155,6 +155,15 @@ of cource, set sync=true or flush is necessary.
== HISTORY
=== Version 1.00
1999/10/04 22:51:26
- bug fix: waitfor(preprocess) method
thanks to Shin-ichiro Hara <sinara@blade.nagaokaut.ac.jp>
- add simple support for AO, DM, IP, NOP, SB, SE
- COUTION! TimeOut --> TimeoutError
=== Version 0.50
1999/09/21 21:24:07
@ -331,7 +340,6 @@ require "socket"
require "delegate"
require "thread"
require "timeout"
TimeOut = TimeoutError
class Telnet < SimpleDelegator
@ -405,8 +413,8 @@ class Telnet < SimpleDelegator
EOL = CR + LF
v = $-v
$-v = false
VERSION = "0.50"
RELEASE_DATE = "$Date: 1999/09/21 21:24:07 $"
VERSION = "1.00"
RELEASE_DATE = "$Date: 1999/10/04 22:51:26 $"
$-v = v
def initialize(options)
@ -456,7 +464,7 @@ $-v = v
}
end
rescue TimeoutError
raise TimeOut, "timed-out; opening of the host"
raise TimeoutError, "timed-out; opening of the host"
rescue
@log.write($!.to_s + "\n") if @options.key?("Output_log")
@dumplog.write($!.to_s + "\n") if @options.key?("Dump_log")
@ -502,10 +510,10 @@ $-v = v
str.gsub!(/#{EOL}/no, "\n") unless @options["Binmode"]
str.gsub!(/#{IAC}(
#{IAC}|
#{AYT}|
[#{IAC}#{AO}#{AYT}#{DM}#{IP}#{NOP}]|
[#{DO}#{DONT}#{WILL}#{WONT}]
[#{OPT_BINARY}-#{OPT_NEW_ENVIRON}#{OPT_EXOPL}]
[#{OPT_BINARY}-#{OPT_NEW_ENVIRON}#{OPT_EXOPL}]|
#{SB}[^#{IAC}]*#{IAC}#{SE}
)/xno){
if IAC == $1 # handle escaped IAC characters
IAC
@ -539,6 +547,8 @@ $-v = v
self.write(IAC + DONT + OPT_SGA)
end
''
else
''
end
}
@ -551,7 +561,7 @@ $-v = v
if options.kind_of?(Hash)
prompt = if options.key?("Match")
options["Match"]
options["Match"]
elsif options.key?("Prompt")
options["Prompt"]
elsif options.key?("String")
@ -569,24 +579,30 @@ $-v = v
line = ''
buf = ''
rest = ''
until(prompt === line and not IO::select([@sock], nil, nil, waittime))
unless IO::select([@sock], nil, nil, time_out)
raise TimeOut, "timed-out; wait for the next data"
raise TimeoutError, "timed-out; wait for the next data"
end
begin
c = @sock.sysread(1024 * 1024)
@dumplog.print(c) if @options.key?("Dump_log")
buf.concat c
if @options["Telnetmode"]
buf = preprocess(buf)
if /#{IAC}.?\z/no === buf
next
end
end
if Integer(c.rindex(/#{IAC}#{SE}/no)) <
Integer(c.rindex(/#{IAC}#{SB}/no))
buf = preprocess(rest + c[0 ... c.rindex(/#{IAC}#{SB}/no)])
rest = c[c.rindex(/#{IAC}#{SB}/no) .. -1]
elsif pt = c.rindex(/#{IAC}[^#{IAC}#{AO}#{AYT}#{DM}#{IP}#{NOP}]?\z/no)
buf = preprocess(rest + c[0 ... pt])
rest = c[pt .. -1]
else
buf = preprocess(c)
rest = ''
end
end
@log.print(buf) if @options.key?("Output_log")
yield buf if iterator?
line.concat(buf)
buf = ''
yield buf if iterator?
rescue EOFError # End of file reached
if line == ''
line = nil

View file

@ -4420,11 +4420,11 @@ rb_intern(name)
strncpy(buf, name, last);
buf[last] = '\0';
id = rb_intern(buf);
if (id > LAST_TOKEN) {
if (id > LAST_TOKEN && !is_attrset_id(id)) {
id = rb_id_attrset(id);
goto id_regist;
}
id |= ID_ATTRSET;
id = ID_ATTRSET;
}
else if (ISUPPER(name[0])) {
id = ID_CONST;

View file

@ -1,3 +1,5 @@
#! /usr/bin/ruby -Ke
class Board
def clr
print "\e[2J"

View file

@ -294,6 +294,13 @@ posix_signal(signum, handler)
sigact.sa_handler = handler;
sigemptyset(&sigact.sa_mask);
sigact.sa_flags = 0;
#ifdef SA_RESTART
sigact.sa_flags |= SA_RESTART; /* SVR4, 4.3+BSD */
#endif
#ifdef SA_NOCLDWAIT
if (signum == SIGCHLD && handler == (RETSIGTYPE)SIG_IGN)
sigact.sa_flags |= SA_NOCLDWAIT;
#endif
sigaction(signum, &sigact, 0);
}
#define ruby_signal(sig,handle) posix_signal((sig),(handle))
@ -313,9 +320,6 @@ signal_exec(sig)
#ifndef NT
case SIGHUP:
#endif
#ifdef SIGPIPE
case SIGPIPE:
#endif
#ifdef SIGQUIT
case SIGQUIT:
#endif
@ -345,7 +349,7 @@ sighandle(sig)
rb_bug("trap_handler: Bad signal %d", sig);
}
#if !defined(POSIX_SIGNAL) && !defined(BSD_SIGNAL)
#if !defined(BSD_SIGNAL)
ruby_signal(sig, sighandle);
#endif
@ -508,9 +512,6 @@ trap(arg)
#endif
#ifdef SIGUSR2
case SIGUSR2:
#endif
#ifdef SIGPIPE
case SIGPIPE:
#endif
func = sighandle;
break;
@ -523,6 +524,11 @@ trap(arg)
case SIGSEGV:
func = sigsegv;
break;
#endif
#ifdef SIGPIPE
case SIGPIPE:
func = SIG_IGN;
break;
#endif
}
}
@ -614,9 +620,6 @@ Init_signal()
#ifndef NT
ruby_signal(SIGHUP, sighandle);
#endif
#ifdef SIGPIPE
ruby_signal(SIGPIPE, sighandle);
#endif
#ifdef SIGQUIT
ruby_signal(SIGQUIT, sighandle);
#endif
@ -636,5 +639,8 @@ Init_signal()
#ifdef SIGSEGV
ruby_signal(SIGSEGV, sigsegv);
#endif
#ifdef SIGPIPE
ruby_signal(SIGPIPE, SIG_IGN);
#endif
#endif /* MACOS_UNUSE_SIGNAL */
}