[VMS] "rfm=stmlf" is specified for open() and fopen().

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5299 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

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.

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)