[differences between cumulative patch application and perl-5.003_95] perl-5.003_95
authorChip Salzenberg <chip@atlantic.net>
Sat, 22 Mar 1997 03:34:25 +0000 (15:34 +1200)
committerChip Salzenberg <chip@atlantic.net>
Sat, 22 Mar 1997 03:34:25 +0000 (15:34 +1200)
1  2 
win32/EXTERN.h
win32/VC-2.0/vc2.patch
win32/dosish.h
win32/perlmain.c

diff --cc win32/EXTERN.h
index 3ce6377,3ce6377..0000000
deleted file mode 100644,100644
+++ /dev/null
@@@ -1,47 -1,47 +1,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 --cc win32/VC-2.0/vc2.patch
index ea7031b,ea7031b..0000000
deleted file mode 100644,100644
+++ /dev/null
@@@ -1,16 -1,16 +1,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 --cc win32/dosish.h
index 8e423fa,8e423fa..0000000
deleted file mode 100644,100644
+++ /dev/null
@@@ -1,89 -1,89 +1,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 --cc win32/perlmain.c
index 507b383,507b383..0000000
deleted file mode 100644,100644
+++ /dev/null
@@@ -1,10 -1,10 +1,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));
--}