perl 5.002_01: vms/vmsish.h

Add EMBED prefixes for VMS-specific routines, incorporate
single-statement macros, #define stubs for macros used by OS/2.

1 files changed, 56 insertions, 3 deletions

diff --git a/vms/vmsish.h b/vms/vmsish.h
index 000ba29c2a..0685985d56 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -60,6 +60,57 @@
 #include <unixio.h>
 #include <unixlib.h>
 #include <file.h>  /* it's not <sys/file.h>, so don't use I_SYS_FILE */
+
+/* Our own contribution to PerlShr's global symbols . . . */
+#ifdef EMBED
+#  define my_trnlnm		Perl_my_trnlnm
+#  define my_getenv		Perl_my_getenv
+#  define my_crypt		Perl_my_crypt
+#  define waitpid		Perl_waitpid
+#  define my_gconvert		Perl_my_gconvert
+#  define do_rmdir		Perl_do_rmdir
+#  define kill_file		Perl_kill_file
+#  define my_utime		Perl_my_utime
+#  define fileify_dirspec	Perl_fileify_dirspec
+#  define fileify_dirspec_ts	Perl_fileify_dirspec_ts
+#  define pathify_dirspec	Perl_pathify_dirspec
+#  define pathify_dirspec_ts	Perl_pathify_dirspec_ts
+#  define tounixspec		Perl_tounixspec
+#  define tounixspec_ts		Perl_tounixspec_ts
+#  define tovmsspec		Perl_tovmsspec
+#  define tovmsspec_ts		Perl_tovmsspec_ts
+#  define tounixpath		Perl_tounixpath
+#  define tounixpath_ts		Perl_tounixpath_ts
+#  define tovmspath		Perl_tovmspath
+#  define tovmspath_ts		Perl_tovmspath_ts
+#  define getredirection	Perl_getredirection
+#  define opendir		Perl_opendir
+#  define readdir		Perl_readdir
+#  define telldir		Perl_telldir
+#  define seekdir		Perl_seekdir
+#  define closedir		Perl_closedir
+#  define vmsreaddirversions	Perl_vmsreaddirversions
+#  define getredirection	Perl_getredirection
+#  define my_gmtime		Perl_my_gmtime
+#  define cando_by_name		Perl_cando_by_name
+#  define flex_fstat		Perl_flex_fstat
+#  define flex_stat		Perl_flex_stat
+#  define trim_unixpath		Perl_trim_unixpath
+#  define vms_do_aexec		Perl_vms_do_aexec
+#  define vms_do_exec		Perl_vms_do_exec
+#  define do_aspawn		Perl_do_aspawn
+#  define do_spawn		Perl_do_spawn
+#  define my_fwrite		Perl_my_fwrite
+#  define my_getpwnam		Perl_my_getpwnam
+#  define my_getpwuid		Perl_my_getpwuid
+#  define my_getpwent		Perl_my_getpwent
+#  define my_endpwent		Perl_my_endpwent
+#  define my_getlogin		Perl_my_getlogin
+#  define rmscopy		Perl_rmscopy
+#  define init_os_extras	Perl_init_os_extras
+#endif
+
+/* Delete if at all possible, changing protections if necessary. */
 #define unlink kill_file
 
 /*  The VMS C RTL has vfork() but not fork().  Both actually work in a way
@@ -79,11 +130,11 @@
 #endif
 
 /* Handy way to vet calls to VMS system services and RTL routines. */
-#define _ckvmssts(call) do { register unsigned long int __ckvms_sts; \
+#define _ckvmssts(call) STMT_START { register unsigned long int __ckvms_sts; \
   if (!((__ckvms_sts=(call))&1)) { \
   set_errno(EVMSERR); set_vaxc_errno(__ckvms_sts); \
   croak("Fatal VMS error (status=%d) at %s, line %d", \
-  __ckvms_sts,__FILE__,__LINE__); } } while (0);
+  __ckvms_sts,__FILE__,__LINE__); } } STMT_END
 
 #ifdef VMS_DO_SOCKETS
 #include "sockadapt.h"
@@ -91,6 +142,8 @@
 
 #define BIT_BUCKET "_NLA0:"
 #define PERL_SYS_INIT(c,v)  getredirection((c),(v))
+#define PERL_SYS_TERM()
+#define dXSUB_SYS int dummy
 #define HAS_KILL
 #define HAS_WAIT
 
@@ -351,7 +404,7 @@ struct passwd *	my_getpwuid _((Uid_t uid));
 struct passwd *	my_getpwent _(());
 void	my_endpwent _(());
 char *	my_getlogin _(());
-int	rmscopy _((char *, char *));
+int	rmscopy _((char *, char *, int));
 void	init_os_extras _(());
 typedef char __VMS_SEPYTOTORP__;
 /* prototype section end marker; `typedef' passes through cpp */