diff options
author | Chip Salzenberg <chip@atlantic.net> | 1997-03-22 15:34:25 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-22 15:34:25 +1200 |
commit | eb79544ff58c74c06888e5611739331fa5e91f32 (patch) | |
tree | 4f63552f8a21fb70f9304688a48c8333742e4943 | |
parent | 3fe9a6f19eb206c685bd7389e54e2838fdfd04b7 (diff) | |
parent | 55a864fe4cea1a0586891b83d359ba71e0972da5 (diff) | |
download | perl-eb79544ff58c74c06888e5611739331fa5e91f32.tar.gz |
[differences between cumulative patch application and perl-5.003_95]perl-5.003_95
-rw-r--r-- | win32/EXTERN.h | 47 | ||||
-rw-r--r-- | win32/VC-2.0/vc2.patch | 16 | ||||
-rw-r--r-- | win32/dosish.h | 89 | ||||
-rw-r--r-- | win32/perlmain.c | 10 |
4 files changed, 0 insertions, 162 deletions
diff --git a/win32/EXTERN.h b/win32/EXTERN.h deleted file mode 100644 index 3ce63772a4..0000000000 --- a/win32/EXTERN.h +++ /dev/null @@ -1,47 +0,0 @@ -/* EXTERN.h - * - * Copyright (c) 1991-1997, Larry Wall - * - * You may distribute under the terms of either the GNU General Public - * License or the Artistic License, as specified in the README file. - * - */ - -/* - * EXT designates a global var which is defined in perl.h - * dEXT designates a global var which is defined in another - * file, so we can't count on finding it in perl.h - * (this practice should be avoided). - */ -#undef EXT -#undef dEXT -#undef EXTCONST -#undef dEXTCONST -#if defined(VMS) && !defined(__GNUC__) -# define EXT globalref -# define dEXT globaldef {"$GLOBAL_RW_VARS"} noshare -# define EXTCONST globalref -# define dEXTCONST globaldef {"$GLOBAL_RO_VARS"} readonly -#elif defined(_MSC_VER) && defined(_WIN32) -# ifdef PERLDLL -# define EXT __declspec(dllexport) -# define dEXT -# define EXTCONST __declspec(dllexport) const -# define dEXTCONST const -# else -# define EXT __declspec(dllimport) -# define dEXT -# define EXTCONST __declspec(dllimport) const -# define dEXTCONST const -# endif -#else -# define EXT extern -# define dEXT -# define EXTCONST extern const -# define dEXTCONST const -#endif - -#undef INIT -#define INIT(x) - -#undef DOINIT diff --git a/win32/VC-2.0/vc2.patch b/win32/VC-2.0/vc2.patch deleted file mode 100644 index ea7031b3c8..0000000000 --- a/win32/VC-2.0/vc2.patch +++ /dev/null @@ -1,16 +0,0 @@ -You will need this patch to win32.c when compiling with VC++ ver. 2.0. - - -diff -ur /y/src/perl5.003_93/win32/win32.c perl5.003_93-w32/win32/win32.c ---- /y/src/perl5.003_93/win32/win32.c Fri Jan 31 21:38:10 1997 -+++ perl5.003_93-w32/win32/win32.c Tue Mar 11 01:51:08 1997 -@@ -41,7 +41,8 @@ - char szPerlLibRoot[MAX_PATH+1]; - HANDLE PerlDllHandle = INVALID_HANDLE_VALUE; - --#define IsWin95() (Win32System == VER_PLATFORM_WIN32_WINDOWS) -+/* #define IsWin95() (Win32System == VER_PLATFORM_WIN32_WINDOWS) */ -+#define IsWin95() (0) - #define IsWinNT() (Win32System == VER_PLATFORM_WIN32_NT) - - void * diff --git a/win32/dosish.h b/win32/dosish.h deleted file mode 100644 index 8e423fa8fa..0000000000 --- a/win32/dosish.h +++ /dev/null @@ -1,89 +0,0 @@ -#define ABORT() abort(); - -#define SH_PATH "/bin/sh" - -#ifdef DJGPP -#define BIT_BUCKET "nul" -#define OP_BINARY O_BINARY -void Perl_DJGPP_init(); -#define PERL_SYS_INIT(argcp, argvp) STMT_START { \ - Perl_DJGPP_init(); } STMT_END -#else -#define PERL_SYS_INIT(c,v) -#define BIT_BUCKET "nul" -#endif - -#define PERL_SYS_TERM() -#define dXSUB_SYS int dummy -#define TMPPATH "plXXXXXX" - -/* - * 5.003_07 and earlier keyed on #ifdef MSDOS for determining if we were - * running on DOS, *and* if we had to cope with 16 bit memory addressing - * constraints, *and* we need to have memory allocated as unsigned long. - * - * with the advent of *real* compilers for DOS, they are not locked together. - * MSDOS means "I am running on MSDOS". HAS_64K_LIMIT means "I have - * 16 bit memory addressing constraints". - * - * if you need the last, try #DEFINE MEM_SIZE unsigned long. - */ -#ifdef MSDOS - #ifndef DJGPP - #define HAS_64K_LIMIT - #endif -#endif - -/* USEMYBINMODE - * This symbol, if defined, indicates that the program should - * use the routine my_binmode(FILE *fp, char iotype) to insure - * that a file is in "binary" mode -- that is, that no translation - * of bytes occurs on read or write operations. - */ -#undef USEMYBINMODE - -/* USE_STAT_RDEV: - * This symbol is defined if this system has a stat structure declaring - * st_rdev - */ -#define USE_STAT_RDEV /**/ - -/* ACME_MESS: - * This symbol, if defined, indicates that error messages should be - * should be generated in a format that allows the use of the Acme - * GUI/editor's autofind feature. - */ -#undef ACME_MESS /**/ - -/* ALTERNATE_SHEBANG: - * This symbol, if defined, contains a "magic" string which may be used - * as the first line of a Perl program designed to be executed directly - * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG - * begins with a character other then #, then Perl will only treat - * it as a command line if if finds the string "perl" in the first - * word; otherwise it's treated as the first line of code in the script. - * (IOW, Perl won't hand off to another interpreter via an alternate - * shebang sequence that might be legal Perl code.) - */ -/* #define ALTERNATE_SHEBANG "#!" / **/ - -/* - * fwrite1() should be a routine with the same calling sequence as fwrite(), - * but which outputs all of the bytes requested as a single stream (unlike - * fwrite() itself, which on some systems outputs several distinct records - * if the number_of_items parameter is >1). - */ -#define fwrite1 fwrite - -#define Stat(fname,bufptr) win32_stat((fname),(bufptr)) -#define Fstat(fd,bufptr) fstat((fd),(bufptr)) -#define Fflush(fp) fflush(fp) - -#define my_getenv(var) getenv(var) -/* - * the following are standard library calls (stdio in particular) - * that is being redirected to the perl DLL. This is needed for - * Dynaloading any modules that called stdio functions - */ - -#include <win32iop.h> diff --git a/win32/perlmain.c b/win32/perlmain.c deleted file mode 100644 index 507b3831f5..0000000000 --- a/win32/perlmain.c +++ /dev/null @@ -1,10 +0,0 @@ -#include <stdio.h> -#include <win32io.h> - -extern WIN32_IOSUBSYSTEM win32stdio; -extern int RunPerl(int argc, char **argv, char **env, void *iosubsystem); - -main(int argc, char **argv, char **env) -{ - return (RunPerl(argc, argv, env, &win32stdio)); -} |