From 038423c9041f47784cd6bf4bd571e081374f1e89 Mon Sep 17 00:00:00 2001
From: akiyoshi <akiyoshi@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 26 Dec 2003 01:47:12 +0000
Subject: [VMS] "rfm=stmlf" is specified for open() and fopen().

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@5299 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog |  4 ++++
 io.c      | 11 ++++++-----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 31e06525b..403fbc743 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.
diff --git a/io.c b/io.c
index 8f9c9d59b..ae47c7386 100644
--- a/io.c
+++ b/io.c
@@ -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)
-- 
cgit