This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlapi: Remove per-thread section; move to real scns
[perl5.git] / amigaos4 / amigaos.h
index 96f521d..f2bab44 100644 (file)
@@ -32,7 +32,9 @@ int myexecl(bool isperlthread, const char *path, ...);
 
 int pipe(int filedes[2]);
 
 
 int pipe(int filedes[2]);
 
-FILE *amigaos_popen(const char *cmd, const char *mode);
+//FILE *amigaos_popen(const char *cmd, const char *mode);
+//int   amigaos_pclose(FILE *f);
+
 void amigaos4_obtain_environ();
 void amigaos4_release_environ();
 
 void amigaos4_obtain_environ();
 void amigaos4_release_environ();
 
@@ -41,15 +43,33 @@ char *mystrdup(const char *s);
 char *convert_path_u2a(const char *filename);
 char *convert_path_a2u(const char *filename);
 
 char *convert_path_u2a(const char *filename);
 char *convert_path_a2u(const char *filename);
 
-/* signal.h */
+/* Need Pid_t define to make amigaos.c compile without including config.h */
+#ifndef Pid_t
+#define Pid_t pid_t
+#endif
+
+int amigaos_kill(Pid_t pid, int  signal);
 
 
-// #define SIGQUIT SIGABRT
+#define kill(a,b) amigaos_kill((a),(b))
 
 void ___makeenviron() __attribute__((constructor));
 void ___freeenviron() __attribute__((destructor));
 
 long amigaos_get_file(int fd);
 
 
 void ___makeenviron() __attribute__((constructor));
 void ___freeenviron() __attribute__((destructor));
 
 long amigaos_get_file(int fd);
 
-// BOOL constructed;
+void amigaos4_init_fork_array();
+void amigaos4_dispose_fork_array();
+void amigaos4_init_environ_sema();
+
+/* emulated flock stuff */
+
+#define LOCK_SH 1 /* Shared lock.  */
+#define LOCK_EX 2 /* Exclusive lock.  */
+#define LOCK_UN 8 /* Unlock.  */
+#define LOCK_NB 4 /* Don't block when locking.  */
+
+extern int flock(int fd, int operation);
+
+#define flock(a, b) amigaos_flock((a), (b))
 
 #endif
 
 #endif