summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChip Salzenberg <chip@atlantic.net>1997-03-22 15:34:25 +1200
committerChip Salzenberg <chip@atlantic.net>1997-03-22 15:34:25 +1200
commiteb79544ff58c74c06888e5611739331fa5e91f32 (patch)
tree4f63552f8a21fb70f9304688a48c8333742e4943
parent3fe9a6f19eb206c685bd7389e54e2838fdfd04b7 (diff)
parent55a864fe4cea1a0586891b83d359ba71e0972da5 (diff)
downloadperl-5.003_95.tar.gz
[differences between cumulative patch application and perl-5.003_95]perl-5.003_95
-rw-r--r--win32/EXTERN.h47
-rw-r--r--win32/VC-2.0/vc2.patch16
-rw-r--r--win32/dosish.h89
-rw-r--r--win32/perlmain.c10
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));
-}