mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
8e5c3b23f2
and delimiters. * dir.c (remove_backslases): remove backslashes from path before calling stat(2). * dir.c (dir_s_glob): call rb_yield directly (via push_pattern) if block is given to the method. * dir.c (push_pattern): do not call rb_ary_push; yield directly. * eval.c (blk_copy_prev): reduced ALLOC_N too much. * eval.c (frame_dup): ditto. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1183 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
53 lines
1.2 KiB
C
53 lines
1.2 KiB
C
/**********************************************************************
|
|
|
|
util.h -
|
|
|
|
$Author$
|
|
$Date$
|
|
created at: Thu Mar 9 11:55:53 JST 1995
|
|
|
|
Copyright (C) 1993-2001 Yukihiro Matsumoto
|
|
|
|
**********************************************************************/
|
|
|
|
#ifndef UTIL_H
|
|
#define UTIL_H
|
|
|
|
#ifndef _
|
|
#ifdef HAVE_PROTOTYPES
|
|
# define _(args) args
|
|
#else
|
|
# define _(args) ()
|
|
#endif
|
|
#ifdef HAVE_STDARG_PROTOTYPES
|
|
# define __(args) args
|
|
#else
|
|
# define __(args) ()
|
|
#endif
|
|
#endif
|
|
|
|
#define scan_oct ruby_scan_oct
|
|
unsigned long scan_oct _((const char*, int, int*));
|
|
#define scan_hex ruby_scan_hex
|
|
unsigned long scan_hex _((const char*, int, int*));
|
|
|
|
#if defined(MSDOS) || defined(__CYGWIN32__) || defined(NT)
|
|
void ruby_add_suffix();
|
|
#define add_suffix ruby_add_suffix
|
|
#endif
|
|
|
|
void ruby_qsort _((void*, int, int, int (*)()));
|
|
#define qsort(b,n,s,c) ruby_qsort(b,n,s,c)
|
|
|
|
void ruby_setenv _((const char*, const char*));
|
|
void ruby_unsetenv _((const char*));
|
|
#undef setenv
|
|
#undef unsetenv
|
|
#define setenv(name,val) ruby_setenv((name),(val))
|
|
#define unsetenv(name,val) ruby_unsetenv((name));
|
|
|
|
char *ruby_strdup _((const char*));
|
|
#undef strdup
|
|
#define strdup(s) ruby_strdup((s))
|
|
|
|
#endif /* UTIL_H */
|