This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
amigaos4: minimized config.sh
[perl5.git] / amigaos4 / amigaos.h
1 #ifndef _AMIGAOS_H
2 #define _AMIGAOS_H
3
4 /* prototypes and defines missing from current OS4 SDK; */
5
6 /* netinet/in.h */
7
8 // #define INADDR_LOOPBACK   0x7f00001UL
9
10 /* unistd.h */
11
12 #include <stdio.h>
13
14 #if defined(__CLIB2__)
15 #  include <dos.h>
16 #endif
17 #if defined(__NEWLIB__)
18 #  include <amiga_platform.h>
19 #endif
20
21 #if 1
22 int myexecve(const char *path, char *argv[], char *env[]);
23 int myexecvp(const char *filename, char *argv[]);
24 int myexecv(const char *path, char *argv[]);
25 int myexecl(const char *path, ...);
26 #endif
27
28 #define execve(path, argv, env) myexecve(path, argv, env)
29 #define execvp(filename, argv) myexecvp(filename, argv)
30 #define execv(path, argv) myexecv(path, argv)
31 #define execl(path, ...) myexecl(path, __VA_ARGS__)
32
33 int pipe(int filedes[2]);
34
35 FILE *amigaos_popen(const char *cmd, const char *mode);
36 void amigaos4_obtain_environ();
37 void amigaos4_release_environ();
38
39 /* signal.h */
40
41 // #define SIGQUIT SIGABRT
42
43 void ___makeenviron() __attribute__((constructor));
44 void ___freeenviron() __attribute__((destructor));
45
46 long amigaos_get_file(int fd);
47
48 // BOOL constructed;
49
50
51
52 #endif