This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlfaq4: fix a minor grammar problem in the Y2K answer
[perl5.git] / beos / beosish.h
1 #ifndef PERL_BEOS_BEOSISH_H
2 #define PERL_BEOS_BEOSISH_H
3
4 #include "../unixish.h"
5
6 #undef  waitpid
7 #define waitpid beos_waitpid
8
9 pid_t beos_waitpid(pid_t process_id, int *status_location, int options);
10
11 /* This seems to be protoless. */
12 char *gcvt(double value, int num_digits, char *buffer);
13
14 /* flock support, if available */
15 #ifdef HAS_FLOCK
16
17 #include <flock.h>
18
19 #undef close
20 #define close flock_close
21
22 #undef dup2
23 #define dup2 flock_dup2
24
25 #endif /* HAS_FLOCK */
26
27
28 #undef kill
29 #define kill beos_kill
30 int beos_kill(pid_t pid, int sig);
31
32 #undef sigaction
33 #define sigaction(sig, act, oact) beos_sigaction((sig), (act), (oact))
34 int beos_sigaction(int sig, const struct sigaction *act,
35                    struct sigaction *oact);
36
37 #endif
38