*/
#undef USEMYBINMODE
+/* Stat_t:
+ * This symbol holds the type used to declare buffers for information
+ * returned by stat(). It's usually just struct stat. It may be necessary
+ * to include <sys/stat.h> and <sys/types.h> to get any typedef'ed
+ * information.
+ */
+#define Stat_t struct stat
+
/* USE_STAT_RDEV:
* This symbol is defined if this system has a stat structure declaring
* st_rdev
#endif
#define ABORT() kill(getpid(),SIGABRT);
-#define BIT_BUCKET "/dev/null"
-#define PERL_SYS_INIT(c,v)
-#define PERL_SYS_TERM()
-#define dXSUB_SYS int dummy
-
/*
* fwrite1() should be a routine with the same calling sequence as fwrite(),
* but which outputs all of the bytes requested as a single stream (unlike
#define Stat(fname,bufptr) stat((fname),(bufptr))
#define Fstat(fd,bufptr) fstat((fd),(bufptr))
#define Fflush(fp) fflush(fp)
+#define Mkdir(path,mode) mkdir((path),(mode))
+
+#ifndef PERL_SYS_INIT
+#ifdef PERL_SCO5
+/* this should be set in a hint file, not here */
+# define PERL_SYS_INIT(c,v) fpsetmask(0); MALLOC_INIT
+#else
+# define PERL_SYS_INIT(c,v) MALLOC_INIT
+#endif
+#endif
+
+#ifndef PERL_SYS_TERM
+#define PERL_SYS_TERM() MALLOC_TERM
+#endif
-#define my_getenv(var) getenv(var)
+#define BIT_BUCKET "/dev/null"
+#define dXSUB_SYS