diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | io.c | 11 |
2 files changed, 10 insertions, 5 deletions
@@ -1,3 +1,7 @@ +Thu Dec 26 10:42:00 2003 AKIYOSHI, Masamichi <masamichi.akiyoshi@hp.com> + + * io.c: [VMS] "rfm=stmlf" is specified for open() and fopen(). + Thu Dec 25 22:29:53 2003 NAKAMURA Usaku <usa@ruby-lang.org> * string.c (rb_str_update): don't return any value. @@ -12,11 +12,6 @@ **********************************************************************/ -#if defined(__VMS) -#define _XOPEN_SOURCE -#define _POSIX_C_SOURCE 2 -#endif - #include "ruby.h" #include "rubyio.h" #include "rubysig.h" @@ -24,6 +19,7 @@ #include <ctype.h> #include <errno.h> + #if defined(MSDOS) || defined(__BOW__) || defined(__CYGWIN__) || defined(_WIN32) || defined(__human68k__) || defined(__EMX__) || defined(__BEOS__) # define NO_SAFE_RENAME #endif @@ -116,6 +112,11 @@ static int gets_lineno; static int init_p = 0, next_p = 0; static VALUE lineno; +#if defined(__VMS) +#define fopen(file_spec, mode) fopen(file_spec, mode, "rfm=stmlf") +#define open(file_spec, flags, mode) open(file_spec, flags, mode, "rfm=stmlf") +#endif + #ifdef _STDIO_USES_IOSTREAM /* GNU libc */ # ifdef _IO_fpos_t # define READ_DATA_PENDING(fp) ((fp)->_IO_read_ptr != (fp)->_IO_read_end) |