Klaas-Jan Stol wrote:
On Jan 14, 2008 5:57 PM, Mark J. Reed <[EMAIL PROTECTED]> wrote:
On Jan 14, 2008 11:29 AM, Ron Blaschke <[EMAIL PROTECTED]> wrote:
jesse wrote:
I don't believe Perl 1 was ever ported to Windows.
Well, actually it kinda was. ;-)
http://www.nntp.perl.org/group/perl.perl1.porters/2005/11/msg46.html
Cool! So where's that patch you mentioned? The attachment doesn't
seem to have made it into the archive there...
Sorry, didn't realize attachments don't make it over the news gateway.
I just got things working on cygwin; in perl.h there's a #define of sprintf,
as sprintf(), which needs to be changed into:
sprintf(char *dest, char * const format, ...)
This worked for me on cygwin; didnt' try yet on win xp 32.
Great, glad you've got it working!
I have attached the patch that worked for me way back then. This is for
Cygwin only, too.
Ron
diff -u -r perl-1.0_16.orig/perl.h perl-1.0_16/perl.h
--- perl-1.0_16.orig/perl.h 2002-12-19 00:44:14.000000000 +0100
+++ perl-1.0_16/perl.h 2005-11-06 11:21:04.000000000 +0100
@@ -64,7 +64,7 @@
#ifdef CHARSPRINTF
char *sprintf();
#else
- int sprintf();
+ /* int sprintf(); */
#endif
/* A string is TRUE if not "" or "0". */
diff -u -r perl-1.0_16.orig/perl.y perl-1.0_16/perl.y
--- perl-1.0_16.orig/perl.y 2002-12-19 00:44:14.000000000 +0100
+++ perl-1.0_16/perl.y 2005-11-06 11:36:22.000000000 +0100
@@ -16,6 +16,16 @@
#include "util.h"
#include "INTERN.h"
#include "perl.h"
+
+ARG *l(ARG *,...);
+ARG *mod_match(int, ARG *, ARG *);
+ARG *addflags(int, int , ARG*);
+ARG *hide_ary(ARG *);
+ARG *make_list(ARG *);
+ARG *listish(ARG *);
+ARG *cval_to_arg(char *);
+ARG *cmd_to_arg(CMD *);
+
char *tokename[] = {
"256",
"word",
diff -u -r perl-1.0_16.orig/perly.c perl-1.0_16/perly.c
--- perl-1.0_16.orig/perly.c 2002-12-19 00:44:14.000000000 +0100
+++ perl-1.0_16/perly.c 2005-11-06 11:31:42.000000000 +0100
@@ -23,7 +23,7 @@
char *filename;
char *e_tmpname = "/tmp/perl-eXXXXXX";
FILE *e_fp = Nullfp;
-ARG *l();
+ARG *l(ARG *, ...);
main(argc,argv,env)
register int argc;
