Some VMS fixes.

2 files changed, 8 insertions, 3 deletions

diff --git a/ChangeLog b/ChangeLog
index a9c262b5..9be4eaba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,8 @@
 2012-11-10         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* Update to bison 2.6.5. Various files regenerated.
+	* io.c (find_source): Add a default value for SHLIBEXT.
+	(read_with_timeout): For VMS also, just use read().
 
 2012-11-10         John Haque      <j.eh@mchsi.com>
 
diff --git a/io.c b/io.c
index d4f7535f..5f4365c6 100644
--- a/io.c
+++ b/io.c
@@ -2567,6 +2567,9 @@ find_source(const char *src, struct stat *stb, int *errcode, int is_extlib)
 		size_t src_len;
 		size_t suffix_len;
 
+#ifndef SHLIBEXT	/* for vms, for now */
+#define SHLIBEXT	"awk"
+#endif
 #define EXTLIB_SUFFIX	"." SHLIBEXT
 		src_len = strlen(src);
 		suffix_len = strlen(EXTLIB_SUFFIX);
@@ -3702,7 +3705,7 @@ get_read_timeout(IOBUF *iop)
 static ssize_t
 read_with_timeout(int fd, char *buf, size_t size)
 {
-#ifndef __MINGW32__
+#if ! defined(__MINGW32__) && ! defined(VMS)
 	fd_set readfds;
 	struct timeval tv;
 
@@ -3728,9 +3731,9 @@ read_with_timeout(int fd, char *buf, size_t size)
 	errno = EAGAIN;
 #endif
 	return -1;
-#else  /* __MINGW32__ */
+#else  /* __MINGW32__ || VMS */
 	return read(fd, buf, size);
-#endif	/* __MINGW32__ */
+#endif	/* __MINGW32__ || VMS */
 }
 
 /*