X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/67fbe06e7fe7dfa95ec51821be9237cabdf281e2..1d5f8e8e6ae4cf57194522cabded39fe7371c9da:/win32/win32iop.h

diff --git a/win32/win32iop.h b/win32/win32iop.h
index 56ed402..842bc07 100644
--- a/win32/win32iop.h
+++ b/win32/win32iop.h
@@ -1,6 +1,27 @@
 #ifndef WIN32IOP_H
 #define WIN32IOP_H
 
+#ifndef START_EXTERN_C
+#ifdef __cplusplus
+#  define START_EXTERN_C extern "C" {
+#  define END_EXTERN_C }
+#  define EXTERN_C extern "C"
+#else
+#  define START_EXTERN_C
+#  define END_EXTERN_C
+#  define EXTERN_C
+#endif
+#endif
+
+#include <sys/utime.h>
+
+/*
+ * defines for flock emulation
+ */
+#define LOCK_SH 1
+#define LOCK_EX 2
+#define LOCK_NB 4
+#define LOCK_UN 8
 
 /*
  * Make this as close to original stdio as possible.
@@ -9,79 +30,141 @@
 /*
  * function prototypes for our own win32io layer
  */
-EXT int * 	win32_errno(void);
-EXT char *** 	win32_environ(void);
-EXT FILE*	win32_stdin(void);
-EXT FILE*	win32_stdout(void);
-EXT FILE*	win32_stderr(void);
-EXT int		win32_ferror(FILE *fp);
-EXT int		win32_feof(FILE *fp);
-EXT char*	win32_strerror(int e);
-
-EXT int		win32_fprintf(FILE *pf, const char *format, ...);
-EXT int		win32_printf(const char *format, ...);
-EXT int		win32_vfprintf(FILE *pf, const char *format, va_list arg);
-EXT int		win32_vprintf(const char *format, va_list arg);
-EXT size_t	win32_fread(void *buf, size_t size, size_t count, FILE *pf);
-EXT size_t	win32_fwrite(const void *buf, size_t size, size_t count, FILE *pf);
-EXT FILE*	win32_fopen(const char *path, const char *mode);
-EXT FILE*	win32_fdopen(int fh, const char *mode);
-EXT FILE*	win32_freopen(const char *path, const char *mode, FILE *pf);
-EXT int		win32_fclose(FILE *pf);
-EXT int		win32_fputs(const char *s,FILE *pf);
-EXT int		win32_fputc(int c,FILE *pf);
-EXT int		win32_ungetc(int c,FILE *pf);
-EXT int		win32_getc(FILE *pf);
-EXT int		win32_fileno(FILE *pf);
-EXT void	win32_clearerr(FILE *pf);
-EXT int		win32_fflush(FILE *pf);
-EXT long	win32_ftell(FILE *pf);
-EXT int		win32_fseek(FILE *pf,long offset,int origin);
-EXT int		win32_fgetpos(FILE *pf,fpos_t *p);
-EXT int		win32_fsetpos(FILE *pf,const fpos_t *p);
-EXT void	win32_rewind(FILE *pf);
-EXT FILE*	win32_tmpfile(void);
-EXT void	win32_abort(void);
-EXT int  	win32_fstat(int fd,struct stat *bufptr);
-EXT int  	win32_stat(const char *name,struct stat *bufptr);
-EXT int		win32_pipe( int *phandles, unsigned int psize, int textmode );
-EXT FILE*	win32_popen( const char *command, const char *mode );
-EXT int		win32_pclose( FILE *pf);
-EXT int		win32_setmode( int fd, int mode);
-EXT long	win32_lseek( int fd, long offset, int origin);
-EXT long	win32_tell( int fd);
-EXT int		win32_dup( int fd);
-EXT int		win32_dup2(int h1, int h2);
-EXT int		win32_open(const char *path, int oflag,...);
-EXT int		win32_close(int fd);
-EXT int		win32_eof(int fd);
-EXT int		win32_read(int fd, void *buf, unsigned int cnt);
-EXT int		win32_write(int fd, const void *buf, unsigned int cnt);
-EXT int		win32_spawnvp(int mode, const char *cmdname,
+START_EXTERN_C
+
+DllExport  int * 	win32_errno(void);
+DllExport  char *** 	win32_environ(void);
+DllExport  FILE*	win32_stdin(void);
+DllExport  FILE*	win32_stdout(void);
+DllExport  FILE*	win32_stderr(void);
+DllExport  int		win32_ferror(FILE *fp);
+DllExport  int		win32_feof(FILE *fp);
+DllExport  char*	win32_strerror(int e);
+
+DllExport  int		win32_fprintf(FILE *pf, const char *format, ...);
+DllExport  int		win32_printf(const char *format, ...);
+DllExport  int		win32_vfprintf(FILE *pf, const char *format, va_list arg);
+DllExport  int		win32_vprintf(const char *format, va_list arg);
+DllExport  size_t	win32_fread(void *buf, size_t size, size_t count, FILE *pf);
+DllExport  size_t	win32_fwrite(const void *buf, size_t size, size_t count, FILE *pf);
+DllExport  FILE*	win32_fopen(const char *path, const char *mode);
+DllExport  FILE*	win32_fdopen(int fh, const char *mode);
+DllExport  FILE*	win32_freopen(const char *path, const char *mode, FILE *pf);
+DllExport  int		win32_fclose(FILE *pf);
+DllExport  int		win32_fputs(const char *s,FILE *pf);
+DllExport  int		win32_fputc(int c,FILE *pf);
+DllExport  int		win32_ungetc(int c,FILE *pf);
+DllExport  int		win32_getc(FILE *pf);
+DllExport  int		win32_fileno(FILE *pf);
+DllExport  void		win32_clearerr(FILE *pf);
+DllExport  int		win32_fflush(FILE *pf);
+DllExport  Off_t	win32_ftell(FILE *pf);
+DllExport  int		win32_fseek(FILE *pf,Off_t offset,int origin);
+DllExport  int		win32_fgetpos(FILE *pf,fpos_t *p);
+DllExport  int		win32_fsetpos(FILE *pf,const fpos_t *p);
+DllExport  void		win32_rewind(FILE *pf);
+DllExport  int		win32_tmpfd(void);
+DllExport  FILE*	win32_tmpfile(void);
+DllExport  void		win32_abort(void);
+DllExport  int  	win32_fstat(int fd,Stat_t *sbufptr);
+DllExport  int  	win32_stat(const char *name,Stat_t *sbufptr);
+DllExport  int		win32_pipe( int *phandles, unsigned int psize, int textmode );
+DllExport  PerlIO*	win32_popen( const char *command, const char *mode );
+DllExport  PerlIO*	win32_popenlist(const char *mode, IV narg, SV **args);
+DllExport  int		win32_pclose( PerlIO *pf);
+DllExport  int		win32_rename( const char *oname, const char *newname);
+DllExport  int		win32_setmode( int fd, int mode);
+DllExport  int		win32_chsize(int fd, Off_t size);
+DllExport  Off_t	win32_lseek( int fd, Off_t offset, int origin);
+DllExport  Off_t	win32_tell( int fd);
+DllExport  int		win32_dup( int fd);
+DllExport  int		win32_dup2(int h1, int h2);
+DllExport  int		win32_open(const char *path, int oflag,...);
+DllExport  int		win32_close(int fd);
+DllExport  int		win32_eof(int fd);
+DllExport  int		win32_isatty(int fd);
+DllExport  int		win32_read(int fd, void *buf, unsigned int cnt);
+DllExport  int		win32_write(int fd, const void *buf, unsigned int cnt);
+DllExport  int		win32_spawnvp(int mode, const char *cmdname,
 			      const char *const *argv);
-EXT int		win32_mkdir(const char *dir, int mode);
-EXT int		win32_rmdir(const char *dir);
-EXT int		win32_chdir(const char *dir);
-EXT int		win32_flock(int fd, int oper);
-EXT int		win32_execvp(const char *cmdname, const char *const *argv);
+DllExport  int		win32_mkdir(const char *dir, int mode);
+DllExport  int		win32_rmdir(const char *dir);
+DllExport  int		win32_chdir(const char *dir);
+DllExport  int		win32_flock(int fd, int oper);
+DllExport  int		win32_execv(const char *cmdname, const char *const *argv);
+DllExport  int		win32_execvp(const char *cmdname, const char *const *argv);
+DllExport  void		win32_perror(const char *str);
+DllExport  void		win32_setbuf(FILE *pf, char *buf);
+DllExport  int		win32_setvbuf(FILE *pf, char *buf, int type, size_t size);
+DllExport  int		win32_flushall(void);
+DllExport  int		win32_fcloseall(void);
+DllExport  char*	win32_fgets(char *s, int n, FILE *pf);
+DllExport  char*	win32_gets(char *s);
+DllExport  int		win32_fgetc(FILE *pf);
+DllExport  int		win32_putc(int c, FILE *pf);
+DllExport  int		win32_puts(const char *s);
+DllExport  int		win32_getchar(void);
+DllExport  int		win32_putchar(int c);
+DllExport  void*	win32_malloc(size_t size);
+DllExport  void*	win32_calloc(size_t numitems, size_t size);
+DllExport  void*	win32_realloc(void *block, size_t size);
+DllExport  void		win32_free(void *block);
 
-/*
- * these two are win32 specific but still io related
- */
-int		stolen_open_osfhandle(long handle, int flags);
-long		stolen_get_osfhandle(int fd);
+DllExport  int		win32_open_osfhandle(intptr_t handle, int flags);
+DllExport  intptr_t	win32_get_osfhandle(int fd);
+DllExport  FILE*	win32_fdupopen(FILE *pf);
 
-/*
- * defines for flock emulation
- */
-#define LOCK_SH 1
-#define LOCK_EX 2
-#define LOCK_NB 4
-#define LOCK_UN 8
+DllExport  DIR*		win32_opendir(const char *filename);
+DllExport  struct direct*	win32_readdir(DIR *dirp);
+DllExport  long		win32_telldir(DIR *dirp);
+DllExport  void		win32_seekdir(DIR *dirp, long loc);
+DllExport  void		win32_rewinddir(DIR *dirp);
+DllExport  int		win32_closedir(DIR *dirp);
+DllExport  DIR*		win32_dirp_dup(DIR *const dirp, CLONE_PARAMS *const param);
+
+DllExport  char*        win32_getenvironmentstrings(void);
+/* also see win32_freeenvironmentstrings macro */
+DllExport  char*	win32_getenv(const char *name);
+DllExport  int		win32_putenv(const char *name);
+
+DllExport  unsigned 	win32_sleep(unsigned int);
+DllExport  int		win32_times(struct tms *timebuf);
+DllExport  unsigned 	win32_alarm(unsigned int sec);
+DllExport  char*	win32_longpath(char *path);
+DllExport  char*	win32_ansipath(const WCHAR *path);
+DllExport  int		win32_ioctl(int i, unsigned int u, char *data);
+DllExport  int          win32_link(const char *oldname, const char *newname);
+DllExport  int		win32_unlink(const char *f);
+DllExport  int		win32_utime(const char *f, struct utimbuf *t);
+DllExport  int		win32_gettimeofday(struct timeval *tp, void *not_used);
+DllExport  int		win32_uname(struct utsname *n);
+DllExport  int		win32_wait(int *status);
+DllExport  int		win32_waitpid(int pid, int *status, int flags);
+DllExport  int		win32_kill(int pid, int sig);
+DllExport  unsigned long	win32_os_id(void);
+DllExport  void*	win32_dynaload(const char*filename);
+DllExport  int		win32_access(const char *path, int mode);
+DllExport  int		win32_chmod(const char *path, int mode);
+DllExport  int		win32_getpid(void);
 
-#include <win32io.h>	/* pull in the io sub system structure */
+DllExport char *	win32_crypt(const char *txt, const char *salt);
 
-void *	SetIOSubSystem(void	*piosubsystem);
+DllExport void *	win32_get_childenv(void);
+DllExport void		win32_free_childenv(void* d);
+DllExport void		win32_clearenv(void);
+DllExport char *	win32_get_childdir(void);
+DllExport void		win32_free_childdir(char* d);
+DllExport Sighandler_t	win32_signal(int sig, Sighandler_t subcode);
+
+
+END_EXTERN_C
+
+/* see comment in win32_getenvironmentstrings */
+#define win32_freeenvironmentstrings(x) win32_free(x)
+#undef alarm
+#define alarm				win32_alarm
+#undef strerror
+#define strerror			win32_strerror
 
 /*
  * the following six(6) is #define in stdio.h
@@ -94,10 +177,19 @@ void *	SetIOSubSystem(void	*piosubsystem);
 #undef stdout
 #undef ferror
 #undef feof
+#undef fclose
+#undef pipe
+#undef pause
+#undef sleep
+#undef times
+#undef ioctl
+#undef unlink
+#undef utime
+#undef gettimeofday
+#undef uname
+#undef wait
 
-#ifdef __BORLANDC__
-#undef ungetc
-#undef getc
+#if defined(__MINGW32__)
 #undef fileno
 #endif
 
@@ -108,55 +200,298 @@ void *	SetIOSubSystem(void	*piosubsystem);
 #define ferror(f)			win32_ferror(f)
 #define errno 				(*win32_errno())
 #define environ				(*win32_environ())
-#define strerror			win32_strerror
 
 /*
  * redirect to our own version
  */
+#undef fprintf
 #define	fprintf			win32_fprintf
+#ifdef UNDER_CE /* celib also makes these be macros to celib's x* symbols */
+#  undef vfprintf
+#endif
 #define	vfprintf		win32_vfprintf
+#ifdef UNDER_CE
+#  undef printf
+#endif
 #define	printf			win32_printf
+#ifdef UNDER_CE
+#  undef vprintf
+#endif
 #define	vprintf			win32_vprintf
+#ifdef UNDER_CE
+#  undef fread
+#endif
 #define fread(buf,size,count,f)	win32_fread(buf,size,count,f)
+#ifdef UNDER_CE
+#  undef fwrite
+#endif
 #define fwrite(buf,size,count,f)	win32_fwrite(buf,size,count,f)
+#ifdef UNDER_CE
+#  undef fopen
+#endif
 #define fopen			win32_fopen
+#undef fdopen
 #define fdopen			win32_fdopen
+#ifdef UNDER_CE
+#  undef freopen
+#endif
 #define freopen			win32_freopen
 #define	fclose(f)		win32_fclose(f)
+#ifdef UNDER_CE
+#  undef fputs
+#endif
 #define fputs(s,f)		win32_fputs(s,f)
+#ifdef UNDER_CE
+#  undef fputc
+#endif
 #define fputc(c,f)		win32_fputc(c,f)
+#ifdef UNDER_CE
+#  undef ungetc
+#endif
 #define ungetc(c,f)		win32_ungetc(c,f)
+#undef getc
 #define getc(f)			win32_getc(f)
+#ifdef UNDER_CE
+#  undef fileno
+#endif
 #define fileno(f)		win32_fileno(f)
+#ifdef UNDER_CE
+#  undef clearerr
+#endif
 #define clearerr(f)		win32_clearerr(f)
+#ifdef UNDER_CE
+#  undef fflush
+#endif
 #define fflush(f)		win32_fflush(f)
+#ifdef UNDER_CE
+#  undef ftell
+#endif
 #define ftell(f)		win32_ftell(f)
+#ifdef UNDER_CE
+#  undef fseek
+#endif
 #define fseek(f,o,w)		win32_fseek(f,o,w)
+#ifdef UNDER_CE
+#  undef fgetpos
+#endif
 #define fgetpos(f,p)		win32_fgetpos(f,p)
+#ifdef UNDER_CE
+#  undef fsetpos
+#endif
 #define fsetpos(f,p)		win32_fsetpos(f,p)
+#ifdef UNDER_CE
+#  undef rewind
+#endif
 #define rewind(f)		win32_rewind(f)
 #define tmpfile()		win32_tmpfile()
+#ifdef UNDER_CE
+#  undef abort
+#endif
 #define abort()			win32_abort()
+#if defined(UNDER_CE) || defined(__MINGW32__)
+#  undef fstat
+#endif
 #define fstat(fd,bufptr)   	win32_fstat(fd,bufptr)
+#if defined(UNDER_CE) || defined(__MINGW32__)
+#  undef stat
+#endif
 #define stat(pth,bufptr)   	win32_stat(pth,bufptr)
+#define longpath(pth)   	win32_longpath(pth)
+#define ansipath(pth)   	win32_ansipath(pth)
+#ifdef UNDER_CE
+#  undef rename
+#endif
+#define rename(old,new)		win32_rename(old,new)
+#ifdef UNDER_CE
+#  undef setmode
+#endif
 #define setmode(fd,mode)	win32_setmode(fd,mode)
+#define chsize(fd,sz)		win32_chsize(fd,sz)
+#ifdef UNDER_CE
+#  undef lseek
+#endif
 #define lseek(fd,offset,orig)	win32_lseek(fd,offset,orig)
 #define tell(fd)		win32_tell(fd)
+#ifdef UNDER_CE
+#  undef dup
+#endif
 #define dup(fd)			win32_dup(fd)
+#ifdef UNDER_CE
+#  undef dup2
+#endif
 #define dup2(fd1,fd2)		win32_dup2(fd1,fd2)
+#ifdef UNDER_CE
+#  undef open
+#endif
 #define open			win32_open
+#ifdef UNDER_CE
+#  undef close
+#endif
 #define close(fd)		win32_close(fd)
 #define eof(fd)			win32_eof(fd)
+#ifdef UNDER_CE
+#  undef isatty
+#endif
+#define isatty(fd)		win32_isatty(fd)
+#ifdef UNDER_CE
+#  undef read
+#endif
 #define read(fd,b,s)		win32_read(fd,b,s)
+#ifdef UNDER_CE
+#  undef write
+#endif
 #define write(fd,b,s)		win32_write(fd,b,s)
-#define _open_osfhandle		stolen_open_osfhandle
-#define _get_osfhandle		stolen_get_osfhandle
+#define _open_osfhandle		win32_open_osfhandle
+#ifdef UNDER_CE
+#  undef _get_osfhandle
+#endif
+#define _get_osfhandle		win32_get_osfhandle
 #define spawnvp			win32_spawnvp
+#ifdef UNDER_CE
+#  undef mkdir
+#endif
 #define mkdir			win32_mkdir
+#ifdef UNDER_CE
+#  undef rmdir
+#endif
 #define rmdir			win32_rmdir
+#ifdef UNDER_CE
+#  undef chdir
+#endif
 #define chdir			win32_chdir
 #define flock(fd,o)		win32_flock(fd,o)
+#ifdef UNDER_CE
+#  undef execv
+#endif
+#define execv			win32_execv
+#ifdef UNDER_CE
+#  undef execvp
+#endif
 #define execvp			win32_execvp
-#endif /* WIN32IO_IS_STDIO */
+#ifdef UNDER_CE
+#  undef perror
+#endif
+#define perror			win32_perror
+#define setbuf			win32_setbuf
+#ifdef UNDER_CE
+#  undef setvbuf
+#endif
+#define setvbuf			win32_setvbuf
+#undef flushall
+#define flushall		win32_flushall
+#undef fcloseall
+#define fcloseall		win32_fcloseall
+#ifdef UNDER_CE
+#  undef fgets
+#endif
+#define fgets			win32_fgets
+#ifdef UNDER_CE
+#  undef gets
+#endif
+#define gets			win32_gets
+#ifdef UNDER_CE
+#  undef fgetc
+#endif
+#define fgetc			win32_fgetc
+#undef putc
+#define putc			win32_putc
+#ifdef UNDER_CE
+#  undef puts
+#endif
+#define puts			win32_puts
+#undef getchar
+#define getchar			win32_getchar
+#undef putchar
+#define putchar			win32_putchar
+#ifdef UNDER_CE
+#  undef access
+#endif
+#define access(p,m)		win32_access(p,m)
+#ifdef UNDER_CE
+#  undef chmod
+#endif
+#define chmod(p,m)		win32_chmod(p,m)
+
+
+#if !defined(MYMALLOC) || !defined(PERL_CORE)
+#undef malloc
+#undef calloc
+#undef realloc
+#undef free
+#define malloc			win32_malloc
+#define calloc			win32_calloc
+#define realloc			win32_realloc
+#define free			win32_free
+#endif
+
+/* XXX Why are APIs like sleep(), times() etc. inside a block
+ * XXX guarded by "#ifndef WIN32IO_IS_STDIO"?
+ */
+
+#define pipe(fd)		win32_pipe((fd), 512, O_BINARY)
+#define pause()			win32_sleep((32767L << 16) + 32767)
+#define sleep			win32_sleep
+#define times			win32_times
+#define ioctl			win32_ioctl
+#define link			win32_link
+#define unlink			win32_unlink
+#define utime			win32_utime
+#ifdef UNDER_CE
+#  undef gettimeofday
+#endif
+#define gettimeofday		win32_gettimeofday
+#define uname			win32_uname
+#define wait			win32_wait
+#define waitpid			win32_waitpid
+#ifdef UNDER_CE
+#  undef kill
+#endif
+#define kill			win32_kill
+#ifdef UNDER_CE
+#  undef killpg
+#endif
+#define killpg(pid, sig)	win32_kill(pid, -(sig))
+
+
+#ifdef UNDER_CE
+#  undef opendir
+#endif
+#define opendir			win32_opendir
+#ifdef UNDER_CE
+#  undef readdir
+#endif
+#define readdir			win32_readdir
+#define telldir			win32_telldir
+#define seekdir			win32_seekdir
+#define rewinddir		win32_rewinddir
+#ifdef UNDER_CE
+#  undef closedir
+#endif
+#define closedir		win32_closedir
+#define os_id			win32_os_id
+#ifdef UNDER_CE
+#  undef getpid
+#endif
+#define getpid			win32_getpid
+
+#undef crypt
+#define crypt(t,s)		win32_crypt(t,s)
 
+#undef get_childenv
+#undef free_childenv
+#undef clearenv
+#undef get_childdir
+#undef free_childdir
+#define get_childenv()		win32_get_childenv()
+#define free_childenv(d)	win32_free_childenv(d)
+#define clearenv()		win32_clearenv()
+#define get_childdir()		win32_get_childdir()
+#define free_childdir(d)	win32_free_childdir(d)
+
+#undef getenv
+#define getenv win32_getenv
+#undef putenv
+#define putenv win32_putenv
+
+#endif /* WIN32IO_IS_STDIO */
 #endif /* WIN32IOP_H */