diff options
author | akiyoshi <akiyoshi@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-08-19 02:09:51 +0000 |
---|---|---|
committer | akiyoshi <akiyoshi@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-08-19 02:09:51 +0000 |
commit | a23bc676658106e96a00bd294e64ce53249b1392 (patch) | |
tree | 0c3749224d162e2e3fa0c95efed18e04ab1f92c8 /io.c | |
parent | c2d20d7f8cf99d58678c007731c51a3ffa7324fa (diff) |
Update for VMS ports.
* dln.c (dln_load): Modify to call lib$find_image_symbol for VMS.
* io.c (rb_io_fwrite): Use fputc() for VMS non-stream file.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6793 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'io.c')
-rw-r--r-- | io.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -135,7 +135,9 @@ static VALUE lineno = INT2FIX(0); #elif defined(__BEOS__) # define READ_DATA_PENDING(fp) (fp->_state._eof == 0) #elif defined(__VMS) -# define READ_DATA_PENDING(fp) (((unsigned int)((*(fp))->_flag) & _IOEOF) == 0) +# define READ_DATA_PENDING_COUNT(fp) ((unsigned int)(*(fp))->_cnt) +# define READ_DATA_PENDING(fp) (((unsigned int)(*(fp))->_cnt) > 0) +# define READ_DATA_BUFFERED(fp) 0 #else /* requires systems own version of the ReadDataPending() */ extern int ReadDataPending(); @@ -385,7 +387,7 @@ rb_io_fwrite(ptr, len, f) long n, r; if ((n = len) <= 0) return n; -#ifdef __human68k__ +#if defined(__human68k__) || defined(__vms) do { if (fputc(*ptr++, f) == EOF) { if (ferror(f)) return -1L; |