This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don’t leak deleted iterator when tying hash
[perl5.git] / win32 / win32iop.h
1 #ifndef WIN32IOP_H
2 #define WIN32IOP_H
3
4 #ifndef START_EXTERN_C
5 #ifdef __cplusplus
6 #  define START_EXTERN_C extern "C" {
7 #  define END_EXTERN_C }
8 #  define EXTERN_C extern "C"
9 #else
10 #  define START_EXTERN_C
11 #  define END_EXTERN_C
12 #  define EXTERN_C
13 #endif
14 #endif
15
16 #include <sys/utime.h>
17
18 /*
19  * defines for flock emulation
20  */
21 #define LOCK_SH 1
22 #define LOCK_EX 2
23 #define LOCK_NB 4
24 #define LOCK_UN 8
25
26 /*
27  * Make this as close to original stdio as possible.
28  */
29
30 /*
31  * function prototypes for our own win32io layer
32  */
33 START_EXTERN_C
34
35 DllExport  int *        win32_errno(void);
36 DllExport  char ***     win32_environ(void);
37 DllExport  FILE*        win32_stdin(void);
38 DllExport  FILE*        win32_stdout(void);
39 DllExport  FILE*        win32_stderr(void);
40 DllExport  int          win32_ferror(FILE *fp);
41 DllExport  int          win32_feof(FILE *fp);
42 DllExport  char*        win32_strerror(int e);
43
44 DllExport  int          win32_fprintf(FILE *pf, const char *format, ...);
45 DllExport  int          win32_printf(const char *format, ...);
46 DllExport  int          win32_vfprintf(FILE *pf, const char *format, va_list arg);
47 DllExport  int          win32_vprintf(const char *format, va_list arg);
48 DllExport  size_t       win32_fread(void *buf, size_t size, size_t count, FILE *pf);
49 DllExport  size_t       win32_fwrite(const void *buf, size_t size, size_t count, FILE *pf);
50 DllExport  FILE*        win32_fopen(const char *path, const char *mode);
51 DllExport  FILE*        win32_fdopen(int fh, const char *mode);
52 DllExport  FILE*        win32_freopen(const char *path, const char *mode, FILE *pf);
53 DllExport  int          win32_fclose(FILE *pf);
54 DllExport  int          win32_fputs(const char *s,FILE *pf);
55 DllExport  int          win32_fputc(int c,FILE *pf);
56 DllExport  int          win32_ungetc(int c,FILE *pf);
57 DllExport  int          win32_getc(FILE *pf);
58 DllExport  int          win32_fileno(FILE *pf);
59 DllExport  void         win32_clearerr(FILE *pf);
60 DllExport  int          win32_fflush(FILE *pf);
61 DllExport  Off_t        win32_ftell(FILE *pf);
62 DllExport  int          win32_fseek(FILE *pf,Off_t offset,int origin);
63 DllExport  int          win32_fgetpos(FILE *pf,fpos_t *p);
64 DllExport  int          win32_fsetpos(FILE *pf,const fpos_t *p);
65 DllExport  void         win32_rewind(FILE *pf);
66 DllExport  int          win32_tmpfd(void);
67 DllExport  FILE*        win32_tmpfile(void);
68 DllExport  void         win32_abort(void);
69 DllExport  int          win32_fstat(int fd,Stat_t *sbufptr);
70 DllExport  int          win32_stat(const char *name,Stat_t *sbufptr);
71 DllExport  int          win32_pipe( int *phandles, unsigned int psize, int textmode );
72 DllExport  PerlIO*      win32_popen( const char *command, const char *mode );
73 DllExport  PerlIO*      win32_popenlist(const char *mode, IV narg, SV **args);
74 DllExport  int          win32_pclose( PerlIO *pf);
75 DllExport  int          win32_rename( const char *oname, const char *newname);
76 DllExport  int          win32_setmode( int fd, int mode);
77 DllExport  int          win32_chsize(int fd, Off_t size);
78 DllExport  Off_t        win32_lseek( int fd, Off_t offset, int origin);
79 DllExport  Off_t        win32_tell( int fd);
80 DllExport  int          win32_dup( int fd);
81 DllExport  int          win32_dup2(int h1, int h2);
82 DllExport  int          win32_open(const char *path, int oflag,...);
83 DllExport  int          win32_close(int fd);
84 DllExport  int          win32_eof(int fd);
85 DllExport  int          win32_isatty(int fd);
86 DllExport  int          win32_read(int fd, void *buf, unsigned int cnt);
87 DllExport  int          win32_write(int fd, const void *buf, unsigned int cnt);
88 DllExport  int          win32_spawnvp(int mode, const char *cmdname,
89                               const char *const *argv);
90 DllExport  int          win32_mkdir(const char *dir, int mode);
91 DllExport  int          win32_rmdir(const char *dir);
92 DllExport  int          win32_chdir(const char *dir);
93 DllExport  int          win32_flock(int fd, int oper);
94 DllExport  int          win32_execv(const char *cmdname, const char *const *argv);
95 DllExport  int          win32_execvp(const char *cmdname, const char *const *argv);
96 DllExport  void         win32_perror(const char *str);
97 DllExport  void         win32_setbuf(FILE *pf, char *buf);
98 DllExport  int          win32_setvbuf(FILE *pf, char *buf, int type, size_t size);
99 DllExport  int          win32_flushall(void);
100 DllExport  int          win32_fcloseall(void);
101 DllExport  char*        win32_fgets(char *s, int n, FILE *pf);
102 DllExport  char*        win32_gets(char *s);
103 DllExport  int          win32_fgetc(FILE *pf);
104 DllExport  int          win32_putc(int c, FILE *pf);
105 DllExport  int          win32_puts(const char *s);
106 DllExport  int          win32_getchar(void);
107 DllExport  int          win32_putchar(int c);
108 DllExport  void*        win32_malloc(size_t size);
109 DllExport  void*        win32_calloc(size_t numitems, size_t size);
110 DllExport  void*        win32_realloc(void *block, size_t size);
111 DllExport  void         win32_free(void *block);
112
113 DllExport  int          win32_open_osfhandle(intptr_t handle, int flags);
114 DllExport  intptr_t     win32_get_osfhandle(int fd);
115 DllExport  FILE*        win32_fdupopen(FILE *pf);
116
117 DllExport  DIR*         win32_opendir(const char *filename);
118 DllExport  struct direct*       win32_readdir(DIR *dirp);
119 DllExport  long         win32_telldir(DIR *dirp);
120 DllExport  void         win32_seekdir(DIR *dirp, long loc);
121 DllExport  void         win32_rewinddir(DIR *dirp);
122 DllExport  int          win32_closedir(DIR *dirp);
123 DllExport  DIR*         win32_dirp_dup(DIR *const dirp, CLONE_PARAMS *const param);
124
125 DllExport  char*        win32_getenvironmentstrings(void);
126 DllExport  void         win32_freeenvironmentstrings(void *block);
127 DllExport  char*        win32_getenv(const char *name);
128 DllExport  int          win32_putenv(const char *name);
129
130 DllExport  unsigned     win32_sleep(unsigned int);
131 DllExport  int          win32_times(struct tms *timebuf);
132 DllExport  unsigned     win32_alarm(unsigned int sec);
133 DllExport  int          win32_stat(const char *path, Stat_t *buf);
134 DllExport  char*        win32_longpath(char *path);
135 DllExport  char*        win32_ansipath(const WCHAR *path);
136 DllExport  int          win32_ioctl(int i, unsigned int u, char *data);
137 DllExport  int          win32_link(const char *oldname, const char *newname);
138 DllExport  int          win32_unlink(const char *f);
139 DllExport  int          win32_utime(const char *f, struct utimbuf *t);
140 DllExport  int          win32_gettimeofday(struct timeval *tp, void *not_used);
141 DllExport  int          win32_uname(struct utsname *n);
142 DllExport  int          win32_wait(int *status);
143 DllExport  int          win32_waitpid(int pid, int *status, int flags);
144 DllExport  int          win32_kill(int pid, int sig);
145 DllExport  unsigned long        win32_os_id(void);
146 DllExport  void*        win32_dynaload(const char*filename);
147 DllExport  int          win32_access(const char *path, int mode);
148 DllExport  int          win32_chmod(const char *path, int mode);
149 DllExport  int          win32_getpid(void);
150
151 DllExport char *        win32_crypt(const char *txt, const char *salt);
152
153 DllExport void *        win32_get_childenv(void);
154 DllExport void          win32_free_childenv(void* d);
155 DllExport void          win32_clearenv(void);
156 DllExport char *        win32_get_childdir(void);
157 DllExport void          win32_free_childdir(char* d);
158 DllExport Sighandler_t  win32_signal(int sig, Sighandler_t subcode);
159
160
161 END_EXTERN_C
162
163 #undef alarm
164 #define alarm                           win32_alarm
165 #undef strerror
166 #define strerror                        win32_strerror
167
168 /*
169  * the following six(6) is #define in stdio.h
170  */
171 #ifndef WIN32IO_IS_STDIO
172 #undef errno
173 #undef environ
174 #undef stderr
175 #undef stdin
176 #undef stdout
177 #undef ferror
178 #undef feof
179 #undef fclose
180 #undef pipe
181 #undef pause
182 #undef sleep
183 #undef times
184 #undef ioctl
185 #undef unlink
186 #undef utime
187 #undef gettimeofday
188 #undef uname
189 #undef wait
190
191 #if defined(__MINGW32__)
192 #undef fileno
193 #endif
194
195 #define stderr                          win32_stderr()
196 #define stdout                          win32_stdout()
197 #define stdin                           win32_stdin()
198 #define feof(f)                         win32_feof(f)
199 #define ferror(f)                       win32_ferror(f)
200 #define errno                           (*win32_errno())
201 #define environ                         (*win32_environ())
202
203 /*
204  * redirect to our own version
205  */
206 #undef fprintf
207 #define fprintf                 win32_fprintf
208 #define vfprintf                win32_vfprintf
209 #define printf                  win32_printf
210 #define vprintf                 win32_vprintf
211 #define fread(buf,size,count,f) win32_fread(buf,size,count,f)
212 #define fwrite(buf,size,count,f)        win32_fwrite(buf,size,count,f)
213 #define fopen                   win32_fopen
214 #undef fdopen
215 #define fdopen                  win32_fdopen
216 #define freopen                 win32_freopen
217 #define fclose(f)               win32_fclose(f)
218 #define fputs(s,f)              win32_fputs(s,f)
219 #define fputc(c,f)              win32_fputc(c,f)
220 #define ungetc(c,f)             win32_ungetc(c,f)
221 #undef getc
222 #define getc(f)                 win32_getc(f)
223 #define fileno(f)               win32_fileno(f)
224 #define clearerr(f)             win32_clearerr(f)
225 #define fflush(f)               win32_fflush(f)
226 #define ftell(f)                win32_ftell(f)
227 #define fseek(f,o,w)            win32_fseek(f,o,w)
228 #define fgetpos(f,p)            win32_fgetpos(f,p)
229 #define fsetpos(f,p)            win32_fsetpos(f,p)
230 #define rewind(f)               win32_rewind(f)
231 #define tmpfile()               win32_tmpfile()
232 #define abort()                 win32_abort()
233 #define fstat(fd,bufptr)        win32_fstat(fd,bufptr)
234 #define stat(pth,bufptr)        win32_stat(pth,bufptr)
235 #define longpath(pth)           win32_longpath(pth)
236 #define ansipath(pth)           win32_ansipath(pth)
237 #define rename(old,new)         win32_rename(old,new)
238 #define setmode(fd,mode)        win32_setmode(fd,mode)
239 #define chsize(fd,sz)           win32_chsize(fd,sz)
240 #define lseek(fd,offset,orig)   win32_lseek(fd,offset,orig)
241 #define tell(fd)                win32_tell(fd)
242 #define dup(fd)                 win32_dup(fd)
243 #define dup2(fd1,fd2)           win32_dup2(fd1,fd2)
244 #define open                    win32_open
245 #define close(fd)               win32_close(fd)
246 #define eof(fd)                 win32_eof(fd)
247 #define isatty(fd)              win32_isatty(fd)
248 #define read(fd,b,s)            win32_read(fd,b,s)
249 #define write(fd,b,s)           win32_write(fd,b,s)
250 #define _open_osfhandle         win32_open_osfhandle
251 #define _get_osfhandle          win32_get_osfhandle
252 #define spawnvp                 win32_spawnvp
253 #define mkdir                   win32_mkdir
254 #define rmdir                   win32_rmdir
255 #define chdir                   win32_chdir
256 #define flock(fd,o)             win32_flock(fd,o)
257 #define execv                   win32_execv
258 #define execvp                  win32_execvp
259 #define perror                  win32_perror
260 #define setbuf                  win32_setbuf
261 #define setvbuf                 win32_setvbuf
262 #undef flushall
263 #define flushall                win32_flushall
264 #undef fcloseall
265 #define fcloseall               win32_fcloseall
266 #define fgets                   win32_fgets
267 #define gets                    win32_gets
268 #define fgetc                   win32_fgetc
269 #undef putc
270 #define putc                    win32_putc
271 #define puts                    win32_puts
272 #undef getchar
273 #define getchar                 win32_getchar
274 #undef putchar
275 #define putchar                 win32_putchar
276 #define access(p,m)             win32_access(p,m)
277 #define chmod(p,m)              win32_chmod(p,m)
278
279
280 #if !defined(MYMALLOC) || !defined(PERL_CORE)
281 #undef malloc
282 #undef calloc
283 #undef realloc
284 #undef free
285 #define malloc                  win32_malloc
286 #define calloc                  win32_calloc
287 #define realloc                 win32_realloc
288 #define free                    win32_free
289 #endif
290
291 /* XXX Why are APIs like sleep(), times() etc. inside a block
292  * XXX guarded by "#ifndef WIN32IO_IS_STDIO"?
293  */
294
295 #define pipe(fd)                win32_pipe((fd), 512, O_BINARY)
296 #define pause()                 win32_sleep((32767L << 16) + 32767)
297 #define sleep                   win32_sleep
298 #define times                   win32_times
299 #define ioctl                   win32_ioctl
300 #define link                    win32_link
301 #define unlink                  win32_unlink
302 #define utime                   win32_utime
303 #define gettimeofday            win32_gettimeofday
304 #define uname                   win32_uname
305 #define wait                    win32_wait
306 #define waitpid                 win32_waitpid
307 #define kill                    win32_kill
308
309 #define opendir                 win32_opendir
310 #define readdir                 win32_readdir
311 #define telldir                 win32_telldir
312 #define seekdir                 win32_seekdir
313 #define rewinddir               win32_rewinddir
314 #define closedir                win32_closedir
315 #define os_id                   win32_os_id
316 #define getpid                  win32_getpid
317
318 #undef crypt
319 #define crypt(t,s)              win32_crypt(t,s)
320
321 #undef get_childenv
322 #undef free_childenv
323 #undef clearenv
324 #undef get_childdir
325 #undef free_childdir
326 #define get_childenv()          win32_get_childenv()
327 #define free_childenv(d)        win32_free_childenv(d)
328 #define clearenv()              win32_clearenv()
329 #define get_childdir()          win32_get_childdir()
330 #define free_childdir(d)        win32_free_childdir(d)
331
332 #undef getenv
333 #define getenv win32_getenv
334 #undef putenv
335 #define putenv win32_putenv
336
337 #endif /* WIN32IO_IS_STDIO */
338 #endif /* WIN32IOP_H */