1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
|
#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.
*/
/*
* function prototypes for our own win32io layer
*/
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);
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);
DllExport int win32_open_osfhandle(intptr_t handle, int flags);
DllExport intptr_t win32_get_osfhandle(int fd);
DllExport FILE* win32_fdupopen(FILE *pf);
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 int win32_stat(const char *path, Stat_t *buf);
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);
DllExport char * win32_crypt(const char *txt, const char *salt);
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
*/
#ifndef WIN32IO_IS_STDIO
#undef errno
#undef environ
#undef stderr
#undef stdin
#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
#if defined(__MINGW32__)
#undef fileno
#endif
#define stderr win32_stderr()
#define stdout win32_stdout()
#define stdin win32_stdin()
#define feof(f) win32_feof(f)
#define ferror(f) win32_ferror(f)
#define errno (*win32_errno())
#define environ (*win32_environ())
/*
* 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()
#ifdef UNDER_CE
# undef fstat
#endif
#define fstat(fd,bufptr) win32_fstat(fd,bufptr)
#ifdef UNDER_CE
# 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 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
#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 */
|
