Change 13425: Add a header for DJGPP with the function prototypes.

[Jarkko Hietaniemi]

Change 13425 by jhi@alpha on 2001/12/02 16:54:06

        Add a header for DJGPP with the function prototypes.

Affected files ...

.... //depot/perl/MANIFEST#650 edit
.... //depot/perl/djgpp/djgpp.c#14 edit
.... //depot/perl/djgpp/djgpp.h#1 add

Differences ...

==== //depot/perl/MANIFEST#650 (text) ====
==== //depot/perl/djgpp/djgpp.c#14 (text) ====
Index: perl/djgpp/djgpp.c
--- perl/djgpp/djgpp.c.~1~      Sun Dec  2 10:00:05 2001
+++ perl/djgpp/djgpp.c  Sun Dec  2 10:00:05 2001
@@ -1,20 +1,5 @@
 #define PERLIO_NOT_STDIO 0
-#include <libc/stubs.h>
-#include <io.h>
-#include <errno.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <unistd.h>
-#include <libc/file.h>
-#include <process.h>
-#include <fcntl.h>
-#include <glob.h>
-#include <sys/fsext.h>
-#include <crt0.h>
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
+#include "djgpp.h"
 
 /* hold file pointer, command, mode, and the status of the command */
 struct pipe_list {
@@ -400,7 +385,8 @@
 
 #define PERL5 "/perl5"
 
-char *djgpp_pathexp (const char *p)
+char *
+djgpp_pathexp (const char *p)
 {
     static char expp[PATH_MAX];
     strcpy (expp,perlprefix);

==== //depot/perl/djgpp/djgpp.h#1 (text) ====
Index: perl/djgpp/djgpp.h
--- perl/djgpp/djgpp.h.~1~      Sun Dec  2 10:00:05 2001
+++ perl/djgpp/djgpp.h  Sun Dec  2 10:00:05 2001
@@ -0,0 +1,55 @@
+#ifndef PERL_DJGPP_DJGPP_H
+#define PERL_DJGPP_DJGPP_H
+
+#include <libc/stubs.h>
+#include <io.h>
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <libc/file.h>
+#include <process.h>
+#include <fcntl.h>
+#include <glob.h>
+#include <sys/fsext.h>
+#include <crt0.h>
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+FILE *
+djgpp_popen (const char *cm, const char *md);
+
+int
+djgpp_pclose (FILE *pp);
+
+int
+do_aspawn (pTHX_ SV *really,SV **mark,SV **sp);
+
+int
+do_spawn2 (pTHX_ char *cmd,int execf)
+
+int
+do_spawn (pTHX_ char *cmd);
+
+bool
+Perl_do_exec (pTHX_ char *cmd);
+
+void
+Perl_init_os_extras(pTHX);
+
+char
+*djgpp_pathexp (const char *p);
+
+void
+Perl_DJGPP_init (int *argcp,char ***argvp);
+
+int
+djgpp_fflush (FILE *fp);
+
+/* DJGPP utility functions without prototypes? */
+
+int _is_unixy_shell(char *s);
+
+#endif
End of Patch.